Changeset 15583

Show
Ignore:
Timestamp:
19.05.2008 19:41:51 (12 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm

    r15360 r15583  
    8686    # Might need the following in the schemeLocation attribute for Fedora3 
    8787    #   http://www.fedora.info/definitions/1/0/mets-fedora-ext1-1.xsd 
    88  
    8988    my $extra_attr = "OBJID=\"$oid_namespace:$collection-$OID\" TYPE=\"FedoraObject\" LABEL=\"$doc_title\""; 
    9089 
     
    524523    my $gsdl_href = "$working_dir/$fname"; 
    525524     
     525    $collectparent =~ s/\\/|/g; # Temporarily replace any back slashes in the file path with |  
    526526    $gsdl_href =~ s/^$collectparent(\/)?//; 
    527527    $gsdl_href = "/gsdl/$gsdl_href"; 
     528    $collectparent =~ s/\|/\\/g; # Change the | in the file path back into backslashes 
    528529     
    529530    my $fserver = $ENV{'FEDORA_HOSTNAME'};