version 1.82, 2007/04/17 23:25:09
|
version 1.84, 2007/09/26 00:31:23
|
Line 148 sub end_essayresponse {
|
Line 148 sub end_essayresponse {
|
my ($symb,$crsid,$domain,$name)= |
my ($symb,$crsid,$domain,$name)= |
&Apache::lonnet::whichuser(); |
&Apache::lonnet::whichuser(); |
if ($crsid) { |
if ($crsid) { |
my $akey=$name.'.'.$domain.'.'.$crsid; |
my $akey=join('.',&escape($name),&escape($domain), |
|
&escape($crsid)); |
my $essayurl= |
my $essayurl= |
&Apache::lonnet::declutter($ENV{'REQUEST_URI'}); |
&Apache::lonnet::declutter($ENV{'REQUEST_URI'}); |
my ($adom,$aname,$apath)= |
my ($adom,$aname,$apath)= |
Line 245 sub file_submission {
|
Line 246 sub file_submission {
|
$uploadedfiletypes=','.$uploadedfiletypes.','; |
$uploadedfiletypes=','.$uploadedfiletypes.','; |
foreach my $file (@submitted_files) { |
foreach my $file (@submitted_files) { |
my ($extension)=($file=~/\.(\w+)$/); |
my ($extension)=($file=~/\.(\w+)$/); |
unless ($uploadedfiletypes=~/\,$extension\,/i) { |
unless ($uploadedfiletypes=~/\,\s*\Q$extension\E\s*\,/i) { |
$$award='INVALID_FILETYPE'; |
$$award='INVALID_FILETYPE'; |
} |
} |
} |
} |