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

Diff for /loncom/interface/lonuserutils.pm between versions 1.6 and 1.21

version 1.6, 2007/12/01 03:48:20 version 1.21, 2007/12/21 20:34:26
Line 35  use Apache::lonnet; Line 35  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA();  use Apache::longroup;
   use LONCAPA qw(:DEFAULT :match);
   
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
Line 45  sub modifystudent { Line 46  sub modifystudent {
     # if $csec is undefined, drop the student from all the courses matching      # if $csec is undefined, drop the student from all the courses matching
     # this one.  If $csec is defined, drop them from all other sections of      # this one.  If $csec is defined, drop them from all other sections of
     # this course and add them to section $csec      # this course and add them to section $csec
     my $cdom = $env{'course.'.$courseid.'.domain'};      my ($cnum,$cdom) = &get_course_identity($courseid);
     my $cnum = $env{'course.'.$courseid.'.num'};  
     my %roles = &Apache::lonnet::dump('roles',$udom,$unam);      my %roles = &Apache::lonnet::dump('roles',$udom,$unam);
     my ($tmp) = keys(%roles);      my ($tmp) = keys(%roles);
     # Bail out if we were unable to get the students roles      # Bail out if we were unable to get the students roles
Line 95  sub modifyuserrole { Line 95  sub modifyuserrole {
         }          }
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         $scope = '/'.$env{'request.role.domain'}.'/';          $scope = '/'.$env{'request.role.domain'}.'/';
     } elsif ($context eq 'construction_space') {      } elsif ($context eq 'author') {
         $scope =  '/'.$env{'user.domain'}.'/'.$env{'user.name'};          $scope =  '/'.$env{'user.domain'}.'/'.$env{'user.name'};
     }      }
     if ($context eq 'domain') {      if ($context eq 'domain') {
Line 135  sub modifyuserrole { Line 135  sub modifyuserrole {
   
 sub propagate_id_change {  sub propagate_id_change {
     my ($uname,$udom,$user) = @_;      my ($uname,$udom,$user) = @_;
     my (@types,@roles,@cdoms);      my (@types,@roles);
     @types = ('active','future');      @types = ('active','future');
     @roles = ('st');      @roles = ('st');
     my $idresult;      my $idresult;
     my %roleshash = &Apache::lonnet::get_my_roles($uname,      my %roleshash = &Apache::lonnet::get_my_roles($uname,
                         $udom,'userroles',\@types,\@roles,\@cdoms);                          $udom,'userroles',\@types,\@roles);
       my %args = (
                   one_time => 1,
                  );
     foreach my $item (keys(%roleshash)) {      foreach my $item (keys(%roleshash)) {
         my ($cnum,$cdom,$role) = split(/:/,$item);          my ($cnum,$cdom,$role) = split(/:/,$item);
         my ($start,$end) = split(/:/,$roleshash{$item});          my ($start,$end) = split(/:/,$roleshash{$item});
         if (&Apache::lonnet::is_course($cdom,$cnum)) {          if (&Apache::lonnet::is_course($cdom,$cnum)) {
             my %userupdate;              my $result = &update_classlist($cdom,$cnum,$udom,$uname,$user);
             my $result = &update_classlist($cdom,$cnum,$udom,$uname,\%userupdate);              my %coursehash = 
                   &Apache::lonnet::coursedescription($cdom.'_'.$cnum,\%args);
               my $cdesc = $coursehash{'description'};
               if ($cdesc eq '') { 
                   $cdesc = $cdom.'_'.$cnum;
               }
             if ($result eq 'ok') {              if ($result eq 'ok') {
                 $idresult .= "Classlist change: $uname:$udom - class -> $cnum:$cdom\n";                  $idresult .= &mt('Classlist update for "[_1]" in "[_2]".',$uname.':'.$udom,$cdesc).'<br />'."\n";
             } else {              } else {
                 $idresult .= "Error - $result -during classlist update for $uname:$udom in $cnum:$cdom\n";                  $idresult .= &mt('Error: "[_1]" during classlist update for "[_2]" in "[_3]".',$result,$uname.':'.$udom,$cdesc).'<br />'."\n";
             }              }
         }          }
     }      }
Line 202  sub domain_roles_select { Line 210  sub domain_roles_select {
     # domain context         # domain context   
     #      #
     # Role types      # Role types
     my @roletypes = ('domain','construction_space','course');      my @roletypes = ('domain','author','course');
     my %lt = &role_type_names();      my %lt = &role_type_names();
     #      #
     # build up the menu information to be passed to      # build up the menu information to be passed to
Line 224  sub domain_roles_select { Line 232  sub domain_roles_select {
         my @roles;          my @roles;
         if ($roletype eq 'domain') {          if ($roletype eq 'domain') {
             @roles = &domain_roles();              @roles = &domain_roles();
         } elsif ($roletype eq 'construction_space') {          } elsif ($roletype eq 'author') {
             @roles = &construction_space_roles();              @roles = &construction_space_roles();
         } else {          } else {
             @roles = &course_roles('domain');              my $custom = 1;
             unshift(@roles,'cr');              @roles = &course_roles('domain',undef,$custom);
         }          }
         my $order = ['Any',@roles];          my $order = ['Any',@roles];
         $select_menus{$roletype}->{'order'} = $order;           $select_menus{$roletype}->{'order'} = $order; 
Line 245  sub domain_roles_select { Line 253  sub domain_roles_select {
     }      }
     my $result = &Apache::loncommon::linked_select_forms      my $result = &Apache::loncommon::linked_select_forms
         ('studentform',('&nbsp;'x3).&mt('Role: '),$env{'form.roletype'},          ('studentform',('&nbsp;'x3).&mt('Role: '),$env{'form.roletype'},
          'roletype','showrole',\%select_menus,['domain','construction_space','course']);           'roletype','showrole',\%select_menus,['domain','author','course']);
     return $result;      return $result;
 }  }
   
Line 650  sub print_upload_manager_footer { Line 658  sub print_upload_manager_footer {
     my $formname;      my $formname;
     if ($context eq 'course') {      if ($context eq 'course') {
         $formname = 'document.studentform';          $formname = 'document.studentform';
     } elsif ($context eq 'construction_space') {      } elsif ($context eq 'author') {
         $formname = 'document.studentform';          $formname = 'document.studentform';
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         $formname = 'document.studentform';          $formname = 'document.studentform';
Line 701  sub print_upload_manager_footer { Line 709  sub print_upload_manager_footer {
         $Str .= '<h3>'.&mt('Settings for assigning roles:').'</h3>'."\n".          $Str .= '<h3>'.&mt('Settings for assigning roles:').'</h3>'."\n".
                 &mt('Pick the action to take on roles for these users:').'<br /><span class="LC_nobreak"><label><input type="radio" name="roleaction" value="norole" checked="checked" />&nbsp;'.&mt('No role changes').'</label>&nbsp;&nbsp;&nbsp;<label><input type="radio" name="roleaction" value="domain" />&nbsp;'.&mt('Add a domain role').'</label>&nbsp;&nbsp;&nbsp;<label><input type="radio" name="roleaction" value="course" />&nbsp;'.&mt('Add a course role').'</label></span>';                  &mt('Pick the action to take on roles for these users:').'<br /><span class="LC_nobreak"><label><input type="radio" name="roleaction" value="norole" checked="checked" />&nbsp;'.&mt('No role changes').'</label>&nbsp;&nbsp;&nbsp;<label><input type="radio" name="roleaction" value="domain" />&nbsp;'.&mt('Add a domain role').'</label>&nbsp;&nbsp;&nbsp;<label><input type="radio" name="roleaction" value="course" />&nbsp;'.&mt('Add a course role').'</label></span>';
     }      }
     if ($context eq 'construction_space') {      if ($context eq 'author') {
         $Str .= '<h3>'.&mt('Default role')."</h3>\n".          $Str .= '<h3>'.&mt('Default role')."</h3>\n".
                 &mt('Choose the role to assign to users without one specified in the uploaded file');                  &mt('Choose the role to assign to users without one specified in the uploaded file');
     } elsif ($context eq 'course') {      } elsif ($context eq 'course') {
Line 715  sub print_upload_manager_footer { Line 723  sub print_upload_manager_footer {
     my ($options,$cb_script,$coursepick) = &default_role_selector($context,'defaultrole',1);      my ($options,$cb_script,$coursepick) = &default_role_selector($context,'defaultrole',1);
     if ($context eq 'domain') {      if ($context eq 'domain') {
         $Str .= '<span class="LC_role_level">'.&mt('Domain Level').'</span><br />'.$options.'<br /><br /><span class="LC_role_level">'.&mt('Course Level').'</span><br />'.$cb_script.$coursepick;          $Str .= '<span class="LC_role_level">'.&mt('Domain Level').'</span><br />'.$options.'<br /><br /><span class="LC_role_level">'.&mt('Course Level').'</span><br />'.$cb_script.$coursepick;
     } elsif ($context eq 'construction_space') {      } elsif ($context eq 'author') {
         $Str .= $options;          $Str .= $options;
     } else {      } else {
         $Str .= '<table><tr><td><span class="LC_nobreak"<b>'.&mt('role').':&nbsp;</b>'.          $Str .= '<table><tr><td><span class="LC_nobreak"<b>'.&mt('role').':&nbsp;</b>'.
Line 754  sub forceid_change { Line 762  sub forceid_change {
     if ($context eq 'domain') {      if ($context eq 'domain') {
         $output .= '<label><input type="checkbox" name="recurseid"'.          $output .= '<label><input type="checkbox" name="recurseid"'.
                    ' value="yes">'.                      ' value="yes">'. 
   &mt('Update ID/Student Number in courses in which user is an Active or Future student, (if forcing change).').    &mt('Update ID/Student Number in courses in which user is Active/Future student,<br />(if forcing change).').
                    '</label></p>'."\n";                     '</label></p>'."\n";
     }      }
     return $output;      return $output;
Line 763  sub forceid_change { Line 771  sub forceid_change {
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub print_upload_manager_form {  sub print_upload_manager_form {
     my ($r,$context) = @_;      my ($r,$context,$permission) = @_;
     my $firstLine;      my $firstLine;
     my $datatoken;      my $datatoken;
     if (!$env{'form.datatoken'}) {      if (!$env{'form.datatoken'}) {
Line 845  sub print_upload_manager_form { Line 853  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 866  sub setup_date_selectors { Line 874  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 902  sub get_dates_from_form { Line 913  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 = '&nbsp;';          $dateDefault = '&nbsp;';
     } elsif ($mode ne 'construction_space' && $mode ne 'domain') {      } elsif ($mode ne 'author' && $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 941  sub make_dates_default { Line 961  sub make_dates_default {
     my ($startdate,$enddate,$context) = @_;      my ($startdate,$enddate,$context) = @_;
     my $result = '';      my $result = '';
     if ($context eq 'course') {      if ($context eq 'course') {
         my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};          my ($cnum,$cdom) = &get_course_identity();
         my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};  
         my $put_result = &Apache::lonnet::put('environment',          my $put_result = &Apache::lonnet::put('environment',
                 {'default_enrollment_start_date'=>$startdate,                  {'default_enrollment_start_date'=>$startdate,
                  'default_enrollment_end_date'  =>$enddate},$dom,$crs);                   'default_enrollment_end_date'  =>$enddate},$cdom,$cnum);
         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 964  sub default_role_selector { Line 984  sub default_role_selector {
     my ($context,$checkpriv) = @_;      my ($context,$checkpriv) = @_;
     my %customroles;      my %customroles;
     my ($options,$coursepick,$cb_jscript);      my ($options,$coursepick,$cb_jscript);
     if ($context ne 'construction_space') {      if ($context ne 'author') {
         %customroles = &my_custom_roles();          %customroles = &my_custom_roles();
     }      }
   
Line 978  sub default_role_selector { Line 998  sub default_role_selector {
                ' <option value="">'.&mt('Please select').'</option>'."\n";                  ' <option value="">'.&mt('Please select').'</option>'."\n"; 
     if ($context eq 'course') {      if ($context eq 'course') {
         $options .= &default_course_roles($context,$checkpriv,%customroles);          $options .= &default_course_roles($context,$checkpriv,%customroles);
     } elsif ($context eq 'construction_space') {      } elsif ($context eq 'author') {
         my @roles = &construction_space_roles($checkpriv);          my @roles = &construction_space_roles($checkpriv);
         foreach my $role (@roles) {          foreach my $role (@roles) {
            my $plrole=&Apache::lonnet::plaintext($role);             my $plrole=&Apache::lonnet::plaintext($role);
Line 1026  sub default_role_selector { Line 1046  sub default_role_selector {
 sub default_course_roles {  sub default_course_roles {
     my ($context,$checkpriv,%customroles) = @_;      my ($context,$checkpriv,%customroles) = @_;
     my $output;      my $output;
     my @roles = &course_roles($context,$checkpriv);      my $custom = 1;
       my @roles = &course_roles($context,$checkpriv,$custom);
     foreach my $role (@roles) {      foreach my $role (@roles) {
         my $plrole=&Apache::lonnet::plaintext($role);          my $plrole=&Apache::lonnet::plaintext($role);
         $output .= '  <option value="'.$role.'">'.$plrole.'</option>';          $output .= '  <option value="'.$role.'">'.$plrole.'</option>';
Line 1044  sub default_course_roles { Line 1065  sub default_course_roles {
   
 sub construction_space_roles {  sub construction_space_roles {
     my ($checkpriv) = @_;      my ($checkpriv) = @_;
     my @allroles = ('ca','aa');      my @allroles = &roles_by_context('author');
     my @roles;      my @roles;
     if ($checkpriv) {      if ($checkpriv) {
         foreach my $role (@allroles) {          foreach my $role (@allroles) {
Line 1060  sub construction_space_roles { Line 1081  sub construction_space_roles {
   
 sub domain_roles {  sub domain_roles {
     my ($checkpriv) = @_;      my ($checkpriv) = @_;
     my @allroles = ('dc','li','dg','au','sc');      my @allroles = &roles_by_context('domain');
     my @roles;      my @roles;
     if ($checkpriv) {      if ($checkpriv) {
         foreach my $role (@allroles) {          foreach my $role (@allroles) {
Line 1075  sub domain_roles { Line 1096  sub domain_roles {
 }  }
   
 sub course_roles {  sub course_roles {
     my ($context,$checkpriv) = @_;      my ($context,$checkpriv,$custom) = @_;
     my @allroles = ('st','ta','ep','in','cc');      my @allroles = &roles_by_context('course',$custom);
     my @roles;      my @roles;
     if ($context eq 'domain') {      if ($context eq 'domain') {
         @roles = @allroles;          @roles = @allroles;
Line 1106  sub course_roles { Line 1127  sub course_roles {
   
 sub curr_role_permissions {  sub curr_role_permissions {
     my ($context,$setting,$checkpriv) = @_;       my ($context,$setting,$checkpriv) = @_; 
       my $custom = 1;
     my @roles;      my @roles;
     if ($context eq 'construction_space') {      if ($context eq 'author') {
         @roles = &construction_space_roles($checkpriv);          @roles = &construction_space_roles($checkpriv);
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         if ($setting eq 'course') {          if ($setting eq 'course') {
             @roles = &course_roles($context,$checkpriv);               @roles = &course_roles($context,$checkpriv,$custom); 
         } else {          } else {
             @roles = &domain_roles($checkpriv);              @roles = &domain_roles($checkpriv);
         }          }
     } elsif ($context eq 'course') {      } elsif ($context eq 'course') {
         @roles = &course_roles($context,$checkpriv);          @roles = &course_roles($context,$checkpriv,$custom);
     }      }
     return @roles;      return @roles;
 }  }
Line 1148  sub print_userlist { Line 1170  sub print_userlist {
         ($env{'form.Status'});          ($env{'form.Status'});
   
     if ($env{'form.showrole'} eq '') {      if ($env{'form.showrole'} eq '') {
         $env{'form.showrole'} = 'Any';          if ($context eq 'course') {
               $env{'form.showrole'} = 'st';
           } else {
               $env{'form.showrole'} = 'Any';            
           }
     }      }
     if (! defined($env{'form.output'}) ||      if (! defined($env{'form.output'}) ||
         $env{'form.output'} !~ /^(csv|excel|html)$/ ) {          $env{'form.output'} !~ /^(csv|excel|html)$/ ) {
Line 1239  sub print_userlist { Line 1265  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 1257  sub print_userlist { Line 1287  sub print_userlist {
             }              }
         }          }
         my $cid =$env{'request.course.id'};          my $cid =$env{'request.course.id'};
         my $cdom=$env{'course.'.$cid.'.domain'};          my ($cnum,$cdom) = &get_course_identity($cid);
         my $cnum=$env{'course.'.$cid.'.num'};  
         my $showroles;          my $showroles;
         if ($env{'form.showrole'} ne 'Any') {          if ($env{'form.showrole'} ne 'Any') {
             $showroles = [$env{'form.showrole'}];              $showroles = [$env{'form.showrole'}];
Line 1268  sub print_userlist { Line 1297  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 'author') {
             # List co-authors and assistant co-authors              # List co-authors and assistant co-authors
             my @possroles = ('ca','aa');              my @possroles = &roles_by_context($context);
             %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 'author') {
                 my %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'},['au']);                  my %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'},['au']);
                 my %coauthors;                  my %coauthors;
                 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') {
                         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') {
                                 @possroles = ('ca','aa');                                  my @possroles = &roles_by_context($context);
                             } else {                              } else {
                                 @possroles = ($env{'form.showrole'});                                   @possroles = ($env{'form.showrole'}); 
                             }                              }
Line 1310  sub print_userlist { Line 1339  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 1321  sub print_userlist { Line 1350  sub print_userlist {
                     foreach my $cid (keys(%courses)) {                      foreach my $cid (keys(%courses)) {
                         my %coursehash =                          my %coursehash =
                             &Apache::lonnet::coursedescription($cid,{'one_time' => 1});                              &Apache::lonnet::coursedescription($cid,{'one_time' => 1});
                         my $cdom = $coursehash{'domain'};                          my ($cnum,$cdom,$cdesc) = &get_course_identity($cid);
                         my $cnum = $coursehash{'num'};                          next if ($cnum eq '' || $cdom eq '');
                         my $cdesc = $coursehash{'description'};                          my $custom = 1;
                         my (@roles,@sections,%access,%users,%userdata,                          my (@roles,@sections,%access,%users,%userdata,
                             %statushash);                              %statushash);
                         if ($env{'form.showrole'} eq 'Any') {                          if ($env{'form.showrole'} eq 'Any') {
                             @roles = &course_roles($context);                              @roles = &course_roles($context,undef,$custom);
                             unshift(@roles,'cr');                              unshift(@roles,'cr');
                         } else {                          } else {
                             @roles = ($env{'form.showrole'});                              @roles = ($env{'form.showrole'});
Line 1355  sub print_userlist { Line 1384  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="'.
                                 $env{'form.phase'}.'" /></form>');
                     return;                      return;
                 }                  }
             }              }
         }          }
     }      }
     if (keys(%userlist) == 0) {      if (keys(%userlist) == 0) {
         if ($context eq 'construction_space') {          if ($context eq 'author') {
             $r->print(&mt('There are no co-authors to display.')."\n");              $r->print(&mt('There are no co-authors to display.')."\n");
         } elsif ($context eq 'domain') {          } elsif ($context eq 'domain') {
             if ($env{'form.roletype'} eq 'domain') {              if ($env{'form.roletype'} eq 'domain') {
                 $r->print(&mt('There are no users with domain roles to display.')."\n");                  $r->print(&mt('There are no users with domain roles to display.')."\n");
             } elsif ($env{'form.roletype'} eq 'construction_space') {              } elsif ($env{'form.roletype'} eq 'author') {
                 $r->print(&mt('There are no authors or co-authors to display.')."\n");                  $r->print(&mt('There are no authors or co-authors to display.')."\n");
             } elsif ($env{'form.roletype'} eq 'course') {              } elsif ($env{'form.roletype'} eq 'course') {
                 $r->print(&mt('There are no course users to display')."\n");                   $r->print(&mt('There are no course users to display')."\n"); 
Line 1380  sub print_userlist { Line 1411  sub print_userlist {
         # Print out the available choices          # Print out the available choices
         my $usercount;          my $usercount;
         if ($env{'form.action'} eq 'modifystudent') {          if ($env{'form.action'} eq 'modifystudent') {
             ($usercount) = &show_users_list($r,$context,'view','modify',              ($usercount) = &show_users_list($r,$context,'view',$permission,
                                  $env{'form.Status'},\%userlist,$keylist);                                   $env{'form.Status'},\%userlist,$keylist);
         } else {          } else {
             ($usercount) = &show_users_list($r,$context,$env{'form.output'},              ($usercount) = &show_users_list($r,$context,$env{'form.output'},
                                'aboutme',$env{'form.Status'},\%userlist,$keylist);                                 $permission,$env{'form.Status'},\%userlist,$keylist);
         }          }
         if (!$usercount) {          if (!$usercount) {
             $r->print('<br />'.&mt('There are no users matching the search criteria.'));               $r->print('<br />'.&mt('There are no users matching the search criteria.')); 
         }          }
     }      }
     $r->print('</form>');      $r->print('<input type="hidden" name="phase" value="'.
                 $env{'form.phase'}.'" /></form>');
 }  }
   
 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;
         if ($context eq 'construction_space' || $context eq 'course') {           if ($context eq 'author' || $context eq 'course') { 
             ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =              ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =
                 split(/:/,$item);                  split(/:/,$item);
             ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});              ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});
Line 1414  sub gather_userinfo { Line 1446  sub gather_userinfo {
                     split(/:/,$item);                      split(/:/,$item);
                 ($userdata{'end'},$userdata{'start'})=split(/:/,$rolehash->{$item});                  ($userdata{'end'},$userdata{'start'})=split(/:/,$rolehash->{$item});
                 &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);                  &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);
             } elsif ($env{'form.roletype'} eq 'construction_space') {              } elsif ($env{'form.roletype'} eq 'author') {
                 if (ref($rolehash->{$item}) eq 'HASH') {                  if (ref($rolehash->{$item}) eq 'HASH') {
                     $userdata{'extent'} = $item;                      $userdata{'extent'} = $item;
                     foreach my $key (keys(%{$rolehash->{$item}})) {                      foreach my $key (keys(%{$rolehash->{$item}})) {
Line 1429  sub gather_userinfo { Line 1461  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 1436  sub gather_userinfo { Line 1469  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 1458  sub gather_userinfo { Line 1498  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 1492  sub courses_selector { Line 1533  sub courses_selector {
     my $format_reply;      my $format_reply;
     my $jscript = '';      my $jscript = '';
   
     my $totcodes =      my $totcodes = 0;
       $totcodes =
         &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,          &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,
                                                       $cdom,$totcodes);                                                        $cdom,$totcodes);
     if ($totcodes > 0) {      if ($totcodes > 0) {
Line 1694  sub process_date_info { Line 1736  sub process_date_info {
 }  }
   
 sub show_users_list {  sub show_users_list {
     my ($r,$context,$mode,$linkto,$statusmode,$userlist,$keylist)=@_;      my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist)=@_;
     #      #
     # Variables for excel output      # Variables for excel output
     my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);      my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);
Line 1712  sub show_users_list { Line 1754  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'};
         $cdom = $env{'course.'.$cid.'.domain'};          ($cnum,$cdom) = &get_course_identity($cid);
         $cnum = $env{'course.'.$cid.'.num'};  
         ($classgroups) = &Apache::loncoursedata::get_group_memberships(          ($classgroups) = &Apache::loncoursedata::get_group_memberships(
                                      $userlist,$keylist,$cdom,$cnum);                                       $userlist,$keylist,$cdom,$cnum);
         if (! exists($env{'form.displayphotos'})) {          if ($mode eq 'autoenroll') {
             $env{'form.displayphotos'} = 'off';              $env{'form.showrole'} = 'st';
         }          } else {
         $displayphotos = $env{'form.displayphotos'};              if (! exists($env{'form.displayphotos'})) {
         if (! exists($env{'form.displayclickers'})) {                  $env{'form.displayphotos'} = 'off';
             $env{'form.displayclickers'} = 'off';              }
         }              $displayphotos = $env{'form.displayphotos'};
         $displayclickers = $env{'form.displayclickers'};              if (! exists($env{'form.displayclickers'})) {
         if ($env{'course.'.$cid.'.internal.showphoto'}) {                  $env{'form.displayclickers'} = 'off';
             $r->print('              }
               $displayclickers = $env{'form.displayclickers'};
               if ($env{'course.'.$cid.'.internal.showphoto'}) {
                   $r->print('
 <script type="text/javascript">  <script type="text/javascript">
 function photowindow(photolink) {  function photowindow(photolink) {
     var title = "Photo_Viewer";      var title = "Photo_Viewer";
Line 1738  function photowindow(photolink) { Line 1783  function photowindow(photolink) {
     stdeditbrowser.focus();      stdeditbrowser.focus();
 }  }
 </script>  </script>
            ');                 ');
         }              }
         $r->print(<<END);              $r->print(<<END);
 <input type="hidden" name="displayphotos" value="$displayphotos" />  <input type="hidden" name="displayphotos" value="$displayphotos" />
 <input type="hidden" name="displayclickers" value="$displayclickers" />  <input type="hidden" name="displayclickers" value="$displayclickers" />
 END  END
           }
     }      }
     unless ($mode eq 'autoenroll') {      if ($mode ne '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">
   $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) {
       var target;
       for (var i=0; i<document.studentform.usernamelink.length; i++) {
           if (document.studentform.usernamelink[i].checked) {
               target = document.studentform.usernamelink[i].value;
           }
       }
       if (target == 'modify') {
           document.studentform.srchterm.value=username;
           document.studentform.srchdomain.value=domain;
           document.studentform.phase.value='get_user_info';
           document.studentform.action.value = 'singleuser';
           document.studentform.submit();
       }
       else {
           document.location.href = '/adm/'+domain+'/'+username+'/aboutme';
       }
   }
   </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 1770  END Line 1878  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",
                          'aboutme'    => "Display a user's personal page",
                          'modify'     => "Modify a user's information",
                       );                        );
     if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {      if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
         $lt{'extent'} = &mt('Course(s): description, section(s), status');          $lt{'extent'} = &mt('Course(s): description, section(s), status');
     } elsif ($context eq 'construction_space') {      } elsif ($context eq 'author') {
         $lt{'extent'} = &mt('Author');           $lt{'extent'} = &mt('Author'); 
     }      }
     my @cols = ('username','domain','id','fullname');      my @cols = ('username','domain','id','fullname');
Line 1786  END Line 1901  END
     if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') {      if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') {
         push(@cols,'role');          push(@cols,'role');
     }      }
     if ($context eq 'domain' && ($env{'form.roletype'} eq 'construction_space' ||      if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' ||
                                 $env{'form.roletype'} eq 'course')) {                                  $env{'form.roletype'} eq 'course')) {
         push (@cols,'extent');          push (@cols,'extent');
     }      }
Line 1805  END Line 1920  END
     } elsif ($env{'form.showrole'} ne 'Any') {      } elsif ($env{'form.showrole'} ne 'Any') {
         $rolefilter = &Apache::lonnet::plaintext($env{'form.showrole'});          $rolefilter = &Apache::lonnet::plaintext($env{'form.showrole'});
     }      }
     my $results_description = &results_header_row($rolefilter,$statusmode,      my $results_description;
                                                   $context);      if ($mode ne 'autoenroll') {
     $r->print('<b>'.$results_description.'</b><br />');          $results_description = &results_header_row($rolefilter,$statusmode,
     my $output;                                                     $context,$permission);
     if ($mode eq 'html' || $mode eq 'view') {          $r->print('<b>'.$results_description.'</b><br />');
         $r->print(<<END);      }
 <input type="hidden" name="sname"  value="" />      my ($output,$actionselect);
 <input type="hidden" name="sdom"   value="" />      if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll') {
           if ($mode ne 'autoenroll') {
               if ($permission->{'cusr'}) {
                   $actionselect = &select_actions($context,$setting,$statusmode);
               }
               $r->print(<<END);
   <input type="hidden" name="srchby"  value="uname" />
   <input type="hidden" name="srchin"   value="dom" />
   <input type="hidden" name="srchtype" value="exact" />
   <input type="hidden" name="srchterm" value="" />
   <input type="hidden" name="srchdomain" value="" /> 
 END  END
         if ($linkto eq 'aboutme') {              $output = '<p>';
             $output = &mt("Select a user name to view the user's personal page.");              my @linkdests = ('aboutme');
         } elsif ($linkto eq 'modify') {              if ($permission->{'cusr'}) {
             $output = &mt("Select a user name to modify the user's information");                  push (@linkdests,'modify');
                   $output .= '<span class="LC_nobreak">'.$lt{'link'}.':&nbsp;';
                   my $usernamelink = $env{'form.usernamelink'};
                   if ($usernamelink eq '') {
                       $usernamelink = 'aboutme';
                   }
                   foreach my $item (@linkdests) {
                       my $checkedstr = '';
                       if ($item eq $usernamelink) {
                           $checkedstr = ' checked="checked" ';
                       }
                       $output .= '<label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.'>&nbsp;'.$lt{$item}.'</label>&nbsp;&nbsp;';
                   }
                   $output .= '</span><br />';
               } else {
                   $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 1827  END Line 1975  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";
         }          }
         my %role_types = &role_type_names();          my %role_types = &role_type_names();
         if ($context eq 'course') {          if ($context eq 'course' && $mode ne 'autoenroll') {
             if ($env{'form.showrole'} eq 'st' || $env{'form.showrole'} eq 'Any') {              if ($env{'form.showrole'} eq 'st' || $env{'form.showrole'} eq 'Any') {
                 # Clicker display on or off?                  # Clicker display on or off?
                 my %clicker_options = &Apache::lonlocal::texthash(                  my %clicker_options = &Apache::lonlocal::texthash(
Line 1869  END Line 2018  END
                       '    </th>'."\n";                        '    </th>'."\n";
                 }                  }
             }              }
             $output .= &Apache::loncommon::end_data_table_header_row();  
         }          }
           $output .= &Apache::loncommon::end_data_table_header_row();
 # Done with the HTML header line  # Done with the HTML header line
     } elsif ($mode eq 'csv') {      } elsif ($mode eq 'csv') {
         #          #
Line 1914  END Line 2063  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 1923  END Line 2076  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') &&
             } elsif ($env{'form.roletype'} eq 'construction_space') {                      ($udom eq $env{'request.role.domain'})) {
                       delete($userlist->{$user});
                       next;
                   }
               } elsif ($env{'form.roletype'} eq 'author') {
                 ($uname,$udom,$role) = split(/:/,$user,-1);                  ($uname,$udom,$role) = split(/:/,$user,-1);
             } elsif ($env{'form.roletype'} eq 'course') {              } elsif ($env{'form.roletype'} eq 'course') {
                 ($uname,$udom,$role) = split(/:/,$user);                  ($uname,$udom,$role) = split(/:/,$user);
Line 1984  END Line 2141  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 1997  END Line 2155  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");              my $checkval;
             if ($linkto eq 'aboutme') {              if ($mode eq 'autoenroll') {
                 $in{'username'} =                   my $cellentry;
                     &Apache::loncommon::aboutmewrapper($in{'username'},                  if ($in{'type'} eq 'auto') {
                                                        $in{'username'},                      $cellentry = '<b>'.&mt('auto').'</b>&nbsp;<label><input type="checkbox" name="chgauto" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;Change</label>';
                                                        $in{'domain'});                      $autocount ++;
             } elsif ($linkto eq 'modify') {                  } else {
                 $in{'username'} = '<a href="'.                      $cellentry = '<table border="0" cellspacing="0"><tr><td rowspan="2"><b>'.&mt('manual').'</b></td><td><nobr><label><input type="checkbox" name="chgmanual" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;Change</label></nobr></td></tr><tr><td><nobr>';
                           "javascript:document.studentform.sname.value='".                      $manualcount ++;
                            $in{'username'}.                      if ($in{'lockedtype'}) {
                            "';document.studentform.sdom.value='".$in{'domain'}.                          $cellentry .= '<label><input type="checkbox" name="unlockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;'.&mt('Unlock').'</label>';
                            "';document.studentform.state.value='selected".                          $unlockcount ++;
                            "';document.studentform.submit();".'">'.                      } else {
                            $in{'username'}."</a>\n";                          $cellentry .= '<label><input type="checkbox" name="lockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;'.&mt('Lock').'</label>';
                           $lockcount ++;
                       }
                       $cellentry .= '</nobr></td></tr></table>';
                   }
                   $r->print("<td>$cellentry</td>\n");
               } else {
                   $r->print("<td>$rowcount</td>\n");
                   $checkval;
                   if ($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) {
                 $r->print('<td>'.$in{$item}.'</td>'."\n");                  if ($item eq 'username') {
                       $r->print('<td>'.&print_username_link($mode,$permission,
                                                             \%in).'</td>');
                   } elsif (($item eq 'start' || $item eq 'end') && ($actionselect)) {
                       $r->print('<td>'.$in{$item}.'<input type="hidden" name="'.$checkval.'_'.$item.'" value="'.$sdata->[$index{$item}].'" /></td>'."\n");
                   } else {
                       $r->print('<td>'.$in{$item}.'</td>'."\n");
                   }
             }              }
             if ($context eq 'course') {              if (($context eq 'course') && ($mode ne 'autoenroll')) {
                 if ($env{'form.showrole'} eq 'st' || $env{'form.showrole'} eq 'Any') {                  if ($env{'form.showrole'} eq 'st' || $env{'form.showrole'} eq 'Any') {
                     if ($displayclickers eq 'on') {                      if ($displayclickers eq 'on') {
                         my $clickers =                          my $clickers =
Line 2094  END Line 2281  END
     }      }
 }  }
   
   sub print_username_link {
       my ($mode,$permission,$in) = @_;
       my $output;
       if ($mode eq 'autoenroll') {
           $output = $in->{'username'};
       } elsif (!$permission->{'cusr'}) {
           $output = &Apache::loncommon::aboutmewrapper($in->{'username'},
                                                        $in->{'username'},
                                                        $in->{'domain'});
       } else {
           $output = '<a href="javascript:username_display_launch('.
                     "'$in->{'username'}','$in->{'domain'}'".')" />'.
                     $in->{'username'}.'</a>';
       }
       return $output;
   }
   
 sub role_type_names {  sub role_type_names {
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                          'domain'             => 'Domain Roles',                           'domain' => 'Domain Roles',
                          'construction_space' => 'Co-Author Roles',                           'author' => 'Co-Author Roles',
                          'course'             => 'Course Roles',                           'course' => 'Course Roles',
              );               );
     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 '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 ($statusmode eq 'Active' || $statusmode eq 'Future') {
               $options .= '
   <option value="chgdates">'.$lt{'chgdates'}.'</option>
   <option value="revoke">'.$lt{'revoke'}.'</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,$permission) = @_;
       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'},$formname,
                                             $permission);
       }
       $output .= '<h3>'.$headertext.'</h3>'.
                  '<form name="'.$formname.'" method="post">'."\n".
                   $date_items;
       if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') {
           my ($cnum,$cdom) = &get_course_identity();
           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 $rowtitle = &mt('New section to assign');
           my $secbox = &section_picker($cdom,$cnum,$env{'form.showrole'},$rowtitle,$permission,$context);
           $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 section_picker {
       my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode) = @_;
       my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
       my $sections_select .= &course_sections(\%sections_count,$role);
       my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n";
       if ($mode eq 'upload') {
           my ($options,$cb_script,$coursepick) =
               &default_role_selector($context,1);
           $secbox .= &Apache::lonhtmlcommon::row_title('role','LC_oddrow_value').
                      $options. &Apache::lonhtmlcommon::row_closure(1)."\n";
       }
       $secbox .= &Apache::lonhtmlcommon::row_title($rowtitle,'LC_oddrow_value')."\n";
       if ($env{'request.course.sec'} eq '') {
           $secbox .= '<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";
       } else {
          $secbox .= '<input type="hidden" name="sections" value="'.
                      $env{'request.course.sec'}.'" />'.
                      $env{'request.course.sec'};
       }
       $secbox .= &Apache::lonhtmlcommon::row_closure(1)."\n".
                  &Apache::lonhtmlcommon::end_pick_box().'</p>';
       return $secbox;
   }
   
 sub results_header_row {  sub results_header_row {
     my ($rolefilter,$statusmode,$context) = @_;      my ($rolefilter,$statusmode,$context,$permission) = @_;
     my ($description,$showfilter);      my ($description,$showfilter);
     if ($rolefilter ne 'Any') {      if ($rolefilter ne 'Any') {
         $showfilter = $rolefilter;          $showfilter = $rolefilter;
Line 2113  sub results_header_row { Line 2588  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 2125  sub results_header_row { Line 2599  sub results_header_row {
                 $description .= &mt('All users in course with [_1] roles',$rolefilter);                  $description .= &mt('All users in course with [_1] roles',$rolefilter);
             }              }
         }          }
     } elsif ($context eq 'construction_space') {          if (exists($permission->{'view_section'})) {
         $description = &mt('Author space for [_1].').' ';              if ($env{'form.showrole'} eq 'st') {
                   $description .= ' '.&mt('(section [_1] only)',$permission->{'view_section'});
               } elsif ($env{'form.showrole'} eq 'any') {
                   $description .= ' '.&mt('(section [_1] only)',$permission->{'view_section'});
               }
           }
       } elsif ($context eq 'author') {
           $description = 
               &mt('Author space for <span class="LC_cusr_emph">[_1]</span>',
           &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})).':&nbsp;&nbsp;';
         if ($statusmode eq 'Expired') {          if ($statusmode eq 'Expired') {
             $description .= &mt('Co-authors with expired [_1] roles',$showfilter);              $description .= &mt('Co-authors with expired [_1] roles',$showfilter);
         } elsif ($statusmode eq 'Future') {          } elsif ($statusmode eq 'Future') {
Line 2157  sub results_header_row { Line 2640  sub results_header_row {
                     $description .= &mt('All users in domain with [_1] roles',$rolefilter);                      $description .= &mt('All users in domain with [_1] roles',$rolefilter);
                 }                  }
             }              }
         } elsif ($env{'form.roletype'} eq 'construction_space') {          } elsif ($env{'form.roletype'} eq 'author') {
             if ($statusmode eq 'Expired') {              if ($statusmode eq 'Expired') {
                 $description .= &mt('Co-authors in domain with expired [_1] roles',$showfilter);                  $description .= &mt('Co-authors in domain with expired [_1] roles',$showfilter);
             } elsif ($statusmode eq 'Future') {              } elsif ($statusmode eq 'Future') {
Line 2206  sub results_header_row { Line 2689  sub results_header_row {
 #################################################  #################################################
 #################################################  #################################################
 sub show_drop_list {  sub show_drop_list {
     my ($r,$classlist,$keylist,$nosort)=@_;      my ($r,$classlist,$keylist,$nosort,$permission)=@_;
     my $cid=$env{'request.course.id'};      my $cid=$env{'request.course.id'};
       my ($cnum,$cdom) = &get_course_identity($cid);
     if (! exists($env{'form.sortby'})) {      if (! exists($env{'form.sortby'})) {
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                 ['sortby']);                                                  ['sortby']);
Line 2216  sub show_drop_list { Line 2700  sub show_drop_list {
     if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) {      if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) {
         $sortby = 'username';          $sortby = 'username';
     }      }
     my $cdom = $env{'course.'.$cid.'.domain'};  
     my $cnum = $env{'course.'.$cid,'.num'};  
     my ($classgroups) = &Apache::loncoursedata::get_group_memberships(      my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
                                               $classlist,$keylist,$cdom,$cnum);                                                $classlist,$keylist,$cdom,$cnum);
     #      #
     my $action = "drop";      my $action = "drop";
       my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
     $r->print(<<END);      $r->print(<<END);
 <input type="hidden" name="sortby" value="$sortby" />  <input type="hidden" name="sortby" value="$sortby" />
 <input type="hidden" name="action" value="$action" />  <input type="hidden" name="action" value="$action" />
 <input type="hidden" name="state"  value="done" />  <input type="hidden" name="state"  value="done" />
 <script>  <script type="text/javascript" language="Javascript">
 function checkAll(field) {  $check_uncheck_js
     for (i = 0; i < field.length; i++)  
         field[i].checked = true ;  
 }  
   
 function uncheckAll(field) {  
     for (i = 0; i < field.length; i++)  
         field[i].checked = false ;  
 }  
 </script>  </script>
 <p>  <p>
 <input type="hidden" name="phase" value="four">  <input type="hidden" name="phase" value="four">
Line 2250  my %lt=&Apache::lonlocal::texthash('usrn Line 2725  my %lt=&Apache::lonlocal::texthash('usrn
                                    'groups' => "active groups",                                     'groups' => "active groups",
                                    );                                     );
     if ($nosort) {      if ($nosort) {
         $r->print(&Apache::loncommon::start_data_table());          $r->print(&Apache::loncommon::start_data_table().
                     &Apache::loncommon::start_data_table_header_row());
         $r->print(<<END);          $r->print(<<END);
 <tr>  
     <th>&nbsp;</th>      <th>&nbsp;</th>
     <th>$lt{'usrn'}</th>      <th>$lt{'usrn'}</th>
     <th>$lt{'dom'}</th>      <th>$lt{'dom'}</th>
Line 2262  my %lt=&Apache::lonlocal::texthash('usrn Line 2737  my %lt=&Apache::lonlocal::texthash('usrn
     <th>$lt{'start'}</th>      <th>$lt{'start'}</th>
     <th>$lt{'end'}</th>      <th>$lt{'end'}</th>
     <th>$lt{'groups'}</th>      <th>$lt{'groups'}</th>
 </tr>  
 END  END
           $r->print(&Apache::loncommon::end_data_table_header_row());
     } else  {      } else  {
         $r->print(&Apache::loncommon::start_data_table());          $r->print(&Apache::loncommon::start_data_table().
                     &Apache::loncommon::start_data_table_header_row());
         $r->print(<<END);          $r->print(<<END);
 <tr><th>&nbsp;</th>      <th>&nbsp;</th>
     <th>      <th>
        <a href="/adm/dropadd?action=$action&sortby=username">$lt{'usrn'}</a>         <a href="/adm/createuser?action=$action&sortby=username">$lt{'usrn'}</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=domain">$lt{'dom'}</a>         <a href="/adm/createuser?action=$action&sortby=domain">$lt{'dom'}</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=id">ID</a>         <a href="/adm/createuser?action=$action&sortby=id">ID</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=fullname">$lt{'sn'}</a>         <a href="/adm/createuser?action=$action&sortby=fullname">$lt{'sn'}</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=section">$lt{'sec'}</a>         <a href="/adm/createuser?action=$action&sortby=section">$lt{'sec'}</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=start">$lt{'start'}</a>         <a href="/adm/createuser?action=$action&sortby=start">$lt{'start'}</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=end">$lt{'end'}</a>         <a href="/adm/createuser?action=$action&sortby=end">$lt{'end'}</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=groups">$lt{'groups'}</a>         <a href="/adm/createuser?action=$action&sortby=groups">$lt{'groups'}</a>
     </th>      </th>
 </tr>  
 END  END
           $r->print(&Apache::loncommon::end_data_table_header_row());
     }      }
     #      #
     # Sort the students      # Sort the students
Line 2334  END Line 2809  END
         }          }
         my $status   = $sdata->[$index{'status'}];          my $status   = $sdata->[$index{'status'}];
         next if ($status ne 'Active');          next if ($status ne 'Active');
           if ($env{'request.course.sec'} ne '') {
               if ($section ne $env{'request.course.sec'}) {
                   next;
               }
           }
           my $studentkey = $student.':'.$section;
           my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$index{'start'}].'" />';
         #          #
         $r->print(&Apache::loncommon::start_data_table_row());          $r->print(&Apache::loncommon::start_data_table_row());
         $r->print(<<"END");          $r->print(<<"END");
Line 2393  sub print_first_users_upload_form { Line 2875  sub print_first_users_upload_form {
   
 # ================================================= Drop/Add from uploaded file  # ================================================= Drop/Add from uploaded file
 sub upfile_drop_add {  sub upfile_drop_add {
     my ($r,$context) = @_;      my ($r,$context,$permission) = @_;
     &Apache::loncommon::load_tmp_file($r);      &Apache::loncommon::load_tmp_file($r);
     my @userdata=&Apache::loncommon::upfile_record_sep();      my @userdata=&Apache::loncommon::upfile_record_sep();
     if($env{'form.noFirstLine'}){shift(@userdata);}      if($env{'form.noFirstLine'}){shift(@userdata);}
Line 2483  sub upfile_drop_add { Line 2965  sub upfile_drop_add {
         } elsif ($setting eq 'course') {          } elsif ($setting eq 'course') {
             $defaultrole = $env{'form.courserole'};              $defaultrole = $env{'form.courserole'};
         }            }  
     } elsif ($context eq 'construction_space') {      } elsif ($context eq 'author') {
         $defaultrole = $env{'form.defaultrole'};          $defaultrole = $env{'form.defaultrole'};
     }      }
     if ($context eq 'domain' && $setting eq 'course') {       if ($context eq 'domain' && $setting eq 'course') { 
Line 2506  sub upfile_drop_add { Line 2988  sub upfile_drop_add {
         #######################################          #######################################
         if ($context eq 'course') {          if ($context eq 'course') {
             $r->print('<h3>'.&mt('Enrolling Users')."</h3>\n<p>\n");              $r->print('<h3>'.&mt('Enrolling Users')."</h3>\n<p>\n");
         } elsif ($context eq 'construction_space') {          } elsif ($context eq 'author') {
             $r->print('<h3>'.&mt('Updating Co-authors')."</h3>\n<p>\n");              $r->print('<h3>'.&mt('Updating Co-authors')."</h3>\n<p>\n");
         } else {          } else {
             $r->print('<h3>'.&mt('Adding/Modifying Users')."</h3>\n<p>\n");              $r->print('<h3>'.&mt('Adding/Modifying Users')."</h3>\n<p>\n");
Line 2646  sub upfile_drop_add { Line 3128  sub upfile_drop_add {
                                 next if ($alerts{'username'}{$domain}{$username});                                  next if ($alerts{'username'}{$domain}{$username});
                             }                              }
                         }                          }
                       } else {
   # FIXME check if user info can be updated.   
                     }                      }
                     if ($id ne '') {                      if ($id ne '') {
                         if (!$newuser) {                          if (!$newuser) {
Line 2698  sub upfile_drop_add { Line 3182  sub upfile_drop_add {
                             $r->print('<br />'.                               $r->print('<br />'. 
       &mt('<b>[_1]</b>: Unable to enroll.  No password specified.',$username)        &mt('<b>[_1]</b>: Unable to enroll.  No password specified.',$username)
                                      );                                       );
                         } elsif ($context eq 'construction_space') {                          } elsif ($context eq 'author') {
                             $r->print('<br />'.                              $r->print('<br />'.
       &mt('<b>[_1]</b>: Unable to add co-author.  No password specified.',$username)        &mt('<b>[_1]</b>: Unable to add co-author.  No password specified.',$username)
                                      );                                       );
Line 2724  sub upfile_drop_add { Line 3208  sub upfile_drop_add {
                       &mt('Authentication changed for [_1] existing users.',                        &mt('Authentication changed for [_1] existing users.',
                           $counts{'auth'})."</p>\n");                            $counts{'auth'})."</p>\n");
         }          }
         if (keys(%alerts) > 0) {          $r->print(&print_namespacing_alerts($domain,\%alerts,\%curr_rules));
             if (ref($alerts{'username'}) eq 'HASH') {  
                 foreach my $dom (sort(keys(%{$alerts{'username'}}))) {  
                     my $count;  
                     if (ref($alerts{'username'}{$dom}) eq 'HASH') {  
                         $count = keys(%{$alerts{'username'}{$dom}});  
                     }   
                     my $domdesc = &Apache::lonnet::domain($domain,'description');  
                     if (ref($curr_rules{$dom}) eq 'HASH') {  
                         $r->print(&Apache::loncommon::instrule_disallow_msg(  
                                  'username',$domdesc,$count,'upload'));  
                     }  
                     $r->print(&Apache::loncommon::user_rule_formats($dom,  
                               $domdesc,$curr_rules{$dom}{'username'},  
                              'username'));  
                 }  
             }  
             if (ref($alerts{'id'}) eq 'HASH') {  
                 foreach my $dom (sort(keys(%{$alerts{'id'}}))) {  
                     my $count;  
                     if (ref($alerts{'id'}{$dom}) eq 'HASH') {  
                         $count = keys(%{$alerts{'id'}{$dom}});  
                     }  
                     my $domdesc = &Apache::lonnet::domain($domain,'description');  
                     if (ref($curr_rules{$dom}) eq 'HASH') {  
                         $r->print(&Apache::loncommon::instrule_disallow_msg(  
                                  'id',$domdesc,$count,'upload'));  
                     }  
                     $r->print(&Apache::loncommon::user_rule_formats($dom,  
                               $domdesc,$curr_rules{$dom}{'id'},'id'));  
                 }  
             }  
         }  
         $r->print('<form name="uploadresult" action="/adm/createuser">');          $r->print('<form name="uploadresult" action="/adm/createuser">');
         $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','prevphase','currstate']));          $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','prevphase','currstate']));
         $r->print('</form>');          $r->print('</form>');
Line 2787  sub upfile_drop_add { Line 3239  sub upfile_drop_add {
     } # end of unless      } # end of unless
 }  }
   
   sub print_namespacing_alerts {
       my ($domain,$alerts,$curr_rules) = @_;
       my $output;
       if (ref($alerts) eq 'HASH') {
           if (keys(%{$alerts}) > 0) {
               if (ref($alerts->{'username'}) eq 'HASH') {
                   foreach my $dom (sort(keys(%{$alerts->{'username'}}))) {
                       my $count;
                       if (ref($alerts->{'username'}{$dom}) eq 'HASH') {
                           $count = keys(%{$alerts->{'username'}{$dom}});
                       }
                       my $domdesc = &Apache::lonnet::domain($domain,'description');
                       if (ref($curr_rules->{$dom}) eq 'HASH') {
                           $output .= &Apache::loncommon::instrule_disallow_msg(
                                           'username',$domdesc,$count,'upload');
                       }
                       $output .= &Apache::loncommon::user_rule_formats($dom,
                                      $domdesc,$curr_rules->{$dom}{'username'},
                                      'username');
                   }
               }
               if (ref($alerts->{'id'}) eq 'HASH') {
                   foreach my $dom (sort(keys(%{$alerts->{'id'}}))) {
                       my $count;
                       if (ref($alerts->{'id'}{$dom}) eq 'HASH') {
                           $count = keys(%{$alerts->{'id'}{$dom}});
                       }
                       my $domdesc = &Apache::lonnet::domain($domain,'description');
                       if (ref($curr_rules->{$dom}) eq 'HASH') {
                           $output .= &Apache::loncommon::instrule_disallow_msg(
                                                 'id',$domdesc,$count,'upload');
                       }
                       $output .= &Apache::loncommon::user_rule_formats($dom,
                                       $domdesc,$curr_rules->{$dom}{'id'},'id');
                   }
               }
           }
       }
   }
   
 sub user_change_result {  sub user_change_result {
     my ($r,$userresult,$authresult,$roleresult,$counts,$flushc,$username,      my ($r,$userresult,$authresult,$roleresult,$counts,$flushc,$username,
         $userchg) = @_;          $userchg) = @_;
Line 2834  sub user_change_result { Line 3326  sub user_change_result {
 }  }
   
 # ========================================================= Menu Phase Two Drop  # ========================================================= Menu Phase Two Drop
 sub print_expire_menu {  sub print_drop_menu {
     my ($r,$context) = @_;      my ($r,$context,$permission) = @_;
     $r->print("<h3>".&mt("Expire Users' Roles")."</h3>");      $r->print('<h3>'.&mt("Drop Students").'</h3>'."\n".
                 '<form name="studentform" method="post">'."\n");
     my $cid=$env{'request.course.id'};      my $cid=$env{'request.course.id'};
     my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();      my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
     if (! defined($classlist)) {      if (! defined($classlist)) {
Line 2844  sub print_expire_menu { Line 3337  sub print_expire_menu {
         return;          return;
     }      }
     # Print out the available choices      # Print out the available choices
     &show_drop_list($r,$classlist,$keylist);      &show_drop_list($r,$classlist,$keylist,$permission);
       $r->print('</form>'. &Apache::loncommon::end_page());
     return;      return;
 }  }
   
   
 # ================================================================== 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',
                                      'chgdates' => 'Changed Access Dates for',
                                      'chgsec'   => 'Changed section for',
                                      'drop'     => 'Dropped',
                                    },
                           error => {'revoke'    => 'revoking',
                                     'delete'    => 'deleting',
                                     'reenable'  => 're-enabling',
                                     'activate'  => 'activating',
                                     'chgdates'  => 'changing access dates for',
                                     'chgsec'    => 'changing section for',
                                     'drop'      => 'dropping',
                                    },
                         );
       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 ($choice eq 'drop') {
               ($uname,$udom,$sec) = split(/:/,$item,-1);
               $role = 'st';
               $cid = $env{'request.course.id'};
               $scopestem = '/'.$cid;
               $scopestem =~s/\_/\//g;
               if ($sec eq '') {
                   $scope = $scopestem;
               } else {
                   $scope = $scopestem.'/'.$sec;
               }
           } elsif ($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 'author') {
               ($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 'author') { 
                   ($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'};
           if ($choice eq 'drop') {
               # drop students
               $end = $now;
               $type = 'manual';
               $result =
                   &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);
           } elsif ($choice eq 'revoke') {
               # revoke or delete user role
               $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);
                               }
                           }
                       }
                   }
               }
           }
           my $extent = $scope;
           if ($choice eq 'drop' || $context eq 'course') {
               my ($cnum,$cdom,$cdesc) = &get_course_identity($cid);
               if ($cdesc) {
                   $extent = $cdesc;
               }
           }
         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,$extent,$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,$extent,$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' || $choice eq 'drop') {
               $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 section_check_js {  sub classlist_drop {
     my $groupslist;      my ($scope,$uname,$udom,$now,$action) = @_;
     my %curr_groups = &Apache::longroup::coursegroups();      my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)});
     if (%curr_groups) {      my $cid=$cdom.'_'.$cnum;
         $groupslist = join('","',sort(keys(%curr_groups)));      my $user = $uname.':'.$udom;
       if ($action eq 'drop') {
           if (!&active_student_roles($cnum,$cdom,$uname,$udom)) {
               my $result =
                   &Apache::lonnet::cput('classlist',
                                         { $user => $now },
                                         $env{'course.'.$cid.'.domain'},
                                         $env{'course.'.$cid.'.num'});
               return &mt('Drop from classlist: [_1]',
                          '<b>'.$result.'</b>').'<br />';
           }
     }      }
   }
   
   sub active_student_roles {
       my ($cnum,$cdom,$uname,$udom) = @_;
       my %roles =
           &Apache::lonnet::get_my_roles($uname,$udom,'userroles',
                                         ['future','active'],['st']);
       return exists($roles{"$cnum:$cdom:st"});
   }
   
   sub section_check_js {
       my $groupslist= &get_groupslist();
     return <<"END";      return <<"END";
 function validate(caller) {  function validate(caller) {
     var groups = new Array("$groupslist");      var groups = new Array($groupslist);
     var secname = caller.value;      var secname = caller.value;
     if ((secname == 'all') || (secname == 'none')) {      if ((secname == 'all') || (secname == 'none')) {
         alert("'"+secname+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");          alert("'"+secname+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");
Line 2927  sub set_login { Line 3640  sub set_login {
     return $response;      return $response;
 }  }
   
   sub course_sections {
       my ($sections_count,$role) = @_;
       my $output = '';
       my @sections = (sort {$a <=> $b} keys %{$sections_count});
       if (scalar(@sections) == 1) {
           $output = '<select name="currsec_'.$role.'" >'."\n".
                     '  <option value="">Select</option>'."\n".
                     '  <option value="">No section</option>'."\n".
                     '  <option value="'.$sections[0].'" >'.$sections[0].'</option>'."\n";
       } else {
           $output = '<select name="currsec_'.$role.'" ';
           my $multiple = 4;
           if (scalar(@sections) < 4) { $multiple = scalar(@sections); }
           $output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
           foreach my $sec (@sections) {
               $output .= '<option value="'.$sec.'">'.$sec."</option>\n";
           }
       }
       $output .= '</select>';
       return $output;
   }
   
   sub get_groupslist {
       my $groupslist;
       my %curr_groups = &Apache::longroup::coursegroups();
       if (%curr_groups) {
           $groupslist = join('","',sort(keys(%curr_groups)));
           $groupslist = '"'.$groupslist.'"';
       }
       return $groupslist; 
   }
   
   sub setsections_javascript {
       my ($form,$groupslist) = @_;
       my ($checkincluded,$finish,$roleplace,$setsection_js);
       if ($form eq 'cu') {
           $checkincluded = 'formname.elements[i-1].checked == true';
           $finish = 'formname.submit()';
           $roleplace = 3;
       } else {
           $checkincluded = 'formname.name == "'.$form.'"'; 
           $finish = "seccheck = 'ok';";
           $roleplace = 1;
           $setsection_js = "var seccheck = 'alert';"; 
       }
       my %alerts = &Apache::lonlocal::texthash(
                       secd => 'Section designations do not apply to Course Coordinator roles.',
                       accr => 'A course coordinator role will be added with access to all sections.',
                       inea => 'In each course, each user may only have one student role at a time.',
                       youh => 'You had selected ',
                       secs => 'sections.',
                       plmo => 'Please modify your selections so they include no more than one section.',
                       mayn => 'may not be used as the name for a section, as it is a reserved word.',
                       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.',
                       secn => 'Section names and group names must be distinct. Please choose a different section name.',
                    );                
       $setsection_js .= <<"ENDSECCODE";
   
   function setSections(formname) {
       var re1 = /^currsec_/;
       var groups = new Array($groupslist);
       for (var i=0;i<formname.elements.length;i++) {
           var str = formname.elements[i].name;
           var checkcurr = str.match(re1);
           if (checkcurr != null) {
               if ($checkincluded) {
                   var match = str.split('_');
                   var role = match[$roleplace];
                   if (role == 'cc') {
                       alert("$alerts{'secd'}\\n$alerts{'accr'}");
                   }
                   else {
                       var sections = '';
                       var numsec = 0;
                       var sections;
                       for (var j=0; j<formname.elements[i].length; j++) {
                           if (formname.elements[i].options[j].selected == true ) {
                               if (formname.elements[i].options[j].value != "") {
                                   if (numsec == 0) {
                                       if (formname.elements[i].options[j].value != "") {
                                           sections = formname.elements[i].options[j].value;
                                           numsec ++;
                                       }
                                   }
                                   else {
                                       sections = sections + "," +  formname.elements[i].options[j].value
                                       numsec ++;
                                   }
                               }
                           }
                       }
                       if (numsec > 0) {
                           if (formname.elements[i+1].value != "" && formname.elements[i+1].value != null) {
                               sections = sections + "," +  formname.elements[i+1].value;
                           }
                       }
                       else {
                           sections = formname.elements[i+1].value;
                       }
                       var newsecs = formname.elements[i+1].value;
                       var numsplit;
                       if (newsecs != null && newsecs != "") {
                           numsplit = newsecs.split(/,/g);
                           numsec = numsec + numsplit.length;
                       }
   
                       if ((role == 'st') && (numsec > 1)) {
                           alert("$alerts{'inea'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}")
                           return;
                       }
                       else {
                           if (numsplit != null) {
                               for (var j=0; j<numsplit.length; j++) {
                                   if ((numsplit[j] == 'all') ||
                                       (numsplit[j] == 'none')) {
                                       alert("'"+numsplit[j]+"' $alerts{'mayn'}\\n$alerts{'plch'}");
                                       return;
                                   }
                                   for (var k=0; k<groups.length; k++) {
                                       if (numsplit[j] == groups[k]) {
                                           alert("'"+numsplit[j]+"' $alerts{'mnot'}\\n$alerts{'secn'}");
                                           return;
                                       }
                                   }
                               }
                           }
                           formname.elements[i+2].value = sections;
                       }
                   }
               }
           }
       }
       $finish
   }
   ENDSECCODE
       return $setsection_js; 
   }
   
   sub can_create_user {
       my ($dom,$context,$usertype) = @_;
       my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
       my $cancreate = 1;
       if (ref($domconf{'usercreation'}) eq 'HASH') {
           if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') {
               if ($context eq 'course' || $context eq 'author') {
                   my $creation = $domconf{'usercreation'}{'cancreate'}{$context};
                   if ($creation eq 'none') {
                       $cancreate = 0;
                   } elsif ($creation ne 'any') {
                       if (defined($usertype)) {
                           if ($creation ne $usertype) {
                               $cancreate = 0;
                           }
                       }
                   }
               }
           }
       }
       return $cancreate;
   }
   
   sub can_modify_userinfo {
       my ($context,$dom,$fields,$userroles) = @_;
       my %domconfig =
          &Apache::lonnet::get_dom('configuration',['usermodification'],
                                   $dom);
       my %canmodify;
       if (ref($fields) eq 'ARRAY') {
           foreach my $field (@{$fields}) {
               $canmodify{$field}  = 0;
               if (&Apache::lonnet::allowed('mau',$dom)) {
                   $canmodify{$field} = 1;
               } else {
                   if (ref($domconfig{'usermodification'}) eq 'HASH') {
                       if (ref($domconfig{'usermodification'}{$context}) eq 'HASH') {
                           if (ref($userroles) eq 'ARRAY') {
                               foreach my $role (@{$userroles}) {
                                   my $testrole;
                                   if ($role =~ /^cr\//) {
                                       $testrole = 'cr';
                                   } else {
                                       $testrole = $role;
                                   }
                                   if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') {
                                       if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) {
                                           $canmodify{$field} = 1;
                                           last;
                                       }
                                   }
                               }
                           } else {
                               foreach my $key (keys(%{$domconfig{'usermodification'}{$context}})) {
                                   if (ref($domconfig{'usermodification'}{$context}{$key}) eq 'HASH') {
                                       if ($domconfig{'usermodification'}{$context}{$key}{$field}) {
                                           $canmodify{$field} = 1;
                                           last;
                                       }
                                   }
                               }
                           }
                       }
                   } elsif ($context eq 'course') {
                       if (ref($userroles) eq 'ARRAY') {
                           if (grep(/^st$/,@{$userroles})) {
                               $canmodify{$field} = 1;
                           }
                       } else {
                           $canmodify{$field} = 1;
                       }
                   }
               }
           }
       }
       return %canmodify;
   }
   
   sub check_usertype {
       my ($dom,$uname,$rules) = @_;
       my $usertype;
       if (ref($rules) eq 'HASH') {
           my @user_rules = keys(%{$rules});
           if (@user_rules > 0) {
               my %rule_check = &Apache::lonnet::inst_rulecheck($dom,$uname,undef,'username',\@user_rules);
               if (keys(%rule_check) > 0) {
                   $usertype = 'unofficial';
                   foreach my $item (keys(%rule_check)) {
                       if ($rule_check{$item}) {
                           $usertype = 'official';
                           last;
                       }
                   }
               }
           }
       }
       return $usertype;
   }
   
   sub roles_by_context {
       my ($context,$custom) = @_;
       my @allroles;
       if ($context eq 'course') {
           @allroles = ('st','ad','ta','ep','in','cc');
           if ($custom) {
               push(@allroles,'cr');
           }
       } elsif ($context eq 'author') {
           @allroles = ('ca','aa');
       } elsif ($context eq 'domain') {
           @allroles = ('li','dg','sc','au','dc');
       }
       return @allroles;
   }
   
   sub get_permission {
       my ($context,$roles) = @_;
       my %permission;
       if ($context eq 'course') {
           my $custom = 1;
           my @allroles = &roles_by_context($context,$custom);
           foreach my $role (@allroles) {
               if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
                   $permission{'cusr'} = 1;
                   last;
               }
           }
           if (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) {
               $permission{'custom'} = 1;
           }
           if (&Apache::lonnet::allowed('vcl',$env{'request.course.id'})) {
               $permission{'view'} = 1;
           }
           if (!$permission{'view'}) {
               my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'};
               $permission{'view'} =  &Apache::lonnet::allowed('vcl',$scope);
               if ($permission{'view'}) {
                   $permission{'view_section'} = $env{'request.course.sec'};
               }
           }
           if (!$permission{'cusr'}) {
               if ($env{'request.course.sec'} ne '') {
                   my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'};
                   $permission{'cusr'} = (&Apache::lonnet::allowed('cst',$scope));
                   if ($permission{'cusr'}) {
                       $permission{'cusr_section'} = $env{'request.course.sec'};
                   }
               }
           }
           if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
               $permission{'grp_manage'} = 1;
           }
       } elsif ($context eq 'author') {
           $permission{'cusr'} = &authorpriv($env{'user.name'},$env{'request.role.domain'});
           $permission{'view'} = $permission{'cusr'};
       } else {
           my @allroles = &roles_by_context($context);
           foreach my $role (@allroles) {
               if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) {                $permission{'cusr'} = 1;
                   last;
               }
           }
           if (!$permission{'cusr'}) {
               if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) {
                   $permission{'cusr'} = 1;
               }
           }
           if (&Apache::lonnet::allowed('ccr',$env{'request.role.domain'})) {
               $permission{'custom'} = 1;
           }
           $permission{'view'} = $permission{'cusr'};
       }
       my $allowed = 0;
       foreach my $perm (values(%permission)) {
           if ($perm) { $allowed=1; last; }
       }
       return (\%permission,$allowed);
   }
   
   # ==================================================== Figure out author access
   
   sub authorpriv {
       my ($auname,$audom)=@_;
       unless ((&Apache::lonnet::allowed('cca',$audom.'/'.$auname))
            || (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; }    return 1;
   }
   
   sub get_course_identity {
       my ($cid) = @_;
       my ($cnum,$cdom,$cdesc);
       if ($cid eq '') {
           $cid = $env{'request.course.id'}
       }
       if ($cid ne '') {
           $cnum = $env{'course.'.$cid.'.num'};
           $cdom = $env{'course.'.$cid.'.domain'};
           $cdesc = $env{'course.'.$cid.'.description'};
           if ($cnum eq '' || $cdom eq '') {
               my %coursehash =
                   &Apache::lonnet::coursedescription($cid,{'one_time' => 1});
               $cdom = $coursehash{'domain'};
               $cnum = $coursehash{'num'};
               $cdesc = $coursehash{'description'};
           }
       }
       return ($cnum,$cdom,$cdesc);
   }
   
   sub dc_setcourse_js {
       my ($formname,$mode) = @_;
       my $dc_setcourse_code;
       my $cctext = &Apache::lonnet::plaintext('cc');
       my %alerts = &sectioncheck_alerts();
       my $role = 'role';
       if ($mode eq 'upload') {
           $role = 'courserole';
       }
       $dc_setcourse_code = (<<"SCRIPTTOP");
   function setCourse() {
       var course = document.$formname.dccourse.value;
       if (course != "") {
           if (document.$formname.dcdomain.value != document.$formname.origdom.value) {
               alert("$alerts{'curd'}");
               return;
           }
           var userrole = document.$formname.$role.options[document.$formname.$role.selectedIndex].value
           var section="";
           var numsections = 0;
           var newsecs = new Array();
           for (var i=0; i<document.$formname.currsec.length; i++) {
               if (document.$formname.currsec.options[i].selected == true ) {
                   if (document.$formname.currsec.options[i].value != "" && document.$formname.currsec.options[i].value != null) {
                       if (numsections == 0) {
                           section = document.$formname.currsec.options[i].value
                           numsections = 1;
                       }
                       else {
                           section = section + "," +  document.$formname.currsec.options[i].value
                           numsections ++;
                       }
                   }
               }
           }
           if (document.$formname.newsec.value != "" && document.$formname.newsec.value != null) {
               if (numsections == 0) {
                   section = document.$formname.newsec.value
               }
               else {
                   section = section + "," +  document.$formname.newsec.value
               }
               newsecs = document.$formname.newsec.value.split(/,/g);
               numsections = numsections + newsecs.length;
           }
           if ((userrole == 'st') && (numsections > 1)) {
               alert("$alerts{'inea'}. $alerts{'youh'} "+numsections+" $alerts{'sect'}.\\n$alerts{'plsm'}.")
               return;
           }
           for (var j=0; j<newsecs.length; j++) {
               if ((newsecs[j] == 'all') || (newsecs[j] == 'none')) {
                   alert("'"+newsecs[j]+"' $alerts{'mayn'}.\\n$alerts{'plsc'}.");
                   return;
               }
               if (document.$formname.groups.value != '') {
                   var groups = document.$formname.groups.value.split(/,/g);
                   for (var k=0; k<groups.length; k++) {
                       if (newsecs[j] == groups[k]) {
                           alert("'"+newsecs[j]+"' $alerts{'mayt'}.\\n$alerts{'secn'}. $alerts{'plsc'}.");
                           return;
                       }
                   }
               }
           }
           if ((userrole == 'cc') && (numsections > 0)) {
               alert("$alerts{'secd'} $cctext $alerts{'role'}.\\n$alerts{'accr'}.");
               section = "";
           }
   SCRIPTTOP
       if ($mode ne 'upload') {
           $dc_setcourse_code .= (<<"ENDSCRIPT");
           var coursename = "_$env{'request.role.domain'}"+"_"+course+"_"+userrole
           var numcourse = getIndex(document.$formname.dccourse);
           if (numcourse == "-1") {
               alert("$alerts{'thwa'}");
               return;
           }
           else {
               document.$formname.elements[numcourse].name = "act"+coursename;
               var numnewsec = getIndex(document.$formname.newsec);
               if (numnewsec != "-1") {
                   document.$formname.elements[numnewsec].name = "sec"+coursename;
                   document.$formname.elements[numnewsec].value = section;
               }
               var numstart = getIndex(document.$formname.start);
               if (numstart != "-1") {
                   document.$formname.elements[numstart].name = "start"+coursename;
               }
               var numend = getIndex(document.$formname.end);
               if (numend != "-1") {
                   document.$formname.elements[numend].name = "end"+coursename
               }
           }
       }
       document.$formname.submit();
   }
   
   ENDSCRIPT
       } else {
           $dc_setcourse_code .=  "
           document.$formname.sections.value = section;
       }
       return 'ok';
   }
   ";
       }
       $dc_setcourse_code .= (<<"ENDSCRIPT");
   
       function getIndex(caller) {
           for (var i=0;i<document.$formname.elements.length;i++) {
               if (document.$formname.elements[i] == caller) {
                   return i;
               }
           }
           return -1;
       }
   ENDSCRIPT
   }
   
   sub sectioncheck_alerts {
       my %alerts = &Apache::lonlocal::texthash(
                       curd => 'You must select a course in the current domain',
                       inea => 'In each course, each user may only have one student role at a time',
                       youh => 'You had selected',
                       sect => 'sections',
                       plsm => 'Please modify your selections so they include no more than one section',
                       mayn => 'may not be used as the name for a section, as it is a reserved word',
                       plsc => 'Please choose a different section name',
                       mayt => 'may not be used as the name for a section, as it is the name of a course group',
                       secn => 'Section names and group names must be distinct',
                       secd => 'Section designations do not apply to ',
                       role => 'roles',
                       accr => 'role will be added with access to all sections',
                       thwa => 'There was a problem with your course selection'
                    );
       return %alerts;
   }
   
   
 1;  1;
   
Removed from v.1.6  
changed lines
  Added in v.1.21

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