# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1423440104 -7200
# Node ID c0c69b3b1f7dd7041b5979ce57ae832c269a9061
# Parent  24146752166126b5429c59b8141c6aaaf4c02a52
Fix parsing of certain IDs.

diff -r 241467521661 -r c0c69b3b1f7d parsedata.pl
--- 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 = [];