Changeset 741 for trunk/gsdl

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

Location:

trunk/gsdl/perllib/classify

Files:

• AZList.pm (modified) (1 diff)
• AZSectionList.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});

trunk/gsdl/perllib/classify/AZSectionList.pm

@@ -135 +135 @@
     # 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});