--- loncom/auth/lonroles.pm	2004/08/23 18:57:16	1.98
+++ loncom/auth/lonroles.pm	2004/11/14 18:27:08	1.110
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.98 2004/08/23 18:57:16 albertel Exp $
+# $Id: lonroles.pm,v 1.110 2004/11/14 18:27:08 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,14 +82,20 @@ sub handler {
     my $now=time;
     my $then=$ENV{'user.login.time'};
     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'}) {
 	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"  => '',
@@ -96,23 +103,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;
+                }
+            }
+        }
+
+# 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 (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);
@@ -206,15 +225,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')) {
@@ -250,6 +269,15 @@ 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'),
@@ -273,6 +301,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;
+                    }
 		}
             }
         }
@@ -379,29 +413,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) {
@@ -509,8 +531,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,40 +557,7 @@ ENDHEADER
                 }
  
                 $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;
@@ -605,7 +593,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;
@@ -616,11 +604,19 @@ ENDHEADER
 	}
 	if ($haverole) { $doheaders++; }
     }
+    if ($numdc > 0) {
+        &display_recent_roles($r,\%roletext,\%recentroles);
+    }
     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) {
@@ -628,7 +624,7 @@ ENDHEADER
 		$r->print("<tr bgcolor='#BBffBB'>".
 			  "<td align='center' colspan='7'>".&mt($type)."</td>");
 	    }
-	    $r->print($output);	    
+	    $r->print($output);	
 	}
     }
     my $tremark='';
@@ -718,7 +714,287 @@ 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 $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);
+    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;
+}
+
+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) {
+        if (pickedCourse != '') {
+            if (numbutton != -1) {
+                var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
+                document.rolechoice.elements[numbutton+1].name = courseTarget
+                document.rolechoice.submit()
+            }
+        }
+        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");
+        }
+    }
+    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_recent_roles {
+    my ($r,$roletext,$recentroles)=@_;
+    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,'');
+                }
+            }
+            $roledisplay.=$$roletext{$rolekey};
+            $numrecent ++;
+        }
+    }
+    if ($numrecent > 0) {
+        $r->print("$roledisplay\n");
+    }
+}
+
+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__