loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.290, 2005/04/25 21:40:33	version 1.291, 2005/04/29 21:22:33
Line 96 sub body_tag_start {	Line 96 sub body_tag_start {
}	}
return $body_tag_start;	return $body_tag_start;
}	}

sub page_start {	sub page_start {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my %found;	my %found;
Line 126 sub page_start {	Line 127 sub page_start {
my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,	my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,
$safeeval);	$safeeval);
$body_tag_start=&body_tag_start($background,$bgcolor);	$body_tag_start=&body_tag_start($background,$bgcolor);
if ($target eq 'web' && $env{'request.state'} ne 'construct') {	if ( ($target eq 'web' \|\| $target eq 'webgrade')
	&& $env{'request.state'} ne 'construct') {
my ($symb,undef,undef,undef,$publicuser)=	my ($symb,undef,undef,undef,$publicuser)=
&Apache::lonxml::whichuser();	&Apache::lonxml::whichuser();
if ($symb eq '' && !$publicuser) {	if ($symb eq '' && !$publicuser) {