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

Timestamp:

2005-09-23T15:22:59+12:00 (19 years ago)

Author:

kjdon

Message:

added -no_metadata_formatting option to avoid the format_metadata_for_sorting call

File:

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

trunk/gsdl/perllib/classify/List.pm

@@ -183 +183 @@
     } else {
         $sortmeta = $doc_obj->get_metadata_element($doc_obj->get_top_section(), $self->{'sort'});
-        if (defined $sortmeta) {
+        if (defined $sortmeta && !$self->{'no_metadata_formatting'}) {
         $sortmeta = &sorttools::format_metadata_for_sorting($self->{'sort'}, $sortmeta, $doc_obj);
         }
@@ -192 +192 @@
     # we add to the list based on metadata value
     # but we need to do the same formatting as for sort value
-    ($metavalue) = &sorttools::format_metadata_for_sorting($metaname, $metavalue, $doc_obj);
+    ($metavalue) = &sorttools::format_metadata_for_sorting($metaname, $metavalue, $doc_obj) unless $self->{'no_metadata_formatting'};
     $self->{'list'}->{$doc_OID} = $metavalue;
     }