loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.8 and 1.12

version 1.8, 2000/09/30 19:19:34	version 1.12, 2000/10/05 19:15:34
Line 5	Line 5
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)	# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
# 11/23 Gerd Kortemeyer)	# 11/23 Gerd Kortemeyer)
# 1/14,03/06,06/01,07/22,07/24,07/25,	# 1/14,03/06,06/01,07/22,07/24,07/25,
# 09/04,09/06,09/28,09/29,09/30 Gerd Kortemeyer	# 09/04,09/06,09/28,09/29,09/30,10/2,10/5 Gerd Kortemeyer
#	#
package Apache::lonroles;	package Apache::lonroles;

Line 16 use Apache::Constants qw(:common);	Line 16 use Apache::Constants qw(:common);
use Apache::File();	use Apache::File();

sub handler {	sub handler {
my $r = shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;

# ---------------------------------------------------------------- Print Header	my $r = shift;
$r->print(<<ENDHEADER);
<html>
<head>
<title>LON-CAPA User Roles</title>
</head>
<body bgcolor="#FFFFFF">
ENDHEADER

my $now=time;	my $now=time;
my $then=$ENV{'user.login.time'};	my $then=$ENV{'user.login.time'};
my $envkey;	my $envkey;


# ================================================================== Roles Init	# ================================================================== Roles Init

if ($ENV{'form.selectrole'}) {	if ($ENV{'form.selectrole'}) {
Line 58 ENDHEADER	Line 48 ENDHEADER
&Apache::lonnet::appenv('request.role' => $trolecode);	&Apache::lonnet::appenv('request.role' => $trolecode);
my ($cdom,$cnum)=split(/\//,$where);	my ($cdom,$cnum)=split(/\//,$where);
if ($cnum) {	if ($cnum) {
$r->print( &Apache::lonuserstate::readmap($where) );	&Apache::lonuserstate::readmap($where);
	if ($ENV{'form.orgurl'}) {
	$r->internal_redirect($ENV{'form.orgurl'});
	return OK;
	}
}	}
}	}
}	}
}	}
}	}

$r->print('<h1>Role not active</h1></body></html>');
return OK;
}	}


# =============================================================== No Roles Init	# =============================================================== No Roles Init

	$r->content_type('text/html');
	$r->send_http_header;
	return OK if $r->header_only;

	$r->print(<<ENDHEADER);
	<html>
	<head>
	<title>LON-CAPA User Roles</title>
	</head><body bgcolor="#FFFFFF">
	ENDHEADER

# ------------------------------------------ Get Error Message from Environment	# ------------------------------------------ Get Error Message from Environment

my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'});	my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'});
$r->log_reason(	if ($ENV{'user.error.msg'}) {
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);	$r->log_reason(
	"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);
	}

# ---------------------------------------------------------------- Who is this?	# ---------------------------------------------------------------- Who is this?

Line 121 ENDHEADER	Line 127 ENDHEADER
} else {	} else {
$r->print("<h2>Enter a Course</h2>\n");	$r->print("<h2>Enter a Course</h2>\n");
}	}
$r->print('<form method=post action="'.$r->uri.'">');	$r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">');
$r->print('<input type=hidden name=orgurl value="'.$fn.'">');	$r->print('<input type=hidden name=orgurl value="'.$fn.'">');
$r->print('<input type=hidden name=selectrole value=1>');	$r->print('<input type=hidden name=selectrole value=1>');
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.8
changed lines
	Added in v.1.12