Changeset 4841
- Timestamp:
- 2003-07-01T11:56:42+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/sorttools.pm
r2631 r4841 51 51 $$stringref =~ tr/A-Z/a-z/; 52 52 $$stringref =~ s/&\S+;//g; 53 54 my $comma_format = ($$stringref =~ m/^.+,.+$/); 55 53 56 $$stringref =~ s/[^a-z0-9 ]//g; 54 57 $$stringref =~ s/\s+/ /g; 55 58 $$stringref =~ s/^\s+//; 56 my @names = split / /, $$stringref; 57 my $surname = pop @names; 58 while (scalar @names && $surname =~ /^(jnr|snr)$/i) { 59 $surname = pop @names; 59 60 61 if (!$comma_format) { 62 # No commas in name => name in 'firstname surname' format 63 # need to sort by surname 64 my @names = split / /, $$stringref; 65 my $surname = pop @names; 66 while (scalar @names && $surname =~ /^(jnr|snr)$/i) { 67 $surname = pop @names; 68 } 69 $$stringref = $surname . " " . $$stringref; 60 70 } 61 $$stringref = $surname . " " . $$stringref;62 71 } 63 72
Note:
See TracChangeset
for help on using the changeset viewer.