version 1.80.4.1, 2004/02/10 19:23:11
|
version 1.81, 2003/12/30 22:45:59
|
Line 77 ENDREDIR
|
Line 77 ENDREDIR
|
return; |
return; |
} |
} |
|
|
|
sub authorbombs { |
|
my ($uname,$udom)=@_; |
|
my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); |
|
foreach (keys %bombs) { |
|
if ($_=~/^$udom\/$uname\//) { |
|
return '<img src="/adm/lonMisc/bomb.gif" />'; |
|
} |
|
} |
|
return ''; |
|
} |
|
|
sub handler { |
sub handler { |
|
|
my $r = shift; |
my $r = shift; |
Line 402 ENDHEADER
|
Line 413 ENDHEADER
|
# 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); |
my $allowed=0; |
if ($home ne $r->dir_config('lonHostID')) { |
my @ids=&Apache::lonnet::current_machine_ids(); |
|
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
|
if (!$allowed) { |
|
$button=0; |
$button=0; |
$switchserver=&Apache::lonnet::escape('http://'. |
$switchserver=&Apache::lonnet::escape('http://'. |
$Apache::lonnet::hostname{$home}. |
$Apache::lonnet::hostname{$home}. |
Line 420 ENDHEADER
|
Line 428 ENDHEADER
|
': '.$tdom.'<br />'. |
': '.$tdom.'<br />'. |
' '.&mt('Server').': '.$home; |
' '.&mt('Server').': '.$home; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
$tremark.=&authorbombs($trest,$tdom); |
$sortkey=$role."$trest:$tdom"; |
$sortkey=$role."$trest:$tdom"; |
} 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'}); |
my $allowed=0; |
if ($home ne $r->dir_config('lonHostID')) { |
my @ids=&Apache::lonnet::current_machine_ids(); |
|
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } |
|
if (!$allowed) { |
|
$button=0; |
$button=0; |
$switchserver=&Apache::lonnet::escape('http://'. |
$switchserver=&Apache::lonnet::escape('http://'. |
$Apache::lonnet::hostname{$home}. |
$Apache::lonnet::hostname{$home}. |
Line 442 ENDHEADER
|
Line 448 ENDHEADER
|
$twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server'). |
$twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server'). |
': '.$home; |
': '.$home; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
$ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca'; |
|
$tremark.=&authorbombs($ENV{'user.name'},$tdom); |
$sortkey=$role; |
$sortkey=$role; |
} elsif ($trest) { |
} elsif ($trest) { |
$ttype='Course'; |
$ttype='Course'; |