Parent Directory | Revision Log | Patch
revision 519 by dpavlin, Sun Oct 17 17:35:32 2004 UTC | revision 520 by dpavlin, Mon Oct 18 20:03:42 2004 UTC | |
---|---|---|
# | Line 139 while (my $rec = $webpac->fetch_rec) { | Line 139 while (my $rec = $webpac->fetch_rec) { |
139 | $words =~ s/\W+$//; | $words =~ s/\W+$//; |
140 | ||
141 | # first try to generate headline for this entry from index | # first try to generate headline for this entry from index |
142 | my $h = shift @{$ds->{'index'}}; | my $h = $ds->{'index'}->[0]; |
143 | # then, from display | # then, from display |
144 | $h ||= shift @{$ds->{'display'}}; | $h ||= $ds->{'display'}->[0]; |
145 | # and as last resport, fallback to headline | # and as last resport, fallback to headline |
146 | $h ||= $headline; | $h ||= $headline; |
147 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |