- Timestamp:
- 2010-03-17T13:01:20+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/StructuredHTMLPlugin.pm
r19993 r21801 365 365 return if (!defined $textref); 366 366 367 my $separator = $self->{'metadata_field_separator'}; 368 if ($separator eq "") { 369 undef $separator; 370 } 367 371 # metadata fields to extract/save. 'key' is the (lowercase) name of the 368 372 # html meta, 'value' is the metadata name for greenstone to use … … 395 399 #print $outhandle " extracted \"$tag\" metadata \"$value\"\n" 396 400 # if ($self->{'verbosity'} > 2); 397 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), $tag, $value); 401 if (defined $separator) { 402 my @values = split($separator, $value); 403 foreach my $v (@values) { 404 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), $tag, $v) if $v =~ /\S/; 405 } 406 } 407 else { 408 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), $tag, $value); 409 } 398 410 } 399 411 }
Note:
See TracChangeset
for help on using the changeset viewer.