Changeset 385 for trunk/gsdl/perllib/classify/AZList.pm

Timestamp:

1999-07-14T14:54:20+12:00 (25 years ago)

Author:

sjboddie

Message:

moved string formatting for sorting into it's own module

File:

• trunk/gsdl/perllib/classify/AZList.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/AZList.pm

@@ -2 +2 @@
 
 package AZList;
+
+use sorttools;
 
 sub new {
@@ -34 +36 @@
     if (defined $metavalue && $metavalue =~ /\w/) {
     if ($self->{'metaname'} eq 'Creator') {
-        $self->format_string_name_english (\$metavalue);
+        &sorttools::format_string_name_english (\$metavalue);
     } else {
-        $self->format_string_english (\$metavalue);
+        &sorttools::format_string_english (\$metavalue);
     }
     if (defined $self->{'list'}->{$doc_OID}) {
@@ -201 +203 @@
 }
 
-# format an english name for sorting
-# i.e. convert to lowercase, put surname before
-# first names etc.    
-sub format_string_name_english {
-    my $self = shift (@_);
-    my ($stringref) = @_;
-
-    $$stringref =~ tr/A-Z/a-z/;
-    $$stringref =~ s/[^a-z0-9 ]//g;
-    $$stringref =~ s/\s+/ /g;
-    $$stringref =~ s/^\s+//;
-    my @names = split / /, $$stringref;
-    my $surname = pop @names;
-    while (scalar @names && $surname =~ /^(jnr|snr)$/i) {
-    $surname = pop @names;
-    }
-    $$stringref = $surname . " " . $$stringref;
-}
-
-# format an english string for sorting
-# i.e. convert to lowercase, remove the, a or an
-# from beginning of string etc.
-sub format_string_english {
-    my $self = shift (@_);
-    my ($stringref) = @_;
-
-    $$stringref =~ tr/A-Z/a-z/;
-    $$stringref =~ s/[^a-z0-9 ]//g;
-    $$stringref =~ s/^\s*(the|a|an)\b//;
-    $$stringref =~ s/^\s+//;
-}
-
 1;