[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[raeburn]

raeburn		Fri Aug 11 19:27:36 2017 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Correction to regular expression.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1290 loncom/interface/loncommon.pm:1.1291
--- loncom/interface/loncommon.pm:1.1290	Fri Aug 11 18:58:16 2017
+++ loncom/interface/loncommon.pm	Fri Aug 11 19:27:35 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1290 2017/08/11 18:58:16 raeburn Exp $
+# $Id: loncommon.pm,v 1.1291 2017/08/11 19:27:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -13695,7 +13695,7 @@
 
 sub valid_datatoken {
     my ($datatoken) = @_;
-    if ($datatoken =~ /^$match_username\_$match_domain\_enroll_$match_courseid\_\d+_\d+$/) {
+    if ($datatoken =~ /^$match_username\_$match_domain\_enroll_$match_domain\_$match_courseid\_\d+_\d+$/) {
         return $datatoken;
     }
     return;