[LON-CAPA-cvs] cvs: modules /msu localenroll.pm

[albertel]

albertel		Tue Jul  6 04:29:36 2004 EDT

  Modified files:              
    /modules/msu	localenroll.pm 
  Log:
  - typo
  
  
Index: modules/msu/localenroll.pm
diff -u modules/msu/localenroll.pm:1.9 modules/msu/localenroll.pm:1.10
--- modules/msu/localenroll.pm:1.9	Sat Jul  3 14:29:21 2004
+++ modules/msu/localenroll.pm	Tue Jul  6 04:29:36 2004
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for
 # automated enrollment
-# $Id: localenroll.pm,v 1.9 2004/07/03 18:29:21 raeburn Exp $
+# $Id: localenroll.pm,v 1.10 2004/07/06 08:29:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -287,7 +287,7 @@
                    us => 'Summer'
                     );
     @{$$cat_order{'Semester'}} = ('ss','us','fs');
-    foreach my $cid (keys %{$instcodes) {
+    foreach my $cid (keys %{$instcodes}) {
         if ($$instcodes{$cid} =~ m/^([suf]s)(\d{2})\w{2,3}\d{3,4}\w?\d{3}$/) {
             my $year = $2;
             $year =~ s/^0//;