--- loncom/auth/lonroles.pm	2004/08/03 18:53:27	1.97
+++ 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.97 2004/08/03 18:53:27 albertel Exp $
+# $Id: lonroles.pm,v 1.114 2004/12/03 05:34:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,7 @@ use Apache::Constants qw(:common);
 use Apache::File();
 use Apache::lonmenu;
 use Apache::loncommon;
+use Apache::lonhtmlcommon;
 use Apache::lonannounce;
 use Apache::lonlocal;
 
@@ -81,15 +82,16 @@ sub handler {
     my $now=time;
     my $then=$ENV{'user.login.time'};
     my $envkey;
-
+    my %dcroles = ();
+    my $numdc = &check_fordc(\%dcroles,$then);
 
 # ================================================================== Roles Init
-
     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::delenv('user.state.'.$ENV{'request.course.id'});
+	}
 	&Apache::lonnet::appenv("request.course.id"   => '',
 				"request.course.fn"   => '',
 				"request.course.uri"  => '',
@@ -97,26 +99,35 @@ sub handler {
 				"request.role"        => 'cm',
                                 "request.role.adv"    => $ENV{'user.adv'},
 				"request.role.domain" => $ENV{'user.domain'});
+
+# Check if user is a DC trying to enter a course and needs privs to be created
+        if ($numdc > 0) {
+            foreach my $envkey (keys %ENV) {
+                if ($envkey =~ m-^form\.cc\./(\w+)/(\w+)$-) {
+                    if ($dcroles{$1}) {
+                        my $cckey = 'user.role.cc./'.$1.'/'.$2;
+                        &check_privs($cckey,$then,$now);
+                    }
+                    last;
+                }
+            }
+        }
+
         foreach $envkey (keys %ENV) {
             next if ($envkey!~/^user\.role\./);
-	    my (undef,undef,$role,@pwhere)=split(/\./,$envkey);
-            my $where=join('.',@pwhere);
-            my $trolecode=$role.'.'.$where;
+            my ($where,$trolecode,$role,$tstatus,$tend,$tstart);
+            &role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
             if ($ENV{'form.'.$trolecode}) {
-		my ($tstart,$tend)=split(/\./,$ENV{$envkey});
-		my $tstatus='is';
-		if ($tstart) {
-		    if ($tstart>$then) { 
-			$tstatus='future';
-		    }
-		}
-		if ($tend) {
-		    if ($tend<$then) { $tstatus='expired'; }
-		    if ($tend<$now) { $tstatus='will_not'; }
-		}
 		if ($tstatus eq 'is') {
 		    $where=~s/^\///;
 		    my ($cdom,$cnum,$csec)=split(/\//,$where);
+# store role if recent_role list being kept
+                    if ($ENV{'environment.recentroles'}) {
+			&Apache::lonhtmlcommon::store_recent('roles',
+							     $trolecode,' ');
+                    }
+
+
 # check for keyed access
 		    if (($role eq 'st') && 
                        ($ENV{'course.'.$cdom.'_'.$cnum.'.keyaccess'} eq 'yes')) {
@@ -207,15 +218,15 @@ ENDENTERKEY
 					 $ENV{'user.name'},
 					 $ENV{'user.home'},
 					 "Role ".$trolecode);
-                    my $tadv=0;
-                    if (($trolecode!~/^st/) && 
-                        ($trolecode!~/^ta/) && 
-                        ($trolecode!~/^cm/)) { $tadv=1; }
+		    
 		    &Apache::lonnet::appenv(
-                                           'request.role'        => $trolecode,
-					   'request.role.adv'    => $tadv,
+					   'request.role'        => $trolecode,
 					   'request.role.domain' => $cdom,
 					   'request.course.sec'  => $csec);
+                    my $tadv=0;
+		    if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
+		    &Apache::lonnet::appenv('request.role.adv'    => $tadv);
+
 		    my $msg=&mt('Entering course ...');
 
 		    if (($cnum) && ($role ne 'ca')) {
@@ -251,7 +262,6 @@ ENDENTERKEY
 							  '.course.helper.not.run'}) {
 				$furl = "/adm/helper/course.initialization.helper";
 			    }
-                            #
                             # Send the user to the course they selected
                             &redirect_user($r,&mt('Entering Course'),
                                            $furl,$msg,
@@ -274,6 +284,12 @@ ENDENTERKEY
                                        $redirect_url);
                         return OK;
                     }
+                    if ($role eq 'dc') {
+                        my $redirect_url = '/adm/menu/';
+                        &redirect_user($r,&mt('Loading Domain Coordinator Menu'),
+                                       $redirect_url);
+                        return OK;
+                    }
 		}
             }
         }
