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.3, 2006/04/10 18:49:56
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 54 sub handler {	Line 56 sub handler {
$env{'browser.interface'} ne 'textual') {	$env{'browser.interface'} ne 'textual') {
$form=&Apache::lonmenu::serverform();	$form=&Apache::lonmenu::serverform();
}	}
my $function='student';
if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {
$function='coordinator';
}
if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {
$function='admin';
}
if (($env{'request.role'}=~/^(au\|ca)/) \|\|
($env{'request.noversionuri'}=~/^(\/priv\|\~)/)) {
$function='author';
}
my $domain=&Apache::loncommon::determinedomain();
$pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
$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');