Changeset 1279 for branches/New_Config_Format-branch/gsdl/perllib/classify/List.pm

Timestamp:

2000-07-13T10:21:53+12:00 (24 years ago)

Author:

sjboddie

Message:

merged changes to trunk into New_Config_Format branch

File:

• branches/New_Config_Format-branch/gsdl/perllib/classify/List.pm (modified) (2 diffs)

branches/New_Config_Format-branch/gsdl/perllib/classify/List.pm

@@ -144 +144 @@
 sub get_classify_info {
     my $self = shift (@_);
+    my ($no_thistype) = @_;
+    $no_thistype = 0 unless defined $no_thistype;
 
     my @list = ();
@@ -156 +158 @@
 
     # organise into classification structure
-    my %classifyinfo = ('thistype'=>'Invisible',
-            'childtype'=>'VList',
+    my %classifyinfo = ('childtype'=>'VList',
             'Title'=>$self->{'title'},
             'contains'=>[]);
+    $classifyinfo{'thistype'} = 'Invisible' unless $no_thistype;
+
     foreach $OID (@list) {
     push (@{$classifyinfo{'contains'}}, {'OID'=>$OID});