greenstone.org greenstone wiki greenstone trac planet greenstone

Changeset 16426

Show
Ignore:
Timestamp:
2008-07-16 13:25:56 (6 months 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:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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