Diff for /loncom/auth/lonroles.pm between versions 1.102 and 1.105

version 1.102, 2004/11/09 15:52:29 version 1.105, 2004/11/09 20:04:48
Line 36  use Apache::Constants qw(:common); Line 36  use Apache::Constants qw(:common);
 use Apache::File();  use Apache::File();
 use Apache::lonmenu;  use Apache::lonmenu;
 use Apache::loncommon;  use Apache::loncommon;
   use Apache::lonhtmlcommon;
 use Apache::lonannounce;  use Apache::lonannounce;
 use Apache::lonlocal;  use Apache::lonlocal;
   
Line 81  sub handler { Line 82  sub handler {
     my $now=time;      my $now=time;
     my $then=$ENV{'user.login.time'};      my $then=$ENV{'user.login.time'};
     my $envkey;      my $envkey;
       my $dcselect='';
   
   
 # ================================================================== Roles Init  # ================================================================== Roles Init
     if ($ENV{'form.selectrole'}) {      if ($ENV{'form.selectrole'}) {
           if ($ENV{'form.dcselected'}) {
               my $dcdom = $ENV{'form.dcselected'};
               my $dckey = 'user.role.dc./'.$dcdom.'/';
               if ($ENV{$dckey}) {
                   my ($dcstart,$dcend)=split(/\./,$ENV{$dckey});
                   my $active_dc = 1;
                   if ($dcstart) {
                       if ($dcstart>$then) {
                           $active_dc = 0;
                       }
                   }
                   if ($dcend) {
                       if ($dcend < $then) {
                           $active_dc = 0;
                       }
                   }
                   if ($active_dc) {
                       $dcselect = $dcdom;
                   }
               }
           }
  if ($ENV{'request.course.id'}) {   if ($ENV{'request.course.id'}) {
     my %temp=('logout_'.$ENV{'request.course.id'} => time);      my %temp=('logout_'.$ENV{'request.course.id'} => time);
     &Apache::lonnet::put('email_status',\%temp);      &Apache::lonnet::put('email_status',\%temp);
Line 239  ENDENTERKEY Line 262  ENDENTERKEY
   '.course.helper.not.run'}) {    '.course.helper.not.run'}) {
  $furl = "/adm/helper/course.initialization.helper";   $furl = "/adm/helper/course.initialization.helper";
     }      }
                               # Check to see if the user is a DC coming from the
                               # course selection page
                               my $dcflag = 0;
                               if ($ENV{'form.dccourse'}) {
                                   my $formaction = '/adm/roles/';
                                   my ($dcdom,$pickedcourse) = split/_/,$courseid;
                                   if ($ENV{'user.role.dc./'.$dcdom.'/'}) {
                                       &Apache::lonhtmlcommon::store_recent('cc_pickby_dc_'.$dcdom,
                                       $courseid,$formaction);
                                   }
                               }
                             #                              #
                             # Send the user to the course they selected                              # Send the user to the course they selected
                             &redirect_user($r,&mt('Entering Course'),                              &redirect_user($r,&mt('Entering Course'),
Line 262  ENDENTERKEY Line 296  ENDENTERKEY
                                        $redirect_url);                                         $redirect_url);
                         return OK;                          return OK;
                     }                      }
                       if ($role eq 'dc') {
                           unless ($dcselect) {
                               my $redirect_url = '/adm/menu/';
                               &redirect_user($r,&mt('Loading Domain Coordinator Menu'),
                                          $redirect_url);
                               return OK;
                           }
                       }
  }   }
             }              }
         }          }
Line 276  ENDENTERKEY Line 318  ENDENTERKEY
     return OK if $r->header_only;      return OK if $r->header_only;
   
     my $swinfo=&Apache::lonmenu::rawconfig();      my $swinfo=&Apache::lonmenu::rawconfig();
       my $setDCchoice = &dc_script();
     my $bodytag=&Apache::loncommon::bodytag('User Roles');      my $bodytag=&Apache::loncommon::bodytag('User Roles');
     my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,undef,undef,undef,undef,,&mt("Click here for help")).'</td></td></tr></table>';      my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,undef,undef,undef,undef,,&mt("Click here for help")).'</td></td></tr></table>';
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
Line 288  $helptag<br /> Line 331  $helptag<br />
 <script>  <script>
 $swinfo  $swinfo
 window.focus();  window.focus();
   $setDCchoice
 </script>  </script>
 ENDHEADER  ENDHEADER
   
