version 1.53, 2004/12/14 18:44:56
|
version 1.55, 2004/12/14 20:38:51
|
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.'" /><br />'. |
# "'multipart/form-data'".';" /><br />'. |
|
$part.'_'.$id.'" '. |
|
&mt('Allowed filetypes: <b>[_1]</b>',$uploadedfiletypes).'<br />'. |
&mt('Allowed filetypes: <b>[_1]</b>',$uploadedfiletypes).'<br />'. |
'<strong>OR:</strong><br /><a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname=HWPORT'.$part.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>Select Portfolio Files</a>'. |
'<strong>OR:</strong><br /><a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname=HWPORT'.$part.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>Select Portfolio Files</a>'. |
'<br />'. |
'<br />'. |
Line 127 sub end_essayresponse {
|
Line 125 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"}=""; |