|
version 1.129, 2005/09/16 19:47:42
|
version 1.130, 2005/10/24 21:32:42
|
|
Line 479 ENDHEADER
|
Line 479 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/'.$trest.'/'); |
|
| } |
} |
| #next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
| $home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |
|
Line 772 sub build_roletext {
|
Line 768 sub build_roletext {
|
| unless ($nochoose) { |
unless ($nochoose) { |
| if (!$button) { |
if (!$button) { |
| if ($switchserver) { |
if ($switchserver) { |
| $roletext.='<td><a href="/adm/logout?handover='. |
$roletext.='<td><a href="/adm/switchserver?'. |
| $switchserver.'">'.&mt('Switch Server').'</a></td>'; |
$switchserver.'">'.&mt('Switch Server').'</a></td>'; |
| } else { |
} else { |
| $roletext.=('<td> </td>'); |
$roletext.=('<td> </td>'); |
![[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