version 1.169, 2017/11/12 23:04:23
|
version 1.170, 2019/07/25 20:13:56
|
Line 898 sub process_batchfile {
|
Line 898 sub process_batchfile {
|
my $batchfilepath=&Apache::lonnet::userfileupload('coursecreatorxml',undef, |
my $batchfilepath=&Apache::lonnet::userfileupload('coursecreatorxml',undef, |
'batchupload',undef,undef, |
'batchupload',undef,undef, |
undef,undef,$defdom); |
undef,undef,$defdom); |
if ($batchfilepath =~ m{^(\Q$dir/$defdom/web/$uname\_$udom\E)/pending/([^/]+)$}) { |
if ($batchfilepath =~ m{^(\Q$dir/$defdom/web/$uname\E_\Q$udom\E)/pending/([^/]+)$}) { |
my ($batchdir,$filename) = ($1,$2); |
my ($batchdir,$filename) = ($1,$2); |
if (-e "$batchfilepath") { |
if (-e "$batchfilepath") { |
if (open(FILE,"<",$batchfilepath)) { |
if (open(FILE,"<",$batchfilepath)) { |