Changeset 7548

Timestamp:

2004-06-03T13:46:05+12:00 (20 years ago)

Author:

kjdon

Message:

renamed the onlyfirst and allmetadata options to be firstvalueonly and allvalues

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -46 +46 @@
     'type' => "metadata",
     'reqd' => "yes" },
+      { 'name' => "firstvalueonly",
+    'desc' => "{AZCompactList.firstvalueonly}",
+    'type' => "flag",
+    'reqd' => "no" },
+      { 'name' => "allvalues",
+    'desc' => "{AZCompactList.allvalues}",
+    'type' => "flag",
+    'reqd' => "no" },
       { 'name' => "buttonname",
     'desc' => "{BasClas.buttonname}",
@@ -91 +99 @@
     'list' => $doclevel_list,
     'deft' => "top",
-    'reqd' => "no" },
-      { 'name' => "onlyfirst",
-    'desc' => "{AZCompactList.onlyfirst}",
-    'type' => "flag",
-    'reqd' => "no" },
-      { 'name' => "allmetadata",
-    'desc' => "{AZCompactList.allmetadata}",
-    'type' => "flag",
     'reqd' => "no" },
       { 'name' => "freqsort",
@@ -136 +136 @@
     my $maxcompact = 30;
     my $doclevel = "top";
-    my $onlyfirst = 0;
-    my $allmetadata = 0;
+    my $firstvalueonly = 0;
+    my $allvalues = 0;
     my $freqsort = 0;
     my $recopt   = undef;
@@ -152 +152 @@
              q^maxcompact/.*/30^, \$maxcompact,
              q^doclevel/.*/top^, \$doclevel,
-             q^onlyfirst^, \$onlyfirst,
-             q^allmetadata^, \$allmetadata,
+             q^firstvalueonly^, \$firstvalueonly,
+             q^allvalues^, \$allvalues,
              q^freqsort/.*/0^, \$freqsort,
              q^recopt/.*/-1^, \$recopt,  # Used in nested metadata such as -metadata Year/Organisation
@@ -195 +195 @@
     $self->{'doclevel'} = $doclevel;
 
-    if ($onlyfirst != 0) {
-    $onlyfirst = 1;
-    }
-    $self->{'onlyfirst'} = $onlyfirst;
+    if ($firstvalueonly != 0) {
+    $firstvalueonly = 1;
+    }
+    $self->{'firstvalueonly'} = $firstvalueonly;
   
-    if ($allmetadata != 0) {
-    $allmetadata = 1;
-    }
-    $self->{'allmetadata'} = $allmetadata;
+    if ($allvalues != 0) {
+    $allvalues = 1;
+    }
+    $self->{'allvalues'} = $allvalues;
     if ($freqsort != 0) {
     $freqsort = 1;
@@ -280 +280 @@
         my $cmvalues = $doc_obj->get_metadata($thissection,$cmn);
         push(@$metavalues,@$cmvalues) if (defined $cmvalues);
-        last if (defined $cmvalues && !$self->{'allmetadata'});
+        last if (defined $cmvalues && !$self->{'allvalues'});
     }
 
@@ -328 +328 @@
 
 
-        last if ($self->{'onlyfirst'});
+        last if ($self->{'firstvalueonly'});
         }
     }