Changeset 16396
- Timestamp:
- 2008-07-14T15:24:30+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm
r16102 r16396 525 525 my $collectparent; 526 526 if (defined $ENV{'GSDL3HOME'}) { 527 $collectparent = &util::filename_cat($ENV{'GSDL3HOME'}," sites","localsite");527 $collectparent = &util::filename_cat($ENV{'GSDL3HOME'},"web","sites","localsite"); 528 528 } 529 529 else { … … 531 531 $collectparent = $ENV{'GSDLHOME'}; 532 532 } 533 533 534 534 my $gsdl_href = "$working_dir/$fname"; 535 535 $collectparent =~ s/\\/\\\\/g; # escape reserved metacharacter \ in path (by replacing it with \\) for substitution … … 537 537 $gsdl_href =~ s/\\/\//g; # make sure we have url paths (which only use / not \) 538 538 $gsdl_href = "/gsdl/$gsdl_href"; # prepend gsdl 539 539 540 540 my $fserver = $ENV{'FEDORA_HOSTNAME'}; 541 541 my $fport = $ENV{'FEDORA_SERVER_PORT'}; … … 648 648 my $collectparent; 649 649 if (defined $ENV{'GSDL3HOME'}) { 650 $collectparent = &util::filename_cat($ENV{'GSDL3HOME'}," sites","localsite");650 $collectparent = &util::filename_cat($ENV{'GSDL3HOME'},"web","sites","localsite"); 651 651 } 652 652 else { … … 660 660 $gsdl_href =~ s/\\/\//g; # make sure we have url paths (which only use / not \) 661 661 $gsdl_href = "/gsdl/$gsdl_href"; # prepend gsdl 662 662 663 663 my $fserver = $ENV{'FEDORA_HOSTNAME'}; 664 664 my $fport = $ENV{'FEDORA_SERVER_PORT'};
Note:
See TracChangeset
for help on using the changeset viewer.