loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.80, 2003/12/09 21:25:53	version 1.80.2.1, 2004/01/27 23:07:13
Line 402 ENDHEADER	Line 402 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 422 ENDHEADER	Line 425 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}.