Ignore:
Timestamp:
2001-02-07T13:46:55+13:00 (23 years ago)
Author:
sjboddie
Message:

* empty log message *

File:
1 edited

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;
Note: See TracChangeset for help on using the changeset viewer.