Changeset 10613 for trunk/gsdl/perllib/plugins/PagedImgPlug.pm

Timestamp:

2005-09-21T14:58:17+12:00 (19 years ago)

Author:

kjdon

Message:

modified the item file metadata regex so that space is allowed (and removed) from the front of the value

File:

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

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -849 +849 @@
     next unless $line =~ /\w/;
     chomp $line;
-    if ($line =~ /^<([^>]*)>(.*?)\s*$/) {
+    if ($line =~ /^<([^>]*)>\s*(.*?)\s*$/) {
         $doc_obj->set_utf8_metadata_element ($topsection, $1, $2);
         #$meta->{$1} = $2;