/[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 392 by dpavlin, Wed Jul 21 16:58:27 2004 UTC
# Line 79  while (my $rec = $webpac->fetch_rec) { Line 79  while (my $rec = $webpac->fetch_rec) {
79                  }                  }
80          }          }
81    
82            my $f = $filename;
83            $f =~ s!out/!!;
84    
85          # save into index          # save into index
86          foreach my $ds (@ds) {          foreach my $ds (@ds) {
87                  next if (! $ds->{'swish'});                  next if (! $ds->{'swish'});
88    
89                  $index->insert(                  $index->insert(
90                          index_name => $ds->{'tag'},                          index_name => $ds->{'tag'},
91                          path => $filename,                          path => $f,
92                          headline => $headline,                          headline => $headline,
93                          words => join(" ",@{$ds->{'swish'}})                          words => join(" ",@{$ds->{'swish'}})
94                  );                  );

Legend:
Removed from v.390  
changed lines
  Added in v.392

  ViewVC Help
Powered by ViewVC 1.1.26