Changeset 5790

Timestamp:

2003-11-06T15:47:31+13:00 (20 years ago)

Author:

jrm21

Message:

added Don Gourley's bug patch from AZList to here as well

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -832 +832 @@
     # add final OIDs to last sub-classification if there aren't many otherwise
     # add final sub-classification
+
+    # don't add if there aren't any oids
+    if (! scalar (@currentOIDs)) {return $compactedhash;}
+
     if (scalar (@currentOIDs) < $min) {
     my ($newkey) = $lastkey =~ /^(.)/;