Changeset 15698 for gsdl/trunk/perllib/basebuildproc.pm

Timestamp:

2008-05-26T14:03:26+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Moved a bit more GDBM-specific code into write_infodb_entry_gdbm().

File:

• gsdl/trunk/perllib/basebuildproc.pm (modified) (3 diffs)

gsdl/trunk/perllib/basebuildproc.pm

@@ -424 +424 @@
         $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
@@ -499 +493 @@
             $contains .= "\".$1";
             }
-            else {
+            else
+            {
             $contains .= "\".$child";
             }
@@ -547 +542 @@
     foreach my $infodb_value (@{$infodb_map->{$infodb_value_key}})
     {
+        if ($infodb_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
+        $infodb_value =~ s/-/&\#045;/gi;
+        }
         print $handle "<$infodb_value_key>" . $infodb_value . "\n";
     }