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'}}) { |