version 1.50, 2004/11/23 14:37:33
|
version 1.51, 2004/12/04 19:16:42
|
Line 70 sub start_essayresponse {
|
Line 70 sub start_essayresponse {
|
$part.'_'.$id.'" onFocus="this.form.enctype='. |
$part.'_'.$id.'" onFocus="this.form.enctype='. |
"'multipart/form-data'".';" /><br />'. |
"'multipart/form-data'".';" /><br />'. |
&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=400,'. |
'<strong>OR:</strong><br /><a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname=HWPORT'.$part.'_'.$id.'","cat","height=600,'. |
'width=500,scrollbars=1,resizable=1,menubar=0,location=1"))'."'".'>Select Portfolio Files</a>'. |
'width=600,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>Select Portfolio Files</a>'. |
'<br />'. |
'<br />'. |
'<input type="text" size="50" name="HWPORT'.$part.'_'.$id.'" value="" />'. |
'<input type="text" size="50" name="HWPORT'.$part.'_'.$id.'" value="" />'. |
'<br />'; |
'<br />'; |
Line 146 sub end_essayresponse {
|
Line 146 sub end_essayresponse {
|
my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser(); |
my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser(); |
&Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid); |
&Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid); |
&Apache::lonnet::mark_as_readonly($domain,$name,\@submitted_files,$dsymb.$crsid); |
&Apache::lonnet::mark_as_readonly($domain,$name,\@submitted_files,$dsymb.$crsid); |
|
&Apache::lonnet::clear_selected_files($name); |
$uploadedflag=1; |
$uploadedflag=1; |
} |
} |
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; |
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; |