Changeset 20904 for gsdl/trunk/perllib/classify/List.pm
- Timestamp:
- 2009-11-04T15:22:05+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/List.pm
r20865 r20904 459 459 # Partition the values (if necessary) 460 460 my $partition_type_within_level = $self->{$metadata_group . ".partition_type_within_level"}; 461 my $partition_size_within_level = $self->{$metadata_group . ".partition_size_within_level"}; 461 462 if ($partition_type_within_level =~ /^per_letter$/i) { 462 463 # Generate one hlist for each letter … … 484 485 $classifier_node->{'childtype'} = "HList"; 485 486 } 486 elsif ($partition_type_within_level =~ /^approximate_size$/i ) {487 elsif ($partition_type_within_level =~ /^approximate_size$/i && scalar(keys %metadata_value_to_OIDs_hash) > $partition_size_within_level) { 487 488 # Generate hlist based on the first letter of the metadata value (like per_letter) but with restriction on the partition size 488 489 # If a letter has fewer items than specified by the "partition_size_within_level", then group them together if possible … … 636 637 else { 637 638 # Generate hlists of a certain size 638 my $partition_size_within_level = $self->{$metadata_group . ".partition_size_within_level"};639 639 if ($partition_type_within_level =~ /^constant_size$/i && scalar(keys %metadata_value_to_OIDs_hash) > $partition_size_within_level) { 640 640 my @sortedmetadata_values = $self->sort_metadata_values_array(keys(%metadata_value_to_OIDs_hash));
Note:
See TracChangeset
for help on using the changeset viewer.