# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1440403160 -10800
# Node ID 04c4f1a95dbd5a4cbef3233410d701990cd87b18
# Parent  8b2107f0d50b4384ff1bfe610c855e8c84c92f9d
Fix parsing of some course codes.

diff -r 8b2107f0d50b -r 04c4f1a95dbd parsedata.pl
--- a/parsedata.pl	Mon Aug 24 10:51:52 2015 +0300
+++ b/parsedata.pl	Mon Aug 24 10:59:20 2015 +0300
@@ -254,7 +254,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{5,6}[A-Z]*$/);
+    $cgrouped = 1 if ($$cdata[1] =~ /^([A-Z]\d{5,6}[A-Z]*|[A-Z0-9]{6,8})$/);
     if ($cgrouped)
     {
       my $cdata1 = [];