/[webpac]/trunk2/all2all.pl
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 /trunk2/all2all.pl

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

revision 390 by dpavlin, Wed Jul 21 16:18:45 2004 UTC revision 398 by dpavlin, Sat Jul 24 13:48:08 2004 UTC
# Line 62  while (my $rec = $webpac->fetch_rec) { Line 62  while (my $rec = $webpac->fetch_rec) {
62                  print OUT $webpac->output(                  print OUT $webpac->output(
63                          template => 'html.tt',                          template => 'html.tt',
64                          data => \@ds,                          data => \@ds,
65                            headline => $webpac->{'headline'},
66                  );                  );
67                  close(OUT);                  close(OUT);
68          } else {          } else {
69                  print $webpac->output(                  print $webpac->output(
70                          template => 'text.tt',                          template => 'text.tt',
71                          data => \@ds,                          data => \@ds,
72                            headline => $webpac->{'headline'},
73                  );                  );
74          }          }
75    
76          my $headline;          my $headline = $webpac->{'headline'};
77          foreach my $ds (@ds) {  
78                  if ($ds->{'tag'} eq 'headline') {          my $f = $filename;
79                          $headline = join(" ",@{$ds->{'display'}});          $f =~ s!out/!!;
                         last;  
                 }  
         }  
80    
81          # save into index          # save into index
82          foreach my $ds (@ds) {          foreach my $ds (@ds) {
# Line 85  while (my $rec = $webpac->fetch_rec) { Line 84  while (my $rec = $webpac->fetch_rec) {
84    
85                  $index->insert(                  $index->insert(
86                          index_name => $ds->{'tag'},                          index_name => $ds->{'tag'},
87                          path => $filename,                          path => $f,
88                          headline => $headline,                          headline => $headline,
89                          words => join(" ",@{$ds->{'swish'}})                          words => join(" ",@{$ds->{'swish'}})
90                  );                  );
Legend:
Removed from v.390  
changed lines
  Added in v.398
  ViewVC Help
Powered by ViewVC 1.1.26