changeset 156:c0c69b3b1f7d

Fix parsing of certain IDs.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 09 Feb 2015 02:01:44 +0200
parents 241467521661
children e97705171c3c
files parsedata.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
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 = [];