# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1351058149 -10800
# Node ID 4faf9956741b8f722cb7faa91b7523a50c21402e
# Parent  7dd647a01fb6c69b46f5b97afb54fa34c7d1fd96
Fix parsing of some class IDs.

diff -r 7dd647a01fb6 -r 4faf9956741b parsedata.pl
--- 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 = [];