Changeset 3665 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

2003-01-12T21:38:58+13:00 (21 years ago)

Author:

sjboddie

Message:

Prevent occurances of 70 or more hyphens in metadata values from causing txt2db to
wrongly treat them as a separator.

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -314 +314 @@
         $value =~ s/\n/\\n/g;
         $value =~ s/\r/\\r/g;
+        if ($value =~ /-{70,}/) {
+            # if value contains 70 or more hyphens in a row we need
+            # to escape them to prevent txt2db from treating them
+            # as a separator
+            $value =~ s/-/&\#045;/gi;
+        }
 
         # special case for URL metadata