Changeset 3719 for trunk/gsdl/perllib/classify/Hierarchy.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/Hierarchy.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/Hierarchy.pm

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