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 '') { |