Changeset 5615

Timestamp:

2003-10-13T16:27:35+13:00 (21 years ago)

Author:

davidb

Message:

Recopt (used in nested classifier hierarchies) added back in.

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -108 +108 @@
       { 'name' => "freqsort",
     'desc' => "{AZCompactList.freqsort}",
-    'type' => "flag"} ];
-#      { 'name' => "recopt",
-#   'desc' => "{AZCompactList.recopt}",
-#   'type' => "string",
-#   'deft' => "" } ];
+    'type' => "flag"},
+      { 'name' => "recopt",
+    'desc' => "{AZCompactList.recopt}",
+    'type' => "flag",
+    'deft' => "",
+    'reqd' => "no" } ];
 
 my $options = 
@@ -169 +170 @@
              q^onlyfirst/.*/0^, \$onlyfirst,
              q^freqsort/.*/0^, \$freqsort,
-             q^recopt/.*/-1^, \$recopt,  # UNDOCUMENTED (what does it do?!?)
+             q^recopt/.*/-1^, \$recopt,  # Used in nested metadata such as -metadata Year/Organisation
 
              "allow_extra_options")) {
@@ -400 +401 @@
         my $doclevel = $self->{'doclevel'};
         my $metaname  = $self->{'metaname'};
+        my $mingroup = $self->{'mingroup'};
+
         my @metaname_list = split('/',$metaname);
         $metaname = shift(@metaname_list);
@@ -406 +409 @@
         my @args;
         push @args, ("-metadata", "$metaname");
-# buttonname is also used for the node's title
+        # buttonname is also used for the node's title
         push @args, ("-buttonname", "$metavalue");
         push @args, ("-sort", "Date");
@@ -425 +428 @@
         my @args;
         push @args, ("-metadata", "$metaname");
-# buttonname is also used for the node's title
+        # buttonname is also used for the node's title
         push @args, ("-buttonname", "$metavalue");
         push @args, ("-doclevel", "$doclevel");
-        push @args, "-recopt";
+        push @args, ("-mingroup", $mingroup);
+        push @args, "-recopt ";
 
         eval ("\$listclassobj = new AZCompactList(\@args)");