Changeset 7175 for trunk/gsdl/perllib/classify/BasClas.pm

Timestamp:

2004-04-01T14:01:06+12:00 (20 years ago)

Author:

kjdon

Message:

fixed the bug where AZCompactList wasn't sorting Creators properly (by surname)

File:

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

trunk/gsdl/perllib/classify/BasClas.pm

@@ -278 +278 @@
     } 
     
-    my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language');
+    my $lang;
+    if (defined $doc_obj) {
+    $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language');
+    }
     $lang = 'en' unless defined $lang;
     if ($lang eq 'en') {
-    if ($metaname eq "Creator") {
+    if ($metaname =~ /^(\w+\.)?Creator(:.*)?/) {
         &sorttools::format_string_name_english (\$metavalue);
     } else {