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

[raeburn]

raeburn		Sat Apr 17 00:26:04 2010 EDT

  Modified files:              
    /modules/msu	localenroll.pm 
  Log:
  - lc() is applied to Student/Employee PIDs, so regexps used to match
    student (A-pids) or faculty/staff (Z-pids) need to use a and z (not A and Z).
  
  
Index: modules/msu/localenroll.pm
diff -u modules/msu/localenroll.pm:1.50 modules/msu/localenroll.pm:1.51
--- modules/msu/localenroll.pm:1.50	Fri Mar 26 12:33:18 2010
+++ modules/msu/localenroll.pm	Sat Apr 17 00:26:04 2010
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for
 # automated enrollment
-# $Id: localenroll.pm,v 1.50 2010/03/26 12:33:18 raeburn Exp $
+# $Id: localenroll.pm,v 1.51 2010/04/17 00:26:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -820,8 +820,8 @@
                         }
                     }
                     if ($pid ne $instusers->{$uname}{'id'}) {
-                        if ($instusers->{$uname}{'id'} =~ /^A\d{8}$/) {
-                            if ($pid =~ /^A\d{8}$/) {
+                        if ($instusers->{$uname}{'id'} =~ /^a\d{8}$/) {
+                            if ($pid =~ /^a\d{8}$/) {
                                 if (ref($multipids{$uname}) eq 'ARRAY') {
                                     if (!grep(/^$pid$/,@{$multipids{$uname}})) {
                                         push(@{$multipids{$uname}},$pid);
@@ -831,8 +831,8 @@
                                 }
                                 $instusers->{$uname}{'id'} = $pid;
                             }
-                        } elsif ($instusers->{$uname}{'id'} =~ /^Z\d{8}$/) {
-                            if ($pid =~ /^Z\d{8}$/) {
+                        } elsif ($instusers->{$uname}{'id'} =~ /^z\d{8}$/) {
+                            if ($pid =~ /^z\d{8}$/) {
                                 if (ref($multipids{$uname}) eq 'ARRAY') {
                                     if (!grep(/^$pid$/,@{$multipids{$uname}})) {
                                         push(@{$multipids{$uname}},$pid);
@@ -840,7 +840,7 @@
                                 } else {
                                     @{$multipids{$uname}} = ($instusers->{$uname}{'id'},$pid);
                                 }
-                            } elsif ($pid =~ /^A\d{8}$/) {
+                            } elsif ($pid =~ /^a\d{8}$/) {
                                 $instusers->{$uname}{'id'} = $pid;
                             }
                         }