|
version 1.56, 2004/12/16 21:21:35
|
version 1.58, 2005/01/31 22:00:40
|
|
Line 108 sub end_essayresponse {
|
Line 108 sub end_essayresponse {
|
| $Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators |
$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators |
| if ($collaborators ne $previous_list); |
if ($collaborators ne $previous_list); |
| } |
} |
| if ( defined($ENV{'form.submitted'}) && |
if ( &Apache::response::submitted('scantron') ) { |
| $ENV{'form.submitted'} eq 'scantron' ) { |
|
| $increment=&Apache::response::scored_response($part,$id); |
$increment=&Apache::response::scored_response($part,$id); |
| } elsif ( defined($ENV{'form.submitted'}) ) { |
} elsif ( &Apache::response::submitted() ) { |
| my $response = $ENV{'form.HWVAL_'.$id}; |
my $response = $ENV{'form.HWVAL_'.$id}; |
| my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'}; |
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'}; |
| my $portfiles = $ENV{'form.HWPORT'.$part.'_'.$id}; |
my $portfiles = $ENV{'form.HWPORT'.$part.'_'.$id}; |
|
Line 150 sub end_essayresponse {
|
Line 149 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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to essayresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework