version 1.479, 2010/12/18 22:49:33
|
version 1.481, 2010/12/20 18:33:20
|
Line 393 sub setup_rndseed {
|
Line 393 sub setup_rndseed {
|
if ($tries) { |
if ($tries) { |
$rndseed += $tries; |
$rndseed += $tries; |
} |
} |
|
$env{'form.'.$Apache::inputtags::part.'.rndseed'}=$rndseed; |
} |
} |
if ( ($env{'form.resetdata'} eq &mt('New Problem Variation') |
if ( ($env{'form.resetdata'} eq &mt('New Problem Variation') |
&& $env{'form.submitted'} eq 'yes') || |
&& $env{'form.submitted'} eq 'yes') || |
Line 717 sub finalize_storage {
|
Line 718 sub finalize_storage {
|
$namespace,'',$domain,$name); |
$namespace,'',$domain,$name); |
&Apache::lonxml::debug('Construct Store return message:'.$result); |
&Apache::lonxml::debug('Construct Store return message:'.$result); |
} else { |
} else { |
if ($Apache::lonhomework::type eq 'randomizetry') { |
|
foreach my $key (keys(%Apache::lonhomework::results)) { |
|
if ($key =~ /^resource\.([^\.]+)\.tries/) { |
|
$Apache::lonhomework::results{'resource.'.$1.'.rndseed'}=$env{'form.'.$1.'.rndseed'}; |
|
} |
|
} |
|
} |
|
$result=&Apache::lonnet::cstore(\%Apache::lonhomework::results, |
$result=&Apache::lonnet::cstore(\%Apache::lonhomework::results, |
$symb,$courseid,$domain,$name); |
$symb,$courseid,$domain,$name); |
&Apache::lonxml::debug('Store return message:'.$result); |
&Apache::lonxml::debug('Store return message:'.$result); |
Line 804 sub store_aggregates {
|
Line 798 sub store_aggregates {
|
$cdomain,$cname); |
$cdomain,$cname); |
} |
} |
if (keys(%anoncounter) > 0) { |
if (keys(%anoncounter) > 0) { |
&Apache::lonnet::cinc('nohist_anonsurveys',\%anoncounter, |
&Apache::lonnet::cput('nohist_anonsurveys',\%anoncounter, |
$cdomain,$cname); |
$cdomain,$cname); |
} |
} |
if (keys(%randtrycounter) > 0) { |
if (keys(%randtrycounter) > 0) { |
&Apache::lonnet::cinc('nohist_randomizetry',\%randtrycounter, |
&Apache::lonnet::cput('nohist_randomizetry',\%randtrycounter, |
$cdomain,$cname); |
$cdomain,$cname); |
} |
} |
} |
} |
|
|