loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.297, 2005/07/05 18:59:03	version 1.299, 2005/09/01 18:21:47
Line 118 sub page_start {	Line 118 sub page_start {
my $body_tag_start;	my $body_tag_start;
if (!defined($found{'body'}) && $env{'request.state'} eq 'construct'	if (!defined($found{'body'}) && $env{'request.state'} eq 'construct'
&& $env{'environment.remote'} eq 'off') {	&& $env{'environment.remote'} eq 'off') {
if ($target eq 'web') {	if ($target eq 'web' \|\| $target eq 'edit') {
$body_tag_start=&Apache::loncommon::bodytag();	$body_tag_start=&Apache::loncommon::bodytag();
$body_tag_start.=&Apache::lonxml::message_location();	$body_tag_start.=&Apache::lonxml::message_location();
}	}
Line 127 sub page_start {	Line 127 sub page_start {
$safeeval);	$safeeval);
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($target,$background,$bgcolor);
if ( ($target eq 'web' \|\| $target eq 'webgrade')	if ( ($target eq 'web' \|\| $target eq 'webgrade')
&& $env{'request.state'} ne 'construct') {	&& $env{'request.state'} ne 'construct') {
my ($symb,undef,undef,undef,$publicuser)=	my ($symb,undef,undef,undef,$publicuser)=