|
version 1.79, 2006/03/24 18:09:27
|
version 1.80, 2006/04/10 18:59:30
|
|
Line 505 ENDVCMSG
|
Line 505 ENDVCMSG
|
| sub colorschanger { |
sub colorschanger { |
| my $r = shift; |
my $r = shift; |
| # figure out colors |
# figure out colors |
| my $function='student'; |
my $function=&Apache::loncommon::get_users_function(); |
| 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_URI'}=~/^(\/priv|\~)/)) { |
|
| $function='author'; |
|
| } |
|
| my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
| my %colortypes=('pgbg' => 'Page Background', |
my %colortypes=('pgbg' => 'Page Background', |
| 'tabbg' => 'Header Background', |
'tabbg' => 'Header Background', |
|
Line 581 ENDCOL
|
Line 571 ENDCOL
|
| sub verify_and_change_colors { |
sub verify_and_change_colors { |
| my $r = shift; |
my $r = shift; |
| # figure out colors |
# figure out colors |
| my $function='student'; |
my $function=&Apache::loncommon::get_users_function(); |
| 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_URI'}=~/^(\/priv|\~)/)) { |
|
| $function='author'; |
|
| } |
|
| my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
| my %colortypes=('pgbg' => 'Page Background', |
my %colortypes=('pgbg' => 'Page Background', |
| 'tabbg' => 'Header Background', |
'tabbg' => 'Header Background', |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpreferences.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface