Changeset 5646

Timestamp:

2003-10-16T10:14:21+13:00 (21 years ago)

Author:

mdewsnip

Message:

Added fix to prevent bad "W-P" type hlist entries, many thanks to Don Gourley.

File:

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

trunk/gsdl/perllib/classify/AZList.pm

@@ -328 +328 @@
     # add final OIDs to last sub-classification if there aren't many otherwise
     # add final sub-classification
-    if (scalar (@currentOIDs) < $min) {
-    my ($newkey) = $lastkey =~ /^(.)/;
-    @currentOIDs = (@{$compactedhash->{$lastkey}}, @currentOIDs);
-    delete $compactedhash->{$lastkey};
-    @{$compactedhash->{"$newkey-$currentlastletter"}} = @currentOIDs;   
-    } else {
-    if ($currentfirstletter eq $currentlastletter) {
-        @{$compactedhash->{$currentfirstletter}} = @currentOIDs;
-    } else {
-        @{$compactedhash->{"$currentfirstletter-$currentlastletter"}} = @currentOIDs;
-    } 
+    # BUG FIX: don't add anything if there are no currentOIDs (thanks to Don Gourley)
+    if (@currentOIDS) {
+    if (scalar (@currentOIDs) < $min) {
+        my ($newkey) = $lastkey =~ /^(.)/;
+        @currentOIDs = (@{$compactedhash->{$lastkey}}, @currentOIDs);
+        delete $compactedhash->{$lastkey};
+        @{$compactedhash->{"$newkey-$currentlastletter"}} = @currentOIDs;   
+    }
+    else {
+        if ($currentfirstletter eq $currentlastletter) {
+        @{$compactedhash->{$currentfirstletter}} = @currentOIDs;
+        }
+        else {
+        @{$compactedhash->{"$currentfirstletter-$currentlastletter"}} = @currentOIDs;
+        }
+    }
     }