--- loncom/auth/lonroles.pm 2001/11/29 19:12:44 1.31
+++ loncom/auth/lonroles.pm 2001/12/21 16:57:54 1.32
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.31 2001/11/29 19:12:44 www Exp $
+# $Id: lonroles.pm,v 1.32 2001/12/21 16:57:54 harris41 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,14 +27,20 @@
#
# (Directory Indexer
# (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)
# 11/23 Gerd Kortemeyer)
+# YEAR=2000
# 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,
# 12/08,12/28,
+# YEAR=2001
# 01/15/01 Gerd Kortemeyer
# 02/27/01 Scott Harrison
# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
+# 12/21 Scott Harrison
+#
+###
package Apache::lonroles;
@@ -379,7 +385,7 @@ ENDHEADER
$twhere='/';
}
$r->print("\n
".$ttype.': '.$twhere.'
');
- map {
+ foreach (sort split(/:/,$ENV{$envkey})) {
if ($_) {
my ($prv,$restr)=split(/\&/,$_);
my $trestr='';
@@ -396,7 +402,7 @@ ENDHEADER
$r->print('- '.Apache::lonnet::plaintext($prv).$trestr.
'
');
}
- } sort split(/:/,$ENV{$envkey});
+ }
$r->print('
');
}
}
@@ -408,3 +414,67 @@ ENDHEADER
1;
__END__
+
+=head1 NAME
+
+Apache::lonroles - User Roles Screen
+
+=head1 SYNOPSIS
+
+Invoked by /etc/httpd/conf/srm.conf:
+
+
+ PerlAccessHandler Apache::lonacc
+ SetHandler perl-script
+ PerlHandler Apache::lonroles
+ ErrorDocument 403 /adm/login
+ ErrorDocument 500 /adm/errorhandler
+
+
+=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