Changeset 2503

Timestamp:

2001-06-07T12:23:09+12:00 (23 years ago)

Author:

sjboddie

Message:

fixed a small bug in the datelist classifier that caused year ranges like
1999-1998 to appear in certain situations

File:

• trunk/gsdl/perllib/classify/DateList.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/DateList.pm

@@ -120 +120 @@
     # top level
     my $childtype = "HList";
-    if (scalar (@$classlistref) <= 20) {$childtype = "DateList";}
+    if (scalar (@$classlistref) <= 39) {$childtype = "DateList";}
     my $classifyinfo = $self->get_entry ("Date", $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});
@@ -199 +199 @@
     # add final OIDs to last sub-classification if there aren't many otherwise
     # add final sub-classification
-    if (scalar (@currentOIDs) < $min) {
+    if ((scalar (@currentOIDs) < $min) && (scalar (@currentOIDs) > 0)) {
     my ($newkey) = $lastkey =~ /^(\d\d\d\d)/;
     @currentOIDs = (@{$compactedhash->{$lastkey}}, @currentOIDs);