version 1.56, 2004/12/16 21:21:35
|
version 1.57, 2004/12/21 22:46:27
|
Line 150 sub end_essayresponse {
|
Line 150 sub end_essayresponse {
|
&Apache::lonnet::clear_selected_files($name); |
&Apache::lonnet::clear_selected_files($name); |
$uploadedflag=1; |
$uploadedflag=1; |
} else { |
} else { |
|
my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser(); |
|
&Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid); |
$Apache::lonhomework::results{"resource.$part.$id.portfiles"}=""; |
$Apache::lonhomework::results{"resource.$part.$id.portfiles"}=""; |
} |
} |
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; |
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; |