/[swish]/trunk/html/swish.cgi
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/html/swish.cgi

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

revision 59 by dpavlin, Mon Jan 26 08:08:41 2004 UTC revision 62 by dpavlin, Fri Feb 6 13:27:51 2004 UTC
# Line 20  my $config=XMLin(undef, Line 20  my $config=XMLin(undef,
20    
21  my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset});  my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset});
22  sub x {  sub x {
23            return if (! defined $_[0]);
24          return $from_utf8->convert($_[0]);          return $from_utf8->convert($_[0]);
25  }  }
26    
# Line 71  print STDERR "##: $_->{limit}",x($_->{co Line 72  print STDERR "##: $_->{limit}",x($_->{co
72          $path_label{$_->{limit}} = x($_->{content});          $path_label{$_->{limit}} = x($_->{content});
73  }  }
74    
75  my @properties = split(/\s+/,x($config->{properties}));  my @properties = split(/\s+/,x($config->{properties})) if ($config->{properties});
76    
77  if ($config->{charset}) {  if ($config->{charset}) {
78          print header(-charset=>x($config->{charset}));          print header(-charset=>x($config->{charset}));
# Line 286  if (param('search')) { Line 287  if (param('search')) {
287    
288    
289          foreach my $p (@{$pager->pages_in_set()}) {          foreach my $p (@{$pager->pages_in_set()}) {
290                    next if ($p < 0);
291  #       for (my $p=$pager->previous_set; $p <= $pager->next_set; $p++) {  #       for (my $p=$pager->previous_set; $p <= $pager->next_set; $p++) {
292                  if($p == $pager->current_page()) {                  if($p == $pager->current_page()) {
293                          $nav_html .= "<b>$p</b> ";                          $nav_html .= "<b>$p</b> ";
Legend:
Removed from v.59  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.26