Changeset 15875 for gsdl/trunk/perllib/util.pm

Timestamp:

2008-06-05T09:47:15+12:00 (16 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)

File:

• gsdl/trunk/perllib/util.pm (modified) (1 diff)

gsdl/trunk/perllib/util.pm

@@ -688 +688 @@
     $collect_dir =~ s/\\/\\\\/g; # escape DOS style file separator
     
+    # if from within GSDLCOLLECTDIR, then remove directory prefix
+    # so source_filename is realative to it.  This is done to aid
+    # portability, i.e. the collection can be moved to somewhere
+    # else on the file system and the archives directory will still
+    # work.  This is needed, for example in the applet version of
+    # GLI where GSDLHOME/collect on the server will be different to
+    # the collect directory of the remove user.  Of course,
+    # GSDLCOLLECTDIR subsequently needs to be put back on to turn
+    # it back into a full pathname.
+    
     if ($filename =~ /^$collect_dir(.*)$/) {
         $filename = $1;