Changeset 23483
- Timestamp:
- 2010-12-14T14:40:19+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r23418 r23483 1106 1106 } 1107 1107 # Make sure initial drive letter is lower-case (to fit in with rest of Greenstone) 1108 $filename_full_path =~ s/^(.):/\ l$1:/;1108 $filename_full_path =~ s/^(.):/\u$1:/; 1109 1109 if ((defined $and_encode) && ($and_encode)) { 1110 1110 $filename_full_path = encode("utf8",$filename_full_path); … … 1132 1132 # Make sure initial drive letter is lower-case (to fit in 1133 1133 # with rest of Greenstone) 1134 $filename_full_path =~ s/^(.):/\ l$1:/;1134 $filename_full_path =~ s/^(.):/\u$1:/; 1135 1135 } 1136 1136
Note:
See TracChangeset
for help on using the changeset viewer.