/[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 503 by dpavlin, Sun Oct 10 17:21:17 2004 UTC revision 504 by dpavlin, Sun Oct 10 17:36:43 2004 UTC
# Line 138  while (my $rec = $webpac->fetch_rec) { Line 138  while (my $rec = $webpac->fetch_rec) {
138                  $words =~ s/\W*\s+\W*/ /g;                  $words =~ s/\W*\s+\W*/ /g;
139                  $words =~ s/\W+$//;                  $words =~ s/\W+$//;
140    
141                    # first try to generate headline for this entry from index
142                    my $h = shift @{$ds->{'index'}};
143                    # then, from display
144                    $h ||= shift @{$ds->{'display'}};
145                    # and as last resport, fallback to headline
146                    $h ||= $headline;
147    
148                  $index->insert(                  $index->insert(
149                          index_name => $ds->{'tag'},                          index_name => $ds->{'tag'},
150                          #path => $f,                          #path => $f,
151                          path => $webpac->mfn,                          path => $webpac->mfn,
152                          headline => $headline,                          headline => $h,
153                          words => $words,                          words => $words,
154                  );                  );
155          }          }

Legend:
Removed from v.503  
changed lines
  Added in v.504

  ViewVC Help
Powered by ViewVC 1.1.26