& /_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