rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.9, 2003/02/20 19:41:26	version 1.11, 2003/03/01 03:06:37
Line 56 sub handler {	Line 56 sub handler {
if ($url=~/^\/uploaded\//) {	if ($url=~/^\/uploaded\//) {
$url=&Apache::lonnet::tokenwrapper($url);	$url=&Apache::lonnet::tokenwrapper($url);
}	}
$url.='?'.$ENV{'QUERY_STRING'}; #reappend the query arguments	$url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'}; #reappend the query arguments
my $events='onLoad="'.&Apache::lonmenu::loadevents.	my $events='onLoad="'.&Apache::lonmenu::loadevents.
'" onUnload="'.&Apache::lonmenu::unloadevents.'"';	'" onUnload="'.&Apache::lonmenu::unloadevents.'"';
my $script=&Apache::lonmenu::registerurl(1,undef);	my $script=&Apache::lonmenu::registerurl(1,undef);
Line 81 ENDDOCUMENT	Line 81 ENDDOCUMENT
#	#
$r->print('<html><head>'.	$r->print('<html><head>'.
&Apache::lonmenu::registerurl(1).	&Apache::lonmenu::registerurl(1).
'</head>'.	'</head><body bgcolor="#FFFFFF">'.
&Apache::loncommon::bodytag().
&Apache::lonmenu::menubuttons(1).	&Apache::lonmenu::menubuttons(1).
&Apache::lonnet::ssi_body($url).'</body></html>');	&Apache::lonnet::ssi_body($url).'</body></html>');
}	}