Changeset 2685 for trunk

Timestamp:

2001-08-02T14:01:41+12:00 (23 years ago)

Author:

jrm21

Message:

Improved regex for when the last category is too small, and we need to
work out the name of the previous one. (regexp now works with both year
and year_month).

File:

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

trunk/gsdl/perllib/classify/DateList.pm

@@ -221 +221 @@
     # add final sub-classification
     if ((scalar (@currentOIDs) < $min) && (scalar (@currentOIDs) > 0)) {
-    my ($newkey) = $lastkey =~ /^(\d\d\d\d)/;
+    # want every thing in previous up to the dash
+    my ($newkey) = $lastkey =~ /^([^\-]+)/;
     @currentOIDs = (@{$compactedhash->{$lastkey}}, @currentOIDs);
     delete $compactedhash->{$lastkey};