--- loncom/auth/lonroles.pm	2004/11/19 20:17:52	1.111
+++ loncom/auth/lonroles.pm	2004/12/17 21:44:19	1.115
@@ -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.115 2004/12/17 21:44:19 albertel 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,
@@ -363,7 +339,7 @@ ENDHEADER
 	$r->print("<h1>LON-CAPA Access Control</h1>");
         $r->print("<hr><pre>Access  : ".
                   Apache::lonnet::plaintext($priv)."\n");
-        $r->print("Resource: $fn\n");
+        $r->print("Resource: ".&Apache::lonenc::check_encrypt($fn)."\n");
         $r->print("Action  : $msg\n</pre><hr>");
     } else {
         if ($ENV{'user.error.msg'}) {
@@ -563,7 +539,6 @@ ENDHEADER
 		    $sortkey=$role.$twhere;
                 }
  
-                $roletext.='<tr bgcolor='.$tbg.'>';
                 $roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver);
 		$roletext{$envkey}=$roletext;
 		if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}
@@ -619,18 +594,24 @@ ENDHEADER
 	foreach (sort(keys(%recent_roles))) {
 	    if (defined($roletext{'user.role.'.$_})) {
 		$output.=$roletext{'user.role.'.$_};
-	    }
+	    } elsif ($numdc > 0) {
+                unless ($_ =~/^error\:/) {
+                    $output.=&display_cc_role('user.role.'.$_);
+                }
+            } 
 	}
 	if ($output) {
 	    $r->print("<tr bgcolor='#BBffBB'><td align='center' colspan='7'>".
 		      &mt('Recent Roles')."</td>");
 	    $r->print($output);
 	    $r->print("</tr>");
+            $doheaders ++;
 	}
     }
 
     if ($numdc > 0) {
-        &display_recent_roles($r,\%roletext,\%recentroles);
+        $r->print(&coursepick_jscript());
+        $r->print(&Apache::loncommon::coursebrowser_javascript());
     }
     foreach my $type ('Construction Space','Course','Domain','System') {
 	my $output;
@@ -647,7 +628,7 @@ ENDHEADER
 	if ($output) {
 	    if ($doheaders > 0) {
 		$r->print("<tr bgcolor='#BBffBB'>".
-			  "<td align='center' colspan='7'>".&mt($type)."</td>");
+			  "<td align='center' colspan='7'>".&mt($type)."</td></tr>");
 	    }
 	    $r->print($output);	
 	}
