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

[raeburn]

raeburn		Sat Jun  5 14:57:34 2021 EDT

  Modified files:              
    /modules/msu	localenroll.pm 
  Log:
  - Fix typo in rev 1.71
  
  
Index: modules/msu/localenroll.pm
diff -u modules/msu/localenroll.pm:1.71 modules/msu/localenroll.pm:1.72
--- modules/msu/localenroll.pm:1.71	Wed Mar 31 02:59:08 2021
+++ modules/msu/localenroll.pm	Sat Jun  5 14:57:34 2021
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for
 # automated enrollment
-# $Id: localenroll.pm,v 1.71 2021/03/31 02:59:08 raeburn Exp $
+# $Id: localenroll.pm,v 1.72 2021/06/05 14:57:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -656,7 +656,7 @@
 sub validate_crosslist_access {
     my ($dom,$instcode,$inst_xlist,$coowner) = @_;
     my $outcome = '';
-    if ($instcode =~ m/^([suf]s\d{2}(\w{2,4})\d{3,4}\w?$/) {
+    if ($instcode =~ m/^([suf]s\d{2}\w{2,4})\d{3,4}\w?$/) {
         my $semyrdept = $1;
         if ($inst_xlist =~ m/^(\Q$semyrdept\E\d{3,4}\w?)\d{3}$/) {
             my $xlistcode = $1;