Changeset 14963 for gsdl

Timestamp:

2008-02-12T15:20:00+13:00 (16 years ago)

Author:

davidb

Message:

Further massaging of text and metadata values to avoid special characters in Greenstone such as [ and ], and upper-casing first letter after metadata prefix

File:

• gsdl/trunk/perllib/plugins/OAIPlug.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/OAIPlug.pm

@@ -278 +278 @@
     $$textref =~ s/</&lt;/g;
     $$textref =~ s/>/&gt;/g;
+    $$textref =~ s/\[/&#91;/g;
+    $$textref =~ s/\]/&#93;/g;
 
 ##    print STDERR "*** adding text: $$textref\n";
@@ -433 +435 @@
         $metaname = "$top_level_prefix.$metaname";
         }
-
+        $metaname =~ s/\.(.)/\.\u$1/;
 
         $metaname = $self->remap_dcterms_metadata($metaname);
+
+        $metavalue =~ s/\[/&#91;/g;
+        $metavalue =~ s/\]/&#93;/g;
+
 
 #       if ($metaname eq "Identifier")