--- rat/lonwrapper.pm 2001/07/05 13:31:53 1.1 +++ rat/lonwrapper.pm 2001/07/05 15:54:02 1.2 @@ -13,7 +13,8 @@ package Apache::lonwrapper; use strict; use Apache::Constants qw(:common); -use Apache::lonnet; +use Apache::lonnet(); +use Apache::lonxml(); # ================================================================ Main Handler @@ -25,12 +26,17 @@ sub handler { return OK if $r->header_only; my $url=$r->uri; - + $url=~s/^\/adm\/wrapper//; + my $events='onLoad="'.&Apache::lonxml::loadevents. + '" onUnload="'.&Apache::lonxml::unloadevents.'"'; + my $script=&Apache::lonxml::registerurl(1); $r->print(< +$script - + +