Changeset 12892
- Timestamp:
- 2006-09-28T11:26:23+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/GenericList.pm
r12891 r12892 101 101 my $partition_size_within_level = $self->{'partition_size_within_level'}; 102 102 my $sort_leaf_nodes_using = $self->{'sort_leaf_nodes_using'}; 103 my $use_hlist_for = $self->{'use_hlist_for'};104 103 105 104 # The metadata elements to use (required) … … 129 128 } 130 129 131 # Whether to use an hlist or a vlist for each level in the hierarchy 130 # Whether to use an hlist or a vlist for each level in the hierarchy (default: vlist) 132 131 foreach my $metadata_group (@metadata_groups) { 133 $self->{$metadata_group . ". use_hlist"} = "f";134 } 135 foreach my $metadata_group (split(/\,/, $ use_hlist_for)) {136 $self->{$metadata_group . ". use_hlist"} = "t";132 $self->{$metadata_group . ".list_type"} = "VList"; 133 } 134 foreach my $metadata_group (split(/\,/, $self->{'use_hlist_for'})) { 135 $self->{$metadata_group . ".list_type"} = "HList"; 137 136 } 138 137 … … 256 255 257 256 # The root node of the classification hierarchy 258 my $childtype = (($self->{$first_metadata_group . ".use_hlist"} eq "t") ? "HList" : "VList");257 my $childtype = $self->{$first_metadata_group . ".list_type"}; 259 258 my %classifyinfo = ( 'thistype' => "Invisible", 260 259 'childtype' => $childtype, … … 461 460 if (@metadata_groups > 0) { 462 461 my $next_metadata_group = $metadata_groups[0]; 463 my $childtype = (($self->{$next_metadata_group . ".use_hlist"} eq "t") ? "HList" : "VList");462 my $childtype = $self->{$next_metadata_group . ".list_type"}; 464 463 $subclassifyinfo{'childtype'} = $childtype; 465 464 &add_az_list($self, \@metadata_groups, \@OIDs, \%subclassifyinfo);
Note:
See TracChangeset
for help on using the changeset viewer.