Changeset 10281 for trunk/gsdl
- Timestamp:
- 2005-07-25T14:21:41+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/util.pm
r10212 r10281 596 596 } 597 597 598 sub filename_within_collection 599 { 600 my ($filename) = @_; 601 602 my $collect_dir = $ENV{'GSDLCOLLECTDIR'}; 603 604 if (defined $collect_dir) { 605 my $dirsep = &util::get_dirsep(); 606 if ($collect_dir !~ m/$dirsep$/) { 607 $collect_dir .= $dirsep; 608 } 609 610 $collect_dir =~ s/\\/\\\\/g; # escape DOS style file separator 611 612 if ($filename =~ /^$collect_dir(.*)$/) { 613 $filename = $1; 614 } 615 } 616 617 return $filename; 618 } 619 620 598 621 sub get_dirsep { 599 622
Note:
See TracChangeset
for help on using the changeset viewer.