StuwerCal::Web
sub make_daynav { my ($stash, $day) = @_; $stash->{prev_day} = uri_for('/day/'.$day->clone->subtract(days=>1)->ymd('-')); $stash->{next_day} = uri_for('/day/'.$day->clone->add(days=>1)->ymd('-')); $stash->{this_day} = uri_for('/day/'.$day->ymd('-')); $stash->{this_day_label} = $day->strftime("%A, %d. %B %Y"); }