Changeset 15151

Show
Ignore:
Timestamp:
29.03.2008 17:43:46 (11 years ago)
Author:
ak19
Message:

Commented out regular expressions that remove periods, hyphens and spaces from filenames to be converted. Need to retain the same output filename as was input

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ConvertToPlug.pm

    r15116 r15151  
    273273    $tmp_dirname = &util::filename_cat($tmp_dirname, "tmp"); 
    274274    &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: 
    276278    # Remove any white space from filename -- no risk of name collision, and 
    277279    # makes later conversion by utils simpler. Leave spaces in path... 
    278280    # 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; 
    282284 
    283285    # convert to utf-8 otherwise we have problems with the doc.xml file