Changeset 3719 for trunk/gsdl/perllib/classify/List.pm

Timestamp:

2003-01-28T13:48:33+13:00 (21 years ago)

Author:

sjboddie

Message:

Prevent dodgy format_string_english() functions from destroying any
non-english text that might come by.

File:

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

trunk/gsdl/perllib/classify/List.pm

@@ -164 +164 @@
                                $self->{'sortname'});
         if (defined $sortmeta) {
-        if ($self->{'sortname'} eq "Creator") {
-            &sorttools::format_string_name_english (\$sortmeta);
-        } else {
-            &sorttools::format_string_english (\$sortmeta);
+        
+        my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language');
+        if ($lang eq 'en') {
+            if ($self->{'sortname'} eq "Creator") {
+            &sorttools::format_string_name_english (\$sortmeta);
+            } else {
+            &sorttools::format_string_english (\$sortmeta);
+            }
         }
         }