Mercurial > hg > lukkari
changeset 156:c0c69b3b1f7d
Fix parsing of certain IDs.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 09 Feb 2015 02:01:44 +0200 |
parents | 241467521661 |
children | e97705171c3c |
files | parsedata.pl |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/parsedata.pl Thu Jan 08 17:26:42 2015 +0200 +++ b/parsedata.pl Mon Feb 09 02:01:44 2015 +0200 @@ -337,7 +337,7 @@ $maxDays = $cday + 1 if ($cday + 1 > $maxDays); # Grouped, if there is another class ID in second slot - $cgrouped = 1 if ($$cdata[1] =~ /^[A-Z]\d{6}[A-Z]*$/); + $cgrouped = 1 if ($$cdata[1] =~ /^[A-Z]\d{5,6}[A-Z]*$/); if ($cgrouped) { my $cdata1 = [];