Changeset 4841

Timestamp:

2003-07-01T11:56:42+12:00 (21 years ago)

Author:

davidb

Message:

Modification to sorting metadata when metadata=Creator. Now tries
to use last word of name as surname is there are no commas in
string

File:

• trunk/gsdl/perllib/sorttools.pm (modified) (1 diff)

trunk/gsdl/perllib/sorttools.pm

@@ -51 +51 @@
     $$stringref =~ tr/A-Z/a-z/;
     $$stringref =~ s/&\S+;//g;
+
+    my $comma_format = ($$stringref =~ m/^.+,.+$/);
+
     $$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;
+
+    
+    if (!$comma_format) {
+    # No commas in name => name in 'firstname surname' format
+    # need to sort by surname
+    my @names = split / /, $$stringref;
+    my $surname = pop @names;
+    while (scalar @names && $surname =~ /^(jnr|snr)$/i) {
+        $surname = pop @names;
+    }
+    $$stringref = $surname . " " . $$stringref;
     }
-    $$stringref = $surname . " " . $$stringref;
 }