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

[raeburn]

raeburn		Sat Mar 10 15:37:56 2012 EDT

  Modified files:              
    /modules/msu	localenroll.pm 
  Log:
  - Customization for MSU
    - MSUNetIDs are lower case.
  
  
Index: modules/msu/localenroll.pm
diff -u modules/msu/localenroll.pm:1.57 modules/msu/localenroll.pm:1.58
--- modules/msu/localenroll.pm:1.57	Sat Mar 10 14:59:16 2012
+++ modules/msu/localenroll.pm	Sat Mar 10 15:37:55 2012
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for
 # automated enrollment
-# $Id: localenroll.pm,v 1.57 2012/03/10 14:59:16 raeburn Exp $
+# $Id: localenroll.pm,v 1.58 2012/03/10 15:37:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -992,6 +992,7 @@
             my $sth = $dbh->prepare("$statement");
             $sth->execute();
             while ( my($uname,$pid,$given,$last,$type) = $sth->fetchrow_array ) {
+                $uname=lc($uname);
                 $pid=lc($pid);
                 $given =~ s/^\s+//;
                 my ($first,$middle);