/[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 21 by dpavlin, Sat May 8 00:54:16 2004 UTC
# Line 59  Line 59 
59  [% END %]  [% END %]
60  [% END %]  [% END %]
61    
62    [% MACRO url_search BLOCK %]
63    [% IF param.search ; "?search=" ; param.search ; END %]
64    [% END %]
65    
66  <body>  <body>
67    
68  <table border="0" width="100%">  <table border="0" width="100%">
# Line 98  Search Line 102  Search
102  </td>  </td>
103  <td valign="top">  <td valign="top">
104    
105    [% USE cal = Calendar.Simple %]  [% USE cal = Calendar.Simple(mm,yyyy) %]
106    
107    [% PERL %]
108    $stash->set( get_cal => sub {
109            my $cal = shift;
110            my $yyyy = shift || return "BUG2";
111            my $mm = shift || return "BUG3";
112            my $day = shift || return "&nbsp;";
113    
114            my $url = shift || "";
115    
116            return $day if (! $cal);        # no calendar entries
117    
118            my $yyyymm = sprintf("%04d-%02d",$yyyy,$mm);
119            my $dd = sprintf("%02d",$day);
120    
121            if ($cal->{$yyyymm}->{$dd}) {
122                    return "<a href=\"/$yyyy/$mm/$dd/$url\" title=\"".$cal->{$yyyymm}->{$dd}."\">$day</a>";
123            } else {
124                    return $day;
125            }
126    } );
127    [% END %]
128    
129    <table border="0">    <table border="0">
130      <tr><th colspan="7">
131            <a href="/[% yyyy ; "/" %]/[% url_search %]">[% yyyy %]</a>-<a href="/[% yyyy ; "/" ; mm %]/[% url_search %]">[% mm %]</a>
132      </th></tr>
133    [% FOREACH row = cal.rows %]    [% FOREACH row = cal.rows %]
134       <tr>       <tr>
135       [% FOREACH col = row %]       [% FOREACH col = row %]
136          <td align="right">[% col || '&nbsp;' %]</td>          <td align="right">[% get_cal(calendar,yyyy,mm,col,url_search) %]</td>
137       [% END %]       [% END %]
138       </tr>       </tr>
139    [% END %]    [% END %]
# Line 125  Lists Line 154  Lists
154  <br>  <br>
155  Links  Links
156    
157  <br>  <!--
158  [% USE dumper ; dumper.dump(counters) %]  [% USE dumper ; dumper.dump(calendar) %]
159    -->
160    
161  </td>  </td>
162    
Legend:
Removed from v.19  
changed lines
  Added in v.21
  ViewVC Help
Powered by ViewVC 1.1.26