loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.182, 2005/11/16 23:17:39	version 1.184, 2005/11/21 22:45:13
Line 790 sub setgradedata {	Line 790 sub setgradedata {
return '';	return '';
}	}
$Apache::lonhomework::results{"resource.$id.award"} = $award;	$Apache::lonhomework::results{"resource.$id.award"} = $award;
	if ($award eq 'SUBMITTED') {
	&Apache::response::add_to_gradingqueue();
	}
}	}

sub grade {	sub grade {
Line 846 sub gradestatus {	Line 849 sub gradestatus {

my $status = $Apache::inputtags::status['-1'];	my $status = $Apache::inputtags::status['-1'];
&Apache::lonxml::debug("gradestatus has :$status:");	&Apache::lonxml::debug("gradestatus has :$status:");
if ( $status ne 'CLOSED' && $status ne 'UNAVAILABLE' &&	if ( $status ne 'CLOSED'
$status ne 'INVALID_ACCESS') {	&& $status ne 'UNAVAILABLE'
	&& $status ne 'INVALID_ACCESS'
	&& $status ne 'NEEDS_CHECKIN'
	&& $status ne 'NOT_IN_A_SLOT') {
my $award = $Apache::lonhomework::history{"resource.$id.award"};	my $award = $Apache::lonhomework::history{"resource.$id.award"};
my $awarded = $Apache::lonhomework::history{"resource.$id.awarded"};	my $awarded = $Apache::lonhomework::history{"resource.$id.awarded"};
my $solved = $Apache::lonhomework::history{"resource.$id.solved"};	my $solved = $Apache::lonhomework::history{"resource.$id.solved"};