Changeset 10630 for trunk/gsdl/perllib/classify/AZSectionList.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/AZSectionList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZSectionList.pm

@@ -111 +111 @@
     }
     
-    $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'};
     if (defined $self->{'list'}->{"$doc_OID.$section"}) {
         my $outhandle = $self->{'outhandle'};