version 1.53, 2004/12/14 18:44:56
|
version 1.54, 2004/12/14 20:12:30
|
Line 65 sub start_essayresponse {
|
Line 65 sub start_essayresponse {
|
$result .='</td></tr>'; |
$result .='</td></tr>'; |
} |
} |
if ($uploadedfiletypes) { |
if ($uploadedfiletypes) { |
$result.='<tr><td>'.&mt('Submit a file:'). |
$result.='<tr><td>'.&mt('Submit a file: (only one file can be uploaded)'). |
' <br /><input type="file" size="50" name="HWFILE'. |
' <br /><input type="file" size="50" name="HWFILE'. |
# $part.'_'.$id.'" onFocus="this.form.enctype='. |
# $part.'_'.$id.'" onFocus="this.form.enctype='. |
# "'multipart/form-data'".';" /><br />'. |
# "'multipart/form-data'".';" /><br />'. |
Line 127 sub end_essayresponse {
|
Line 127 sub end_essayresponse {
|
} |
} |
my $uploadedflag=0; |
my $uploadedflag=0; |
if ($filename =~ /[^\s]/) { |
if ($filename =~ /[^\s]/) { |
&Apache::lonnet::logthis("the file to upload is $filename"); |
my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); |
my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); |
$uploadedfiletypes=~s/[^\w\,]//g; |
$uploadedfiletypes=~s/[^\w\,]//g; |
$uploadedfiletypes=','.$uploadedfiletypes.','; |
$uploadedfiletypes=','.$uploadedfiletypes.','; |
my ($extension)=($filename=~/\.(\w+)$/); |
my ($extension)=($filename=~/\.(\w+)$/); |
if ($uploadedfiletypes=~/\,$extension\,/i) { |
if ($uploadedfiletypes=~/\,$extension\,/i) { |
$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename; |
$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename; |
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}= |
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}= |
&Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id,undef,'essayresponse'); |
&Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id,undef,'essayresponse'); |
$uploadedflag=1; |
$uploadedflag=1; |
} else { |
} else { |
$award='INVALID_FILETYPE'; |
$award='INVALID_FILETYPE'; |
} |
} |
|
} else { |
} else { |
$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=""; |
$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=""; |
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=""; |
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=""; |