Changeset 2685
- Timestamp:
- 2001-08-02T14:01:41+12:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/DateList.pm
r2632 r2685 221 221 # add final sub-classification 222 222 if ((scalar (@currentOIDs) < $min) && (scalar (@currentOIDs) > 0)) { 223 my ($newkey) = $lastkey =~ /^(\d\d\d\d)/; 223 # want every thing in previous up to the dash 224 my ($newkey) = $lastkey =~ /^([^\-]+)/; 224 225 @currentOIDs = (@{$compactedhash->{$lastkey}}, @currentOIDs); 225 226 delete $compactedhash->{$lastkey};
Note:
See TracChangeset
for help on using the changeset viewer.