Changeset 741 for trunk/gsdl/perllib/classify/AZList.pm

Timestamp:

1999-10-24T21:22:41+13:00 (25 years ago)

Author:

sjboddie

Message:

fixed up a bit of a bug - should fix this properly
some time

File:

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

trunk/gsdl/perllib/classify/AZList.pm

@@ -120 +120 @@
     # top level
     my $childtype = "HList";
-    if (scalar (@$classlistref) <= 20) {$childtype = "VList";}
+    if (scalar (@$classlistref) <= 39) {$childtype = "VList";}
     my $classifyinfo = $self->get_entry ($self->{'metaname'}, $childtype, "Invisible");
 
-    # don't need to do any splitting if there are less than 20 classifications
-    if ((scalar @$classlistref) <= 20) {
+    # don't need to do any splitting if there are less than 39 (max + min -1) classifications
+    if ((scalar @$classlistref) <= 39) {
     foreach $subOID (@$classlistref) {
         push (@{$classifyinfo->{'contains'}}, {'OID'=>$subOID});