@@ -380,29 +396,17 @@ ENDHEADER
 	my $roletext;
 	my $sortkey;
         if ($envkey=~/^user\.role\./) {
-	    my (undef,undef,$role,@pwhere)=split(/\./,$envkey);
+            my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);
+            &role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
             next if (!defined($role) || $role eq '');
-            my $where=join('.',@pwhere);
-            my $trolecode=$role.'.'.$where;
-            my ($tstart,$tend)=split(/\./,$ENV{$envkey});
-            my $tremark='';
-            my $tstatus='is';
-            my $tpstart='&nbsp;';
-            my $tpend='&nbsp;';
-            my $tfont='#000000';
+            $tremark='';
+            $tpstart='&nbsp;';
+            $tpend='&nbsp;';
+            $tfont='#000000';
             if ($tstart) {
-		if ($tstart>$then) { 
-                    $tstatus='future';
-                    if ($tstart<$now) { $tstatus='will'; }
-                }
                 $tpstart=&Apache::lonlocal::locallocaltime($tstart);
             }
             if ($tend) {
-                if ($tend<$then) { 
-                    $tstatus='expired'; 
-                } elsif ($tend<$now) { 
-                    $tstatus='will_not'; 
-                }
                 $tpend=&Apache::lonlocal::locallocaltime($tend);
             }
             if ($ENV{'request.role'} eq $trolecode) {
@@ -510,8 +514,7 @@ ENDHEADER
                                     '</font>';
 			}
                     } else {
-                        my %newhash=Apache::lonnet::coursedescription
-                            ($tcourseid);
+                        my %newhash=&Apache::lonnet::coursedescription($tcourseid);
                         if (%newhash) {
 			    $sortkey=$role."\0".$tdom."\0".$newhash{'description'}.
 				"\0".$envkey;
@@ -536,41 +539,7 @@ ENDHEADER
 		    $sortkey=$role.$twhere;
                 }
  
-                $roletext.='<tr bgcolor='.$tbg.'>';
-                unless ($nochoose) {
-                    if (!$button) {
-			if ($switchserver) {
-			    $roletext.='<td><a href="/adm/logout?handover='.
-                              $switchserver.'">'.&mt('Switch Server').'</a></td>';
-                        } else {
-                            $roletext.=('<td>&nbsp;</td>');
-                        }
-                    } elsif ($tstatus eq 'is') {
-                        $roletext.=('<td><input type=submit value="'.
-				  &mt('Select').'" name="'.
-                                  $trolecode.'"></td>');
-                    } elsif ($tryagain) {
-                        $roletext.=
-			    '<td><input type=submit value="'.
-		  &mt('Try Selecting Again').'" name="'.$trolecode.'"></td>';
-                    } elsif ($advanced) {
-                        $roletext.=
-                            '<td><input type=submit value="'.
-		        &mt('Re-Initialize').'" name="'.$trolecode.'"></td>';
-                    } else {
-                        $roletext.='<td>&nbsp;</td>';
-                    }
-                }
-                $tremark.=&Apache::lonannounce::showday(time,1,
-                         &Apache::lonannounce::readcalendar($tdom.'_'.$trest));
-                
-		$roletext.='<td><font color="'.$tfont.'">'.$trole.
-                      '</font></td><td><font color="'.$tfont.'">'.$ttype.
-                      '</font></td><td><font color="'.$tfont.'">'.$twhere.
-                      '</font></td><td><font color="'.$tfont.'">'.$tpstart.
-                      '</font></td><td><font color="'.$tfont.'">'.$tpend.
-                      '</font></td><td><font color="'.$tfont.'">'.$tremark.
-                      '&nbsp;</font></td></tr>'."\n";
+                $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;}
 		$sortrole{$sortkey}=$envkey;
@@ -606,7 +575,7 @@ ENDHEADER
     unless ($nochoose) { $r->print('<th>&nbsp;</th>'); }
     $r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').
          '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.
-	      &mt('Remark').'</th></tr>'."\n");
+	      &mt('Remarks and Calendar Announcements').'</th></tr>'."\n");
     my $doheaders=-1;
     foreach my $type ('Construction Space','Course','Domain','System') {
 	my $haverole=0;
@@ -617,19 +586,51 @@ ENDHEADER
 	}
 	if ($haverole) { $doheaders++; }
     }
