Changeset 6975 for trunk/gsdl/perllib
- Timestamp:
- 2004-03-09T14:03:01+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZCompactList.pm
r6968 r6975 23 23 # 24 24 ########################################################################### 25 26 25 # classifier plugin for sorting alphabetically 27 26 # options are: 28 # 29 # metadata=Metaname -- all documents with Metaname metadata 30 # will be included in list, list will be sorted 31 # by this element. 32 # buttonname=Title -- (optional) the title field for this classification. 33 # if not included title field will be Metaname. 34 # mingroup=Num -- (optional) the smallest value that will cause 35 # a group in the hierarchy to form. 36 # minnesting=Num -- (optional) the smallest value that will cause a 37 # list to converted into nested list 38 # mincompact=Num -- (optional) used in compact list 39 # maxcompact=Num -- (optional) used in compact list 40 # doclevel=top|section -- (optional) level to process document at. 41 # onlyfirst -- (optional) control whether all or only first 42 # metadata value used from array of metadata 27 43 28 package AZCompactList; 44 29 … … 58 43 my $arguments = 59 44 [ { 'name' => "metadata", 60 'desc' => "{AZ List.metadata}",45 'desc' => "{AZCompactList.metadata}", 61 46 'type' => "metadata", 62 47 'reqd' => "yes" }, … … 117 102 'desc' => "{AZCompactList.recopt}", 118 103 'type' => "flag", 119 'deft' => "",120 104 'reqd' => "no" } ]; 121 105 … … 174 158 } 175 159 176 if (! defined$metaname) {160 if (!$metaname) { 177 161 my $outhandle = $self->{'outhandle'}; 178 162 print $outhandle "AZCompactList used with no metadata name to classify by\n"; … … 302 286 303 287 my $formatted_metavalue = $metavalue; 304 305 if ($self->{'metaname'} =~ m/^Creator(:.*)?$/) 306 { 307 &sorttools::format_string_name_english (\$formatted_metavalue); 308 } 309 else 310 { 311 &sorttools::format_string_english (\$formatted_metavalue); 312 } 288 $formatted_metavalue = $self->format_metadata_for_sorting($self->{'metaname'}, $formatted_metavalue, $doc_obj); 313 289 314 290 #### prefix-str … … 455 431 if (!$formatted_node) {next;} 456 432 } 457 433 434 #$formatted_node = $self->format_metadata_for_sorting($self->{'metaname'}, $formatted_node, $doc_obj); 435 # should be using the above, but we have no doc obj any more 458 436 if ($self->{'metaname'} =~ m/^Creator(:.*)?$/) 459 437 {
Note:
See TracChangeset
for help on using the changeset viewer.