Changeset 15875

Show
Ignore:
Timestamp:
05.06.2008 09:47:15 (11 years ago)
Author:
kjdon
Message:

added some comments into filename_within_collection (taken from code in doc.pm which I have just replaced with this method)

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r15713 r15875  
    688688    $collect_dir =~ s/\\/\\\\/g; # escape DOS style file separator 
    689689     
     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     
    690700    if ($filename =~ /^$collect_dir(.*)$/) { 
    691701        $filename = $1;