Changeset 1086

Timestamp:

2000-04-10T15:14:10+12:00 (24 years ago)

Author:

sjboddie

Message:

Added AZCompactList.pm to distribution (and altered List.pm slightly to
get it working properly). I still intend to merge AZList, AZSectionList,
AZCompactList and possibly List into a single classifier one day ... maybe

Location:

trunk/gsdl/perllib/classify

Files:

• AZCompactList.pm (added)
• List.pm (modified) (2 diffs)

trunk/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});