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.28 and 1.34

version 1.28, 2001/08/06 11:16:32	version 1.34, 2002/02/01 12:54:51
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,07/06,08/06 Gerd Kortemeyer	# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
	# 12/21 Scott Harrison
	# 12/29 Gerd Kortemeyer
	#
	###

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

Line 19 use Apache::lonuserstate();	Line 51 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 32 sub handler {	Line 65 sub handler {
# ================================================================== Roles Init	# ================================================================== Roles Init

if ($ENV{'form.selectrole'}) {	if ($ENV{'form.selectrole'}) {
	if ($ENV{'request.course.id'}) {
	my %temp=('logout_'.$ENV{'request.course.id'} => time);
	&Apache::lonnet::put('email_status',\%temp);
	}
&Apache::lonnet::appenv("request.course.id" => '',	&Apache::lonnet::appenv("request.course.id" => '',
"request.course.fn" => '',	"request.course.fn" => '',
"request.course.uri" => '',	"request.course.uri" => '',
Line 76 sub handler {	Line 113 sub handler {
'<h1><font color=red>Could not initialize top-level map.</font></h1>';	'<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 104 ENDREDIR	Line 142 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 270 ENDHEADER	Line 308 ENDHEADER
$twhere='Currently not available';	$twhere='Currently not available';
$ENV{'course.'.$tcourseid.'.description'}=$twhere;	$ENV{'course.'.$tcourseid.'.description'}=$twhere;
}	}
	if ($trole ne 'st') {
	$twhere.="<br />Domain:".$tdom;
	}
}	}
}	}
} elsif ($tdom) {	} elsif ($tdom) {
Line 352 ENDHEADER	Line 393 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 369 ENDHEADER	Line 410 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 381 ENDHEADER	Line 422 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.28
changed lines
	Added in v.1.34