- Timestamp:
- 2013-03-28T11:10:39+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/MARCPlugin.pm
r27106 r27141 333 333 } 334 334 335 336 335 sub extract_metadata 337 336 { … … 357 356 $subfield = $2; 358 357 } 359 if (defined $subfield) { 360 my $meta_value = $marc->subfield($marc_field, $subfield); 358 359 foreach my $meta_value_obj ($marc->field($marc_field)) { 360 my $meta_value; 361 if (defined($subfield)) { 362 $meta_value = $meta_value_obj->subfield($subfield); 363 } else { 364 $meta_value = $meta_value_obj->as_string(); 365 } 361 366 if (defined $meta_value) { 362 # Square brackets in metadata values need to be escaped so they don't confuse Greenstone/GLI363 $meta_value =~ s/\[/&\#091;/g;364 $meta_value =~ s/\]/&\#093;/g;365 my $metavalue_str = $self->to_utf8($encoding, $meta_value);366 $doc_obj->add_utf8_metadata ($section, $gsdl_field, $metavalue_str);367 }368 }369 else370 {371 foreach my $meta_value_obj ($marc->field($marc_field))372 {373 my $meta_value = $meta_value_obj->as_string();374 375 367 # Square brackets in metadata values need to be escaped so they don't confuse Greenstone/GLI 376 368 $meta_value =~ s/\[/&\#091;/g;
Note:
See TracChangeset
for help on using the changeset viewer.