![]() ![]() | ![]() |
version 1.1324, 2018/11/18 22:50:52 | version 1.1325, 2019/01/26 00:18:48 |
---|---|
Line 13937 sub load_tmp_file { | Line 13937 sub load_tmp_file { |
sub valid_datatoken { | sub valid_datatoken { |
my ($datatoken) = @_; | my ($datatoken) = @_; |
if ($datatoken =~ /^$match_username\_$match_domain\_enroll_$match_domain\_$match_courseid\_\d+_\d+$/) { | if ($datatoken =~ /^$match_username\_$match_domain\_enroll_(|$match_domain\_$match_courseid)\_\d+_\d+$/) { |
return $datatoken; | return $datatoken; |
} | } |
return; | return; |