Changeset 19993 for gsdl/trunk/perllib/plugins/StructuredHTMLPlugin.pm
- Timestamp:
- 2009-07-14T13:19:37+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/StructuredHTMLPlugin.pm
r16104 r19993 371 371 372 372 my $orig_field = ""; 373 foreach my $field (split / ,/, $self->{'metadata_fields'}) {373 foreach my $field (split /\s*,\s*/, $self->{'metadata_fields'}) { 374 374 # support tag<tagname> 375 if ($field =~ /^(.*?) <(.*?)>$/) {375 if ($field =~ /^(.*?)\s*<(.*?)>$/) { 376 376 # "$2" is the user's preferred gs metadata name 377 377 $find_fields{lc($1)}=$2; # lc = lowercase
Note:
See TracChangeset
for help on using the changeset viewer.