Changeset 12892 for trunk/gsdl/perllib/classify/GenericList.pm

Timestamp:

2006-09-28T11:26:23+12:00 (18 years ago)

Author:

mdewsnip

Message:

Changed the ".use_hlist" entries to ".list_type", for simplicity.

File:

• trunk/gsdl/perllib/classify/GenericList.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/GenericList.pm

@@ -101 +101 @@
     my $partition_size_within_level = $self->{'partition_size_within_level'};
     my $sort_leaf_nodes_using = $self->{'sort_leaf_nodes_using'};
-    my $use_hlist_for = $self->{'use_hlist_for'};
 
     # The metadata elements to use (required)
@@ -129 +128 @@
     }
 
-    # Whether to use an hlist or a vlist for each level in the hierarchy
+    # Whether to use an hlist or a vlist for each level in the hierarchy (default: vlist)
     foreach my $metadata_group (@metadata_groups) {
-    $self->{$metadata_group . ".use_hlist"} = "f";
-    }
-    foreach my $metadata_group (split(/\,/, $use_hlist_for)) {
-    $self->{$metadata_group . ".use_hlist"} = "t";
+    $self->{$metadata_group . ".list_type"} = "VList";
+    }
+    foreach my $metadata_group (split(/\,/, $self->{'use_hlist_for'})) {
+    $self->{$metadata_group . ".list_type"} = "HList";
     }
 
@@ -256 +255 @@
 
     # The root node of the classification hierarchy
-    my $childtype = (($self->{$first_metadata_group . ".use_hlist"} eq "t") ? "HList" : "VList");
+    my $childtype = $self->{$first_metadata_group . ".list_type"};
     my %classifyinfo = ( 'thistype' => "Invisible",
              'childtype' => $childtype,
@@ -461 +460 @@
         if (@metadata_groups > 0) {
         my $next_metadata_group = $metadata_groups[0];
-        my $childtype = (($self->{$next_metadata_group . ".use_hlist"} eq "t") ? "HList" : "VList");
+        my $childtype = $self->{$next_metadata_group . ".list_type"};
         $subclassifyinfo{'childtype'} = $childtype;
         &add_az_list($self, \@metadata_groups, \@OIDs, \%subclassifyinfo);