Changeset 20008
- Timestamp:
- 2009-07-17T19:05:24+12:00 (15 years ago)
- Location:
- gsdl/trunk/perllib
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/AZCompactList.pm
r19495 r20008 190 190 191 191 $metaname =~ s/(\/|\|).*//; # grab first name in n1/n2/n3 or n1|n2|n3 list 192 my @commameta_list = split(/, /, $metaname);192 my @commameta_list = split(/,|;/, $metaname); 193 193 194 194 if ($self->{'doclevel'} =~ /^top(level)?/i) -
gsdl/trunk/perllib/classify/BaseClassifier.pm
r18555 r20008 361 361 return "" unless defined $metadata && $metadata =~ /\S/; 362 362 363 my @metalist = split(/, /, $metadata);363 my @metalist = split(/,|;/, $metadata); 364 364 my $firstmeta = $metalist[0]; 365 365 if ($firstmeta =~ /\./) { -
gsdl/trunk/perllib/classify/List.pm
r19645 r20008 60 60 'desc' => "{List.bookshelf_type.duplicate_only}" }, 61 61 { 'name' => "never", 62 'desc' => "{List.bookshelf_type.never}" } ]; 62 'desc' => "{List.bookshelf_type.never}" } ]; 63 63 64 64 my $arguments = … … 79 79 { 'name' => "partition_type_within_level", 80 80 'desc' => "{List.partition_type_within_level}", 81 'type' => "string", 82 'deft' => "none" }, 81 'type' => "enum", 82 'list' => $partition_type_list, 83 'deft' => "per_letter" }, 83 84 { 'name' => "partition_size_within_level", 84 85 'desc' => "{List.partition_size_within_level}", … … 139 140 if (!$self->{'buttonname'}) { 140 141 my $first_metadata_group = $metadata_groups[0]; 141 my $first_metadata_element = (split(/\; /, $first_metadata_group))[0];142 my $first_metadata_element = (split(/\;|,/, $first_metadata_group))[0]; 142 143 $self->{'buttonname'} = $self->generate_title_from_metadata($first_metadata_element); 143 144 } … … 296 297 my $classify_section = 0; 297 298 my $first_metadata_group = $metadata_groups[0]; 298 foreach my $first_metadata_group_element (split(/\; /, $first_metadata_group)) {299 foreach my $first_metadata_group_element (split(/\;|,/, $first_metadata_group)) { 299 300 my $first_metadata_group_element_value = $doc_obj->get_metadata_element($section, $first_metadata_group_element); 300 301 … … 334 335 # Take care not to do a metadata group more than once 335 336 unless ($metadata_groups_done{$metadata_group}) { 336 foreach my $metadata_element (split(/\; /, $metadata_group)) {337 foreach my $metadata_element (split(/\;|,/, $metadata_group)) { 337 338 my $remove_prefix_expr = $self->{$metadata_element . ".remove_prefix_expr"}; 338 339 my $remove_suffix_expr = $self->{$metadata_element . ".remove_suffix_expr"}; -
gsdl/trunk/perllib/classify/SimpleList.pm
r19234 r20008 75 75 my (@meta_list,$meta1); 76 76 if ($self->{"metadata"}) { 77 @meta_list = split(/, /, $self->{"metadata"});77 @meta_list = split(/,|;/, $self->{"metadata"}); 78 78 $meta1 = $meta_list[0]; 79 79 $self->{'meta_list'} = \@meta_list; -
gsdl/trunk/perllib/strings.properties
r19549 r20008 596 596 List.desc:A general and flexible list classifier with most of the abilities of AZCompactList, but with better Unicode, metadata and sorting capabilities. 597 597 598 List.level_partition.none:None. 598 599 List.level_partition.per_letter:Create a partition for each letter. 599 600 List.level_partition.constant_size:Create partition with constant size. … … 606 607 List.partition_size_within_level:The number of items in each partition (only applies when partition_type_within_level is set to 'constant_size'). 607 608 608 List.partition_type_within_level:The type of partitioning done: either 'per_letter', ' constant_size', or 'none'.609 List.partition_type_within_level:The type of partitioning done: either 'per_letter', 'per_letter_fixed_size', 'constant_size', or 'none'. 609 610 610 611 List.sort_leaf_nodes_using:Metadata fields used for sorting the leaf nodes. Use '|' to separate the metadata groups to stable sort and ';' to separate metadata fields within each group.
Note:
See TracChangeset
for help on using the changeset viewer.