/[mws]/trunk/templates/master.html
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/templates/master.html

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 19 by dpavlin, Fri May 7 20:52:34 2004 UTC revision 20 by dpavlin, Fri May 7 23:35:39 2004 UTC
# Line 98  Search Line 98  Search
98  </td>  </td>
99  <td valign="top">  <td valign="top">
100    
101    [% USE cal = Calendar.Simple %]  [% USE cal = Calendar.Simple(mm,yyyy) %]
102    
103    [% PERL %]
104    $stash->set( get_cal => sub {
105            my $cal = shift;
106            my $yyyy = shift || return "BUG2";
107            my $mm = shift || return "BUG3";
108            my $day = shift || return "&nbsp;";
109    
110            return $day if (! $cal);        # no calendar entries
111    
112            my $yyyymm = sprintf("%04d-%02d",$yyyy,$mm);
113            my $dd = sprintf("%02d",$day);
114    
115            if ($cal->{$yyyymm}->{$dd}) {
116                    return "<a href=\"/$yyyy/$mm/$dd/\" title=\"".$cal->{$yyyymm}->{$dd}."\">$day</a>";
117            } else {
118                    return $day;
119            }
120    } );
121    [% END %]
122    
123    <table border="0">    <table border="0">
124      <tr><th colspan="7"><a href="/[% yyyy ; "/" ; mm %]/">[% yyyy ; "-" ; mm %]</a></th></tr>
125    [% FOREACH row = cal.rows %]    [% FOREACH row = cal.rows %]
126       <tr>       <tr>
127       [% FOREACH col = row %]       [% FOREACH col = row %]
128          <td align="right">[% col || '&nbsp;' %]</td>          <td align="right">[% get_cal(calendar,yyyy,mm,col) %]</td>
129       [% END %]       [% END %]
130       </tr>       </tr>
131    [% END %]    [% END %]
# Line 126  Lists Line 147  Lists
147  Links  Links
148    
149  <br>  <br>
150  [% USE dumper ; dumper.dump(counters) %]  [% USE dumper ; dumper.dump(calendar) %]
151    
152  </td>  </td>
153    
Legend:
Removed from v.19  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.26