Changeset 12895

Timestamp:

2006-09-28T13:05:34+12:00 (18 years ago)

Author:

mdewsnip

Message:

More minor changes.

File:

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

trunk/gsdl/perllib/classify/GenericList.pm

@@ -247 +247 @@
 
     # The root node of the classification hierarchy
-    my $childtype = $self->{$first_metadata_group . ".list_type"};
     my %classifier_node = ( 'thistype' => "Invisible",
-                'childtype' => $childtype,
+                'childtype' => $self->{$first_metadata_group . ".list_type"},
                 'Title' => $self->{'buttonname'},
                 'contains' => [] );
 
-    # Recursively create the classification hierarchy, one level for each metadata element
-    &add_az_list($self, \@metadata_groups, \@OIDs, \%classifier_node);
+    # Recursively create the classification hierarchy, one level for each metadata group
+    &add_level($self, \@metadata_groups, \@OIDs, \%classifier_node);
     return \%classifier_node;
 }
 
 
-sub add_az_list
+sub add_level
 {
     my $self = shift(@_);
@@ -452 +451 @@
         if (@metadata_groups > 0) {
         my $next_metadata_group = $metadata_groups[0];
-        my $childtype = $self->{$next_metadata_group . ".list_type"};
-        $child_classifier_node{'childtype'} = $childtype;
-        &add_az_list($self, \@metadata_groups, \@OIDs, \%child_classifier_node);
+        $child_classifier_node{'childtype'} = $self->{$next_metadata_group . ".list_type"};
+        &add_level($self, \@metadata_groups, \@OIDs, \%child_classifier_node);
         }
         # Otherwise just add the documents as children of this list