Changeset 385 for trunk/gsdl/perllib/classify/List.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/List.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/List.pm

@@ -10 +10 @@
 
 package List;
+
+use sorttools;
 
 sub new {
@@ -46 +48 @@
     if (defined $metavalue) {
         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}) {
@@ -88 +90 @@
 
 
-# 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;