& /Elements/Header, ShowBar => 0 &>
%# From /Elements/Header
<&|/l&>Close window&>
<&|/l&>Prev&>
<% $months[$DisplayedMonth-1] %> <% $DisplayedYear %>
<&|/l&>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