rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.8, 2003/02/14 19:35:55	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);
$r->print(<<ENDDOCUMENT);	unless ($ENV{'browser.interface'} eq 'textual') {
	#
	# frame-based rendering for graphical interface
	#
	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
$script	$script
Line 71 $script	Line 75 $script
</frameset>	</frameset>
</html>	</html>
ENDDOCUMENT	ENDDOCUMENT
	} else {
	#
	# ssi-based rendering for text-based interface
	#
	$r->print('<html><head>'.
	&Apache::lonmenu::registerurl(1).
	'</head><body bgcolor="#FFFFFF">'.
	&Apache::lonmenu::menubuttons(1).
	&Apache::lonnet::ssi_body($url).'</body></html>');
	}
return OK;	return OK;
}	}