version 1.296, 2005/06/28 19:56:10
|
version 1.299, 2005/09/01 18:21:47
|
Line 88 sub body_tag_start {
|
Line 88 sub body_tag_start {
|
$body_tag_start.=' style="font-size: x-large;" '; |
$body_tag_start.=' style="font-size: x-large;" '; |
} |
} |
$body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1); |
$body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1); |
|
|
|
&Apache::lontexconvert::jsMath_reset(); |
if ($env{'environment.texengine'} eq 'jsMath') { |
if ($env{'environment.texengine'} eq 'jsMath') { |
$body_tag_start.='<script type="text/javascript"> |
$body_tag_start.=&Apache::lontexconvert::jsMath_header(); |
function NoFontMessage () {} |
|
</script>'."\n". |
|
'<script src="/adm/jsMath/jsMath.js"></script>'."\n"; |
|
} |
} |
return $body_tag_start; |
return $body_tag_start; |
} |
} |
Line 119 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') { |
$body_tag_start=&Apache::loncommon::bodytag(); |
if ($target eq 'web' || $target eq 'edit') { |
$body_tag_start.=&Apache::lonxml::message_location(); |
$body_tag_start=&Apache::loncommon::bodytag(); |
|
$body_tag_start.=&Apache::lonxml::message_location(); |
|
} |
} elsif (!defined($found{'body'})) { |
} elsif (!defined($found{'body'})) { |
my $background=&Apache::lonxml::get_param('background',$parstack, |
my $background=&Apache::lonxml::get_param('background',$parstack, |
$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)= |