Line 306  ENDHEADER Line 350  ENDHEADER
     my $tryagain=$ENV{'form.tryagain'};      my $tryagain=$ENV{'form.tryagain'};
   
 # -------------------------------------------------------- Generate Page Output  # -------------------------------------------------------- Generate Page Output
   # -------------------------------------------------------- Domain Coordinator? 
       if ($dcselect ne '') {
           &choosecourse_display($r,$dcselect,$then,$now);
           return OK;
       }
   
 # --------------------------------------------------------------- Error Header?  # --------------------------------------------------------------- Error Header?
     if ($error) {      if ($error) {
  $r->print("<h1>LON-CAPA Access Control</h1>");   $r->print("<h1>LON-CAPA Access Control</h1>");
Line 358  ENDHEADER Line 408  ENDHEADER
  $r->print('><input type=submit value="'.&mt('Display').'">');   $r->print('><input type=submit value="'.&mt('Display').'">');
     }      }
   
       my %dcroles = ();
       my $numdc = &check_fordc(\%dcroles,$then);
   
     my (%roletext,%sortrole,%roleclass);      my (%roletext,%sortrole,%roleclass);
     my $countactive=0;      my $countactive=0;
     my $inrole=0;      my $inrole=0;
Line 376  ENDHEADER Line 429  ENDHEADER
             $tpend='&nbsp;';              $tpend='&nbsp;';
             $tfont='#000000';              $tfont='#000000';
             if ($tstart) {              if ($tstart) {
  if ($tstart>$then) {   
                     $tstatus='future';  
                     if ($tstart<$now) { $tstatus='will'; }  
                 }  
                 $tpstart=&Apache::lonlocal::locallocaltime($tstart);                  $tpstart=&Apache::lonlocal::locallocaltime($tstart);
             }              }
             if ($tend) {              if ($tend) {
                 if ($tend<$then) {   
                     $tstatus='expired';   
                 } elsif ($tend<$now) {   
                     $tstatus='will_not';   
                 }  
                 $tpend=&Apache::lonlocal::locallocaltime($tend);                  $tpend=&Apache::lonlocal::locallocaltime($tend);
             }              }
             if ($ENV{'request.role'} eq $trolecode) {              if ($ENV{'request.role'} eq $trolecode) {
Line 495  ENDHEADER Line 539  ENDHEADER
                                     '</font>';                                      '</font>';
  }   }
                     } else {                      } else {
                         my %newhash=Apache::lonnet::coursedescription                          my %newhash=&Apache::lonnet::coursedescription($tcourseid);
                             ($tcourseid);  
                         if (%newhash) {                          if (%newhash) {
     $sortkey=$role."\0".$tdom."\0".$newhash{'description'}.      $sortkey=$role."\0".$tdom."\0".$newhash{'description'}.
  "\0".$envkey;   "\0".$envkey;
Line 602  ENDHEADER Line 645  ENDHEADER
  }   }
  if ($haverole) { $doheaders++; }   if ($haverole) { $doheaders++; }
     }      }
     foreach my $type ('Construction Space','Course','Domain','System') {      if ($numdc > 0) {
  my $output;           $r->print('<tr bgcolor="#BBffBB">'.
  foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {                        '<td align="center" colspan="7">'.
     if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {                         '<input type="hidden" name="all_cc_roles" value="1"/>'.
  $output.=$roletext{$sortrole{$which}};                        '<input type="hidden" name="dcselected" value=""/>'.
                         &mt('Domain').'</td>');
            foreach my $dcdom (keys %dcroles) {
                my $output = $roletext{$dcroles{$dcdom}};
                my $ccrole = Apache::lonnet::plaintext('cc');
                if ($ENV{'request.role'} =~ m-cc\./$dcdom/-) {
                    $output.=$roletext{'user.role.'.$ENV{'request.role'}};
                }
                $r->print($output);
                $r->print('<tr bgcolor="#77FF77">');
                $r->print('<td><input type="button" value="'.
                         &mt('Select').'" name="dcpick_'.$dcdom.'/" '.
                         'onClick="setDCchoice('."'$dcdom'".')"></td>'.
                         '<td><font color="#002200">'.
                         $ccrole.'</font></td><td>'.&mt('Course').'</td>'.
                         '<td><font color="#002200"><b>'.&mt('All courses').'</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");
            }
            foreach my $type ('Construction Space','Course','Domain','System') {
                my $output;
                foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
                   my $skiprole = 0;
                   foreach my $dcdom (keys %dcroles) {
                       if ($sortrole{$which} =~ m-(dc|cc)\./$dcdom/-) {
                           $skiprole = 1;
                           last;
                       }
                   }
                   if (($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) && (!$skiprole)) {
                       $output.=$roletext{$sortrole{$which}};
                   }
               }
               if ($output) {
                   if ($doheaders > 0) {
                       $r->print("<tr bgcolor='#BBffBB'>".
                             "<td align='center' colspan='7'>".&mt($type)."</td>
   ");
                   }
                   $r->print($output);
               }
           }
       } else {
           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.=$roletext{$sortrole{$which}};
           }
     }      }
  }      if ($output) {
  if ($output) {          if ($doheaders > 0) {
     if ($doheaders > 0) {      $r->print("<tr bgcolor='#BBffBB'>".
  $r->print("<tr bgcolor='#BBffBB'>".        "<td align='center' colspan='7'>".&mt($type)."</td>");
   "<td align='center' colspan='7'>".&mt($type)."</td>");          }
           $r->print($output);    
     }      }
     $r->print($output);              }
  }  
     }      }
     my $tremark='';      my $tremark='';
     my $tfont='#003300';      my $tfont='#003300';
