Changeset 23371 for main/trunk/greenstone2/perllib/basebuildproc.pm

Timestamp:

2010-12-02T00:36:37+13:00 (13 years ago)

Author:

davidb

Message:

Further refinement of code to support HTML linking between documents when using non-ascii names on Windows

File:

• main/trunk/greenstone2/perllib/basebuildproc.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/basebuildproc.pm

@@ -516 +516 @@
 
         # special case for URL metadata
-        if ($field =~ /^URL$/i) {
-            &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $value, { 'section' => [ $section_OID ] });
+        if ($field =~ m/^URL$/i) {
+            &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, 
+                        $value, { 'section' => [ $section_OID ] });
         }