loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.78, 2005/11/15 21:41:10	version 1.79, 2005/11/18 20:29:13
Line 671 sub get_key_todo {	Line 671 sub get_key_todo {
}	}
return (undef,undef)	return (undef,undef)
}	}

sub end_Task {	sub end_Task {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result='';	my $result='';
Line 779 DONEBUTTON	Line 778 DONEBUTTON
if ($award eq 'SUBMITTED') {	if ($award eq 'SUBMITTED') {
&add_to_queue('gradingqueue',$Apache::inputtags::slot_name);	&add_to_queue('gradingqueue',$Apache::inputtags::slot_name);
}	}
	} elsif ($Apache::lonhomework::results{'INTERNAL_store'}) {
	&Apache::structuretags::finalize_storage();
}	}
if ($target eq 'grade' && $env{'form.webgrade'} eq 'yes') {	if ($target eq 'grade' && $env{'form.webgrade'} eq 'yes') {
my $optional_required=	my $optional_required=
Line 1466 sub get_instance {	Line 1467 sub get_instance {
$instance = $instances[($version-1)%scalar(@instances)];	$instance = $instances[($version-1)%scalar(@instances)];
$Apache::lonhomework::results{"resource.$version.0.$dim.instance"} =	$Apache::lonhomework::results{"resource.$version.0.$dim.instance"} =
$instance;	$instance;
	$Apache::lonhomework::results{'INTERNAL_store'} = 1;
&Apache::response::poprandomnumber();	&Apache::response::poprandomnumber();
return $instance;	return $instance;
}	}