Changeset 15875
- Timestamp:
- 2008-06-05T09:47:15+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r15713 r15875 688 688 $collect_dir =~ s/\\/\\\\/g; # escape DOS style file separator 689 689 690 # if from within GSDLCOLLECTDIR, then remove directory prefix 691 # so source_filename is realative to it. This is done to aid 692 # portability, i.e. the collection can be moved to somewhere 693 # else on the file system and the archives directory will still 694 # work. This is needed, for example in the applet version of 695 # GLI where GSDLHOME/collect on the server will be different to 696 # the collect directory of the remove user. Of course, 697 # GSDLCOLLECTDIR subsequently needs to be put back on to turn 698 # it back into a full pathname. 699 690 700 if ($filename =~ /^$collect_dir(.*)$/) { 691 701 $filename = $1;
Note:
See TracChangeset
for help on using the changeset viewer.