version 1.171, 2006/04/07 22:28:40
|
version 1.172, 2006/04/10 18:49:56
|
Line 49 use vars qw(@desklines $readdesk);
|
Line 49 use vars qw(@desklines $readdesk);
|
|
|
|
|
my @inlineremote; |
my @inlineremote; |
my $font; |
|
my $tabbg; |
|
my $pgbg; |
|
|
|
# ================================================================ Little texts |
# ================================================================ Little texts |
|
|
Line 67 sub initlittle {
|
Line 64 sub initlittle {
|
'groups' => 'Groups'); |
'groups' => 'Groups'); |
} |
} |
|
|
|
sub get_colors { |
|
my ($font,$pgbg,$tabbg); |
|
if ($env{'browser.interface'} eq 'textual') { |
|
$pgbg='#FFFFFF'; |
|
$tabbg='#FFFFFF'; |
|
$font='#000000'; |
|
} else { |
|
my $domain =&Apache::loncommon::determinedomain(); |
|
my $function =&Apache::loncommon::get_users_function(); |
|
|
|
$pgbg =&Apache::loncommon::designparm($function.'.pgbg', $domain); |
|
$tabbg =&Apache::loncommon::designparm($function.'.tabbg',$domain); |
|
$font =&Apache::loncommon::designparm($function.'.font', $domain); |
|
} |
|
return ($font,$pgbg,$tabbg); |
|
} |
# ============================= This gets called at the top of the body section |
# ============================= This gets called at the top of the body section |
|
|
sub menubuttons { |
sub menubuttons { |
Line 106 sub menubuttons {
|
Line 119 sub menubuttons {
|
} |
} |
} |
} |
|
|
|
my ($font,$pgbg,$tabbg) = &get_colors(); |
|
|
if ($env{'browser.interface'} eq 'textual') { |
if ($env{'browser.interface'} eq 'textual') { |
# Textual display only |
# Textual display only |
$pgbg='#FFFFFF'; |
|
$tabbg='#FFFFFF'; |
|
$font='#000000'; |
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a> |
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a> |
Line 158 ENDMAINMENU
|
Line 170 ENDMAINMENU
|
# Remote Control is switched off |
# Remote Control is switched off |
# figure out colors |
# figure out colors |
my %lt=&initlittle(); |
my %lt=&initlittle(); |
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(); |
my $domain=&Apache::loncommon::determinedomain(); |
$pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); |
my $function =&Apache::loncommon::get_users_function(); |
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
|
$font=&Apache::loncommon::designparm($function.'.font',$domain); |
|
my $link=&Apache::loncommon::designparm($function.'.link',$domain); |
my $link=&Apache::loncommon::designparm($function.'.link',$domain); |
my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); |
my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); |
my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); |
my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); |
Line 329 sub registerurl {
|
Line 329 sub registerurl {
|
# =========== and in the body of the document |
# =========== and in the body of the document |
|
|
sub innerregister { |
sub innerregister { |
my $forcereg=shift; |
my ($forcereg, $target, $titletable) = @_; |
my $target = shift; |
|
my $titletable = shift; |
|
my $result = ''; |
my $result = ''; |
my ($uname,$thisdisfn); |
my ($uname,$thisdisfn); |
my $const_space = ($env{'request.state'} eq 'construct'); |
my $const_space = ($env{'request.state'} eq 'construct'); |
Line 351 sub innerregister {
|
Line 349 sub innerregister {
|
|
|
my $reopen=&Apache::lonmenu::reopenmenu(); |
my $reopen=&Apache::lonmenu::reopenmenu(); |
|
|
|
my ($font,$pgbg,$tabbg) = &get_colors(); |
|
|
my $newmail=''; |
my $newmail=''; |
if ($noremote) { |
if ($noremote) { |
$newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'"><font face="Arial,Helvetica,sans-serif">'; |
$newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'"><font face="Arial,Helvetica,sans-serif">'; |
Line 837 sub switch {
|
Line 837 sub switch {
|
$bot=&mt($bot); |
$bot=&mt($bot); |
$desc=&mt($desc); |
$desc=&mt($desc); |
$img=&mt($img); |
$img=&mt($img); |
|
|
|
my ($font,$pgbg,$tabbg) = &get_colors(); |
|
|
unless (($env{'browser.interface'} eq 'textual') || |
unless (($env{'browser.interface'} eq 'textual') || |
($env{'environment.remote'} eq 'off')) { |
($env{'environment.remote'} eq 'off')) { |
# Remote |
# Remote |