Changeset 16426

Show
Ignore:
Timestamp:
16.07.2008 13:25:56 (11 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

Files:
1 modified

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'};