Changeset 6957 for trunk/gsdl/perllib

Timestamp:

2004-03-08T12:42:10+13:00 (20 years ago)

Author:

kjdon

Message:

removed the metadate formating routine to BasClas, and calls that instead

File:

• trunk/gsdl/perllib/classify/List.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/List.pm

@@ -172 +172 @@
         $sortmeta = $doc_obj->get_metadata_element($doc_obj->get_top_section(), $self->{'sortname'});
         if (defined $sortmeta) {
-        $sortmeta = &format_sort_meta($self->{'sortname'}, $sortmeta, $doc_obj);
+        $sortmeta = $self->format_metadata_for_sorting($self->{'sortname'}, $sortmeta, $doc_obj);
         }
     }
@@ -180 +180 @@
     # we add to the list based on metadata value
     # but we need to do the same formatting as for sort value
-    ($metavalue) = &format_sort_meta($metaname, $metavalue, $doc_obj);
+    ($metavalue) = $self->format_metadata_for_sorting($metaname, $metavalue, $doc_obj);
     $self->{'list'}->{$doc_OID} = $metavalue;
     }
 }
 
-sub format_sort_meta {
-    my ($sortname, $sortvalue, $doc_obj) = @_;
-    
-    my $lang = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), 'Language');
-    $lang = 'en' unless defined $lang;
-    if ($lang eq 'en') {
-    if ($sortname eq "Creator") {
-        &sorttools::format_string_name_english (\$sortvalue);
-    } else {
-        &sorttools::format_string_english (\$sortvalue);
-    }
-    }
-    return $sortvalue;
-}
 
 sub get_classify_info {
@@ -230 +216 @@
 
 1;
+
+
+
+