& /_elements/header, title => _('Calendar'_ &>
<% _('Close window')%>
Prev
<% $months[$DisplayedMonth-1] %> <% _($DisplayedYear) %>
Next
% foreach my $wday (@weekdays) {
<%_($wday)%> |
% }
% foreach my $week (@cal) {
% foreach my $day (@{$week}) {
% if ($day) {
% my $datestr = sprintf('%04d-%02d-%02d', $DisplayedYear, $DisplayedMonth, $day);
<% $day %>
% } else {
% }
|
% } #foreach $day
% } # foreach $week
% my $datestr = sprintf('%04d-%02d-%02d', $today[5]+1900,$today[4]+1, $today[3]);
Today
% my @tomorrow = localtime(time()+86400);
% $datestr = sprintf('%04d-%02d-%02d', $tomorrow[5]+1900,$tomorrow[4]+1, $tomorrow[3]);
Tomorrow