loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.179, 2003/06/04 14:49:20	version 1.181, 2003/06/07 04:08:43
Line 154 sub setup_rndseed {	Line 154 sub setup_rndseed {
$rndseed=int(rand(1000000000));	$rndseed=int(rand(1000000000));
}	}
$ENV{'form.rndseed'}=$rndseed;	$ENV{'form.rndseed'}=$rndseed;
	delete($ENV{'form.resetdata'});
	delete($ENV{'form.newrandomization'});
}	}
&Apache::lonxml::debug("Setting rndseed to $rndseed");	&Apache::lonxml::debug("Setting rndseed to $rndseed");
&Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval);	&Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval);
Line 934 sub end_part {	Line 936 sub end_part {
$target);	$target);
if ($Apache::lonhomework::type eq 'exam') {$gradestatus='';}	if ($Apache::lonhomework::type eq 'exam') {$gradestatus='';}
$result=$gradestatus;	$result=$gradestatus;
	} elsif ($target eq 'edit') {
	$result=&Apache::edit::end_table();
}	}
pop @Apache::inputtags::status;	pop @Apache::inputtags::status;
$Apache::inputtags::part='';	$Apache::inputtags::part='';