Changeset 1919

Show
Ignore:
Timestamp:
07.02.2001 13:39:01 (19 years ago)
Author:
sjboddie
Message:

*** empty log message ***

Files:
1 modified

Legend:

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

    r537 r1919  
    3737 
    3838    $$stringref =~ tr/A-Z/a-z/; 
     39    $$stringref =~ s/&\S;//g; 
    3940    $$stringref =~ s/[^a-z0-9 ]//g; 
    4041    $$stringref =~ s/^\s*(the|a|an)\b//; 
     
    4950 
    5051    $$stringref =~ tr/A-Z/a-z/; 
     52    $$stringref =~ s/&\S;//g; 
    5153    $$stringref =~ s/[^a-z0-9 ]//g; 
    5254    $$stringref =~ s/\s+/ /g;