--- loncom/auth/lonroles.pm 2004/11/19 20:17:52 1.111
+++ loncom/auth/lonroles.pm 2004/12/03 05:34:04 1.114
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.111 2004/11/19 20:17:52 albertel Exp $
+# $Id: lonroles.pm,v 1.114 2004/12/03 05:34:04 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -84,10 +84,6 @@ sub handler {
my $envkey;
my %dcroles = ();
my $numdc = &check_fordc(\%dcroles,$then);
- my %recentroles;
- if ($numdc > 0) {
- %recentroles = &Apache::lonnet::dump(&recent_filename('roles'));
- }
# ================================================================== Roles Init
if ($ENV{'form.selectrole'}) {
@@ -117,16 +113,6 @@ sub handler {
}
}
-# Check if user is a DC with courses in the recent list which need privs.
-# if ($numdc > 0) {
-# %recentroles = &Apache::lonnet::dump(&recent_filename('recent_roles'));
-# foreach my $rolekey (keys %recentroles) {
-# if ($rolekey =~ m-^user\.role.cc\./\w+/\w+$-) {
-# &check_privs($rolekey,$then,$now);
-# }
-# }
-# }
-
foreach $envkey (keys %ENV) {
next if ($envkey!~/^user\.role\./);
my ($where,$trolecode,$role,$tstatus,$tend,$tstart);
@@ -276,16 +262,6 @@ ENDENTERKEY
'.course.helper.not.run'}) {
$furl = "/adm/helper/course.initialization.helper";
}
- # Check to see if the user is a DC selecting a course
- if (($numdc > 0) && ($role eq 'cc')) {
- my $formaction = '/adm/roles/';
- my ($dcdom,$pickedcourse) = split/_/,$courseid;
- if ($ENV{'user.role.dc./'.$dcdom.'/'}) {
- &Apache::lonhtmlcommon::store_recent('roles',
- $envkey,$formaction);
- }
- }
- #
# Send the user to the course they selected
&redirect_user($r,&mt('Entering Course'),
$furl,$msg,
@@ -563,7 +539,6 @@ ENDHEADER
$sortkey=$role.$twhere;
}
- $roletext.='