Changeset 1920

Show
Ignore:
Timestamp:
07.02.2001 13:46:55 (19 years ago)
Author:
sjboddie
Message:

*** empty log message ***

Files:
1 modified

Legend:

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

    r1919 r1920  
    3737 
    3838    $$stringref =~ tr/A-Z/a-z/; 
    39     $$stringref =~ s/&\S;//g; 
     39    $$stringref =~ s/&\S+;//g; 
    4040    $$stringref =~ s/[^a-z0-9 ]//g; 
    4141    $$stringref =~ s/^\s*(the|a|an)\b//; 
     
    5050 
    5151    $$stringref =~ tr/A-Z/a-z/; 
    52     $$stringref =~ s/&\S;//g; 
     52    $$stringref =~ s/&\S+;//g; 
    5353    $$stringref =~ s/[^a-z0-9 ]//g; 
    5454    $$stringref =~ s/\s+/ /g;