Changeset 6975

Timestamp:

2004-03-09T14:03:01+13:00 (20 years ago)

Author:

kjdon

Message:

a few tiny changes

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (6 diffs)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -23 +23 @@
 #
 ###########################################################################
-
 # classifier plugin for sorting alphabetically
 # options are:
-#
-# metadata=Metaname -- all documents with Metaname metadata
-#                      will be included in list, list will be sorted
-#                      by this element.
-# buttonname=Title  -- (optional) the title field for this classification.
-#                      if not included title field will be Metaname. 
-# mingroup=Num      -- (optional) the smallest value that will cause
-#                      a group in the hierarchy to form.
-# minnesting=Num    -- (optional) the smallest value that will cause a 
-#              list to converted into nested list
-# mincompact=Num    -- (optional) used in compact list
-# maxcompact=Num    -- (optional) used in compact list
-# doclevel=top|section -- (optional) level to process document at.
-# onlyfirst         -- (optional) control whether all or only first
-#                      metadata value used from array of metadata
+
 package AZCompactList;
 
@@ -58 +43 @@
 my $arguments = 
     [ { 'name' => "metadata",
-    'desc' => "{AZList.metadata}",
+    'desc' => "{AZCompactList.metadata}",
     'type' => "metadata",
     'reqd' => "yes" },
@@ -117 +102 @@
     'desc' => "{AZCompactList.recopt}",
     'type' => "flag",
-    'deft' => "",
     'reqd' => "no" } ];
 
@@ -174 +158 @@
     }
 
-    if (!defined $metaname) {
+    if (!$metaname) {
     my $outhandle = $self->{'outhandle'};
     print $outhandle "AZCompactList used with no metadata name to classify by\n";
@@ -302 +286 @@
 
         my $formatted_metavalue = $metavalue;
-
-        if ($self->{'metaname'} =~ m/^Creator(:.*)?$/)
-        {
-            &sorttools::format_string_name_english (\$formatted_metavalue);
-        } 
-        else 
-        {
-            &sorttools::format_string_english (\$formatted_metavalue);
-        }
+        $formatted_metavalue = $self->format_metadata_for_sorting($self->{'metaname'}, $formatted_metavalue, $doc_obj);
         
         #### prefix-str
@@ -455 +431 @@
             if (!$formatted_node) {next;}
         }
-
+        
+        #$formatted_node = $self->format_metadata_for_sorting($self->{'metaname'}, $formatted_node, $doc_obj); 
+        # should be using the above, but we have no doc obj any more
         if ($self->{'metaname'} =~ m/^Creator(:.*)?$/)
         {