Changeset 5790
- Timestamp:
- 2003-11-06T15:47:31+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZCompactList.pm
r5729 r5790 832 832 # add final OIDs to last sub-classification if there aren't many otherwise 833 833 # add final sub-classification 834 835 # don't add if there aren't any oids 836 if (! scalar (@currentOIDs)) {return $compactedhash;} 837 834 838 if (scalar (@currentOIDs) < $min) { 835 839 my ($newkey) = $lastkey =~ /^(.)/;
Note:
See TracChangeset
for help on using the changeset viewer.