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.27 and 1.29

version 1.27, 2001/07/06 15:11:19	version 1.29, 2001/10/26 17:09:04
Line 9	Line 9
# 12/08,12/28,	# 12/08,12/28,
# 01/15/01 Gerd Kortemeyer	# 01/15/01 Gerd Kortemeyer
# 02/27/01 Scott Harrison	# 02/27/01 Scott Harrison
# 03/02,05/03,05/25,05/30,06/01,07/06 Gerd Kortemeyer	# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer

package Apache::lonroles;	package Apache::lonroles;

Line 19 use Apache::lonuserstate();	Line 19 use Apache::lonuserstate();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::File();	use Apache::File();
use Apache::lonmenu;	use Apache::lonmenu;
	use Apache::loncommon;

sub handler {	sub handler {

Line 78 sub handler {	Line 79 sub handler {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig;	my $swinfo=&Apache::lonmenu::rawconfig;
	my $cacheheader=&Apache::loncommon::cacheheader();
print (<<ENDREDIR);	print (<<ENDREDIR);
<head><title>Entering Course</title>	<head><title>Entering Course</title>
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">	<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">
	$cacheheader
</head>	</head>
<html>	<html>
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF">
Line 108 ENDREDIR	Line 111 ENDREDIR
return OK if $r->header_only;	return OK if $r->header_only;

my $swinfo=&Apache::lonmenu::rawconfig;	my $swinfo=&Apache::lonmenu::rawconfig;
	my $cacheheader=&Apache::loncommon::cacheheader();
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>
	$cacheheader
<title>LON-CAPA User Roles</title>	<title>LON-CAPA User Roles</title>
</head><body bgcolor="#FFFFFF">	</head><body bgcolor="#FFFFFF">
<script>	<script>
Line 285 ENDHEADER	Line 289 ENDHEADER
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$r->print('<td><input type=submit value=Select name="'.	$r->print('<td><input type=submit value=Select name="'.
$trolecode.'"></td>');	$trolecode.'"></td>');
	} elsif ($ENV{'user.adv'}) {
	$r->print(
	'<td><input type=submit value="Re-Initialize" name="'.
	$trolecode.'"></td>');
} else {	} else {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}

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

Removed from v.1.27
changed lines
	Added in v.1.29