Mercurial > hg > lukkari
changeset 80:4faf9956741b
Fix parsing of some class IDs.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 24 Oct 2012 08:55:49 +0300 |
parents | 7dd647a01fb6 |
children | 8501f1b9bba3 |
files | parsedata.pl |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/parsedata.pl Wed Oct 24 08:25:12 2012 +0300 +++ b/parsedata.pl Wed Oct 24 08:55:49 2012 +0300 @@ -331,7 +331,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}$/); + $cgrouped = 1 if ($$cdata[1] =~ /^[A-Z]\d{6}[A-Z]*$/); if ($cgrouped) { my $cdata1 = [];