--- loncom/auth/lonroles.pm	2004/08/03 18:53:27	1.97
+++ loncom/auth/lonroles.pm	2004/11/12 23:29:55	1.109
@@ -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.109 2004/11/12 23:29:55 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,23 +99,33 @@ sub handler {
 				"request.role"        => 'cm',
                                 "request.role.adv"    => $ENV{'user.adv'},
 				"request.role.domain" => $ENV{'user.domain'});
+
+# Check to see if the 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;
+                        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);
+                        }
+                    }
+                    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);
@@ -207,15 +219,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,6 +263,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('recent_roles',
+                                    $courseid,$formaction);
+                                }
+                            }
                             #
                             # Send the user to the course they selected
                             &redirect_user($r,&mt('Entering Course'),
@@ -274,6 +295,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 +407,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 +525,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;
@@ -606,7 +620,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,11 +631,19 @@ ENDHEADER
 	}
 	if ($haverole) { $doheaders++; }
     }
+    if ($numdc > 0) {
+        &select_recent_courses($r,\%roletext);
+    }
     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) {
@@ -629,7 +651,7 @@ ENDHEADER
 		$r->print("<tr bgcolor='#BBffBB'>".
 			  "<td align='center' colspan='7'>".&mt($type)."</td>");
 	    }
-	    $r->print($output);	    
+	    $r->print($output);	
 	}
     }
     my $tremark='';
@@ -719,7 +741,215 @@ 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 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 select_recent_courses {
+    my ($r,$roletext)=@_;
+    my $advanced = $ENV{'user.adv'};
+    my $tryagain = $ENV{'form.tryagain'};
+    my %recent=&Apache::lonnet::dump(&recent_filename('recent_roles'));
+    my $numrecent = 0;
+    my $roledisplay = '<tr bgcolor="#BBffBB">'.
+                   '<td align="center" colspan="7">'.
+                   &mt('Recent courses accessed by DC').
+                    '</td></tr>'."\n";
+    foreach my $courseid (sort keys %recent) {
+        unless ($courseid =~/^error\:/) {
+            print STDERR "$courseid\n";
+            my ($dom,$crs) = split/_/,$courseid;
+            $numrecent ++;
+            my $crskey = 'user.role.cc./'.$dom.'/'.$crs;
+            $roledisplay.=$$roletext{$crskey};
+        }
+    }
+    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__