--- loncom/interface/loncommon.pm 2006/04/07 21:56:00 1.327 +++ 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.327 2006/04/07 21:56:00 albertel 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' || @@ -3689,8 +3708,22 @@ sub get_posted_cgi { } } } +# +# Digested POSTed values +# +# Remember the way this was originally done (GET or POST) +# $env{'request.method'}=$ENV{'REQUEST_METHOD'}; - $r->method_number(M_GET); +# +# There may also be stuff in the query string +# Tell subsequent handlers that this was GET, not POST, so they can access query string. +# Also, unset POSTed content length to cover all tracks. +# + +# This does not work, because M_GET is not defined (if it's defined, it is just 0). +# Commenting out for now ... not sure if harm is done. +# $r->method_number(M_GET); + $r->method('GET'); $r->headers_in->unset('Content-length'); }