Mercurial > hg > lukkari
diff parsedata.pl @ 156:c0c69b3b1f7d
Fix parsing of certain IDs.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 09 Feb 2015 02:01:44 +0200 |
parents | 1a5994671dcf |
children | 62687fee6f1c |
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 = [];