Changeset 7544

Timestamp:

2004-06-03T11:39:51+12:00 (20 years ago)

Author:

kjdon

Message:

comma separated list of metadata now uses all values of the first available type of metadata, unless -onlyfirst, just use the first value found, or -allmetadata, use all values found

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -96 +96 @@
     'type' => "flag",
     'reqd' => "no" },
+      { 'name' => "allmetadata",
+    'desc' => "{AZCompactList.allmetadata}",
+    'type' => "flag",
+    'reqd' => "no" },
       { 'name' => "freqsort",
     'desc' => "{AZCompactList.freqsort}",
@@ -133 +137 @@
     my $doclevel = "top";
     my $onlyfirst = 0;
+    my $allmetadata = 0;
     my $freqsort = 0;
     my $recopt   = undef;
@@ -148 +153 @@
              q^doclevel/.*/top^, \$doclevel,
              q^onlyfirst^, \$onlyfirst,
+             q^allmetadata^, \$allmetadata,
              q^freqsort/.*/0^, \$freqsort,
              q^recopt/.*/-1^, \$recopt,  # Used in nested metadata such as -metadata Year/Organisation
@@ -194 +200 @@
     $self->{'onlyfirst'} = $onlyfirst;
   
+    if ($allmetadata != 0) {
+    $allmetadata = 1;
+    }
+    $self->{'allmetadata'} = $allmetadata;
     if ($freqsort != 0) {
     $freqsort = 1;
@@ -270 +280 @@
         my $cmvalues = $doc_obj->get_metadata($thissection,$cmn);
         push(@$metavalues,@$cmvalues) if (defined $cmvalues);
+        last if (defined $cmvalues && !$self->{'allmetadata'});
     }