--- loncom/auth/lonroles.pm 2000/12/08 21:57:25 1.18
+++ loncom/auth/lonroles.pm 2001/07/06 15:11:19 1.27
@@ -5,8 +5,12 @@
# 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)
# 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 Gerd Kortemeyer
-#
+# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,
+# 12/08,12/28,
+# 01/15/01 Gerd Kortemeyer
+# 02/27/01 Scott Harrison
+# 03/02,05/03,05/25,05/30,06/01,07/06 Gerd Kortemeyer
+
package Apache::lonroles;
use strict;
@@ -14,6 +18,7 @@ use Apache::lonnet();
use Apache::lonuserstate();
use Apache::Constants qw(:common);
use Apache::File();
+use Apache::lonmenu;
sub handler {
@@ -47,25 +52,53 @@ sub handler {
}
if ($tend) {
if ($tend<$then) { $tstatus='expired'; }
- if ($tend>$now) { $tstatus='will_not'; }
+ if ($tend<$now) { $tstatus='will_not'; }
}
if ($tstatus eq 'is') {
$where=~s/^\///;
my ($cdom,$cnum,$csec)=split(/\//,$where);
&Apache::lonnet::appenv('request.role' => $trolecode,
'request.course.sec' => $csec);
- if ($cnum) {
- &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
- if ($ENV{'form.orgurl'}) {
+ my $msg='Entering course ...';
+ if (($cnum) && ($role ne 'ca')) {
+ my ($furl,$ferr)=
+ &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
+ if (($ENV{'form.orgurl'}) &&
+ ($ENV{'form.orgurl'}!~/^\/adm\/flip/)) {
$r->internal_redirect($ENV{'form.orgurl'});
return OK;
- }
+ } else {
+ unless ($ENV{'request.course.id'}) {
+ &Apache::lonnet::appenv(
+ "request.course.id" => $cdom.'_'.$cnum);
+ $furl='/adm/notfound.html';
+ $msg=
+ 'Could not initialize top-level map.
';
+ }
+ $r->content_type('text/html');
+ $r->send_http_header;
+ my $swinfo=&Apache::lonmenu::rawconfig;
+ print (<Entering Course
+
+
+
+
+
+$msg
+
+
+ENDREDIR
+ return OK;
+ }
}
}
}
}
}
- }
+ }
# =============================================================== No Roles Init
@@ -74,11 +107,17 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
+ my $swinfo=&Apache::lonmenu::rawconfig;
+
$r->print(<
LON-CAPA User Roles
+
ENDHEADER
# ------------------------------------------ Get Error Message from Environment
@@ -109,6 +148,11 @@ ENDHEADER
$r->print("Action : $msg\n
");
} else {
$r->print("LON-CAPA User Roles
");
+ if ($ENV{'user.error.msg'}) {
+ $r->print(
+ 'You need to choose another user role or '.
+ 'enter a specific course for this function
');
+ }
}
# -------------------------------------------------------- Choice or no choice?
if ($nochoose) {
@@ -137,15 +181,14 @@ ENDHEADER
$r->print('');
$r->print('');
}
+ $r->print('
Show all roles: print(' checked'); }
+ $r->print('>
');
# ----------------------------------------------------------------------- Table
$r->print('');
unless ($nochoose) { $r->print('| | '); }
- if ($advanced) {
$r->print('User Role | Extent | '.
'Start | End | Remark |
'."\n");
- } else {
- $r->print('Course | '."\n");
- }
foreach $envkey (sort keys %ENV) {
if ($envkey=~/^user\.role\./) {
@@ -165,14 +208,19 @@ ENDHEADER
$tpstart=localtime($tstart);
}
if ($tend) {
- if ($tend<$then) { $tstatus='expired'; }
- if ($tend>$now) { $tstatus='will_not'; }
+ if ($tend<$then) {
+ $tstatus='expired';
+ } elsif ($tend<$now) {
+ $tstatus='will_not';
+ }
$tpend=localtime($tend);
}
if ($ENV{'request.role'} eq $trolecode) {
$tstatus='selected';
}
my $tbg;
+ if (($tstatus eq 'is') || ($tstatus eq 'selected') ||
+ ($ENV{'form.showall'})) {
if ($tstatus eq 'is') {
$tbg='#77FF77';
} elsif ($tstatus eq 'future') {
@@ -186,7 +234,7 @@ ENDHEADER
$tbg='#AAFF77';
$tremark.='Expired after logout. ';
} elsif ($tstatus eq 'selected') {
- $tbg='#33FF33';
+ $tbg='#11CC55';
$tremark.='Currently selected. ';
}
my $trole;
@@ -202,6 +250,11 @@ ENDHEADER
my ($tdom,$trest,$tsection)=
split(/\//,Apache::lonnet::declutter($where));
if ($trest) {
+ if ($role eq 'ca') {
+ $ttype='Construction Space';
+ $twhere='User: '.$trest.'
Domain: '.$tdom;
+ $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
+ } else {
$ttype='Course';
if ($tsection) {
$ttype.='
Section/Group: '.$tsection;
@@ -218,6 +271,7 @@ ENDHEADER
$ENV{'course.'.$tcourseid.'.description'}=$twhere;
}
}
+ }
} elsif ($tdom) {
$ttype='Domain';
$twhere=$tdom;
@@ -239,11 +293,12 @@ ENDHEADER
$ttype.''.$twhere.' | '.$tpstart.
' | '.$tpend.
' | '.$tremark.' | '."\n");
+ }
}
}
my $tremark='';
if ($ENV{'request.role'} eq 'cm') {
- $r->print('');
+ $r->print('
');
$tremark='Currently selected.';
} else {
$r->print('
');
@@ -262,9 +317,9 @@ ENDHEADER
unless ($nochoose) {
$r->print("\n");
}
-# ------------------------------------------------------------ Priviledges Info
+# ------------------------------------------------------------ Privileges Info
if ($advanced) {
- $r->print('
Current Priviledges
');
+ $r->print('
Current Privileges
');
foreach $envkey (sort keys %ENV) {
if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) {
@@ -275,11 +330,16 @@ ENDHEADER
my ($tdom,$trest,$tsec)=
split(/\//,Apache::lonnet::declutter($where));
if ($trest) {
+ if ($ENV{'course.'.$tdom.'_'.$trest.'.description'} eq 'ca') {
+ $ttype='Construction Space';
+ $twhere='User: '.$trest.', Domain: '.$tdom;
+ } else {
$ttype='Course';
$twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'};
if ($tsec) {
$twhere.=' (Section/Group: '.$tsec.')';
}
+ }
} elsif ($tdom) {
$ttype='Domain';
$twhere=$tdom;
@@ -310,15 +370,6 @@ ENDHEADER
}
}
}
-# -------------------------------------------------------------- Debug - remove
-
- $->print("
Debugging
\n");
-
- foreach $envkey (sort keys %ENV) {
- $r->print("$envkey ---- $ENV{$envkey}
");
- }
-
-# ------------------------------------------------------------------- End Debug
$r->print("