Changeset 2001 for trunk/gsdl/perllib/classify

Timestamp:

2001-02-19T09:37:43+13:00 (23 years ago)

Author:

sjboddie

Message:

Added a hack that mysteriously converts iso639 language codes appearing
in formatstrings to the English name of the language (i.e. Language
metadata is now treated as a special case much like Date is).

File:

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

trunk/gsdl/perllib/classify/AZList.pm

@@ -36 +36 @@
 use BasClas;
 use sorttools;
+use iso639;
 
 sub BEGIN {
@@ -102 +103 @@
     # sorting by we won't include it in this classification
     if (defined $metavalue && $metavalue ne "") {
-    if ($self->{'metaname'} eq 'Creator') {
+    if ($self->{'metaname'} eq 'Language') {
+        $metavalue = $iso639::fromiso639{$metavalue};
+    } elsif ($self->{'metaname'} eq 'Creator') {
         &sorttools::format_string_name_english (\$metavalue);
     } else {