--- loncom/interface/loncommon.pm 2006/04/09 16:43:43 1.328 +++ loncom/interface/loncommon.pm 2006/04/10 19:54:54 1.329 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.328 2006/04/09 16:43:43 www Exp $ +# $Id: loncommon.pm,v 1.329 2006/04/10 19:54:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2768,7 +2768,6 @@ sub bodytag { my $vlink=&designparm($function.'.vlink',$domain); my $sidebg=&designparm($function.'.sidebg',$domain); # Accessibility font enhance - unless ($addentries) { $addentries=''; } my $addstyle=''; if ($env{'browser.fontenhance'} eq 'on') { $addstyle=' font-size: x-large;'; @@ -2787,6 +2786,26 @@ sub bodytag { # Port for miniserver my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } + my $extra_body_attr; + if ($forcereg) { + if (ref($addentries)) { + $addentries->{'onload'} = &Apache::lonmenu::loadevents(). + $addentries->{'onload'}; + $addentries->{'onunload'} = &Apache::lonmenu::unloadevents(). + $addentries->{'onunload'}; + } else { + $extra_body_attr.=' onload="'.&Apache::lonmenu::loadevents(). + '" onunload="'.&Apache::lonmenu::unloadevents().'"'; + } + } + if (!ref($addentries)) { + $extra_body_attr .= $addentries; + } else { + foreach my $attr (keys(%$addentries)) { + $extra_body_attr .= " $attr=\"".$addentries->{$attr}.'" '; + } + } + # construct main body tag my $bodytag = < @@ -2799,7 +2818,7 @@ form, .inline { display: inline; } .filename {font-family: monospace;} +style="margin-top: 0px;$addstyle" $extra_body_attr> END &Apache::lontexconvert::jsMath_reset(); if ($env{'environment.texengine'} eq 'jsMath' ||