Changeset 16426


Ignore:
Timestamp:
2008-07-16T13:25:56+12:00 (13 years ago)
Author:
ak19
Message:

Minor changes. Although it may not be necessary, using filename_cat to ensure that a filename that is only going to be replaced by a regular expression is still properly created for Windows

File:
1 edited

Legend:

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

    r16414 r16426  
    537537    }
    538538   
    539     my $gsdl_href = "$working_dir/$fname";
     539    my $gsdl_href = &util::filename_cat($working_dir, $fname);
    540540    $collectparent =~ s/\\/\\\\/g;             # escape reserved metacharacter \ in path (by replacing it with \\) for substitution
    541541    $gsdl_href =~ s/^$collectparent(\/|\\)?//; # remove the collectparent path in gsdl_href and any trailing slash
     
    665665           }
    666666
    667            my $gsdl_href = "$working_dir/$assfilePath";
     667           my $gsdl_href = &util::filename_cat($working_dir,$assfilePath);
    668668           $collectparent =~ s/\\/\\\\/g;             # escape reserved metacharacter \ in path (by replacing it with \\) for substitution
    669669           $gsdl_href =~ s/^$collectparent(\/|\\)?//; # remove the collectparent path in gsdl_href and any trailing slash
    670670           $gsdl_href =~ s/\\/\//g;                   # make sure we have url paths (which only use / not \)
    671671           $gsdl_href = "/gsdl/$gsdl_href";           # prepend gsdl
    672            
     672
    673673           my $fserver = $ENV{'FEDORA_HOSTNAME'};
    674674           my $fport = $ENV{'FEDORA_SERVER_PORT'};
Note: See TracChangeset for help on using the changeset viewer.