Changeset 20825 for gsdl/trunk/perllib/classify/List.pm
- Timestamp:
- 2009-10-19T15:25:35+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/List.pm
r20679 r20825 53 53 { 'name' => "none", 54 54 'desc' => "{List.level_partition.none}" } ]; 55 56 # following used to check types later on 57 my $valid_partition_types = { 'per_letter' => 1, 58 'constant_size' => 1, 59 'per_letter_fixed_size' => 1, 60 'none' => 1}; 55 61 56 62 my $bookshelf_type_list = … … 166 172 } else { 167 173 my @partition_type_within_levellist = split(/\//, $self->{'partition_type_within_level'}); 174 175 my $first = 1; 168 176 foreach my $metadata_group (@metadata_groups) { 169 177 my $partition_type_within_levelelem = shift(@partition_type_within_levellist); 170 if (defined($partition_type_within_levelelem) ) {178 if (defined($partition_type_within_levelelem) && defined $valid_partition_types->{$partition_type_within_levelelem}) { 171 179 $self->{$metadata_group . ".partition_type_within_level"} = $partition_type_within_levelelem; 172 180 } 173 181 else { 174 $self->{$metadata_group . ".partition_type_within_level"} = $self->{$metadata_groups[0] . ".partition_type_within_level"}; 175 } 176 } 177 } 178 182 if ($first) { 183 $self->{$metadata_group . ".partition_type_within_level"} = "none"; 184 $first = 0; 185 } else { 186 $self->{$metadata_group . ".partition_type_within_level"} = $self->{$metadata_groups[0] . ".partition_type_within_level"}; 187 } 188 if (defined($partition_type_within_levelelem)) { 189 # ie invalid entry 190 print STDERR "invalid partition type for level $metadata_group: $partition_type_within_levelelem, defaulting to ". $self->{$metadata_group . ".partition_type_within_level"} ."\n"; 191 } 192 } 193 } 194 } 195 179 196 # The number of items in each partition 180 197 if (!$self->{'partition_size_within_level'}) { … … 812 829 813 830 # Sort leaf nodes and add to list 814 my @sort_leaf_nodes_using metadata_groups = @{$self->{'sort_leaf_nodes_using_metadata_groups'}};815 foreach my $sort_leaf_nodes_usingmetaelem (reverse @sort_leaf_nodes_using metadata_groups) {831 my @sort_leaf_nodes_using_metadata_groups = @{$self->{'sort_leaf_nodes_using_metadata_groups'}}; 832 foreach my $sort_leaf_nodes_usingmetaelem (reverse @sort_leaf_nodes_using_metadata_groups) { 816 833 my $OID_to_metadata_values_hash_ref = $self->{$sort_leaf_nodes_usingmetaelem . ".list"}; 817 834 # Force a stable sort (Perl 5.6's sort isn't stable)
Note:
See TracChangeset
for help on using the changeset viewer.