loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.270, 2004/10/12 22:55:22	version 1.272, 2004/11/11 23:45:35
Line 88 sub page_start {	Line 88 sub page_start {
&Apache::lonxml::fontsettings();	&Apache::lonxml::fontsettings();
}	}
my $body_tag_start;	my $body_tag_start;
if (!defined($found{'body'})) {	if (!defined($found{'body'}) && $ENV{'request.state'} eq 'construct'
	&& $ENV{'environment.remote'} eq 'off') {
	$body_tag_start=&Apache::loncommon::bodytag();
	} elsif (!defined($found{'body'})) {
$body_tag_start='<body onload="'.&Apache::lonmenu::loadevents().'" '.	$body_tag_start='<body onload="'.&Apache::lonmenu::loadevents().'" '.
'onunload="'.&Apache::lonmenu::unloadevents().'" ';	'onunload="'.&Apache::lonmenu::unloadevents().'" ';
my $background=&Apache::lonxml::get_param('background',$parstack,	my $background=&Apache::lonxml::get_param('background',$parstack,
Line 124 sub page_start {	Line 127 sub page_start {
}	}
my $form_tag_start;	my $form_tag_start;
if (!defined($found{'form'})) {	if (!defined($found{'form'})) {
$form_tag_start='<form name="lonhomework" method="post" action="'.	$form_tag_start='<form name="lonhomework" method="post" action="';
$ENV{'request.uri'}.'">';	my $uri=$ENV{'request.uri'};
	if ($ENV{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }
	$form_tag_start.=$uri.'">';
}	}
return ($result,$head_tag_start,$body_tag_start,$form_tag_start);	return ($result,$head_tag_start,$body_tag_start,$form_tag_start);
}	}