loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.82, 2004/01/15 20:22:47	version 1.83, 2004/01/27 22:54:59
Line 404 ENDHEADER	Line 404 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);
if ($home ne $r->dir_config('lonHostID')) {	my $allowed=0;
	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 425 ENDHEADER	Line 428 ENDHEADER
# Authors	# Authors
my $home = &Apache::lonnet::homeserver	my $home = &Apache::lonnet::homeserver
($ENV{'user.name'},$ENV{'user.domain'});	($ENV{'user.name'},$ENV{'user.domain'});
if ($home ne $r->dir_config('lonHostID')) {	my $allowed=0;
	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}.