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.9, 2003/02/20 19:41:26
Line 60 sub handler {	Line 60 sub handler {
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>'.
	&Apache::loncommon::bodytag().
	&Apache::lonmenu::menubuttons(1).
	&Apache::lonnet::ssi_body($url).'</body></html>');
	}
return OK;	return OK;
}	}