Changeset 38162 for main/trunk/greenstone2

Timestamp:

2023-09-19T10:41:42+12:00 (9 months ago)

Author:

davidb

Message:

Code updated to allow item files with brackets in the filename to work correctly when DocID is set to be its filename

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -528 +528 @@
     print STDERR "Warning, identifier $OID contains periods or slashes(.\\\/), replacing them with _\n";
     $OID =~ s/[\.\\\/]/_/g; #replace periods and slasshes with _
+    }
+    if ($OID =~ /(%28)|(%29)/) {
+    print STDERR "Warning, identifier $OID contains encoded '(' or ')' parentheses , replacing them with _\n";
+    $OID =~ s/(%28)|(%29)/_/g; #replace periods and slasshes with _
+    }
+    if ($OID =~ /(%5B)|(%5D)/) {
+    print STDERR "Warning, identifier $OID contains encoded '[' or ']' parentheses , replacing them with _\n";
+    $OID =~ s/(%5B)|(%5D)/_/g; #replace periods and slasshes with _
     }
     if ($OID =~ /^\s.*\s$/) {