loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.305, 2005/10/17 16:06:32	version 1.307, 2005/11/01 21:52:47
Line 74 sub body_tag_start {	Line 74 sub body_tag_start {
'onunload="'.&Apache::lonmenu::unloadevents().'" ';	'onunload="'.&Apache::lonmenu::unloadevents().'" ';
if ($env{'browser.imagesuppress'} eq 'on') { $background=''; }	if ($env{'browser.imagesuppress'} eq 'on') { $background=''; }
if ($background) {	if ($background) {
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=	&Apache::lonxml::extlink($background);
$background;
$body_tag_start.='background="'.$background.'" ';	$body_tag_start.='background="'.$background.'" ';
} else {	} else {
if (($bgcolor) && ($env{'browser.blackwhite'} ne 'on')) {	if (($bgcolor) && ($env{'browser.blackwhite'} ne 'on')) {
Line 193 sub setup_rndseed {	Line 192 sub setup_rndseed {
delete($env{'form.newrandomization'});	delete($env{'form.newrandomization'});
}	}
if (defined($rndseed) && $rndseed ne int($rndseed)) {	if (defined($rndseed) && $rndseed ne int($rndseed)) {
$rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed));	$rndseed=join(':',&Apache::lonnet::digest($rndseed));
}	}
if ($Apache::lonhomework::history{'resource.CODE'}) {	if ($Apache::lonhomework::history{'resource.CODE'}) {
$rndseed=&Apache::lonnet::rndseed();	$rndseed=&Apache::lonnet::rndseed();