Changeset 18411 for gsdl


Ignore:
Timestamp:
01/21/09 19:15:07 (12 years ago)
Author:
ak19
Message:

Removed unused code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r18404 r18411  
    10081008    $filename =~ s/ /_/g;
    10091009
    1010     # Should we do this????
    1011     # DM safing would have replaced underscores with character entity _
    1012 #    $filename =~ s/&\#095;/_/g;
    1013 
    10141010    my ($tailname,$dirname,$suffix);
    10151011    if($no_suffix) { # given a tailname, no suffix
Note: See TracChangeset for help on using the changeset viewer.