version 1.37, 2002/05/13 09:10:15
|
version 1.38, 2002/05/21 13:07:40
|
Line 212 ENDHEADER
|
Line 212 ENDHEADER
|
("<h2>$ENV{'user.name'}, Please Select a Role</h2>\n"); |
("<h2>$ENV{'user.name'}, Please Select a Role</h2>\n"); |
$r->print("Your home server is ". |
$r->print("Your home server is ". |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver |
($ENV{'user.name'},$ENV{'user.domain'})}."<br />\n"); |
($ENV{'user.name'},$ENV{'user.domain'}, 'true')}. |
|
"<br />\n"); |
$r->print("Author and Co-Author roles may not be available on ". |
$r->print("Author and Co-Author roles may not be available on ". |
"servers other than your home server."); |
"servers other than your home server."); |
} else { |
} else { |
Line 296 ENDHEADER
|
Line 297 ENDHEADER
|
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
# First, Co-Authorship roles |
# First, Co-Authorship roles |
if ($role eq 'ca') { |
if ($role eq 'ca') { |
my $home = &Apache::lonnet::homeserver($trest,$tdom); |
my $home = &Apache::lonnet::homeserver($trest,$tdom, |
|
'true'); |
$button = 0 if ($home ne $r->dir_config('lonHostID')); |
$button = 0 if ($home ne $r->dir_config('lonHostID')); |
#next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
$home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |
Line 307 ENDHEADER
|
Line 309 ENDHEADER
|
} elsif ($role eq 'au') { |
} elsif ($role eq 'au') { |
# Authors |
# Authors |
my $home = &Apache::lonnet::homeserver |
my $home = &Apache::lonnet::homeserver |
($ENV{'user.name'},$ENV{'user.domain'}); |
($ENV{'user.name'},$ENV{'user.domain'}, 'true'); |
$button = 0 if ($home ne $r->dir_config('lonHostID')); |
$button = 0 if ($home ne $r->dir_config('lonHostID')); |
#next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
$home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |