loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2006/04/07 22:28:40	version 1.2, 2006/04/10 18:35:04
Line 41 package Apache::lonmainmenu;	Line 41 package Apache::lonmainmenu;
use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonnet;
	use Apache::lonmenu();

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 66 sub handler {	Line 68 sub handler {
$function='author';	$function='author';
}	}
my $domain=&Apache::loncommon::determinedomain();	my $domain=&Apache::loncommon::determinedomain();
$pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);	# FIXME these don't have the effect on the vars in lonmenu
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);	# that they used to have
$font=&Apache::loncommon::designparm($function.'.font',$domain);	my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
	my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
	my $font=&Apache::loncommon::designparm($function.'.font',$domain);
my $script_tag;	my $script_tag;
if ($env{'environment.remote'} ne 'off') {	if ($env{'environment.remote'} ne 'off') {
my $utility=&Apache::lonmenu::utilityfunctions('/adm/menu');	my $utility=&Apache::lonmenu::utilityfunctions('/adm/menu');