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.26 and 1.32

version 1.26, 2001/06/02 16:14:40	version 1.32, 2001/12/21 16:57:54
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# User Roles Screen	# User Roles Screen
	#
	# $Id$
	#
	# Copyright Michigan State University Board of Trustees
	#
	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
	#
	# LON-CAPA is free software; you can redistribute it and/or modify
	# it under the terms of the GNU General Public License as published by
	# the Free Software Foundation; either version 2 of the License, or
	# (at your option) any later version.
	#
	# LON-CAPA is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	# GNU General Public License for more details.
	#
	# You should have received a copy of the GNU General Public License
	# along with LON-CAPA; if not, write to the Free Software
	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	#
	# /home/httpd/html/adm/gpl.txt
	#
	# http://www.lon-capa.org/
	#
# (Directory Indexer	# (Directory Indexer
# (Login Screen	# (Login Screen
	# YEAR=1999
# 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)
	# YEAR=2000
# 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,10/2,10/5,10/26,10/28,	# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,
# 12/08,12/28,	# 12/08,12/28,
	# YEAR=2001
# 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 Gerd Kortemeyer	# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
	# 12/21 Scott Harrison
	#
	###

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

Line 19 use Apache::lonuserstate();	Line 50 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 59 sub handler {	Line 91 sub handler {
my ($cdom,$cnum,$csec)=split(/\//,$where);	my ($cdom,$cnum,$csec)=split(/\//,$where);
&Apache::lonnet::appenv('request.role' => $trolecode,	&Apache::lonnet::appenv('request.role' => $trolecode,
'request.course.sec' => $csec);	'request.course.sec' => $csec);
	my $msg='Entering course ...';
if (($cnum) && ($role ne 'ca')) {	if (($cnum) && ($role ne 'ca')) {
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
Line 67 sub handler {	Line 100 sub handler {
$r->internal_redirect($ENV{'form.orgurl'});	$r->internal_redirect($ENV{'form.orgurl'});
return OK;	return OK;
} else {	} else {
	unless ($ENV{'request.course.id'}) {
	&Apache::lonnet::appenv(
	"request.course.id" => $cdom.'_'.$cnum);
	$furl='/adm/notfound.html';
	$msg=
	'<h1><font color=red>Could not initialize top-level map.</font></h1>';
	}
$r->content_type('text/html');	$r->content_type('text/html');
	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig;	my $swinfo=&Apache::lonmenu::rawconfig;
print (<<ENDREDIR);	print (<<ENDREDIR);
Line 79 sub handler {	Line 120 sub handler {
<script>	<script>
$swinfo	$swinfo
</script>	</script>
Entering course ...	$msg
</body>	</body>
</html>	</html>
ENDREDIR	ENDREDIR
Line 96 ENDREDIR	Line 137 ENDREDIR
# =============================================================== No Roles Init	# =============================================================== No Roles Init

$r->content_type('text/html');	$r->content_type('text/html');
	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

my $swinfo=&Apache::lonmenu::rawconfig;	my $swinfo=&Apache::lonmenu::rawconfig;

$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>
Line 173 ENDHEADER	Line 214 ENDHEADER
$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>');
}	}
	$r->print('<br>Show all roles: <input type=checkbox name=showall');
	if ($ENV{'form.showall'}) { $r->print(' checked'); }
	$r->print('><input type=submit value="Display"><br>');
# ----------------------------------------------------------------------- Table	# ----------------------------------------------------------------------- Table
$r->print('<table><tr>');	$r->print('<table><tr>');
unless ($nochoose) { $r->print('<th> </th>'); }	unless ($nochoose) { $r->print('<th> </th>'); }
Line 208 ENDHEADER	Line 252 ENDHEADER
$tstatus='selected';	$tstatus='selected';
}	}
my $tbg;	my $tbg;
	if (($tstatus eq 'is') \|\| ($tstatus eq 'selected') \|\|
	($ENV{'form.showall'})) {
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$tbg='#77FF77';	$tbg='#77FF77';
} elsif ($tstatus eq 'future') {	} elsif ($tstatus eq 'future') {
Line 272 ENDHEADER	Line 318 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>');
}	}
Line 280 ENDHEADER	Line 330 ENDHEADER
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart.	$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart.
'</td><td>'.$tpend.	'</td><td>'.$tpend.
'</td><td>'.$tremark.' </td></tr>'."\n");	'</td><td>'.$tremark.' </td></tr>'."\n");
	}
}	}
}	}
my $tremark='';	my $tremark='';
Line 334 ENDHEADER	Line 385 ENDHEADER
$twhere='/';	$twhere='/';
}	}
$r->print("\n<h3>".$ttype.': '.$twhere.'</h3><ul>');	$r->print("\n<h3>".$ttype.': '.$twhere.'</h3><ul>');
map {	foreach (sort split(/:/,$ENV{$envkey})) {
if ($_) {	if ($_) {
my ($prv,$restr)=split(/\&/,$_);	my ($prv,$restr)=split(/\&/,$_);
my $trestr='';	my $trestr='';
Line 351 ENDHEADER	Line 402 ENDHEADER
$r->print('<li>'.Apache::lonnet::plaintext($prv).$trestr.	$r->print('<li>'.Apache::lonnet::plaintext($prv).$trestr.
'</li>');	'</li>');
}	}
} sort split(/:/,$ENV{$envkey});	}
$r->print('</ul>');	$r->print('</ul>');
}	}
}	}
Line 363 ENDHEADER	Line 414 ENDHEADER

1;	1;
__END__	__END__

	=head1 NAME

	Apache::lonroles - User Roles Screen

	=head1 SYNOPSIS

	Invoked by /etc/httpd/conf/srm.conf:

	<Location /adm/roles>
	PerlAccessHandler Apache::lonacc
	SetHandler perl-script
	PerlHandler Apache::lonroles
	ErrorDocument 403 /adm/login
	ErrorDocument 500 /adm/errorhandler
	</Location>

	=head1 INTRODUCTION

	This module enables a user to select what role he wishes to
	operate under (instructor, student, teaching assistant, course
	coordinator, etc). These roles are pre-established by the actions
	of upper-level users.

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head1 HANDLER SUBROUTINE

	This routine is called by Apache and mod_perl.

	=over 4

	=item *

	Roles Initialization (yes/no)

	=item *

	Get Error Message from Environment

	=item *

	Who is this?

	=item *

	Generate Page Output

	=item *

	Choice or no choice

	=item *

	Table

	=item *

	Privileges

	=back

	=cut

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

Removed from v.1.26
changed lines
	Added in v.1.32