+
+    if ($ENV{'environment.recentroles'}) {
+        my %recent_roles =
+               &Apache::lonhtmlcommon::get_recent('roles',$ENV{'environment.recentrolesn'});
+	my $output='';
+	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) {
+        $r->print(&coursepick_jscript());
+        $r->print(&Apache::loncommon::coursebrowser_javascript());
+    }
     foreach my $type ('Construction Space','Course','Domain','System') {
 	my $output;
 	foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
 	    if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { 
-		$output.=&mt($roletext{$sortrole{$which}});
+		$output.=$roletext{$sortrole{$which}};
+                if ($sortrole{$which} =~ m-dc\./(\w+)/-) {
+                    if ($dcroles{$1}) {
+                        $output .= &allcourses_row($1);
+                    }
+                }
 	    }
 	}
 	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);	    
+	    $r->print($output);	
 	}
     }
     my $tremark='';
@@ -719,7 +720,272 @@ ENDHEADER
     }
     $r->print("</body></html>\n");
     return OK;
-} 
+}
+
+sub role_status {
+    my ($rolekey,$then,$now,$role,$where,$trolecode,$tstatus,$tstart,$tend) = @_;
+    my @pwhere = ();
+    if (exists($ENV{$rolekey}) && $ENV{$rolekey} ne '') {
+        (undef,undef,$$role,@pwhere)=split(/\./,$rolekey);
+        unless (!defined($$role) || $$role eq '') {
+            $$where=join('.',@pwhere);
+            $$trolecode=$$role.'.'.$$where;
+            ($$tstart,$$tend)=split(/\./,$ENV{$rolekey});
+            $$tstatus='is';
+            if ($$tstart && $$tstart>$then) {
+		$$tstatus='future';
+		if ($$tstart<$now) { $$tstatus='will'; }
+            }
+            if ($$tend) {
+                if ($$tend<$then) {
+                    $$tstatus='expired';
+                } elsif ($$tend<$now) {
+                    $$tstatus='will_not';
+                }
+            }
+        }
+    }
+}
+
+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.'">';
+    unless ($nochoose) {
+        if (!$button) {
+            if ($switchserver) {
+                $roletext.='<td><a href="/adm/logout?handover='.
+                $switchserver.'">'.&mt('Switch Server').'</a></td>';
+            } else {
+                $roletext.=('<td>&nbsp;</td>');
+            }
+        } elsif ($tstatus eq 'is') {
+            $roletext.=('<td><input type=submit value="'.
+                        &mt('Select').'" name="'.
+                        $trolecode.'"></td>');
+        } elsif ($tryagain) {
+            $roletext.=
+                '<td><input type=submit value="'.
+                &mt('Try Selecting Again').'" name="'.$trolecode.'"></td>';
+        } elsif ($advanced) {
+            $roletext.=
+                '<td><input type=submit value="'.
+                &mt('Re-Initialize').'" name="'.$trolecode.'"></td>';
+        } else {
+            $roletext.='<td>&nbsp;</td>';
+        }
+    }
+    $tremark.=&Apache::lonannounce::showday(time,1,
+                 &Apache::lonannounce::readcalendar($tdom.'_'.$trest));
+
+
+    $roletext.='<td><font color="'.$tfont.'">'.$trole.
+               '</font></td><td><font color="'.$tfont.'">'.$ttype.
+               '</font></td><td><font color="'.$tfont.'">'.$twhere.
+               '</font></td><td><font color="'.$tfont.'">'.$tpstart.
+               '</font></td><td><font color="'.$tfont.'">'.$tpend.
+               '</font></td><td><font color="'.$tfont.'">'.$tremark.
+               '&nbsp;</font></td></tr>'."\n";
+    return $roletext;
+}
+
+sub check_privs {
+    my ($cckey,$then,$now) = @_;
+    if ($ENV{$cckey}) {
+        my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);
+        &role_status($cckey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
+        unless (($tstatus eq 'is') || ($tstatus eq 'will_not')) {
+            &set_privileges($1,$2);
+        }
+    } else {
+        &set_privileges($1,$2);
+    }
+}
+
+sub check_fordc {
+    my ($dcroles,$then) = @_;
+    my $numdc = 0;
+    if ($ENV{'user.adv'}) {
+        foreach my $envkey (sort keys %ENV) {
+            if ($envkey=~/^user\.role\.dc\.\/(\w+)\/$/) {
+                my $dcdom = $1;
+                my $livedc = 1;
+                my ($tstart,$tend)=split(/\./,$ENV{$envkey});
+                if ($tstart && $tstart>$then) { $livedc = 0; }
+                if ($tend   && $tend  <$then) { $livedc = 0; }
+                if ($livedc) {
+                    $$dcroles{$dcdom} = $envkey;
+                    $numdc++;
+                }
+            }
+        }
+    }
+    return $numdc;
+}
+
+sub courselink {
+    my ($dcdom) = @_;
+    my $courseform=&Apache::loncommon::selectcourse_link
+                     ('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 $courseform.$hiddenitems;
+}
+
+sub coursepick_jscript {
+    my $verify_script = <<"END";
+<script>
+function verifyCoursePick(caller) {
+    var numbutton = getIndex(caller)
+    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
+                document.rolechoice.elements[numbutton+1].name = courseTarget
+                document.rolechoice.submit()
+            }
+        }
+        else {
+            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 {
+        alert("You can only use this screen to select courses in the current domain")
+    }
+}
+function getIndex(caller) {
+    for (var i=0;i<document.rolechoice.elements.length;i++) {
+        if (document.rolechoice.elements[i] == caller) {
+            return i;
+        }
+    }
+    return -1;
+}
+</script>
+END
+    return $verify_script;
+}
+
+sub processpick {
+    my $dcdom = shift;
+    my $process_pick = <<"END";
+<script>
+function process_pick(dom) {
+    var numbutton = getIndex(dom)
+    var pickedCourse = opener.document.rolechoice.dccourse_$dcdom.value
+    var pickedDomain = opener.document.rolechoice.dcdomain_$dcdom.value
+    if (opener.document.rolechoice.dcdomain_$dcdom.value == opener.document.rolechoice.origdom_$dcdom.value) {
+        if (pickedCourse != '') {
+            if (numbutton != -1) {
+                var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
+                opener.document.rolechoice.elements[numbutton+1].name = courseTarget
+                opener.document.rolechoice.submit()
+            }
+        }
+    }
+}
+ 
+function getIndex(dom) {
+    var callername = 'ccpick_'+dom
+    for (var i=0;i<opener.document.rolechoice.elements.length;i++) {
+        var elemname = opener.document.rolechoice.elements[i].name
+        if (elemname == callername) {
+            return i;
+        }
+    }
+    return -1;
+}
+</script>
+END
+    return $process_pick;
+}
+
+sub display_cc_role {
+    my $rolekey = shift;
+    my $roletext;
+    my $advanced = $ENV{'user.adv'};
+    my $tryagain = $ENV{'form.tryagain'};
+    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;
+            }
+            $twhere.="<br />".&mt('Domain').":".$1;
+            $roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,&mt('Course'),$twhere,'','','',1,'');
+        }
+    }
+    return $roletext;
+}
+
+sub allcourses_row {
+    my $dcdom = shift;
+    my $ccrole = Apache::lonnet::plaintext('cc');
+    my $selectlink = &courselink($dcdom);
+    my $output = '<tr bgcolor="#77FF77">'.
+              '<td><input type="button" value="'.
+              &mt('Select').'" name="ccpick_'.$dcdom.'"'.
+              'onClick="verifyCoursePick(this)">'.
+              '<input type="hidden" name="pick_'.$dcdom.'" value="1"></td>'.
+              '<td><font color="#002200">'.
+              $ccrole.'</font></td><td>'.&mt('Course').'</td>'.
+              '<td><font color="#002200">'.&mt('All courses').':<b>&nbsp;'.
+              $selectlink.'</b>'.
+              '<br />'.&mt('Domain').':'.$dcdom.'</font>'.
+              '<td colspan="4"><font color="#002200">'.
+              &mt('Course Coordinator access to all courses in domain').
+              ': <b>'.$dcdom.'</b></font></td></tr>'."\n";
+    return $output;
+}
+
+sub recent_filename {
+    my $area=shift;
+    return 'nohist_recent_'.&Apache::lonnet::escape($area);
+}
+
+sub set_privileges {
+    my ($dcdom,$pickedcourse) = @_;
+    my $area = '/'.$dcdom.'/'.$pickedcourse;
+    my $role = 'cc';
+    my $spec = $role.'.'.$area;
+    my $userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$ENV{'user.name'});
+    my %ccrole = ();
+    &Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);
+    my ($author,$adv)= &Apache::lonnet::set_userprivs(\$userroles,\%ccrole);
+    my @newprivs = split/\n/,$userroles;
+    my %newccroles = ();
+    foreach (@newprivs) {
+        my ($key,$val) = split/=/,$_;
+        $newccroles{$key} = $val;
+    }
+    &Apache::lonnet::appenv(%newccroles);
+    &Apache::lonnet::log($ENV{'user.domain'},
+                         $ENV{'user.name'},
+                         $ENV{'user.home'},
+                        "Role ".$role);
+    &Apache::lonnet::appenv(
+                          'request.role'        => $role,
+                          'request.role.domain' => $dcdom,
+                          'request.course.sec'  => '');
+    my $tadv=0;
+    if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
+    &Apache::lonnet::appenv('request.role.adv'    => $tadv);
+}
 
 1;
 __END__