Changeset 38298 for main/trunk/greenstone2

Timestamp:

2023-10-06T18:16:42+13:00 (8 months ago)

Author:

davidb

Message:

More nuanced print statements

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -525 +525 @@
 sub tidy_up_oid {
     my ($OID) = @_;
-    if ($OID =~ /[\.\/\\]/) {
-    print STDERR "Identifier $OID contains periods or slashes(.\\\/), replacing them with _\n";
-    $OID =~ s/[\.\\\/]/_/g; #replace periods and slasshes with _
+    if ($OID =~ /\./) {
+    print STDERR "Identifier $OID contains periods (.), replacing with _\n";
+    $OID =~ s/\./_/g; #replace periods and slasshes with _
+    }
+    if ($OID =~ /[\/\\]/) {
+    print STDERR "Identifier $OID contains slashes, replacing with _\n";
+    $OID =~ s/[\\\/]/_/g; #replace periods and slasshes with _
     }
     if ($OID =~ /(%28)|(%29)/) {