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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -261 +261 @@
         }
 
-        my $formatted_metavalue =
-          sorttools::format_metadata_for_sorting($self->{'metadata'},
-                             $metavalue, $doc_obj);
+        my $formatted_metavalue;
+        if ($self->{'no_metadata_formatting'}) {
+            $formatted_metavalue = $metavalue;
+        } else {
+            $formatted_metavalue = &sorttools::format_metadata_for_sorting($self->{'metadata'},  $metavalue, $doc_obj);
+        }
         
         #### prefix-str
@@ -438 +441 @@
         }
 
-        $formatted_node = &sorttools::format_metadata_for_sorting($self->{'metadata'}, $formatted_node); 
+        $formatted_node = &sorttools::format_metadata_for_sorting($self->{'metadata'}, $formatted_node) unless $self->{'no_metadata_formatting'};
 
         # In case our formatted string is empty...