loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.479, 2010/12/18 22:49:33	version 1.480, 2010/12/19 21:12: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);