Changeset 19993 for gsdl/trunk/perllib/plugins/StructuredHTMLPlugin.pm

Timestamp:

2009-07-14T13:19:37+12:00 (15 years ago)

Author:

ak19

Message:

Dr Bainbridge's fix to deal with spaces in metadata_fields option (spaces before angle brackets and around commas that separate a list of metadata fields).

File:

• gsdl/trunk/perllib/plugins/StructuredHTMLPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/StructuredHTMLPlugin.pm

@@ -371 +371 @@
 
     my $orig_field = "";
-    foreach my $field (split /,/, $self->{'metadata_fields'}) {
+    foreach my $field (split /\s*,\s*/, $self->{'metadata_fields'}) {
     # support tag<tagname>
-    if ($field =~ /^(.*?)<(.*?)>$/) {
+    if ($field =~ /^(.*?)\s*<(.*?)>$/) {
         # "$2" is the user's preferred gs metadata name
         $find_fields{lc($1)}=$2; # lc = lowercase