[BACK]Return to lonuserutils.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonuserutils.pm between versions 1.10 and 1.11

version 1.10, 2007/12/05 19:11:37 version 1.11, 2007/12/05 21:23:14
Line 846  sub print_upload_manager_form { Line 846  sub print_upload_manager_form {
 }  }
   
 sub setup_date_selectors {  sub setup_date_selectors {
     my ($starttime,$endtime,$mode) = @_;      my ($starttime,$endtime,$mode,$nolink) = @_;
     if (! defined($starttime)) {      if (! defined($starttime)) {
         $starttime = time;          $starttime = time;
         unless ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {          unless ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
Line 867  sub setup_date_selectors { Line 867  sub setup_date_selectors {
             }              }
         }          }
     }      }
     my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',  
                                                             'startdate',      my $startdateform = 
                                                             $starttime);          &Apache::lonhtmlcommon::date_setter('studentform','startdate',$starttime,
     my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',              undef,undef,undef,undef,undef,undef,undef,$nolink);
                                                           'enddate',  
                                                           $endtime);      my $enddateform = 
           &Apache::lonhtmlcommon::date_setter('studentform','enddate',$endtime,
               undef,undef,undef,undef,undef,undef,undef,$nolink);
   
     if ($mode eq 'create_enrolldates') {      if ($mode eq 'create_enrolldates') {
         $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs',          $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs',
                                                             'startenroll',                                                              'startenroll',
Line 903  sub get_dates_from_form { Line 906  sub get_dates_from_form {
 }  }
   
 sub date_setting_table {  sub date_setting_table {
     my ($starttime,$endtime,$mode) = @_;      my ($starttime,$endtime,$mode,$bulkaction) = @_;
     my ($startform,$endform)=&setup_date_selectors($starttime,$endtime,$mode);      my $nolink;
       if ($bulkaction) {
           $nolink = 1;
       }
       my ($startform,$endform) = 
           &setup_date_selectors($starttime,$endtime,$mode,$nolink);
     my $dateDefault;      my $dateDefault;
     if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {      if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
         $dateDefault = ' ';          $dateDefault = ' ';
     } elsif ($mode ne 'construction_space' && $mode ne 'domain') {      } elsif ($mode ne 'construction_space' && $mode ne 'domain') {
         $dateDefault = '<nobr>'.          if (($bulkaction eq 'reenable') || 
         '<label><input type="checkbox" name="makedatesdefault" /> '.              ($bulkaction eq 'activate') || 
         &mt('make these dates the default for future enrollment').              ($bulkaction eq 'chgdates')) { 
         '</label></nobr>';              $dateDefault = '<span class="LC_nobreak">'.
                   '<label><input type="checkbox" name="makedatesdefault" /> '.
                   &mt('make these dates the default for future enrollment').
                   '</label></span>';
           }
     }      }
     my $perpetual = '<nobr><label><input type="checkbox" name="no_end_date"';      my $perpetual = '<span class="LC_nobreak"><label><input type="checkbox" name="no_end_date"';
     if (defined($endtime) && $endtime == 0) {      if (defined($endtime) && $endtime == 0) {
         $perpetual .= ' checked';          $perpetual .= ' checked';
     }      }
     $perpetual.= ' /> '.&mt('no ending date').'</label></nobr>';      $perpetual.= ' /> '.&mt('no ending date').'</label></span>';
     if ($mode eq 'create_enrolldates') {      if ($mode eq 'create_enrolldates') {
         $perpetual = '&nbsp;';          $perpetual = '&nbsp;';
     }      }
     my $result = &Apache::lonhtmlcommon::start_pick_box()."\n".      my $result = &Apache::lonhtmlcommon::start_pick_box()."\n";
                  &Apache::lonhtmlcommon::row_title(&mt('Starting Date'),      $result .= &Apache::lonhtmlcommon::row_title(&mt('Starting Date'),
                                                    'LC_oddrow_value')."\n".                                                       'LC_oddrow_value')."\n".
                  $startform."\n".                 $startform."\n".
                  &Apache::lonhtmlcommon::row_closure(1).                 &Apache::lonhtmlcommon::row_closure(1).
                  &Apache::lonhtmlcommon::row_title(&mt('Ending Date'),                 &Apache::lonhtmlcommon::row_title(&mt('Ending Date'), 
                                                    'LC_oddrow_value')."\n".                                                       'LC_oddrow_value')."\n".
                  $endform.'&nbsp;'.$perpetual.                 $endform.'&nbsp;'.$perpetual.
                  &Apache::lonhtmlcommon::row_closure(1).                 &Apache::lonhtmlcommon::row_closure(1).
                  &Apache::lonhtmlcommon::end_pick_box().'<br />';                 &Apache::lonhtmlcommon::end_pick_box().'<br />';
     if ($dateDefault) {      if ($dateDefault) {
         $result .=  $dateDefault.'<br />'."\n";          $result .=  $dateDefault.'<br />'."\n";
     }      }
Line 948  sub make_dates_default { Line 960  sub make_dates_default {
                 {'default_enrollment_start_date'=>$startdate,                  {'default_enrollment_start_date'=>$startdate,
                  'default_enrollment_end_date'  =>$enddate},$dom,$crs);                   'default_enrollment_end_date'  =>$enddate},$dom,$crs);
         if ($put_result eq 'ok') {          if ($put_result eq 'ok') {
             $result .= "Set default start and end dates for course<br />";              $result .= &mt('Set default start and end dates for course').
                          '<br />'."\n";
             #              #
             # Refresh the course environment              # Refresh the course environment
             &Apache::lonnet::coursedescription($env{'request.course.id'},              &Apache::lonnet::coursedescription($env{'request.course.id'},
Line 1240  sub print_userlist { Line 1253  sub print_userlist {
                   &Apache::lonhtmlcommon::end_pick_box().'</p>'.                    &Apache::lonhtmlcommon::end_pick_box().'</p>'.
                   '<p>'.&list_submit_button(&mt('Update Display')).                    '<p>'.&list_submit_button(&mt('Update Display')).
                   "\n</p>\n");                    "\n</p>\n");
           if ($env{'form.coursepick'}) {
               $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');
           }
       } else {
           $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');
     }      }
     $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');  
     $r->rflush();      $r->rflush();
     if ($context eq 'course') {      if ($context eq 'course') {
         my $classlist = &Apache::loncoursedata::get_classlist();          my $classlist = &Apache::loncoursedata::get_classlist();
Line 1269  sub print_userlist { Line 1286  sub print_userlist {
         my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,          my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
                                                         \@statuses,$showroles);                                                          \@statuses,$showroles);
         &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,          &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
                          \%advrolehash);                           \%advrolehash,$permission);
     } else {      } else {
         my (%cstr_roles,%dom_roles);          my (%cstr_roles,%dom_roles);
         if ($context eq 'construction_space') {          if ($context eq 'construction_space') {
Line 1278  sub print_userlist { Line 1295  sub print_userlist {
             %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef,              %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef,
                                               \@statuses,\@possroles);                                                \@statuses,\@possroles);
             &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,              &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
                              \%cstr_roles);                               \%cstr_roles,$permission);
         } elsif ($context eq 'domain') {          } elsif ($context eq 'domain') {
             if ($env{'form.roletype'} eq 'domain') {              if ($env{'form.roletype'} eq 'domain') {
                 %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'});                  %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'});
                 foreach my $key (keys(%dom_roles)) {                  foreach my $key (keys(%dom_roles)) {
                     if (ref($dom_roles{$key}) eq 'HASH') {                      if (ref($dom_roles{$key}) eq 'HASH') {
                         &gather_userinfo($context,$format,\%userlist,$indexhash,                          &gather_userinfo($context,$format,\%userlist,$indexhash,
                                          \%userinfo,$dom_roles{$key});                                           \%userinfo,$dom_roles{$key},$permission);
                     }                      }
                 }                  }
             } elsif ($env{'form.roletype'} eq 'construction_space') {              } elsif ($env{'form.roletype'} eq 'construction_space') {
Line 1295  sub print_userlist { Line 1312  sub print_userlist {
                     if (ref($dom_roles{$key}) eq 'HASH') {                      if (ref($dom_roles{$key}) eq 'HASH') {
                         if ($env{'form.showrole'} eq 'au') {                          if ($env{'form.showrole'} eq 'au') {
                             &gather_userinfo($context,$format,\%userlist,$indexhash,                              &gather_userinfo($context,$format,\%userlist,$indexhash,
                                              \%userinfo,$dom_roles{$key});                                               \%userinfo,$dom_roles{$key},$permission);
                         } else {                          } else {
                             my @possroles;                              my @possroles;
                             if ($env{'form.showrole'} eq 'Any') {                              if ($env{'form.showrole'} eq 'Any') {
Line 1311  sub print_userlist { Line 1328  sub print_userlist {
                                        $authordom,undef,\@statuses,\@possroles);                                         $authordom,undef,\@statuses,\@possroles);
                             }                              }
                             &gather_userinfo($context,$format,\%userlist,                              &gather_userinfo($context,$format,\%userlist,
                                              $indexhash,\%userinfo,\%coauthors);                                       $indexhash,\%userinfo,\%coauthors,$permission);
                         }                          }
                     }                      }
                 }                  }
Line 1324  sub print_userlist { Line 1341  sub print_userlist {
                             &Apache::lonnet::coursedescription($cid,{'one_time' => 1});                              &Apache::lonnet::coursedescription($cid,{'one_time' => 1});
                         my $cdom = $coursehash{'domain'};                          my $cdom = $coursehash{'domain'};
                         my $cnum = $coursehash{'num'};                          my $cnum = $coursehash{'num'};
                           next if ($cnum eq '' || $cdom eq '');
                         my $cdesc = $coursehash{'description'};                          my $cdesc = $coursehash{'description'};
                         my (@roles,@sections,%access,%users,%userdata,                          my (@roles,@sections,%access,%users,%userdata,
                             %statushash);                              %statushash);
Line 1356  sub print_userlist { Line 1374  sub print_userlist {
                         }                          }
                     }                      }
                     &gather_userinfo($context,$format,\%userlist,$indexhash,                      &gather_userinfo($context,$format,\%userlist,$indexhash,
                                      \%userinfo,\%allusers);                                       \%userinfo,\%allusers,$permission);
                 } else {                  } else {
                     $r->print('<input type="hidden" name="phase" value="'.                      $r->print('<input type="hidden" name="phase" value="'.
                               $env{'form.phase'}.'" /></form>');                                $env{'form.phase'}.'" /></form>');
Line 1399  sub print_userlist { Line 1417  sub print_userlist {
   
 sub list_submit_button {  sub list_submit_button {
     my ($text) = @_;      my ($text) = @_;
     return '<input type="submit" value="'.$text.'" />';      return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />';
 }  }
   
 sub gather_userinfo {  sub gather_userinfo {
     my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash) = @_;      my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;
     foreach my $item (keys(%{$rolehash})) {      foreach my $item (keys(%{$rolehash})) {
         @{$userlist->{$item}} = ();          @{$userlist->{$item}} = ();
         my %userdata;          my %userdata;
Line 1433  sub gather_userinfo { Line 1451  sub gather_userinfo {
                 ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =                  ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =
                     split(/:/,$item);                      split(/:/,$item);
                 if (ref($rolehash->{$item}) eq 'HASH') {                  if (ref($rolehash->{$item}) eq 'HASH') {
                       my $numcids = keys(%{$rolehash->{$item}});
                     foreach my $cid (sort(keys(%{$rolehash->{$item}}))) {                      foreach my $cid (sort(keys(%{$rolehash->{$item}}))) {
                         if (ref($rolehash->{$item}{$cid}) eq 'HASH') {                          if (ref($rolehash->{$item}{$cid}) eq 'HASH') {
                             my $spanstart = '';                              my $spanstart = '';
Line 1440  sub gather_userinfo { Line 1459  sub gather_userinfo {
                             my $space = ', ';                              my $space = ', ';
                             if ($format eq 'html' || $format eq 'view') {                              if ($format eq 'html' || $format eq 'view') {
                                 $spanstart = '<span class="LC_nobreak">';                                  $spanstart = '<span class="LC_nobreak">';
                                   if ($permission->{'cusr'}) {
                                       if ($numcids > 1) {
                                           $spanstart .= '<input type="radio" name="'.$item.'" value="'.$cid.'" &nbsp; />';
                                       } else {
                                           $spanstart .= '<input type="hidden" name="'.$item.'" value="'.$cid.'" &nbsp; />';
                                       }
                                   }
                                 $spanend = '</span><br />';                                  $spanend = '</span><br />';
                                 $space = ',&nbsp;';                                  $space = ',&nbsp;';
                             }                              }
Line 1462  sub gather_userinfo { Line 1488  sub gather_userinfo {
   
 sub build_user_record {  sub build_user_record {
     my ($userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;      my ($userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;
       next if ($userdata->{'start'} eq '-1' && $userdata->{'end'} eq '-1');
     &process_date_info($userdata);      &process_date_info($userdata);
     my $username = $userdata->{'username'};      my $username = $userdata->{'username'};
     my $domain = $userdata->{'domain'};      my $domain = $userdata->{'domain'};
Line 1717  sub show_users_list { Line 1744  sub show_users_list {
     if (!grep(/^\Q$sortby\E$/,@sortable)) {      if (!grep(/^\Q$sortby\E$/,@sortable)) {
         $sortby = 'username';          $sortby = 'username';
     }      }
       my $setting = $env{'form.roleaction'};
     my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers);      my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers);
     if ($context eq 'course') {      if ($context eq 'course') {
         $cid=$env{'request.course.id'};          $cid=$env{'request.course.id'};
Line 1751  function photowindow(photolink) { Line 1779  function photowindow(photolink) {
 END  END
     }      }
     unless ($mode eq 'autoenroll') {      unless ($mode eq 'autoenroll') {
           my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
           my $alert = &mt("You must select at least one user by checking a user's 'Select' checkbox");
           my $singconfirm = &mt(' for a single user');
           my $multconfirm = &mt(' for multiple users');
           my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode); 
         $r->print(<<END);          $r->print(<<END);
   
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
   $check_uncheck_js
   
   function verify_action (field) {
       var numchecked = 0;
       var singconf = '$singconfirm';
       var multconf = '$multconfirm';
       if (field.length > 0) {
           for (i = 0; i < field.length; i++) {
               if (field[i].checked == true) {
                  numchecked ++;
               }
           }
       } else {
           if (field.checked == true) {
               numchecked ++;
           }
       }
       if (numchecked == 0) {
           alert("$alert");
       } 
       else {
           var message = document.studentform.bulkaction[document.studentform.bulkaction.selectedIndex].text;
           if (numchecked == 1) { 
               message += singconf;
           } 
           else {
               message += multconf; 
           }
           if (confirm(message)) {
               document.studentform.phase.value = 'bulkchange';
               document.studentform.submit();
           }
       }
   }
   
 function username_display_launch(username,domain) {  function username_display_launch(username,domain) {
     var target;      var target;
Line 1774  function username_display_launch(usernam Line 1841  function username_display_launch(usernam
     }      }
 }  }
 </script>  </script>
   $date_sec_selector
 <input type="hidden" name="state" value="$env{'form.state'}" />  <input type="hidden" name="state" value="$env{'form.state'}" />
 END  END
     }      }
Line 1798  END Line 1865  END
                        'clicker'    => "clicker id",                         'clicker'    => "clicker id",
                        'photo'      => "photo",                         'photo'      => "photo",
                        'extent'     => "extent",                         'extent'     => "extent",
                          'pr'         => "Proceed",
                          'ca'         => "check all",
                          'ua'         => "uncheck all",
                          'ac'         => "Action to take for selected users",
                        'link'       => "Behavior of username links",                         'link'       => "Behavior of username links",
                        'aboutme'    => "Display a user's personal page",                         'aboutme'    => "Display a user's personal page",
                        'modify'     => "Modify a user's information",                         'modify'     => "Modify a user's information",
Line 1839  END Line 1910  END
     my $results_description = &results_header_row($rolefilter,$statusmode,      my $results_description = &results_header_row($rolefilter,$statusmode,
                                                   $context);                                                    $context);
     $r->print('<b>'.$results_description.'</b><br />');      $r->print('<b>'.$results_description.'</b><br />');
     my $output;      my ($output,$actionselect);
     if ($mode eq 'html' || $mode eq 'view') {      if ($mode eq 'html' || $mode eq 'view') {
           if ($permission->{'cusr'}) {
               $actionselect = &select_actions($context,$setting,$statusmode);
           }
         $r->print(<<END);          $r->print(<<END);
 <input type="hidden" name="srchby"  value="uname" />  <input type="hidden" name="srchby"  value="uname" />
 <input type="hidden" name="srchin"   value="dom" />  <input type="hidden" name="srchin"   value="dom" />
 <input type="hidden" name="srchtype" value="exact" />  <input type="hidden" name="srchtype" value="exact" />
 <input type="hidden" name="srchterm" value="" />  <input type="hidden" name="srchterm" value="" />
 <input type="hidden" name="srchdomain" value="" />  <input type="hidden" name="srchdomain" value="" /> 
 END  END
          if ($mode ne 'autoenroll') {           if ($mode ne 'autoenroll') {
              $output = '<p>';               $output = '<p>';
Line 1869  END Line 1943  END
              } else {               } else {
                  $output .= &mt("Click on a username to view the user's personal page.").'<br />';                   $output .= &mt("Click on a username to view the user's personal page.").'<br />';
              }               }
                if ($actionselect) {
                    $output .= <<"END"; 
   $lt{'ac'}:&nbsp;$actionselect <input type="button" value="$lt{'pr'}" onclick="javascript:verify_action(document.studentform.actionlist)" /></p>
   <p><input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.actionlist)" /> &nbsp;
   <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.actionlist)" />
   END
                }
         }          }
         $output .= "\n<p>\n".          $output .= "\n<p>\n".
                   &Apache::loncommon::start_data_table().                    &Apache::loncommon::start_data_table().
Line 1878  END Line 1959  END
  <th><a href=\"javascript:document.studentform.sortby.value='type';document.studentform.submit();\">$lt{'type'}</a></th>   <th><a href=\"javascript:document.studentform.sortby.value='type';document.studentform.submit();\">$lt{'type'}</a></th>
             ";              ";
         } else {          } else {
             $output .= "              $output .= "\n".'<th>'.&mt('Count').'</th>'."\n";
 <th>Count</th>              if ($actionselect) {
             ";                  $output .= '<th>'.&mt('Select').'</th>'."\n";
               }
         }          }
         foreach my $item (@cols) {          foreach my $item (@cols) {
             $output .= "<th><a href=\"javascript:document.studentform.sortby.value='$item';document.studentform.submit();\">$lt{$item}</a></th>\n";              $output .= "<th><a href=\"javascript:document.studentform.sortby.value='$item';document.studentform.submit();\">$lt{$item}</a></th>\n";
Line 1965  END Line 2047  END
     # Get groups, role, permanent e-mail so we can sort on them if      # Get groups, role, permanent e-mail so we can sort on them if
     # necessary.      # necessary.
     foreach my $user (keys(%{$userlist})) {      foreach my $user (keys(%{$userlist})) {
           if ($context eq 'domain' &&  $user eq $env{'request.role.domain'}.'-domainconfig:'.$env{'request.role.domain'}) {
               delete($userlist->{$user});
               next;
           }
         my ($uname,$udom,$role,$groups,$email);          my ($uname,$udom,$role,$groups,$email);
         if (($statusmode ne 'Any') &&           if (($statusmode ne 'Any') && 
                  ($userlist->{$user}->[$index{'status'}] ne $statusmode)) {                   ($userlist->{$user}->[$index{'status'}] ne $statusmode)) {
Line 1974  END Line 2060  END
         if ($context eq 'domain') {          if ($context eq 'domain') {
             if ($env{'form.roletype'} eq 'domain') {              if ($env{'form.roletype'} eq 'domain') {
                 ($role,$uname,$udom) = split(/:/,$user);                  ($role,$uname,$udom) = split(/:/,$user);
                                  if (($uname eq $env{'request.role.domain'}.'-domainconfig') &&
                       ($udom eq $env{'request.role.domain'})) {
                       delete($userlist->{$user});
                       next;
                   }
             } elsif ($env{'form.roletype'} eq 'construction_space') {              } elsif ($env{'form.roletype'} eq 'construction_space') {
                 ($uname,$udom,$role) = split(/:/,$user,-1);                  ($uname,$udom,$role) = split(/:/,$user,-1);
             } elsif ($env{'form.roletype'} eq 'course') {              } elsif ($env{'form.roletype'} eq 'course') {
Line 2035  END Line 2125  END
         foreach my $item (@{$keylist}) {          foreach my $item (@{$keylist}) {
             $in{$item} = $sdata->[$index{$item}];              $in{$item} = $sdata->[$index{$item}];
         }          }
           my $role = $in{'role'};
         $in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}]);           $in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}]); 
         if (! defined($in{'start'}) || $in{'start'} == 0) {          if (! defined($in{'start'}) || $in{'start'} == 0) {
             $in{'start'} = &mt('none');              $in{'start'} = &mt('none');
Line 2049  END Line 2140  END
         if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {          if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {
             $r->print(&Apache::loncommon::start_data_table_row());              $r->print(&Apache::loncommon::start_data_table_row());
             $r->print("<td>$rowcount</td>\n");              $r->print("<td>$rowcount</td>\n");
               my $checkval;
               if ($mode ne 'autoenroll' && $actionselect) {
                   $checkval = $user; 
                   if ($context eq 'course') {
                       if ($role eq 'st') {
                           $checkval .= ':st';
                       }
                       $checkval .= ':'.$in{'section'};
                       if ($role eq 'st') {
                           $checkval .= ':'.$in{'type'}.':'.$in{'lockedtype'};
                       }
                   }
                   $r->print('<td><input type="checkbox" name="actionlist" value="'.
                             $checkval.'"></td>');
               }
             foreach my $item (@cols) {              foreach my $item (@cols) {
                 if ($item eq 'username') {                  if ($item eq 'username') {
                     $r->print('<td>'.&print_username_link($permission,\%in).'</td>');                      $r->print('<td>'.&print_username_link($permission,\%in).'</td>');
                   } elsif (($item eq 'start' || $item eq 'end') && ($mode ne 'autoeroll') && ($actionselect)) {
                       $r->print('<td>'.$in{$item}.'<input type="hidden" name="'.$checkval.'_'.$item.'" value="'.$sdata->[$index{$item}].'" /></td>'."\n");
                 } else {                  } else {
                     $r->print('<td>'.$in{$item}.'</td>'."\n");                      $r->print('<td>'.$in{$item}.'</td>'."\n");
                 }                  }
Line 2159  sub role_type_names { Line 2267  sub role_type_names {
     return %lt;      return %lt;
 }  }
   
   sub select_actions {
       my ($context,$setting,$statusmode) = @_;
       my %lt = &Apache::lonlocal::texthash(
                   revoke   => "Revoke user roles",
                   delete   => "Delete user roles",
                   reenable => "Re-enable expired user roles",
                   activate => "Make future user roles active now",
                   chgdates  => "Change starting/ending dates",
                   chgsec   => "Change section associated with user roles",
       );
       my ($output,$options,%choices);
       if ($statusmode eq 'Any') {
           $options .= '
   <option value="chgdates">'.$lt{'chgdates'}.'</option>';
           $choices{'dates'} = 1;
       } else {
           if ($statusmode eq 'Active' || $statusmode eq 'Future') {
               $options .= '
   <option value="revoke">'.$lt{'revoke'}.'</option>';
           }
           if ($statusmode eq 'Future') {
               $options .= '
   <option value="activate">'.$lt{'activate'}.'</option>';
               $choices{'dates'} = 1;
           } elsif ($statusmode eq 'Expired') {
               $options .= '
   <option value="reenable">'.$lt{'reenable'}.'</option>';
               $choices{'dates'} = 1;
           }
       }
       if ($context eq 'domain') {
           $options .= '
   <option value="delete">'.$lt{'delete'}.'</option>';
       }
       if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course')) {
           if ($statusmode ne 'Expired') {
               $options .= '
   <option value="chgsec">'.$lt{'chgsec'}.'</option>';
               $choices{'sections'} = 1;
           }
       }
       if ($options) {
           $output = '<select name="bulkaction" onchange="javascript:opendatebrowser(this.form,'."'studentform'".')" />'."\n".
                     '<option value="" selected="selected">'.
                     &mt('Please select').'</option>'."\n".$options."\n".'</select>';
           if ($choices{'dates'}) {
               $output .= 
                   '<input type="hidden" name="startdate_month" value="" />'."\n".
                   '<input type="hidden" name="startdate_day" value="" />'."\n".
                   '<input type="hidden" name="startdate_year" value="" />'."\n".
                   '<input type="hidden" name="startdate_hour" value="" />'."\n".
                   '<input type="hidden" name="startdate_minute" value="" />'."\n".
                   '<input type="hidden" name="startdate_second" value="" />'."\n".
                   '<input type="hidden" name="enddate_month" value="" />'."\n".
                   '<input type="hidden" name="enddate_day" value="" />'."\n".
                   '<input type="hidden" name="enddate_year" value="" />'."\n".
                   '<input type="hidden" name="enddate_hour" value="" />'."\n".
                   '<input type="hidden" name="enddate_minute" value="" />'."\n".
                   '<input type="hidden" name="enddate_second" value="" />'."\n";
               if ($context eq 'course') {
                   $output .= '<input type="hidden" name="makedatesdefault" value="" />'."\n";
               }
           }
           if ($choices{'sections'}) {
               $output .= '<input type="hidden" name="retainsec" value= "" />'."\n".
                          '<input type="hidden" name="newsecs" value= "" />'."\n";
           }
       }
       return $output;
   }
   
   sub date_section_javascript {
       my ($context,$setting) = @_;
       my $title;
       if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course'))  {
           $title = &mt('Date and Section selector');
       } else {
           $title = &mt('Date selector');
       }
       my $output = '
   <script type="text/javascript">
       var stdeditbrowser;'."\n";
       $output .= <<"ENDONE";
       function opendatebrowser(callingform,formname) {
           var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;
           if (bulkaction == 'revoke' || bulkaction == 'delete' || bulkaction == '') {
               return;
           }
           var url = '/adm/createuser?';
           var type = '';
           var showrole = callingform.showrole.options[callingform.showrole.selectedIndex].value;
   ENDONE
       if ($context eq 'domain') {
           $output .= '
           type = callingform.roletype.options[callingform.roletype.selectedIndex].value;
   ';
       }
       my $width= '700';
       my $height = '400';
       $output .= <<"ENDTWO";
           url += 'action=dateselect&callingform=' + formname + 
                  '&roletype='+type+'&showrole='+showrole +'&bulkaction='+bulkaction;
           var title = '$title';
           var options = 'scrollbars=1,resizable=1,menubar=0';
           options += ',width=$width,height=$height';
           stdeditbrowser = open(url,title,options,'1');
           stdeditbrowser.focus();
       }
   </script>
   ENDTWO
       return $output;
   }
   
   sub date_section_selector {
       my ($context) = @_;
       my $callingform = $env{'form.callingform'};
       my $formname = 'dateselect';  
       my $groupslist = &get_groupslist();
       my $sec_js = &setsections_javascript($formname,$groupslist);
       my $output = <<"END";
   <script type="text/javascript">
   
   $sec_js
   
   function saveselections(formname) {
   
   END
       if ($env{'form.bulkaction'} eq 'chgsec') {
           $output .= <<"END";
           opener.document.$callingform.retainsec.value = formname.retainsec.value;
           setSections(formname);
           if (seccheck == 'ok') {
               opener.document.$callingform.newsecs.value = formname.sections.value;
               window.close();
           }
           return;
   END
       } else {
           if ($context eq 'course') {
               if (($env{'form.bulkaction'} eq 'reenable') || 
                   ($env{'form.bulkaction'} eq 'activate') || 
                   ($env{'form.bulkaction'} eq 'chgdates')) {
                   $output .= <<"END";
    
           if (formname.makedatesdefault.checked == true) {
               opener.document.$callingform.makedatesdefault.value = 1;
           }
           else {
               opener.document.$callingform.makedatesdefault.value = 0;
           }
   
   END
               }
           }
           $output .= <<"END";
       opener.document.$callingform.startdate_month.value =  formname.startdate_month.options[formname.startdate_month.selectedIndex].value;
       opener.document.$callingform.startdate_day.value =  formname.startdate_day.value;
       opener.document.$callingform.startdate_year.value = formname.startdate_year.value;
       opener.document.$callingform.startdate_hour.value =  formname.startdate_hour.options[formname.startdate_hour.selectedIndex].value;
       opener.document.$callingform.startdate_minute.value =  formname.startdate_minute.value;
       opener.document.$callingform.startdate_second.value = formname.startdate_second.value;
       opener.document.$callingform.enddate_month.value =  formname.enddate_month.options[formname.enddate_month.selectedIndex].value;
       opener.document.$callingform.enddate_day.value =  formname.enddate_day.value;
       opener.document.$callingform.enddate_year.value = formname.enddate_year.value;
       opener.document.$callingform.enddate_hour.value =  formname.enddate_hour.options[formname.enddate_hour.selectedIndex].value;
       opener.document.$callingform.enddate_minute.value =  formname.enddate_minute.value;
       opener.document.$callingform.enddate_second.value = formname.enddate_second.value;
       window.close();
   END
       }
       $output .= '
   }
   </script>
   ';
       my %lt = &Apache::lonlocal::texthash (
                    chac => 'Access dates to apply for selected users',
                    chse => 'Changes in section affiliation to apply to selected users',
                    fors => 'For student roles changing the section, will result in a section switch as students may only be in one section of a course at a time.',
                    forn => 'For a role in a course that is not a student role, a user may have roles in more than one section of a course at a time.',
                    reta => "Retain each user's current section affiliations?", 
                    dnap => '(Does not apply to student roles).', 
               );
       my ($date_items,$headertext);
       if ($env{'form.bulkaction'} eq 'chgsec') {
           $headertext = $lt{'chse'};
       } else {
           $headertext = $lt{'chac'};
           my $starttime;
           if (($env{'form.bulkaction'} eq 'activate') || 
               ($env{'form.bulkaction'} eq 'reenable')) {
               $starttime = time;
           }
           $date_items = &date_setting_table($starttime,undef,$context,
                                             $env{'form.bulkaction'});
       }
       $output .= '<h3>'.$headertext.'</h3>'.
                  '<form name="'.$formname.'" method="post">'."\n".
                   $date_items;
       if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') {
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           my %sections_count =
               &Apache::loncommon::get_sections($cdom,$cnum);
           my $info;
           if ($env{'form.showrole'} eq 'st') {
               $output .= '<p>'.$lt{'fors'}.'</p>'; 
           } elsif ($env{'form.shorole'} eq 'Any') {
               $output .= '<p>'.$lt{'fors'}.'</p>'.
                          '<p>'.$lt{'forn'}.'&nbsp;';
               $info = $lt{'reta'};
           } else {
               $output .= '<p>'.$lt{'forn'}.'&nbsp;';
               $info = $lt{'reta'};
           }
           if ($info) {
               $info .= '<span class="LC_nobreak">'.
                        '<label><input type="radio" name="retainsec" value="1" '.
                        'checked="checked" />'.&mt('Yes').'</label>&nbsp;&nbsp;'.
                        '<label><input type="radio" name="retainsec" value="0" />'.
                        &mt('No').'</label></span>';
               if ($env{'form.showrole'} eq 'Any') {
                   $info .= '<br />'.$lt{'dnap'};
               }
               $info .= '</p>';
           } else {
               $info = '<input type="hidden" name="retainsec" value="0" />'; 
           }
           my $sections_select .= &course_sections(\%sections_count,$env{'form.showrole'});
           my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".
                        &Apache::lonhtmlcommon::row_title(&mt('New section to assign'),'LC_oddrow_value')."\n".
                        '<table class="LC_createuser"><tr class="LC_section_row">'."\n".
                        '<td align="center">'.&mt('Existing sections')."\n".
                        '<br />'.$sections_select.'</td><td align="center">'.
                        &mt('New section').'<br />'."\n".
                        '<input type="text" name="newsec" size="15" />'."\n".
                        '<input type="hidden" name="sections" value="" />'."\n".
                        '</td></tr></table>'."\n".
                        &Apache::lonhtmlcommon::row_closure(1)."\n".
                        &Apache::lonhtmlcommon::end_pick_box().'</p>';
           $output .= $info.$secbox;
       }
       $output .= '<p>'.
   &mt('Use "Save" to update the main window with your selections.').'<br /><br />'.
   '<input type="button" name="dateselection" value="'.&mt('Save').'" onclick="javascript:saveselections(this.form)" /></p>'."\n".
   '</form>';
       return $output;
   }
   
 sub results_header_row {  sub results_header_row {
     my ($rolefilter,$statusmode,$context) = @_;      my ($rolefilter,$statusmode,$context) = @_;
     my ($description,$showfilter);      my ($description,$showfilter);
Line 2169  sub results_header_row { Line 2525  sub results_header_row {
         $description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': ';          $description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': ';
         if ($statusmode eq 'Expired') {          if ($statusmode eq 'Expired') {
             $description .= &mt('Users in course with expired [_1] roles',$showfilter);              $description .= &mt('Users in course with expired [_1] roles',$showfilter);
         }          } elsif ($statusmode eq 'Future') {
         if ($statusmode eq 'Future') {  
             $description .= &mt('Users in course with future [_1] roles',$showfilter);              $description .= &mt('Users in course with future [_1] roles',$showfilter);
         } elsif ($statusmode eq 'Active') {          } elsif ($statusmode eq 'Active') {
             $description .= &mt('Users in course with active [_1] roles',$showfilter);              $description .= &mt('Users in course with active [_1] roles',$showfilter);
Line 2907  sub print_expire_menu { Line 3262  sub print_expire_menu {
   
 # ================================================================== Phase four  # ================================================================== Phase four
   
 sub expire_user_list {  sub update_user_list {
     my ($r,$context) = @_;      my ($r,$context,$setting,$choice) = @_;
       my $now = time;
     my $count=0;      my $count=0;
     my @droplist = &Apache::loncommon::get_env_multiple('form.droplist');      my @changelist;
     foreach (@droplist) {      if ($choice ne '') {
         my ($uname,$udom)=split(/\:/,$_);          @changelist = &Apache::loncommon::get_env_multiple('form.actionlist');
         # drop student      } else {
         my $result = &modifystudent($udom,$uname,$env{'request.course.id'});          @changelist = &Apache::loncommon::get_env_multiple('form.droplist');
       }
       my %result_text = ( ok    => { 'revoke'   => 'Revoked',
                                      'delete'   => 'Deleted',
                                      'reenable' => 'Re-enabled',
                                      'activate' => 'Activated', 
                                    },
                           error => {'revoke'    => 'revoking',
                                     'delete'    => 'deleting',
                                     'reenable'  => 're-enabling',
                                     'activate'  => 'activating',
                                    },
                         );
       my ($startdate,$enddate);
       if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') {
           ($startdate,$enddate) = &get_dates_from_form();
       }
       foreach my $item (@changelist) {
           my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,@sections,
               $scopestem);
           if ($context eq 'course') {
               ($uname,$udom,$role,$sec,$type,$locktype) = split(/\:/,$item,-1);
               $cid = $env{'request.course.id'};
               $scopestem = '/'.$cid;
               $scopestem =~s/\_/\//g;
               if ($sec eq '') {
                   $scope = $scopestem;
               } else {
                   $scope = $scopestem.'/'.$sec;
               }
           } elsif ($context eq 'construction_space') {
               ($uname,$udom,$role) = split(/\:/,$item,-1);
               $scope = '/'.$env{'user.domain'}.'/'.$env{'user.name'};
           } elsif ($context eq 'domain') {
               if ($setting eq 'domain') {
                   ($role,$uname,$udom) = split(/\:/,$item,-1);
                   $scope = '/'.$env{'request.role.domain'}.'/';
               } elsif ($setting eq 'construction_space') { 
                   ($uname,$udom,$role,$scope) = split(/\:/,$item);
               } elsif ($setting eq 'course') {
                   ($uname,$udom,$role,$cid,$sec,$type,$locktype) = 
                       split(/\:/,$item);
                   $scope = '/'.$cid;
                   $scope =~s/\_/\//g;
                   if ($sec ne '') {
                       $scope .= '/'.$sec;
                   }
               }
           }
           my $plrole = &Apache::lonnet::plaintext($role);
           my ($uid,$first,$middle,$last,$gene,$sec);
           my $start = $env{'form.'.$item.'_start'};
           my $end = $env{'form.'.$item.'_end'};
           # revoke or delete user role
           if ($choice eq 'revoke') {
               $end = $now; 
               if ($role eq 'st') {
                   $result = 
                       &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);
               } else {
                   $result = 
                       &Apache::lonnet::revokerole($udom,$uname,$scope,$role);
               }
           } elsif ($choice eq 'delete') {
               $start = -1;
               $end = -1;
               if ($role eq 'st') {
   # FIXME - how does role deletion affect classlist?
                   &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);
               } else {
                   $result =
                       &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now,
                                                   0,1);
                }
           } else {
               #reenable, activate, change access dates or change section
               if ($choice ne 'chgsec') {
                   $start = $startdate; 
                   $end = $enddate;
               }
               if ($choice eq 'reenable') {
                   if ($role eq 'st') {
                       $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);
                   } else {
                       $result = 
                           &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
                                                       $now);
                   }
               } elsif ($choice eq 'activate') {
                   if ($role eq 'st') {
                       $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);
                   } else {
                       $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
                                               $now);
                   }
               } elsif ($choice eq 'chgdates') {
                   if ($role eq 'st') {
                       $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);
                   } else {
                       $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
                                                   $start);
                   }
               } elsif ($choice eq 'chgsec') {
                   my (@newsecs,$revresult,$nochg,@retained);
                   if ($role ne 'cc') {
                       @newsecs = split(/,/,$env{'form.newsecs'});
                   }
                   # remove existing section if not to be retained.   
                   if (!$env{'form.retainsec'}) {
                       if ($sec eq '') {
                           if (@newsecs == 0) {
                               $result = &mt('No change in section assignment (none)');
                               $nochg = 1;
                           }
                       } else {
                           if (!grep(/^\Q$sec\E$/,@newsecs)) {
                               $revresult =
                                  &Apache::lonnet::revokerole($udom,$uname,$scope,$role);
                           } else {
                               push(@retained,$sec);
                           }
                       }
                   } else {
                       push(@retained,$sec);
                   }
                   # add new sections
                   if (@newsecs == 0) {
                       if (!$nochg) {
                           if ($sec ne '') {
                               if ($role eq 'st') {
                                   $result = 
                                       &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid);
                               } else {
                                   my $newscope = $scopestem;
                                   $result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start);
                               }
                           }
                       }
                   } else {
                       foreach my $newsec (@newsecs) { 
                           if (!grep(/^\Q$newsec\E$/,@retained)) {
                               if ($role eq 'st') {
                                   $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid);
                               } else {
                                   my $newscope = $scopestem;
                                   if ($newsec ne '') {
                                      $newscope .= '/'.$newsec;
                                   }
                                   $result = &Apache::lonnet::assignrole($udom,$uname,
                                                           $newscope,$role,$end,$start);
                               }
                           }
                       }
                   }
               }
           }
         if ($result eq 'ok' || $result eq 'ok:') {          if ($result eq 'ok' || $result eq 'ok:') {
             $r->print(&mt('Dropped [_1]',$uname.'@'.$udom).'<br>');              $r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for [_3]",
                             $plrole,$scope,$uname.':'.$udom).'<br />');
             $count++;              $count++;
         } else {          } else {
             $r->print(              $r->print(
           &mt('Error dropping [_1]:[_2]',$uname.'@'.$udom,$result).                  &mt("Error $result_text{'error'}{$choice} [_1] in [_2] for [_3]:[_4]",
                       '<br />');                      $plrole,$scope,$uname.':'.$udom,$result).'<br />');
           }
       }
       $r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,users].",$count).'</b></p>');
       if ($count > 0) {
           if ($choice eq 'revoke') {
               $r->print('<p>'.&mt('Re-enabling will re-activate data for the role.</p>'));
           }
           # Flush the course logs so reverse user roles immediately updated
           &Apache::lonnet::flushcourselogs();
       }
       if ($env{'form.makedatesdefault'}) {
           if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') {
               $r->print(&make_dates_default($startdate,$enddate));
         }          }
     }      }
     $r->print('<p><b>'.&mt('Dropped [_1] user(s).',$count).'</b></p>');  
     $r->print('<p>'.&mt('Re-enrollment will re-activate data.')) if ($count);  
 }  }
   
 sub classlist_drop {  sub classlist_drop {
Line 3034  sub get_groupslist { Line 3557  sub get_groupslist {
         $groupslist = join('","',sort(keys(%curr_groups)));          $groupslist = join('","',sort(keys(%curr_groups)));
         $groupslist = '"'.$groupslist.'"';          $groupslist = '"'.$groupslist.'"';
     }      }
     return $groupslist;      return $groupslist; 
 }  }
   
 sub setsections_javascript {  sub setsections_javascript {
Line 3045  sub setsections_javascript { Line 3568  sub setsections_javascript {
         $finish = 'formname.submit()';          $finish = 'formname.submit()';
         $roleplace = 3;          $roleplace = 3;
     } else {      } else {
         $checkincluded = 'formname.name == "'.$form.'"';          $checkincluded = 'formname.name == "'.$form.'"'; 
         $finish = "seccheck = 'ok';";          $finish = "seccheck = 'ok';";
         $roleplace = 1;          $roleplace = 1;
         $setsection_js = "var seccheck = 'alert';";          $setsection_js = "var seccheck = 'alert';"; 
     }      }
     my %alerts = &Apache::lonlocal::texthash(      my %alerts = &Apache::lonlocal::texthash(
                     secd => 'Section designations do not apply to Course Coordinator roles.',                      secd => 'Section designations do not apply to Course Coordinator roles.',
Line 3061  sub setsections_javascript { Line 3584  sub setsections_javascript {
                     plch => 'Please choose a different section name.',                      plch => 'Please choose a different section name.',
                     mnot => 'may not be used as a section name, as it is the name of a course group.',                      mnot => 'may not be used as a section name, as it is the name of a course group.',
                     secn => 'Section names and group names must be distinct. Please choose a different section name.',                      secn => 'Section names and group names must be distinct. Please choose a different section name.',
                  );                   );                
     $setsection_js .= <<"ENDSECCODE";      $setsection_js .= <<"ENDSECCODE";
   
 function setSections(formname) {  function setSections(formname) {
Line 3141  function setSections(formname) { Line 3664  function setSections(formname) {
     $finish      $finish
 }  }
 ENDSECCODE  ENDSECCODE
     return $setsection_js;      return $setsection_js; 
 }  }
   
 1;  1;
Removed from v.1.10  
changed lines
  Added in v.1.11

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