version 1.36, 2002/05/06 14:20:27
|
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}; |
Line 318 ENDHEADER
|
Line 320 ENDHEADER
|
$ttype='Course'; |
$ttype='Course'; |
if ($tsection) { |
if ($tsection) { |
$ttype.='<br>Section/Group: '.$tsection; |
$ttype.='<br>Section/Group: '.$tsection; |
} |
} |
my $tcourseid=$tdom.'_'.$trest; |
my $tcourseid=$tdom.'_'.$trest; |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
Line 331 ENDHEADER
|
Line 333 ENDHEADER
|
$twhere='Currently not available'; |
$twhere='Currently not available'; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
if ($trole ne 'st') { |
|
$twhere.="<br />Domain:".$tdom; |
|
} |
|
} |
} |
|
if ($role ne 'st') { $twhere.="<br />Domain:".$tdom; } |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |