Changeset 20904 for gsdl

Timestamp:

2009-11-04T15:22:05+13:00 (14 years ago)

Author:

kjdon

Message:

approximate size partition, don't do it if too few items

File:

• gsdl/trunk/perllib/classify/List.pm (modified) (3 diffs)

gsdl/trunk/perllib/classify/List.pm

@@ -459 +459 @@
     # Partition the values (if necessary)
     my $partition_type_within_level = $self->{$metadata_group . ".partition_type_within_level"};
+    my $partition_size_within_level = $self->{$metadata_group . ".partition_size_within_level"};
     if ($partition_type_within_level =~ /^per_letter$/i) {
     # Generate one hlist for each letter
@@ -484 +485 @@
     $classifier_node->{'childtype'} = "HList";
     }
-    elsif ($partition_type_within_level =~ /^approximate_size$/i) {
+    elsif ($partition_type_within_level =~ /^approximate_size$/i && scalar(keys %metadata_value_to_OIDs_hash) > $partition_size_within_level) {
     # Generate hlist based on the first letter of the metadata value (like per_letter) but with restriction on the partition size
     # If a letter has fewer items than specified by the "partition_size_within_level", then group them together if possible
@@ -636 +637 @@
     else {
     # Generate hlists of a certain size
-    my $partition_size_within_level = $self->{$metadata_group . ".partition_size_within_level"};
     if ($partition_type_within_level =~ /^constant_size$/i && scalar(keys %metadata_value_to_OIDs_hash) > $partition_size_within_level) {
         my @sortedmetadata_values = $self->sort_metadata_values_array(keys(%metadata_value_to_OIDs_hash));