/[webpac]/trunk/WebPac.pm
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/WebPac.pm

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

revision 79 by dpavlin, Sat Jul 5 23:07:47 2003 UTC revision 80 by dpavlin, Tue Jul 8 08:24:13 2003 UTC
# Line 117  sub show_results_list { Line 117  sub show_results_list {
117    
118          my $tmpl = $self->load_tmpl('results.html');          my $tmpl = $self->load_tmpl('results.html');
119    
120            sub esc_html {
121                    my $html = shift;
122                    $html =~ s/</&lt;/g;
123                    $html =~ s/>/&gt;/g;
124                    return $html;
125            }
126    
127          # call swish          # call swish
128          my $sh = SWISH->connect('Fork',          my $sh = SWISH->connect('Fork',
129                  prog     => $SWISH,                  prog     => $SWISH,
# Line 128  sub show_results_list { Line 135  sub show_results_list {
135                          push @swish_results, {                          push @swish_results, {
136                                  nr => ($#swish_results + 2),                                  nr => ($#swish_results + 2),
137                                  path => $hit->swishdocpath,                                  path => $hit->swishdocpath,
138                                  headline => $from_utf8->convert($hit->headline),                                  headline => esc_html($from_utf8->convert($hit->headline)),
139                                  html => back2html($from_utf8->convert($hit->html)),                                  html => back2html($from_utf8->convert($hit->html)),
140                                  rank => $hit->swishrank };                                  rank => $hit->swishrank };
141    

Legend:
Removed from v.79  
changed lines
  Added in v.80

  ViewVC Help
Powered by ViewVC 1.1.26