Changeset 15151 for gsdl/trunk/perllib/plugins/ConvertToPlug.pm
- Timestamp:
- 2008-03-29T17:43:46+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ConvertToPlug.pm
r15116 r15151 273 273 $tmp_dirname = &util::filename_cat($tmp_dirname, "tmp"); 274 274 &util::mk_dir($tmp_dirname) if (!-e $tmp_dirname); 275 275 276 # The following is not necessary and will cause problems with 277 # replacing_srcdoc_with_html in the GSDLremote case: 276 278 # Remove any white space from filename -- no risk of name collision, and 277 279 # makes later conversion by utils simpler. Leave spaces in path... 278 280 # tidy up the filename with space, dot, hyphen between 279 $tailname =~ s/\s+//g;280 $tailname =~ s/\.+//g;281 $tailname =~ s/\-+//g;281 #$tailname =~ s/\s+//g; 282 #$tailname =~ s/\.+//g; 283 #$tailname =~ s/\-+//g; 282 284 283 285 # convert to utf-8 otherwise we have problems with the doc.xml file
Note:
See TracChangeset
for help on using the changeset viewer.