|
version 1.142, 2005/12/22 03:39:36
|
version 1.144, 2006/01/06 21:03:23
|
|
Line 531 ENDHEADER
|
Line 531 ENDHEADER
|
| foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
| if (!$allowed) { |
if (!$allowed) { |
| $button=0; |
$button=0; |
| $switchserver=&Apache::lonnet::escape('http://'. |
$switchserver='otherserver='.$home.'&role='.$trolecode; |
| $Apache::lonnet::hostname{$home}. |
|
| '/adm/login?domain='.$env{'user.domain'}. |
|
| '&username='.$env{'user.name'}. |
|
| '&firsturl=/priv/'.$env{'user.name'}.'/'); |
|
| } |
} |
| #next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
| $home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |
|
Line 1033 sub set_privileges {
|
Line 1029 sub set_privileges {
|
| sub courseloadpage { |
sub courseloadpage { |
| my ($courseid) = @_; |
my ($courseid) = @_; |
| my $startpage; |
my $startpage; |
| my %entry_settings = |
my %entry_settings = &Apache::lonnet::get('nohist_whatsnew', |
| &Apache::lonnet::dump('nohist_whatsnew',$env{'user.domain'}, |
[$courseid.':courseinit']); |
| $env{'user.name'},$courseid.':courseinit'); |
|
| my ($tmp) = %entry_settings; |
my ($tmp) = %entry_settings; |
| unless ($tmp =~ /^Error/) { |
unless ($tmp =~ /^error: 2 /) { |
| $startpage = $entry_settings{$courseid.':courseinit'}; |
$startpage = $entry_settings{$courseid.':courseinit'}; |
| } |
} |
| if ($startpage eq '') { |
if ($startpage eq '') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonroles.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth