Changeset 10281

Timestamp:

2005-07-25T14:21:41+12:00 (19 years ago)

Author:

chi

Message:

Add filename_within_collection().

File:

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

trunk/gsdl/perllib/util.pm

@@ -596 +596 @@
 }
 
+sub filename_within_collection
+{
+    my ($filename) = @_;
+
+    my $collect_dir = $ENV{'GSDLCOLLECTDIR'};
+    
+    if (defined $collect_dir) {
+    my $dirsep = &util::get_dirsep();
+    if ($collect_dir !~ m/$dirsep$/) {
+        $collect_dir .= $dirsep;
+    }
+    
+    $collect_dir =~ s/\\/\\\\/g; # escape DOS style file separator
+    
+    if ($filename =~ /^$collect_dir(.*)$/) {
+        $filename = $1;
+    }
+    }
+    
+    return $filename;
+}
+
+
 sub get_dirsep {