Changeset 15583 for gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm

Timestamp:

2008-05-19T19:41:51+12:00 (16 years ago)

Author:

ak19

Message:

In method doctxt_to_xlink, made sure that backslashes in filepaths (as happens in Windows) don't interfere during the regex substitution

File:

• gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm

@@ -86 +86 @@
     # Might need the following in the schemeLocation attribute for Fedora3
     #   http://www.fedora.info/definitions/1/0/mets-fedora-ext1-1.xsd
-
     my $extra_attr = "OBJID=\"$oid_namespace:$collection-$OID\" TYPE=\"FedoraObject\" LABEL=\"$doc_title\"";
 
@@ -524 +523 @@
     my $gsdl_href = "$working_dir/$fname";
     
+    $collectparent =~ s/\\/|/g; # Temporarily replace any back slashes in the file path with | 
     $gsdl_href =~ s/^$collectparent(\/)?//;
     $gsdl_href = "/gsdl/$gsdl_href";
+    $collectparent =~ s/\|/\\/g; # Change the | in the file path back into backslashes
     
     my $fserver = $ENV{'FEDORA_HOSTNAME'};