Changeset 22232 for main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm
- Timestamp:
- 2010-06-04T11:36:07+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm
r21584 r22232 564 564 my $doc_dir = ""; 565 565 my $doc_dir_rest = $OID; 566 566 567 # remove any \ and / from the OID 567 568 $doc_dir_rest =~ s/[\\\/]//g; 569 570 # Remove ":" if we are on Windows OS, as otherwise they get confused with the drive letters 571 $doc_dir_rest =~ s/\://g if ($ENV{'GSDLOS'} =~ /^windows$/i); 572 568 573 my $doc_dir_num = 0; 569 574
Note:
See TracChangeset
for help on using the changeset viewer.