/[mws]/trunk/templates/macros.tt2
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/macros.tt2

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

revision 47 by dpavlin, Tue May 11 19:50:48 2004 UTC revision 48 by dpavlin, Wed May 12 00:29:01 2004 UTC
# Line 1  Line 1 
1  [% PERL %]  [% PERL %]
2  $stash->set( search => sub {  $stash->set( search => sub {
3          my ($fld,$search,$sort_by,$link_text) = @_;          my ($fld,$search,$sort_by,$link_text,$title) = @_;
4    
5          my $html = '<a href="?search='.$fld.':';          my $html = '<a href="?search='.$fld.':';
6          if ($fld eq "subject") {          if ($fld eq "subject") {
# Line 22  $stash->set( search => sub { Line 22  $stash->set( search => sub {
22    
23          $html .= '&sort_by='.$sort_by if ($sort_by);          $html .= '&sort_by='.$sort_by if ($sort_by);
24    
25          $html .= '">';          $html .= '"';
26            $html .= 'title="'.$title.'"' if ($title);
27            $html .= '>';
28          $html .= ($link_text ? $link_text : $search);          $html .= ($link_text ? $link_text : $search);
29          $html .= '</a>';          $html .= '</a>';
30    
# Line 120  END %] Line 122  END %]
122  $stash->set( sort_bar => sub {  $stash->set( sort_bar => sub {
123          my ($param,$pre,$del,$post) = @_;          my ($param,$pre,$del,$post) = @_;
124    
125          my ($a1,$a2,$a3) = ('<a href="','">','</a>');          my $a_href_fmt = qq{<a href="%s" title="sort by %s">%s</a>};
126          my ($ss1,$ss2) = ('<span class="sort_selected">','</span>');          my $ss_fmt = qq{<span class="sort_selected">%s</span>};
127    
128          my $html_search = '';          my $html_search = '';
129          my $next_sep = '?';          my $next_sep = '?';
# Line 150  $stash->set( sort_bar => sub { Line 152  $stash->set( sort_bar => sub {
152          my @html;          my @html;
153          foreach my $fld (qw(rank date from to)) {          foreach my $fld (qw(rank date from to)) {
154    
155                  my $h = $a1  . $html_search . $next_sep . 'sort_by=';                  my $url = $html_search . $next_sep . 'sort_by=';
156                    my $title;
157    
158                  if ($sort_fld eq $fld) {                  if ($sort_fld eq $fld) {
159                          $h .= $sort_fld." ".$other_order->{$sort_order};                          $url .= $sort_fld."%20".$other_order->{$sort_order};
160                          $h .= $a2 . $ss1 . $sort_fld . $ss2 . $a3 ;                          $title = sprintf($ss_fmt,$sort_fld);
161                  } else {                  } else {
162                          $h .= $fld." ".$default_sort->{$fld};                          $url .= $fld."%20".$default_sort->{$fld};
163                          $h .= $a2 . $fld . $a3 ;                          $title = $fld;
164                  }                  }
165                  push @html, $h;                  $url .= "&full_body=1" if ($param->{full_body});
166                    push @html, sprintf($a_href_fmt, $url, $fld, $title);
167    
168          }          }
169    
Legend:
Removed from v.47  
changed lines
  Added in v.48
  ViewVC Help
Powered by ViewVC 1.1.26