Changeset 8866

Timestamp:

2004-12-21T10:18:34+13:00 (19 years ago)

Author:

kjdon

Message:

if the list is split into only one bucket, then suppress the HList

File:

• trunk/gsdl/perllib/classify/AZList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZList.pm

@@ -264 +264 @@
     foreach my $subsection (sort keys (%$classhash)) {
     push (@tmparr, $subsection);
+    }
+    #if there is only one entry here, we suppress the buckets
+    if ((scalar @tmparr) == 1) {
+    $classifyinfo->{'childtype'} = "Vlist";
+    foreach my $OID (@{$classhash->{@tmparr[0]}}) {
+        push (@{$classifyinfo->{'contains'}}, {'OID'=>$OID});
+    }
+    return $classifyinfo;
     }