loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.9, 2005/04/04 18:14:58	version 1.10, 2005/04/05 15:39:41
Line 188 sub end_Task {	Line 188 sub end_Task {
}	}
}	}
if ($target eq 'grade') {	if ($target eq 'grade') {
	&Apache::essayresponse::file_submission('0','bridgetask','portfiles','SUBMITTED');
	if ($Apache::lonhomework::results{"resource.0.bridgetask.portfiles"}) {
	$Apache::lonhomework::results{"resource.0.tries"}=
	1+$Apache::lonhomework::history{"resource.0.tries"};
	}
&Apache::lonhomework::showhash(%Apache::lonhomework::results);	&Apache::lonhomework::showhash(%Apache::lonhomework::results);
&Apache::structuretags::finalize_storage();	&Apache::structuretags::finalize_storage();
}	}
Line 235 sub end_Dimension {	Line 240 sub end_Dimension {
#to randomly pick one until all have been seen	#to randomly pick one until all have been seen
#then start repicking	#then start repicking
&Apache::response::pushrandomnumber();	&Apache::response::pushrandomnumber();
my $num_instances=scalar(@{$dimension{'instances'}});	my @order=&Math::Random::random_permutation(@{$dimension{'instances'}});
my $which=&Math::Random::random_uniform_integer(1,0,$num_instances-1);	my $instance=$order[0];
my $instance=$dimension{'instances'}->[$which];
$result=$dimension{'intro'}.$dimension{$instance.'.text'};	$result=$dimension{'intro'}.$dimension{$instance.'.text'};
#FIXME: don't show the criteria yet	#FIXME: don't show the criteria yet
#foreach my $id (@{$dimension{$instance.'.criterias'}}) {	#foreach my $id (@{$dimension{$instance.'.criterias'}}) {