@@ -768,7 +749,7 @@ sub role_status {
 
 sub build_roletext {
     my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$ttype,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_;
-    my $roletext='<tr bgcolor='.$tbg.'>';
+    my $roletext='<tr bgcolor="'.$tbg.'">';
     unless ($nochoose) {
         if (!$button) {
             if ($switchserver) {
@@ -843,26 +824,23 @@ sub check_fordc {
 
 sub courselink {
     my ($dcdom) = @_;
-    my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,$dcdom);
-    my $verify_script = &coursepick_jscript($dcdom);
     my $courseform=&Apache::loncommon::selectcourse_link
-                     ('rolechoice','dccourse_'.$dcdom,'dcdomain_'.$dcdom,'coursedesc_'.$dcdom);
+                     ('rolechoice','dccourse_'.$dcdom,'dcdomain_'.$dcdom,'coursedesc_'.$dcdom,$dcdom);
     my $hiddenitems = '<input type="hidden" name="dcdomain_'.$dcdom.'" value="'.$dcdom.'" />'.
                       '<input type="hidden" name="origdom_'.$dcdom.'" value="'.$dcdom.'" />'.
                       '<input type="hidden" name="dccourse_'.$dcdom.'" value="" />'.
                       '<input type="hidden" name="coursedesc_'.$dcdom.'" value="" />';
-    return $cb_jscript.$verify_script.$courseform.$hiddenitems;
+    return $courseform.$hiddenitems;
 }
 
 sub coursepick_jscript {
-    my ($dcdom) = @_;
     my $verify_script = <<"END";
 <script>
 function verifyCoursePick(caller) {
     var numbutton = getIndex(caller)
-    var pickedCourse = document.rolechoice.dccourse_$dcdom.value
-    var pickedDomain = document.rolechoice.dcdomain_$dcdom.value
-    if (document.rolechoice.dcdomain_$dcdom.value == document.rolechoice.origdom_$dcdom.value) {
+    var pickedCourse = document.rolechoice.elements[numbutton+4].value
+    var pickedDomain = document.rolechoice.elements[numbutton+2].value
+    if (document.rolechoice.elements[numbutton+2].value == document.rolechoice.elements[numbutton+3].value) {
         if (pickedCourse != '') {
             if (numbutton != -1) {
                 var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
@@ -871,7 +849,7 @@ function verifyCoursePick(caller) {
             }
         }
         else {
-            alert("You must use the 'Select Course' link to open a separate pick course window which you can use to select the course you wish to enter");
+            alert("Please use the 'Select Course' link to open a separate pick course window where you may select the course you wish to enter.");
         }
     }
     else {
@@ -925,46 +903,34 @@ END
     return $process_pick;
 }
 
-sub display_recent_roles {
-    my ($r,$roletext,$recentroles)=@_;
+sub display_cc_role {
+    my $rolekey = shift;
+    my $roletext;
     my $advanced = $ENV{'user.adv'};
     my $tryagain = $ENV{'form.tryagain'};
-    my $numrecent = 0;
-    my $roledisplay = '<tr bgcolor="#BBffBB">'.
-                   '<td align="center" colspan="7">'.
-                   &mt('Recent courses accessed by DC').
-                    '</td></tr>'."\n";
-    foreach my $rolekey (sort keys %{$recentroles}) {
-        unless ($rolekey =~/^error\:/) {
-            unless ($$roletext{$rolekey}) {
-                if ($rolekey =~ m-^user\.role.cc\./(\w+)/(\w+)$-) {
-                    my $tcourseid = $1.'_'.$2;
-                    my $trolecode = 'cc./'.$1.'/'.$2;
-                    my $trole = Apache::lonnet::plaintext('cc');
-                    my $twhere;
-                    my $tbg='#77FF77';
-                    my $tfont='#003300';
-                    my %newhash=&Apache::lonnet::coursedescription($tcourseid);
-                    if (%newhash) {
-                        $twhere=$newhash{'description'}.
-                               ' <font size="-2">'.
-                               &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1,$tfont).
-                               '</font>';
-                    } else {
-                        $twhere=&mt('Currently not available');
-                        $ENV{'course.'.$tcourseid.'.description'}=$twhere;
-                    }
-                    $twhere.="<br />".&mt('Domain').":".$1;
-                    $$roletext{$rolekey} = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,'');
-                }
+    unless ($rolekey =~/^error\:/) {
+        if ($rolekey =~ m-^user\.role.cc\./(\w+)/(\w+)$-) {
+            my $tcourseid = $1.'_'.$2;
+            my $trolecode = 'cc./'.$1.'/'.$2;
+            my $trole = Apache::lonnet::plaintext('cc');
+            my $twhere;
+            my $tbg='#77FF77';
+            my $tfont='#003300';
+            my %newhash=&Apache::lonnet::coursedescription($tcourseid);
+            if (%newhash) {
+                $twhere=$newhash{'description'}.
+                        ' <font size="-2">'.
+                        &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1,$tfont).
+                        '</font>';
+            } else {
+                $twhere=&mt('Currently not available');
+                $ENV{'course.'.$tcourseid.'.description'}=$twhere;
             }
-            $roledisplay.=$$roletext{$rolekey};
-            $numrecent ++;
+            $twhere.="<br />".&mt('Domain').":".$1;
+            $roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,'');
         }
     }
-    if ($numrecent > 0) {
-        $r->print("$roledisplay\n");
-    }
+    return $roletext;
 }
 
 sub allcourses_row {