Line 716  sub role_status { Line 809  sub role_status {
             $$trolecode=$$role.'.'.$$where;              $$trolecode=$$role.'.'.$$where;
             ($$tstart,$$tend)=split(/\./,$ENV{$rolekey});              ($$tstart,$$tend)=split(/\./,$ENV{$rolekey});
             $$tstatus='is';              $$tstatus='is';
             if ($$tstart) {              if ($$tstart && $$tstart>$then) {
                 if ($$tstart>$then) {   $$tstatus='future';
                     $$tstatus='future';   if ($$tstart<$now) { $$tstatus='will'; }
                     if ($$tstart<$now) { $$tstatus='will'; }  
                 }  
             }              }
             if ($$tend) {              if ($$tend) {
                 if ($$tend<$then) {                  if ($$tend<$then) {
                     $$tstatus='expired';                      $$tstatus='expired';
                     if ($$tend<$now) { $$tstatus='will_not'; }                  } elsif ($$tend<$now) {
                       $$tstatus='will_not';
                   }
               }
           }
       }
   }
   
   sub dc_script {
       my $response = (<<"END");
   function setDCchoice(caller) {
       var dcname = "dc./"+caller+"/"
       document.rolechoice.dcselected.value = caller
       document.rolechoice.elements[3].name = dcname
       document.rolechoice.submit()
   }
   END
       return $response;
   }
                                                                                    
   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 choosecourse_display {
       my ($r,$dcdom,$then,$now) = @_;
       my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'dom');
       my $verify_script = <<"END";
   <script>
   function verifyCoursePick() {
       var pickedCourse = document.roles.dccourse.value
       var pickedDomain = document.roles.dcdomain.value
       if (document.roles.dcdomain.value == document.roles.origdom.value) {
           if (pickedCourse != '') {
               var courseTarget = "cc./"+pickedDomain+"/"+pickedCourse
               document.roles.elements[0].value = 1
               document.roles.elements[0].name = courseTarget
               document.roles.selectrole.value = 1
               document.roles.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")
       }
   }
   </script>
   END
       my $courseform=&Apache::loncommon::selectcourse_link
                        ('roles','dccourse','dcdomain','coursedesc');
       $r->print($cb_jscript.$verify_script);
       my $formaction='/adm/roles';
       $formaction=~s/\/+/\//g;
       my $crs;
       &select_recent_courses($r,$dcdom,$then,$now);
       $r->print('<br /><form name="roles" method="post" action="'.$formaction.'" />');
       $r->print('<h3>'.&mt('Choose a course from domain').': '.$dcdom.'</h3><font size="+1">'.$courseform.'</font><br /><br />'.
                 '<input type="hidden" name="chosencourse" value=""/>'.
                 'Course Title: <input type="text" size="20" name="coursedesc" value=""><br />'.
                 'Course ID: <input type="text" size="15" name="dccourse" />'.
                 '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.
                 '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.
                 '<input type="hidden" name="selectrole" value="" />'.
                 '<br /><br /><input type="button" name="proceed" value="'.&mt('Enter this course').'" onClick="verifyCoursePick()" />'.
                 '</form>');
       return;
   }
   
   sub select_recent_courses {
       my ($r,$dcdom,$then,$now)=@_;
       my $advanced = $ENV{'user.adv'};
       my $tryagain = $ENV{'form.tryagain'};
       my %recent=&Apache::lonnet::dump(&recent_filename('cc_pickby_dc_'.$dcdom));
       my $numrecent = 0;
       my $roletext = '<h3>'.&mt('Enter a recently visited course').'</h3>'.
                      '<form name="rolechoice" action="/adm/roles" method="post">'.
                      '<table><tr><th>&nbsp;</th>'.
                      '<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').
                      '</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.
                      &mt('Remarks and Calendar Announcements').'</th></tr>'."\n".
                      '<tr bgcolor="#BBffBB">'.
                      '<td align="center" colspan="7">'.
                      &mt('Domain').' - '.&mt('Recent courses accessed in this domain').
                       '</td></tr>'."\n";
       foreach my $courseid (sort keys %recent) {
           unless ($courseid =~/^error\:/) {
               my ($dom,$crs) = split/_/,$courseid;
               if ($dom eq $dcdom) {
                   $numrecent ++;
                   my $crskey = 'user.role.cc./'.$dom.'/'.$crs;
                   my ($where,$trolecode,$role,$tstatus,$tend,$tstart,$tbg,$tfont,$tremark,$inrole,$tpstart,$tpend);
                   my $button = 1;
                   &role_status($crskey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
                   if ($tstart) {
                       $tpstart=&Apache::lonlocal::locallocaltime($tstart);
                   }
                   if ($tend) {
                       $tpend=&Apache::lonlocal::locallocaltime($tend);
                   }
                   my $ttype = &mt('Course');
                   my $twhere;
                   if ($ENV{'course.'.$courseid.'.description'}) {
                       $twhere=$ENV{'course.'.$courseid.'.description'};
                   }
                   my ($tdom,$trest,$tsection)=
                       split(/\//,Apache::lonnet::declutter($where));
                   if ($ENV{'request.role'} eq $trolecode) {
                       $tstatus='selected';
                   }
                   if ($tstatus eq 'is') {
                       $tbg='#77FF77';
                       $tfont='#003300';
                   } elsif ($tstatus eq 'future') {
                       $tbg='#FFFF77';
                       $button=0;
                   } elsif ($tstatus eq 'will') {
                       $tbg='#FFAA77';
                       $tremark.=&mt('Active at next login. ');
                   } elsif ($tstatus eq 'expired') {
                       $tbg='#FF7777';
                       $tfont='#330000';
                       $button=0;
                   } elsif ($tstatus eq 'will_not') {
                       $tbg='#AAFF77';
                       $tremark.=&mt('Expired after logout. ');
                   } elsif ($tstatus eq 'selected') {
                       $tbg='#11CC55';
                       $tfont='#002200';
                       $inrole=1;
                       $tremark.=&mt('Currently selected. ');
                   }
                   my $trole=Apache::lonnet::plaintext($role);
                   $roletext.='<tr bgcolor='.$tbg.'>';
                   if (!$button) {
                       $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";
               }
           }
       }
       if ($numrecent > 0) {
           $r->print($roletext.'</table><input type="hidden" '.
                     'name="selectrole" value="1" /></form>'."\n");
       }
   }
   
   sub recent_filename {
       my $area=shift;
       return 'nohist_recent_'.&Apache::lonnet::escape($area);
 }  }
   
 1;  1;

Removed from v.1.102  
changed lines
  Added in v.1.105


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>