Changeset 7548
- Timestamp:
- 2004-06-03T13:46:05+12:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZCompactList.pm
r7544 r7548 46 46 'type' => "metadata", 47 47 'reqd' => "yes" }, 48 { 'name' => "firstvalueonly", 49 'desc' => "{AZCompactList.firstvalueonly}", 50 'type' => "flag", 51 'reqd' => "no" }, 52 { 'name' => "allvalues", 53 'desc' => "{AZCompactList.allvalues}", 54 'type' => "flag", 55 'reqd' => "no" }, 48 56 { 'name' => "buttonname", 49 57 'desc' => "{BasClas.buttonname}", … … 91 99 'list' => $doclevel_list, 92 100 'deft' => "top", 93 'reqd' => "no" },94 { 'name' => "onlyfirst",95 'desc' => "{AZCompactList.onlyfirst}",96 'type' => "flag",97 'reqd' => "no" },98 { 'name' => "allmetadata",99 'desc' => "{AZCompactList.allmetadata}",100 'type' => "flag",101 101 'reqd' => "no" }, 102 102 { 'name' => "freqsort", … … 136 136 my $maxcompact = 30; 137 137 my $doclevel = "top"; 138 my $ onlyfirst= 0;139 my $all metadata= 0;138 my $firstvalueonly = 0; 139 my $allvalues = 0; 140 140 my $freqsort = 0; 141 141 my $recopt = undef; … … 152 152 q^maxcompact/.*/30^, \$maxcompact, 153 153 q^doclevel/.*/top^, \$doclevel, 154 q^ onlyfirst^, \$onlyfirst,155 q^all metadata^, \$allmetadata,154 q^firstvalueonly^, \$firstvalueonly, 155 q^allvalues^, \$allvalues, 156 156 q^freqsort/.*/0^, \$freqsort, 157 157 q^recopt/.*/-1^, \$recopt, # Used in nested metadata such as -metadata Year/Organisation … … 195 195 $self->{'doclevel'} = $doclevel; 196 196 197 if ($ onlyfirst!= 0) {198 $ onlyfirst= 1;199 } 200 $self->{' onlyfirst'} = $onlyfirst;197 if ($firstvalueonly != 0) { 198 $firstvalueonly = 1; 199 } 200 $self->{'firstvalueonly'} = $firstvalueonly; 201 201 202 if ($all metadata!= 0) {203 $all metadata= 1;204 } 205 $self->{'all metadata'} = $allmetadata;202 if ($allvalues != 0) { 203 $allvalues = 1; 204 } 205 $self->{'allvalues'} = $allvalues; 206 206 if ($freqsort != 0) { 207 207 $freqsort = 1; … … 280 280 my $cmvalues = $doc_obj->get_metadata($thissection,$cmn); 281 281 push(@$metavalues,@$cmvalues) if (defined $cmvalues); 282 last if (defined $cmvalues && !$self->{'all metadata'});282 last if (defined $cmvalues && !$self->{'allvalues'}); 283 283 } 284 284 … … 328 328 329 329 330 last if ($self->{' onlyfirst'});330 last if ($self->{'firstvalueonly'}); 331 331 } 332 332 }
Note:
See TracChangeset
for help on using the changeset viewer.