Changeset 17117 for gsdl/trunk/perllib
- Timestamp:
- 2008-09-01T11:54:30+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/mgppbuildproc.pm
r17110 r17117 282 282 $self->{'indexfieldmap'}->{$shortname} = 1; 283 283 } 284 # we only want one tag around the index 285 $new_text .= "$paratag<$shortname>"; 284 286 my @metadata_list = (); 285 287 foreach my $submeta (split /,/, $real_field) { … … 287 289 my $section_text = $doc_obj->get_text($section); 288 290 if ($self->{'indexing_text'}) { 289 # tag the text with <Text>...</Text>, add the <Paragraph> tags and strip out html if needed290 $new_text .= "$paratag<$shortname>\n";291 291 if ($paratag ne "") { 292 # we fiddle around with splitting text into paragraphs 293 $new_text .= "</$shortname>$paratag<$shortname>\n"; 292 294 $section_text = $self->preprocess_text($section_text, $self->{'strip_html'}, "</$shortname>$paratag<$shortname>"); 293 295 } … … 295 297 $section_text = $self->preprocess_text($section_text, $self->{'strip_html'}, ""); 296 298 } 297 $new_text .= "$section_text</$shortname> \n";299 $new_text .= "$section_text</$shortname><$shortname>\n"; 298 300 } 299 301 else { … … 313 315 } 314 316 foreach my $item (@metadata_list) { 315 $new_text .= "$paratag<$shortname>$item</$shortname>\n"; 316 } 317 #$new_text .= "$paratag<$shortname>$item</$shortname>\n"; 318 $new_text .= "$item "; 319 } 320 $new_text .= "</$shortname>"; 317 321 } 318 322
Note:
See TracChangeset
for help on using the changeset viewer.