Changeset 3727

Timestamp:

2003-02-11T16:13:09+13:00 (21 years ago)

Author:

sjboddie

Message:

Reverted back last change to AZList.pm. Attempting to make it work better
with non-ascii characters wasn't real smart when it's only classifying
documents based on ascii alpha-numeric characters anyway.

File:

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

trunk/gsdl/perllib/classify/AZList.pm

@@ -124 +124 @@
                             $self->{'metaname'});
 
-    my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language');
-
     # if this document doesn't contain the metadata element we're
     # sorting by we won't include it in this classification
@@ -137 +135 @@
         $metavalue = $iso639::fromiso639{$metavalue};
     } elsif ($self->{'metaname'} eq 'Creator') {
-        if ($lang eq 'en') {
-        &sorttools::format_string_name_english (\$metavalue);
-        }
+        &sorttools::format_string_name_english (\$metavalue);
     } else {
-        if ($lang eq 'en') { 
-        &sorttools::format_string_english (\$metavalue);
-        }
+        &sorttools::format_string_english (\$metavalue);
     }
     if (defined $self->{'list'}->{$doc_OID}) {