Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonuserutils.pm between versions 1.8 and 1.77

-version 1.8, 2007/12/05 16:49:55
+version 1.77, 2008/12/12 16:50:53
  Line 42  use LONCAPA qw(:DEFAULT :match);
  ###############################################################
  # Drop student from all sections of a course, except optional $csec
  sub modifystudent {
-     my ($udom,$unam,$courseid,$csec,$desiredhost)=@_;
+     my ($udom,$unam,$courseid,$csec,$desiredhost,$context)=@_;
      # 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 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 ($tmp) = keys(%roles);
      # Bail out if we were unable to get the students roles
- Line 69  sub modifystudent {
+ Line 68  sub modifystudent {
                      my $reply=&Apache::lonnet::modifystudent
                          # dom  name  id mode pass     f     m     l     g
                          ($udom,$unam,'',  '',  '',undef,undef,undef,undef,
-                          $section,time,undef,undef,$desiredhost);
+                          $section,time,undef,undef,$desiredhost,'','manual',
+                          '',$courseid,'',$context);
                      $result .= $reply.':';
                  }
              }
          }
      }
      if ($result eq '') {
-         $result = 'Unable to find section for this student';
+         $result = &mt('Unable to find section for this student');
      } else {
          $result =~ s/(ok:)+/ok/g;
      }
  Line 96  sub modifyuserrole {
          }
      } elsif ($context eq 'domain') {
          $scope = '/'.$env{'request.role.domain'}.'/';
-     } elsif ($context eq 'construction_space') {
+     } elsif ($context eq 'author') {
          $scope =  '/'.$env{'user.domain'}.'/'.$env{'user.name'};
      }
      if ($context eq 'domain') {
  Line 127  sub modifyuserrole {
                                      $email,$role,$start,$end);
      if ($userresult eq 'ok') {
          if ($role ne '') {
+             $role =~ s/_/\//g;
              $roleresult = &Apache::lonnet::assignrole($udom,$uname,$scope,
-                                                       $role,$end,$start);
+                                                       $role,$end,$start,'',
+                                                       '',$context);
          }
      }
      return ($userresult,$authresult,$roleresult,$idresult);
- Line 136  sub modifyuserrole {
+ Line 138  sub modifyuserrole {
  sub propagate_id_change {
      my ($uname,$udom,$user) = @_;
-     my (@types,@roles,@cdoms);
+     my (@types,@roles);
      @types = ('active','future');
      @roles = ('st');
      my $idresult;
      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)) {
-         my ($cnum,$cdom,$role) = split(/:/,$item);
+         my ($cnum,$cdom,$role) = split(/:/,$item,-1);
          my ($start,$end) = split(/:/,$roleshash{$item});
          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') {
-                 $idresult .= "Classlist change: $uname:$udom - class -> $cnum:$cdom\n";
+                 $idresult .= &mt('Classlist update for "[_1]" in "[_2]".',$uname.':'.$udom,$cdesc).'<br />'."\n";
              } 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 159  sub propagate_id_change {
+ Line 169  sub propagate_id_change {
  }
  sub update_classlist {
-     my ($cdom,$cnum,$udom,$uname,$user) = @_;
+     my ($cdom,$cnum,$udom,$uname,$user,$newend) = @_;
      my ($uid,$classlistentry);
      my $fullname =
          &Apache::lonnet::format_name($user->{'firstname'},$user->{'middlename'},
- Line 170  sub update_classlist {
+ Line 180  sub update_classlist {
      my @classinfo = split(/:/,$classhash{$uname.':'.$udom});
      my $ididx=&Apache::loncoursedata::CL_ID() - 2;
      my $nameidx=&Apache::loncoursedata::CL_FULLNAME() - 2;
+     my $endidx = &Apache::loncoursedata::CL_END() - 2;
+     my $startidx = &Apache::loncoursedata::CL_START() - 2;
      for (my $i=0; $i<@classinfo; $i++) {
-         if ($i == $ididx) {
+         if ($i == $endidx) {
+             if ($newend ne '') {
+                 $classlistentry .= $newend.':';
+             } else {
+                 $classlistentry .= $classinfo[$i].':';
+             }
+         } elsif ($i == $startidx) {
+             if ($newend ne '') {
+                 if ($classinfo[$i] > $newend) {
+                     $classlistentry .= $newend.':';
+                 } else {
+                     $classlistentry .= $classinfo[$i].':';
+                 }
+             } else {
+                 $classlistentry .= $classinfo[$i].':';
+             }
+         } elsif ($i == $ididx) {
              if (defined($user->{'id'})) {
                  $classlistentry .= $user->{'id'}.':';
              } else {
                  $classlistentry .= $classinfo[$i].':';
              }
          } elsif ($i == $nameidx) {
-             $classlistentry .= $fullname.':';
+             if (defined($user->{'lastname'})) {
+                 $classlistentry .= $fullname.':';
+             } else {
+                 $classlistentry .= $classinfo[$i].':';
+             }
          } else {
              $classlistentry .= $classinfo[$i].':';
          }
- Line 203  sub domain_roles_select {
+ Line 235  sub domain_roles_select {
      # domain context
      #
      # Role types
-     my @roletypes = ('domain','construction_space','course');
+     my @roletypes = ('domain','author','course');
      my %lt = &role_type_names();
      #
      # build up the menu information to be passed to
- Line 225  sub domain_roles_select {
+ Line 257  sub domain_roles_select {
          my @roles;
          if ($roletype eq 'domain') {
              @roles = &domain_roles();
-         } elsif ($roletype eq 'construction_space') {
+         } elsif ($roletype eq 'author') {
              @roles = &construction_space_roles();
          } else {
-             @roles = &course_roles('domain');
+             my $custom = 1;
-             unshift(@roles,'cr');
+             @roles = &course_roles('domain',undef,$custom);
          }
          my $order = ['Any',@roles];
          $select_menus{$roletype}->{'order'} = $order;
- Line 246  sub domain_roles_select {
+ Line 278  sub domain_roles_select {
      }
      my $result = &Apache::loncommon::linked_select_forms
          ('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;
  }
- Line 258  sub hidden_input {
+ Line 290  sub hidden_input {
  }
  sub print_upload_manager_header {
-     my ($r,$datatoken,$distotal,$krbdefdom,$context)=@_;
+     my ($r,$datatoken,$distotal,$krbdefdom,$context,$permission)=@_;
      my $javascript;
      #
      if (! exists($env{'form.upfile_associate'})) {
- Line 288  sub print_upload_manager_header {
+ Line 320  sub print_upload_manager_header {
          $password_choice = 'int';
      }
      #
+     my $groupslist;
+     if ($context eq 'course') {
+         $groupslist = &get_groupslist();
+     }
      my $javascript_validations =
-         &javascript_validations('auth',$krbdefdom,$password_choice,undef,
+         &javascript_validations('upload',$krbdefdom,$password_choice,undef,
-                                 $env{'request.role.domain'});
+                                 $env{'request.role.domain'},$context,
+                                 $groupslist);
      my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':'');
-     $r->print(&mt('Total number of records found in file: <b>[_1]</b>.',$distotal).
+     $r->print(&mt('Total number of records found in file: [_1]','<b>'.$distotal.'</b>').
                "<br />\n");
      $r->print('<div class="LC_left_float"><h3>'.
                &mt('Identify fields in uploaded list')."</h3>\n");
- Line 304  sub print_upload_manager_header {
+ Line 341  sub print_upload_manager_header {
                &hidden_input('fileupload',$env{'form.fileupload'}).
                &hidden_input('upfiletype',$env{'form.upfiletype'}).
                &hidden_input('upfile_associate',$env{'form.upfile_associate'}));
-     $r->print('<br /><input type="button" value="Reverse Association" '.
+     $r->print('<br /><label><input type="checkbox" name="noFirstLine"'.$checked.'/>'.
-               'name="'.&mt('Reverse Association').'" '.
+               &mt('Ignore First Line').'</label><br />');
+     $r->print('<br /><input type="button" value="'.&mt('Reverse Association').'" '.
+               'name="Reverse Association" '.
                'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');
-     $r->print('<label><input type="checkbox" name="noFirstLine"'.$checked.'/>'.
-               &mt('Ignore First Line').'</label>');
      $r->print("<br /><br />\n".
                '<script type="text/javascript" language="Javascript">'."\n".
                $javascript."\n".$javascript_validations.'</script>');
- Line 317  sub print_upload_manager_header {
+ Line 354  sub print_upload_manager_header {
  ###############################################################
  ###############################################################
  sub javascript_validations {
-     my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain)=@_;
+     my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain,
-     my $authheader;
+         $context,$groupslist)=@_;
-     if ($mode eq 'auth') {
+     my %param = (
-         my %param = ( formname => 'studentform',
-                       kerb_def_dom => $krbdefdom,
-                       curr_authtype => $curr_authtype);
-         $authheader = &Apache::loncommon::authform_header(%param);
-     } elsif ($mode eq 'createcourse') {
-         my %param = ( formname => 'ccrs',
-                       kerb_def_dom => $krbdefdom,
-                       curr_authtype => $curr_authtype );
-         $authheader = &Apache::loncommon::authform_header(%param);
-     } elsif ($mode eq 'modifycourse') {
-         my %param = ( formname => 'cmod',
                    kerb_def_dom => $krbdefdom,
-                   mode => 'modifycourse',
                    curr_authtype => $curr_authtype,
-                   curr_autharg => $curr_authfield );
+                 );
-         $authheader = &Apache::loncommon::authform_header(%param);
+     if ($mode eq 'upload') {
+         $param{'formname'} = 'studentform';
+     } elsif ($mode eq 'createcourse') {
+         $param{'formname'} = 'ccrs';
+     } elsif ($mode eq 'modifycourse') {
+         $param{'formname'} = 'cmod';
+         $param{'mode'} = 'modifycourse',
+         $param{'curr_autharg'} = $curr_authfield;
+     }
+     my ($setsection_call,$setsections_js);
+     my $finish = "  vf.submit();\n";
+     if ($mode eq 'upload') {
+         if (($context eq 'course') || ($context eq 'domain')) {
+             if ($context eq 'course') {
+                 if ($env{'request.course.sec'} eq '') {
+                     $setsection_call = 'setSections(document.'.$param{'formname'}.');';
+                     $setsections_js =
+                         &setsections_javascript($param{'formname'},$groupslist,
+                                                 $mode);
+                 } else {
+                     $setsection_call = "'ok'";
+                 }
+             } elsif ($context eq 'domain') {
+                 $setsection_call = 'setCourse()';
+                 $setsections_js = &dc_setcourse_js($param{'formname'},$mode,$context);
+             }
+             $finish = "  var checkSec = $setsection_call\n".
+                       "  if (checkSec == 'ok') {\n".
+                       "      vf.submit();\n".
+                       "   }\n";
+         }
      }
+     my $authheader = &Apache::loncommon::authform_header(%param);
      my %alert = &Apache::lonlocal::texthash
          (username => 'You need to specify the username field.',
- Line 346  sub javascript_validations {
+ Line 403  sub javascript_validations {
           name     => 'The optional name field was not specified.',
           snum     => 'The optional ID number field was not specified.',
           section  => 'The optional section field was not specified.',
-          email    => 'The optional email address field was not specified.',
+          email    => 'The optional e-mail address field was not specified.',
           role     => 'The optional role field was not specified.',
+          domain   => 'The optional domain field was not specified.',
           continue => 'Continue adding users?',
           );
+     my $function_name = <<"END";
+ $setsections_js
- #    my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
+ function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain) {
-     my $function_name =(<<END);
- function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {
  END
      my ($authnum,%can_assign) =  &Apache::loncommon::get_assignable_auth($domain);
      my $auth_checks;
- Line 416  END
+ Line 474  END
      foundatype=1;
      if (current.argfield == null || current.argfield == '') {
          var alertmsg = '';
-         switch (current.value) {
+         switch (current.radiovalue) {
              case 'krb':
                  alertmsg = '$alert{'krb'}';
                  break;
- Line 468  END
+ Line 526  END
          }
          message+='$alert{'email'}';
      }
+     if (foundrole==0) {
+         if (message!='') {
+             message+='\\n';
+         }
+         message+='$alert{'role'}';
+     }
+     if (founddomain==0) {
+         if (message!='') {
+             message+='\\n';
+         }
+         message+='$alert{'domain'}';
+     }
      if (message!='') {
          message+= '\\n$alert{'continue'}';
          if (confirm(message)) {
              vf.state.value='enrolling';
-             vf.submit();
+             $finish
          }
      } else {
          vf.state.value='enrolling';
-         vf.submit();
+         $finish
      }
  }
  END
      }
-     my $result = $function_name;
+     my $result = $function_name.$auth_checks.$optional_checks."\n".
-     if ( ($mode eq 'auth') || ($mode eq 'createcourse') || ($mode eq 'modifycourse')  ) {
+                  $section_checks.$authheader;
-         $result .= $auth_checks;
-     }
-     $result .= $optional_checks."\n".$section_checks;
-     if ( ($mode eq 'auth') || ($mode eq 'createcourse') || ($mode eq 'modifycourse')  ) {
-         $result .= $authheader;
-     }
      return $result;
  }
  ###############################################################
- Line 503  function verify(vf,sec_caller) {
+ Line 567  function verify(vf,sec_caller) {
      var foundsec=0;
      var foundemail=0;
      var foundrole=0;
+     var founddomain=0;
      var tw;
      for (i=0;i<=vf.nfields.value;i++) {
          tw=eval('vf.f'+i+'.selectedIndex');
- Line 513  function verify(vf,sec_caller) {
+ Line 578  function verify(vf,sec_caller) {
          if (tw==9) { foundpwd=1; }
          if (tw==10) { foundemail=1; }
          if (tw==11) { foundrole=1; }
+         if (tw==12) { founddomain=1; }
      }
-     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole);
+     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain);
  }
  //
- Line 535  function verify(vf,sec_caller) {
+ Line 601  function verify(vf,sec_caller) {
  // 9 = ipwd  (password)
  // 10 = email address
  // 11 = role
+ // 12 = domain
  function flip(vf,tf) {
     var nw=eval('vf.f'+tf+'.selectedIndex');
- Line 598  function verify(vf,sec_caller) {
+ Line 665  function verify(vf,sec_caller) {
      var foundid=0;
      var foundsec=0;
      var foundrole=0;
+     var founddomain=0;
      var tw;
      for (i=0;i<=vf.nfields.value;i++) {
          tw=eval('vf.f'+i+'.selectedIndex');
- Line 607  function verify(vf,sec_caller) {
+ Line 675  function verify(vf,sec_caller) {
          if (i==7 && tw!=0) { foundsec=1; }
          if (i==8 && tw!=0) { foundpwd=1; }
          if (i==9 && tw!=0) { foundrole=1; }
+         if (i==10 && tw!=0) { founddomain=1; }
      }
-     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundrole);
+     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundrole,founddomain);
  }
  function flip(vf,tf) {
- Line 647  ENDPICK
+ Line 716  ENDPICK
  ###############################################################
  ###############################################################
  sub print_upload_manager_footer {
-     my ($r,$i,$keyfields,$defdom,$today,$halfyear,$context)=@_;
+     my ($r,$i,$keyfields,$defdom,$today,$halfyear,$context,$permission) = @_;
-     my $formname;
+     my $form = 'document.studentform';
-     if ($context eq 'course') {
+     my $formname = 'studentform';
-         $formname = 'document.studentform';
-     } elsif ($context eq 'construction_space') {
-         $formname = 'document.studentform';
-     } elsif ($context eq 'domain') {
-         $formname = 'document.studentform';
-     }
      my ($krbdef,$krbdefdom) =
          &Apache::loncommon::get_kerberos_defaults($defdom);
-     my %param = ( formname => $formname,
+     my %param = ( formname => $form,
                    kerb_def_dom => $krbdefdom,
                    kerb_def_auth => $krbdef
                    );
- Line 670  sub print_upload_manager_footer {
+ Line 733  sub print_upload_manager_footer {
      my $krbform = &Apache::loncommon::authform_kerberos(%param);
      my $intform = &Apache::loncommon::authform_internal(%param);
      my $locform = &Apache::loncommon::authform_local(%param);
-     my $date_table = &date_setting_table(undef,undef,$context);
+     my $date_table = &date_setting_table(undef,undef,$context,undef,
+                                          $formname,$permission);
      my $Str = "\n".'<div class="LC_left_float">';
      $Str .= &hidden_input('nfields',$i);
      $Str .= &hidden_input('keyfields',$keyfields);
      $Str .= "<h3>".&mt('Login Type')."</h3>\n";
      if ($context eq 'domain') {
-         $Str .= '<p>'.&mt('Change authentication for existing users to these settings?').'&nbsp;<span class="LC_nobreak"><label><input type="radio" name="changeauth" value="No" checked="checked" />'.&mt('No').'</label>&nbsp;&nbsp;<label><input type="radio" name="changeauth" value="Yes" />'.&mt('Yes').'</label></span></p>';
+         $Str .= '<p>'.&mt('Change authentication for existing users in domain "[_1]" to these settings?',$defdom).'&nbsp;<span class="LC_nobreak"><label><input type="radio" name="changeauth" value="No" checked="checked" />'.&mt('No').'</label>&nbsp;&nbsp;<label><input type="radio" name="changeauth" value="Yes" />'.&mt('Yes').'</label></span></p>';
      } else {
          $Str .= "<p>\n".
-             &mt('Note: this will not take effect if the user already exists').
+             &mt('Note: This will not take effect if the user already exists.').
              &Apache::loncommon::help_open_topic('Auth_Options').
              "</p>\n";
      }
- Line 695  sub print_upload_manager_footer {
+ Line 758  sub print_upload_manager_footer {
      } else {
          $Str .= $home_server_pick;
      }
+     $Str .= '<h3>'.&mt('Default domain').'</h3>'."\n".
+             &Apache::loncommon::select_dom_form($defdom,'defaultdomain',undef,1);
      $Str .= '<h3>'.&mt('Starting and Ending Dates').
              "</h3>\n";
      $Str .= "<p>\n".$date_table."</p>\n";
- Line 702  sub print_upload_manager_footer {
+ Line 767  sub print_upload_manager_footer {
          $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>';
      }
-     if ($context eq 'construction_space') {
+     if ($context eq 'author') {
          $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 a value specified in the uploaded file');
      } elsif ($context eq 'course') {
          $Str .= '<h3>'.&mt('Default role and section')."</h3>\n".
-                 &mt('Choose the role and/or section to assign to users without one specified in the uploaded file');
+                 &mt('Choose the role and/or section(s) to assign to users without values specified in the uploaded file');
      } else {
-         $Str .= '<br /><br /><b>'.&mt('Default role and/or section')."</b><br />\n".
+         $Str .= '<br /><br /><b>'.&mt('Default role and/or section(s)')."</b><br />\n".
-                 &mt('Role and/or section for users without one in the uploaded file.');
+                 &mt('Role and/or section(s) for users without values specified in the uploaded file.');
-     }
-     $Str .= '<br /><br />';
-     my ($options,$cb_script,$coursepick) = &default_role_selector($context,'defaultrole',1);
-     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;
-     } elsif ($context eq 'construction_space') {
-         $Str .= $options;
-     } else {
-         $Str .= '<table><tr><td><span class="LC_nobreak"<b>'.&mt('role').':&nbsp;</b>'.
-                 $options.'</span></td><td>&nbsp;</td><td><span class="LC_nobreak">'.
-                 '<b>'.&mt('section').':&nbsp;</b><input type="text" name="section" value="" size="12" /></span></td></tr></table>';
      }
-     if ($context eq 'course') {
+     $Str .= '<br />';
-         $Str .= "<h3>".&mt('Full Update')."</h3>\n".
+     if (($context eq 'domain') || ($context eq 'author')) {
-                 '<label><input type="checkbox" name="fullup" value="yes">'.
+         my ($options,$cb_script,$coursepick) = &default_role_selector($context,1);
-                 ' '.&mt('Full update (also print list of users not enrolled anymore)').
+         if ($context eq 'domain') {
-                 "</label></p>\n";
+             $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 'author') {
+             $Str .= $options;
+         }
+     } else {
+         my ($cnum,$cdom) = &get_course_identity();
+         my $rowtitle = &mt('section');
+         my $secbox = &section_picker($cdom,$cnum,'Any',$rowtitle,
+                                      $permission,$context,'upload');
+         $Str .= $secbox."<h3>".&mt('Full Update')."</h3>\n".
+                 '<p><label><input type="checkbox" name="fullup" value="yes">'.
+                 ' '.&mt('Display students with current/future access who are not in the uploaded file.').'</label><br />'.&mt('Students selected from this list can be dropped.').'</p>'."\n";
      }
      if ($context eq 'course' || $context eq 'domain') {
          $Str .= &forceid_change($context);
      }
-     $Str .= '</div><div class="LC_clear_float_footer"><br /><input type="button"'.
-               'onClick="javascript:verify(this.form,this.form.csec)" '.
-         'value="Update Users" />'."<br />\n";
-     if ($context eq 'course') {
-         $Str .= &mt('Note: for large courses, this operation may be time '.
-                     'consuming');
-     }
      $Str .= '</div>';
+     $Str .= '<div class="LC_clear_float_footer">';
+     if ($context eq 'course') {
+         $Str .= '<div class="LC_info">'
+                .&mt('Note: For large courses, this operation may be time consuming.')
+                .'</div>';
+     }
+     $Str .= '<input type="button"'
+            .'onClick="javascript:verify(this.form,this.form.csec)" '
+            .'value="'.&mt('Update Users').'" />'."\n"
+            .'</div>';
      $r->print($Str);
      return;
  }
- Line 747  sub print_upload_manager_footer {
+ Line 815  sub print_upload_manager_footer {
  sub forceid_change {
      my ($context) = @_;
      my $output =
-         "<h3>".&mt('ID/Student Number')."</h3>\n".
+         "<h3>".&mt('Student/Employee ID')."</h3>\n".
          "<p>\n".'<label><input type="checkbox" name="forceid" value="yes">'.
-         &mt('Disable ID/Student Number Safeguard and Force Change '.
+         &mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs').
-         'of Conflicting IDs').'</label><br />'."\n".
+         '</label><br />'."\n".
-         &mt('(only do if you know what you are doing.)')."</br><br />\n";
+         &mt('(only do if you know what you are doing.)')."\n";
      if ($context eq 'domain') {
-         $output .= '<label><input type="checkbox" name="recurseid"'.
+         $output .= '<br /><label><input type="checkbox" name="recurseid"'.
                     ' value="yes">'.
-   &mt('Update ID/Student Number in courses in which user is an Active or Future student, (if forcing change).').
+   &mt('Update Student/Employee ID in courses in which user is active/future student,[_1](if forcing change).','<br />').
-                    '</label></p>'."\n";
+                    '</label>'."\n";
      }
+     $output .= '</p>';
      return $output;
  }
  ###############################################################
  ###############################################################
  sub print_upload_manager_form {
-     my ($r,$context) = @_;
+     my ($r,$context,$permission) = @_;
      my $firstLine;
      my $datatoken;
      if (!$env{'form.datatoken'}) {
- Line 794  sub print_upload_manager_form {
+ Line 863  sub print_upload_manager_form {
                                 'ipwd_choice' => 'scalar',
                                 'email_choice' => 'scalar',
                                 'role_choice' => 'scalar',
+                                'domain_choice' => 'scalar',
                               };
      my $defdom = $env{'request.role.domain'};
      if ($context eq 'course') {
- Line 808  sub print_upload_manager_form {
+ Line 878  sub print_upload_manager_form {
      my ($krbdef,$krbdefdom) =
          &Apache::loncommon::get_kerberos_defaults($defdom);
      #
-     &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom,$context);
+     &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom,$context,
+                                  $permission);
      my $i;
      my $keyfields;
      if ($total>=0) {
- Line 819  sub print_upload_manager_form {
+ Line 890  sub print_upload_manager_form {
               ['mname',&mt('Middle Names/Initials'),$env{'form.mname_choice'}],
               ['lname',&mt('Last Name'),       $env{'form.lname_choice'}],
               ['gen',  &mt('Generation'),      $env{'form.gen_choice'}],
-              ['id',   &mt('ID/Student Number'),$env{'form.id_choice'}],
+              ['id',   &mt('Student/Employee ID'),$env{'form.id_choice'}],
               ['sec',  &mt('Section'),          $env{'form.sec_choice'}],
               ['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}],
               ['email',&mt('E-mail Address'),   $env{'form.email_choice'}],
-              ['role',&mt('Role'),             $env{'form.role_choice'}]);
+              ['role',&mt('Role'),             $env{'form.role_choice'}],
+              ['domain',&mt('Domain'),         $env{'form.domain_choice'}]);
          if ($env{'form.upfile_associate'} eq 'reverse') {
              &Apache::loncommon::csv_print_samples($r,\@records);
              $i=&Apache::loncommon::csv_print_select_table($r,\@records,
- Line 842  sub print_upload_manager_form {
+ Line 914  sub print_upload_manager_form {
      }
      $r->print('</div>');
      &print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear,
-                                  $context);
+                                  $context,$permission);
  }
  sub setup_date_selectors {
-     my ($starttime,$endtime,$mode) = @_;
+     my ($starttime,$endtime,$mode,$nolink,$formname) = @_;
+     if ($formname eq '') {
+         $formname = 'studentform';
+     }
      if (! defined($starttime)) {
          $starttime = time;
          unless ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
- Line 867  sub setup_date_selectors {
+ Line 942  sub setup_date_selectors {
              }
          }
      }
-     my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',
-                                                             'startdate',
+     my $startdateform =
-                                                             $starttime);
+         &Apache::lonhtmlcommon::date_setter($formname,'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($formname,'enddate',$endtime,
+             undef,undef,undef,undef,undef,undef,undef,$nolink);
      if ($mode eq 'create_enrolldates') {
          $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs',
                                                              'startenroll',
- Line 894  sub setup_date_selectors {
+ Line 972  sub setup_date_selectors {
  sub get_dates_from_form {
-     my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate');
+     my ($startname,$endname) = @_;
-     my $enddate   = &Apache::lonhtmlcommon::get_date_from_form('enddate');
+     if ($startname eq '') {
+         $startname = 'startdate';
+     }
+     if ($endname eq '') {
+         $endname = 'enddate';
+     }
+     my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname);
+     my $enddate   = &Apache::lonhtmlcommon::get_date_from_form($endname);
      if ($env{'form.no_end_date'}) {
          $enddate = 0;
      }
- Line 903  sub get_dates_from_form {
+ Line 988  sub get_dates_from_form {
  }
  sub date_setting_table {
-     my ($starttime,$endtime,$mode) = @_;
+     my ($starttime,$endtime,$mode,$bulkaction,$formname,$permission) = @_;
-     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,$formname);
      my $dateDefault;
      if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
          $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>';
+             ($env{'form.action'} eq 'upload')) {
+             if ($env{'request.course.sec'} eq '') {
+                 $dateDefault = '<span class="LC_nobreak">'.
+                     '<label><input type="checkbox" name="makedatesdefault" value="1" /> '.
+                     &mt('make these dates the default access dates for future student 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) {
-         $perpetual .= ' checked';
+         $perpetual .= ' checked="checked"';
      }
-     $perpetual.= ' /> '.&mt('no ending date').'</label></nobr>';
+     $perpetual.= ' /> '.&mt('no ending date').'</label></span>';
      if ($mode eq 'create_enrolldates') {
          $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();
      if ($dateDefault) {
          $result .=  $dateDefault.'<br />'."\n";
      }
- Line 942  sub make_dates_default {
+ Line 1039  sub make_dates_default {
      my ($startdate,$enddate,$context) = @_;
      my $result = '';
      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',
                  {'default_enrollment_start_date'=>$startdate,
-                  'default_enrollment_end_date'  =>$enddate},$dom,$crs);
+                  'default_enrollment_end_date'  =>$enddate},$cdom,$cnum);
          if ($put_result eq 'ok') {
-             $result .= "Set default start and end dates for course<br />";
+             $result .= &mt('Set default start and end access dates for course.').
+                        '<br />'."\n";
              #
              # Refresh the course environment
              &Apache::lonnet::coursedescription($env{'request.course.id'},
                                                 {'freshen_cache' => 1});
          } else {
-             $result .= &mt('Unable to set default dates for course').":".$put_result.
+             $result .= &mt('Unable to set default access dates for course.').":".$put_result.
                         '<br />';
          }
      }
- Line 965  sub default_role_selector {
+ Line 1062  sub default_role_selector {
      my ($context,$checkpriv) = @_;
      my %customroles;
      my ($options,$coursepick,$cb_jscript);
-     if ($context ne 'construction_space') {
+     if ($context ne 'author') {
          %customroles = &my_custom_roles();
      }
- Line 979  sub default_role_selector {
+ Line 1076  sub default_role_selector {
                 ' <option value="">'.&mt('Please select').'</option>'."\n";
      if ($context eq 'course') {
          $options .= &default_course_roles($context,$checkpriv,%customroles);
-     } elsif ($context eq 'construction_space') {
+     } elsif ($context eq 'author') {
          my @roles = &construction_space_roles($checkpriv);
          foreach my $role (@roles) {
             my $plrole=&Apache::lonnet::plaintext($role);
- Line 992  sub default_role_selector {
+ Line 1089  sub default_role_selector {
             $options .= '  <option value="'.$role.'">'.$plrole.'</option>';
          }
          my $courseform = &Apache::loncommon::selectcourse_link
-             ('studentform','defaultcourse','defaultdomain','defaultdesc',"$env{'request.role.domain'}",undef,'Course');
+             ('studentform','dccourse','dcdomain','coursedesc',"$env{'request.role.domain'}",undef,'Course');
          $cb_jscript =
-             &Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'},'defaultsec','studentform');
+             &Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'},'currsec','studentform');
          $coursepick = &Apache::loncommon::start_data_table().
                        &Apache::loncommon::start_data_table_header_row().
                        '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th>'.
                        '<th>'.$lt{'grs'}.'</th>'.
                        &Apache::loncommon::end_data_table_header_row().
                        &Apache::loncommon::start_data_table_row()."\n".
-                       '<td><input type="text" name="defaultdesc" value="" onFocus="this.blur();opencrsbrowser('."'studentform','defcourse','defdomain','coursedesc',''".')" /></td>'."\n".
+                       '<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'studentform','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".
                        '<td><select name="courserole">'."\n".
                        &default_course_roles($context,$checkpriv,%customroles)."\n".
                        '</select></td><td>'.
                        '<table class="LC_createuser">'.
                        '<tr class="LC_section_row"><td valign"top">'.
-                       $lt{'exs'}.'<br /><select name="defaultsec">'.
+                       $lt{'exs'}.'<br /><select name="currsec">'.
                        ' <option value=""><--'.&mt('Pick course first').
                        '</select></td>'.
                        '<td>&nbsp;&nbsp;</td>'.
                        '<td valign="top">'.$lt{'new'}.'<br />'.
                        '<input type="text" name="newsec" value="" size="5" />'.
-                       '<input type="hidden" name="groups" value="" /></td>'.
+                       '<input type="hidden" name="groups" value="" />'.
-                       '</tr></table></td>'.
+                       '<input type="hidden" name="sections" value="" />'.
+                       '<input type="hidden" name="origdom" value="'.
+                       $env{'request.role.domain'}.'" />'.
+                       '<input type="hidden" name="dccourse" value="" />'.
+                       '<input type="hidden" name="dcdomain" value="" />'.
+                       '</td></tr></table></td>'.
                        &Apache::loncommon::end_data_table_row().
-                       &Apache::loncommon::end_data_table()."\n".
+                       &Apache::loncommon::end_data_table()."\n";
-                       '<input type="hidden" name="defaultcourse" value="" />'.
-                       '<input type="hidden" name="defaultdomain" value="" />';
      }
      $options .= '</select>';
      return ($options,$cb_jscript,$coursepick);
- Line 1027  sub default_role_selector {
+ Line 1127  sub default_role_selector {
  sub default_course_roles {
      my ($context,$checkpriv,%customroles) = @_;
      my $output;
-     my @roles = &course_roles($context,$checkpriv);
+     my $custom = 1;
+     my @roles = &course_roles($context,$checkpriv,$custom);
      foreach my $role (@roles) {
-         my $plrole=&Apache::lonnet::plaintext($role);
+         if ($role ne 'cr') {
-         $output .= '  <option value="'.$role.'">'.$plrole.'</option>';
+             my $plrole=&Apache::lonnet::plaintext($role);
+             $output .= '  <option value="'.$role.'">'.$plrole.'</option>';
+         }
      }
      if (keys(%customroles) > 0) {
-         my %customroles = &my_custom_roles();
+         if (grep(/^cr$/,@roles)) {
-         foreach my $cust (sort(keys(%customroles))) {
+             foreach my $cust (sort(keys(%customroles))) {
-             my $custrole='cr_cr_'.$env{'user.domain'}.
+                 my $custrole='cr_'.$env{'user.domain'}.
-                 '_'.$env{'user.name'}.'_'.$cust;
+                              '_'.$env{'user.name'}.'_'.$cust;
-             $output .= '  <option value="'.$custrole.'">'.$cust.'</option>';
+                 $output .= '  <option value="'.$custrole.'">'.$cust.'</option>';
+             }
          }
      }
      return $output;
- Line 1045  sub default_course_roles {
+ Line 1149  sub default_course_roles {
  sub construction_space_roles {
      my ($checkpriv) = @_;
-     my @allroles = ('ca','aa');
+     my @allroles = &roles_by_context('author');
      my @roles;
      if ($checkpriv) {
          foreach my $role (@allroles) {
- Line 1061  sub construction_space_roles {
+ Line 1165  sub construction_space_roles {
  sub domain_roles {
      my ($checkpriv) = @_;
-     my @allroles = ('dc','li','dg','au','sc');
+     my @allroles = &roles_by_context('domain');
      my @roles;
      if ($checkpriv) {
          foreach my $role (@allroles) {
- Line 1076  sub domain_roles {
+ Line 1180  sub domain_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;
      if ($context eq 'domain') {
          @roles = @allroles;
- Line 1088  sub course_roles {
+ Line 1192  sub course_roles {
                      if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
                          push(@roles,$role);
                      } else {
-                         if ($role ne 'cc' && $env{'request.course.section'} ne '') {
+                         if ($role ne 'cc' && $env{'request.course.sec'} ne '') {
-                             if (!&Apache::lonnet::allowed('c'.$role,
+                             if (&Apache::lonnet::allowed('c'.$role,
                                               $env{'request.course.id'}.'/'.
-                                              $env{'request.course.section'})) {
+                                              $env{'request.course.sec'})) {
                                  push(@roles,$role);
                              }
                          }
- Line 1107  sub course_roles {
+ Line 1211  sub course_roles {
  sub curr_role_permissions {
      my ($context,$setting,$checkpriv) = @_;
+     my $custom = 1;
      my @roles;
-     if ($context eq 'construction_space') {
+     if ($context eq 'author') {
          @roles = &construction_space_roles($checkpriv);
      } elsif ($context eq 'domain') {
          if ($setting eq 'course') {
-             @roles = &course_roles($context,$checkpriv);
+             @roles = &course_roles($context,$checkpriv,$custom);
          } else {
              @roles = &domain_roles($checkpriv);
          }
      } elsif ($context eq 'course') {
-         @roles = &course_roles($context,$checkpriv);
+         @roles = &course_roles($context,$checkpriv,$custom);
      }
      return @roles;
  }
- Line 1149  sub print_userlist {
+ Line 1254  sub print_userlist {
          ($env{'form.Status'});
      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'}) ||
          $env{'form.output'} !~ /^(csv|excel|html)$/ ) {
- Line 1190  sub print_userlist {
+ Line 1299  sub print_userlist {
              $output_selector .= "\n".$option;
          }
          $output_selector .= '</select>';
-         $r->print('<label>'.&mt('Output Format: [_1]',$output_selector).'</label>'.('&nbsp;'x3));
+         $r->print('<label><span class="LC_nobreak">'
-     }
+                  .&mt('Output Format: [_1]',$output_selector)
-     $r->print('<label>'.&mt('User Status: [_1]',$status_select).'</label>'.('&nbsp;'x3)."\n");
+                  .'</span></label>'.('&nbsp;'x3));
+     }
+     $r->print('<label><span class="LC_nobreak">'
+              .&mt('User Status: [_1]',$status_select)
+              .'</span></label>'.('&nbsp;'x3)."\n");
      my $roleselected = '';
      if ($env{'form.showrole'} eq 'Any') {
         $roleselected = ' selected="selected" ';
      }
-     my $role_select;
+     my ($cnum,$cdom);
-     if ($context eq 'domain') {
+     $r->print(&role_filter($context));
-         $role_select = &domain_roles_select();
+     if ($context eq 'course') {
-         $r->print('<label>'.&mt('Role Type: [_1]',$role_select).'</label>');
+         ($cnum,$cdom) = &get_course_identity();
-     } else {
+         $r->print(&section_group_filter($cnum,$cdom));
-         $role_select = '<select name="showrole">'."\n".
-                        '<option value="Any" '.$roleselected.'>'.
-                        &mt('Any role').'</option>';
-         my @poss_roles = &curr_role_permissions($context);
-         foreach my $role (@poss_roles) {
-             $roleselected = '';
-             if ($role eq $env{'form.showrole'}) {
-                 $roleselected = ' selected="selected" ';
-             }
-             my $plrole=&Apache::lonnet::plaintext($role);
-             $role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
-         }
-         $roleselected = '';
-         if ($env{'form.showrole'} eq 'cr') {
-             $roleselected = ' selected="selected" ';
-         }
-         $role_select .= '<option value="cr"'.$roleselected.'>'.&mt('Custom role').'</option>'.
-                         '</select>';
-         $r->print('<label>'.&mt('Role: [_1]',$role_select).'</label>');
      }
      if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {
-         $r->print(&list_submit_button(&mt('Update Display'))."\n</p>\n");
+         $r->print('&nbsp;'.&list_submit_button(&mt('Update Display')).
+                   "\n</p>\n");
      }
      my ($indexhash,$keylist) = &make_keylist_array();
      my (%userlist,%userinfo);
- Line 1239  sub print_userlist {
+ Line 1334  sub print_userlist {
                    &Apache::lonhtmlcommon::row_closure(1).
                    &Apache::lonhtmlcommon::end_pick_box().'</p>'.
                    '<p>'.&list_submit_button(&mt('Update Display')).
-                   "\n</p>\n");
+                   "\n".'</p><span class="LC_warning">'.&mt('Warning: data retrieval for multiple courses can take considerable time, as this operation is not currently optimized.').'</span>'."\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();
      if ($context eq 'course') {
-         my $classlist = &Apache::loncoursedata::get_classlist();
+         if (($env{'form.showrole'} eq 'st') || ($env{'form.showrole'} eq 'Any')) {
-         my $secidx = &Apache::loncoursedata::CL_SECTION();
+             my $classlist = &Apache::loncoursedata::get_classlist();
-         foreach my $student (keys(%{$classlist})) {
+             if (ref($classlist) eq 'HASH') {
-             if (exists($permission->{'view_section'})) {
+                 %userlist = %{$classlist};
-                 if ($classlist->{$student}[$secidx] ne $permission->{'view_section'}) {
-                     next;
-                 } else {
-                     $userlist{$student} = $classlist->{$student};
-                 }
-             } else {
-                 $userlist{$student} = $classlist->{$student};
              }
          }
-         my $cid =$env{'request.course.id'};
+         if ($env{'form.showrole'} ne 'st') {
-         my $cdom=$env{'course.'.$cid.'.domain'};
+             my $showroles;
-         my $cnum=$env{'course.'.$cid.'.num'};
+             if ($env{'form.showrole'} ne 'Any') {
-         my $showroles;
+                 $showroles = [$env{'form.showrole'}];
-         if ($env{'form.showrole'} ne 'Any') {
+             } else {
-             $showroles = [$env{'form.showrole'}];
+                 $showroles = undef;
-         } else {
+             }
-             $showroles = undef;
+             my $withsec = 1;
+             my $hidepriv = 1;
+             my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
+                               \@statuses,$showroles,undef,$withsec,$hidepriv);
+             &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
+                              \%advrolehash,$permission);
          }
-         my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
-                                                         \@statuses,$showroles);
-         &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
-                          \%advrolehash);
      } else {
          my (%cstr_roles,%dom_roles);
-         if ($context eq 'construction_space') {
+         if ($context eq 'author') {
              # 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,
                                                \@statuses,\@possroles);
              &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
-                              \%cstr_roles);
+                              \%cstr_roles,$permission);
          } elsif ($context eq 'domain') {
              if ($env{'form.roletype'} eq 'domain') {
                  %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'});
                  foreach my $key (keys(%dom_roles)) {
                      if (ref($dom_roles{$key}) eq 'HASH') {
                          &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 %coauthors;
                  foreach my $key (keys(%dom_roles)) {
                      if (ref($dom_roles{$key}) eq 'HASH') {
                          if ($env{'form.showrole'} eq 'au') {
                              &gather_userinfo($context,$format,\%userlist,$indexhash,
-                                              \%userinfo,$dom_roles{$key});
+                                              \%userinfo,$dom_roles{$key},$permission);
                          } else {
                              my @possroles;
                              if ($env{'form.showrole'} eq 'Any') {
-                                 @possroles = ('ca','aa');
+                                 @possroles = &roles_by_context('author');
                              } else {
                                  @possroles = ($env{'form.showrole'});
                              }
                              foreach my $author (sort(keys(%{$dom_roles{$key}}))) {
-                                 my ($role,$authorname,$authordom) = split(/:/,$author);
+                                 my ($role,$authorname,$authordom) = split(/:/,$author,-1);
                                  my $extent = '/'.$authordom.'/'.$authorname;
                                  %{$coauthors{$extent}} =
                                      &Apache::lonnet::get_my_roles($authorname,
                                         $authordom,undef,\@statuses,\@possroles);
                              }
                              &gather_userinfo($context,$format,\%userlist,
-                                              $indexhash,\%userinfo,\%coauthors);
+                                      $indexhash,\%userinfo,\%coauthors,$permission);
                          }
                      }
                  }
              } elsif ($env{'form.roletype'} eq 'course') {
                  if ($env{'form.coursepick'}) {
                      my %courses = &process_coursepick();
                      my %allusers;
+                     my $hidepriv = 1;
                      foreach my $cid (keys(%courses)) {
-                         my %coursehash =
+                         my ($cnum,$cdom,$cdesc) = &get_course_identity($cid);
-                             &Apache::lonnet::coursedescription($cid,{'one_time' => 1});
+                         next if ($cnum eq '' || $cdom eq '');
-                         my $cdom = $coursehash{'domain'};
+                         my $custom = 1;
-                         my $cnum = $coursehash{'num'};
-                         my $cdesc = $coursehash{'description'};
                          my (@roles,@sections,%access,%users,%userdata,
                              %statushash);
                          if ($env{'form.showrole'} eq 'Any') {
-                             @roles = &course_roles($context);
+                             @roles = &course_roles($context,undef,$custom);
-                             unshift(@roles,'cr');
                          } else {
                              @roles = ($env{'form.showrole'});
                          }
- Line 1339  sub print_userlist {
+ Line 1430  sub print_userlist {
                          foreach my $type (@statuses) {
                              $access{$type} = $type;
                          }
-                         &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users,\%userdata,\%statushash);
+                         &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users,\%userdata,\%statushash,$hidepriv);
                          foreach my $user (keys(%userdata)) {
                              next if (ref($userinfo{$user}) eq 'HASH');
                              foreach my $item ('fullname','id') {
- Line 1356  sub print_userlist {
+ Line 1447  sub print_userlist {
                          }
                      }
                      &gather_userinfo($context,$format,\%userlist,$indexhash,
-                                      \%userinfo,\%allusers);
+                                      \%userinfo,\%allusers,$permission);
                  } else {
+                     $r->print('<input type="hidden" name="phase" value="'.
+                               $env{'form.phase'}.'" /></form>');
                      return;
                  }
              }
          }
      }
      if (keys(%userlist) == 0) {
-         if ($context eq 'construction_space') {
+         if ($context eq 'author') {
              $r->print(&mt('There are no co-authors to display.')."\n");
          } elsif ($context eq 'domain') {
              if ($env{'form.roletype'} eq 'domain') {
                  $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");
              } elsif ($env{'form.roletype'} eq 'course') {
                  $r->print(&mt('There are no course users to display')."\n");
- Line 1381  sub print_userlist {
+ Line 1474  sub print_userlist {
          # Print out the available choices
          my $usercount;
          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);
          } else {
              ($usercount) = &show_users_list($r,$context,$env{'form.output'},
-                                'aboutme',$env{'form.Status'},\%userlist,$keylist);
+                                $permission,$env{'form.Status'},\%userlist,$keylist);
          }
          if (!$usercount) {
-             $r->print('<br />'.&mt('There are no users matching the search criteria.'));
+             $r->print('<br /><span class="LC_warning">'
+                      .&mt('There are no users matching the search criteria.')
+                      .'</span>'
+             );
+         }
+     }
+     $r->print('<input type="hidden" name="phase" value="'.
+               $env{'form.phase'}.'" /></form>');
+ }
+ sub role_filter {
+     my ($context) = @_;
+     my $output;
+     my $roleselected = '';
+     if ($env{'form.showrole'} eq 'Any') {
+        $roleselected = ' selected="selected" ';
+     }
+     my ($role_select);
+     if ($context eq 'domain') {
+         $role_select = &domain_roles_select();
+         $output = '<label><span class="LC_nobreak">'
+                  .&mt('Role Type: [_1]',$role_select)
+                  .'</span></label>';
+     } else {
+         $role_select = '<select name="showrole">'."\n".
+                        '<option value="Any" '.$roleselected.'>'.
+                        &mt('Any role').'</option>';
+         my @poss_roles = &curr_role_permissions($context);
+         foreach my $role (@poss_roles) {
+             $roleselected = '';
+             if ($role eq $env{'form.showrole'}) {
+                 $roleselected = ' selected="selected" ';
+             }
+             my $plrole;
+             if ($role eq 'cr') {
+                 $plrole = &mt('Custom role');
+             } else {
+                 $plrole=&Apache::lonnet::plaintext($role);
+             }
+             $role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
+         }
+         $role_select .= '</select>';
+         $output = '<label><span class="LC_nobreak">'
+                  .&mt('Role: [_1]',$role_select)
+                  .'</span></label>';
+     }
+     return $output;
+ }
+ sub section_group_filter {
+     my ($cnum,$cdom) = @_;
+     my @filters;
+     if ($env{'request.course.sec'} eq '') {
+         @filters = ('sec');
+     }
+     push(@filters,'grp');
+     my %name = (
+                  sec => 'secfilter',
+                  grp => 'grpfilter',
+                );
+     my %title = &Apache::lonlocal::texthash (
+                                               sec  => 'Section(s)',
+                                               grp  => 'Group(s)',
+                                               all  => 'all',
+                                               none => 'none',
+                                             );
+     my $output;
+     foreach my $item (@filters) {
+         my ($markup,@options);
+         if ($env{'form.'.$name{$item}} eq '') {
+             $env{'form.'.$name{$item}} = 'all';
+         }
+         if ($item eq 'sec') {
+             if ($env{'form.showrole'} eq 'cc') {
+                 $env{'form.'.$name{$item}} = 'none';
+             }
+             my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
+             @options = sort(keys(%sections_count));
+         } elsif ($item eq 'grp') {
+             my %curr_groups = &Apache::longroup::coursegroups();
+             @options = sort(keys(%curr_groups));
+         }
+         if (@options > 0) {
+             my $currsel;
+             $markup = '<select name="'.$name{$item}.'" />'."\n";
+             foreach my $option ('all','none',@options) {
+                 $currsel = '';
+                 if ($env{'form.'.$name{$item}} eq $option) {
+                     $currsel = ' selected="selected" ';
+                 }
+                 $markup .= ' <option value="'.$option.'"'.$currsel.'>';
+                 if (($option eq 'all') || ($option eq 'none')) {
+                     $markup .= $title{$option};
+                 } else {
+                     $markup .= $option;
+                 }
+                 $markup .= '</option>'."\n";
+             }
+             $markup .= '</select>'."\n";
+             $output .= ('&nbsp;'x3).'<label>'.$title{$item}.': '.$markup.'</label>';
          }
      }
-     $r->print('</form>');
+     return $output;
  }
  sub list_submit_button {
      my ($text) = @_;
-     return '<input type="submit" value="'.$text.'" />';
+     return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />';
  }
  sub gather_userinfo {
-     my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash) = @_;
+     my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;
+     my $viewablesec;
+     if ($context eq 'course') {
+         $viewablesec = &viewable_section($permission);
+     }
      foreach my $item (keys(%{$rolehash})) {
-         @{$userlist->{$item}} = ();
          my %userdata;
-         if ($context eq 'construction_space' || $context eq 'course') {
+         if ($context eq 'author') {
              ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =
                  split(/:/,$item);
              ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});
-             &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);
+             &build_user_record($context,\%userdata,$userinfo,$indexhash,
+                                $item,$userlist);
+         } elsif ($context eq 'course') {
+             ($userdata{'username'},$userdata{'domain'},$userdata{'role'},
+              $userdata{'section'}) = split(/:/,$item,-1);
+             ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});
+             if (($viewablesec ne '') && ($userdata{'section'} ne '')) {
+                 next if ($viewablesec ne $userdata{'section'});
+             }
+             &build_user_record($context,\%userdata,$userinfo,$indexhash,
+                                $item,$userlist);
          } elsif ($context eq 'domain') {
              if ($env{'form.roletype'} eq 'domain') {
                  ($userdata{'role'},$userdata{'username'},$userdata{'domain'}) =
                      split(/:/,$item);
                  ($userdata{'end'},$userdata{'start'})=split(/:/,$rolehash->{$item});
-                 &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);
+                 &build_user_record($context,\%userdata,$userinfo,$indexhash,
-             } elsif ($env{'form.roletype'} eq 'construction_space') {
+                                    $item,$userlist);
+             } elsif ($env{'form.roletype'} eq 'author') {
                  if (ref($rolehash->{$item}) eq 'HASH') {
                      $userdata{'extent'} = $item;
                      foreach my $key (keys(%{$rolehash->{$item}})) {
- Line 1423  sub gather_userinfo {
+ Line 1629  sub gather_userinfo {
                          ($userdata{'start'},$userdata{'end'}) =
                              split(/:/,$rolehash->{$item}{$key});
                          my $uniqid = $key.':'.$item;
-                         &build_user_record(\%userdata,$userinfo,$indexhash,$uniqid,$userlist);
+                         &build_user_record($context,\%userdata,$userinfo,
+                                            $indexhash,$uniqid,$userlist);
                      }
                  }
              } elsif ($env{'form.roletype'} eq 'course') {
                  ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =
                      split(/:/,$item);
                  if (ref($rolehash->{$item}) eq 'HASH') {
+                     my $numcids = keys(%{$rolehash->{$item}});
                      foreach my $cid (sort(keys(%{$rolehash->{$item}}))) {
                          if (ref($rolehash->{$item}{$cid}) eq 'HASH') {
                              my $spanstart = '';
- Line 1437  sub gather_userinfo {
+ Line 1645  sub gather_userinfo {
                              my $space = ', ';
                              if ($format eq 'html' || $format eq 'view') {
                                  $spanstart = '<span class="LC_nobreak">';
+                                 # FIXME: actions on courses disabled for now
+ #                                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 />';
                                  $space = ',&nbsp;';
                              }
- Line 1444  sub gather_userinfo {
+ Line 1660  sub gather_userinfo {
                                      $rolehash->{$item}{$cid}{'desc'}.$space;
                              if (ref($rolehash->{$item}{$cid}{'secs'}) eq 'HASH') {
                                  foreach my $sec (sort(keys(%{$rolehash->{$item}{$cid}{'secs'}}))) {
-                                     $userdata{'extent'} .= $sec.$space.$rolehash->{$item}{$cid}{'secs'}{$sec}.$spanend;
+                                     if (($env{'form.Status'} eq 'Any') ||
+                                         ($env{'form.Status'} eq $rolehash->{$item}{$cid}{'secs'}{$sec})) {
+                                         $userdata{'extent'} .= $sec.$space.$rolehash->{$item}{$cid}{'secs'}{$sec}.$spanend;
+                                         $userdata{'status'} = $rolehash->{$item}{$cid}{'secs'}{$sec};
+                                     }
                                  }
                              }
                          }
                      }
                  }
-                 &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);
+                 if ($userdata{'status'} ne '') {
+                     &build_user_record($context,\%userdata,$userinfo,
+                                        $indexhash,$item,$userlist);
+                 }
              }
          }
      }
- Line 1458  sub gather_userinfo {
+ Line 1681  sub gather_userinfo {
  }
  sub build_user_record {
-     my ($userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;
+     my ($context,$userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;
-     &process_date_info($userdata);
+     next if ($userdata->{'start'} eq '-1' && $userdata->{'end'} eq '-1');
+     if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {
+         &process_date_info($userdata);
+     }
      my $username = $userdata->{'username'};
      my $domain = $userdata->{'domain'};
      if (ref($userinfo->{$username.':'.$domain}) eq 'HASH') {
-         $userdata->{'fullname'} =
+         $userdata->{'fullname'} = $userinfo->{$username.':'.$domain}{'fullname'};
-         $userinfo->{$username.':'.$domain}{'fullname'};
          $userdata->{'id'} = $userinfo->{$username.':'.$domain}{'id'};
      } else {
          &aggregate_user_info($domain,$username,$userinfo);
- Line 1648  sub make_keylist_array {
+ Line 1873  sub make_keylist_array {
      $index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL();
      $index->{'role'} = &Apache::loncoursedata::CL_ROLE();
      $index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();
+     $index->{'photo'} = &Apache::loncoursedata::CL_PHOTO();
+     $index->{'thumbnail'} = &Apache::loncoursedata::CL_THUMBNAIL();
      foreach my $key (keys(%{$index})) {
          $keylist->[$index->{$key}] = $key;
      }
- Line 1681  sub aggregate_user_info {
+ Line 1908  sub aggregate_user_info {
  sub process_date_info {
      my ($userdata) = @_;
      my $now = time;
-     $userdata->{'status'} = 'Active';
+     $userdata->{'status'} = &mt('Active');
      if ($userdata->{'start'} > 0) {
          if ($now < $userdata->{'start'}) {
-             $userdata->{'status'} = 'Future';
+             $userdata->{'status'} = &mt('Future');
          }
      }
      if ($userdata->{'end'} > 0) {
          if ($now > $userdata->{'end'}) {
-             $userdata->{'status'} = 'Expired';
+             $userdata->{'status'} = &mt('Expired');
          }
      }
      return;
  }
  sub show_users_list {
-     my ($r,$context,$mode,$linkto,$statusmode,$userlist,$keylist)=@_;
+     my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist,$formname)=@_;
+     if ($formname eq '') {
+         $formname = 'studentform';
+     }
      #
      # Variables for excel output
      my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);
- Line 1711  sub show_users_list {
+ Line 1941  sub show_users_list {
      } else {
          push(@sortable,'extent');
      }
+     if ($mode eq 'pickauthor') {
+         @sortable = ('username','fullname','email','status');
+     }
      if (!grep(/^\Q$sortby\E$/,@sortable)) {
          $sortby = 'username';
      }
+     my $setting = $env{'form.roletype'};
      my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers);
      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(
                                       $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">
  function photowindow(photolink) {
      var title = "Photo_Viewer";
- Line 1740  function photowindow(photolink) {
+ Line 1976  function photowindow(photolink) {
      stdeditbrowser.focus();
  }
  </script>
-            ');
+                ');
-         }
+             }
-         $r->print(<<END);
+             $r->print(<<END);
  <input type="hidden" name="displayphotos" value="$displayphotos" />
  <input type="hidden" name="displayclickers" value="$displayclickers" />
  END
+         }
      }
-     unless ($mode eq 'autoenroll') {
+     if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {
+         my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
+         my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode);
+         my $verify_action_js = &bulkaction_javascript($formname);
          $r->print(<<END);
+ <script type="text/javascript" language="Javascript">
+ $check_uncheck_js
+ $verify_action_js
+ function username_display_launch(username,domain) {
+     var target;
+     for (var i=0; i<document.$formname.usernamelink.length; i++) {
+         if (document.$formname.usernamelink[i].checked) {
+             target = document.$formname.usernamelink[i].value;
+         }
+     }
+     if (target == 'modify') {
+         if (document.$formname.userwin.checked == true) {
+             var url = '/adm/createuser?srchterm='+username+'&srchdomain='+domain+'&phase=get_user_info&action=singleuser&srchin=dom&srchby=uname&srchtype=exact&popup=1';
+             var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
+             modifywin = window.open(url,'',options,1);
+             modifywin.focus();
+             return;
+         } else {
+             document.$formname.srchterm.value=username;
+             document.$formname.srchdomain.value=domain;
+             document.$formname.phase.value='get_user_info';
+             document.$formname.action.value = 'singleuser';
+             document.$formname.submit();
+         }
+     }
+     if (target == 'aboutme') {
+         if (document.$formname.userwin.checked == true) {
+             var url = '/adm/'+domain+'/'+username+'/aboutme?popup=1';
+             var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
+             aboutmewin = window.open(url,'',options,1);
+             aboutmewin.focus();
+             return;
+         } else {
+             document.location.href = '/adm/'+domain+'/'+username+'/aboutme';
+         }
+     }
+ }
+ </script>
+ $date_sec_selector
  <input type="hidden" name="state" value="$env{'form.state'}" />
  END
      }
- Line 1769  END
+ Line 2051  END
                         'role'       => "role",
                         'type'       => "enroll type/action",
                         'email'      => "email address",
-                        'clicker'    => "clicker id",
                         'photo'      => "photo",
                         'extent'     => "extent",
+                        'pr'         => "Proceed",
+                        'ca'         => "check all",
+                        'ua'         => "uncheck all",
+                        'ac'         => "Action to take for selected users",
+                        'link'       => "Behavior of clickable username link for each user",
+                        'aboutme'    => "Display a user's personal page",
+                        'owin'       => "Open in a new window",
+                        'modify'     => "Modify a user's information",
+                        'clicker'    => "Clicker-ID",
                        );
      if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
          $lt{'extent'} = &mt('Course(s): description, section(s), status');
-     } elsif ($context eq 'construction_space') {
+     } elsif ($context eq 'author') {
          $lt{'extent'} = &mt('Author');
      }
-     my @cols = ('username','domain','id','fullname');
+     my @cols;
-     if ($context eq 'course') {
+     if ($mode eq 'pickauthor') {
-         push(@cols,'section');
+         @cols = ('username','fullname','status','email');
-     }
+     } else {
-     if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) {
+         @cols = ('username','domain','id','fullname');
-         push(@cols,('start','end'));
+         if ($context eq 'course') {
-     }
+             push(@cols,'section');
-     if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') {
+         }
-         push(@cols,'role');
+         if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) {
-     }
+             push(@cols,('start','end'));
-     if ($context eq 'domain' && ($env{'form.roletype'} eq 'construction_space' ||
+         }
-                                 $env{'form.roletype'} eq 'course')) {
+         if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') {
-         push (@cols,'extent');
+             push(@cols,'role');
-     }
+         }
-     if (($statusmode eq 'Any') &&
+         if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' ||
-         (!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) {
+                                     $env{'form.roletype'} eq 'course')) {
-         push(@cols,'status');
+             push (@cols,'extent');
-     }
+         }
-     if ($context eq 'course') {
+         if (($statusmode eq 'Any') &&
-         push(@cols,'groups');
+             (!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) {
+             push(@cols,'status');
+         }
+         if ($context eq 'course') {
+             push(@cols,'groups');
+         }
+         push(@cols,'email');
      }
-     push(@cols,'email');
      my $rolefilter = $env{'form.showrole'};
      if ($env{'form.showrole'} eq 'cr') {
- Line 1807  END
+ Line 2102  END
      } elsif ($env{'form.showrole'} ne 'Any') {
          $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,$mode);
-     if ($mode eq 'html' || $mode eq 'view') {
+         $r->print('<b>'.$results_description.'</b><br /><br />');
-         $r->print(<<END);
+     }
- <input type="hidden" name="sname"  value="" />
+     my ($output,$actionselect,%canchange,%canchangesec);
- <input type="hidden" name="sdom"   value="" />
+     if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
+         if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {
+             if ($permission->{'cusr'}) {
+                 $actionselect = &select_actions($context,$setting,$statusmode,$formname);
+             }
+             $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
+             if ($actionselect) {
+                 $output .= <<"END";
+ <div class="LC_left_float"><fieldset><legend><b>$lt{'ac'}</b></legend>
+ $actionselect
+ <br/><br /><input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.$formname.actionlist)" /> &nbsp;
+ <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.$formname.actionlist)" /><br /><input type="button" value="$lt{'pr'}" onclick="javascript:verify_action('actionlist')" /></fieldset></div>
  END
-         if ($linkto eq 'aboutme') {
+                 my @allroles;
-             $output = &mt("Select a user name to view the user's personal page.");
+                 if ($env{'form.showrole'} eq 'Any') {
-         } elsif ($linkto eq 'modify') {
+                     my $custom = 1;
-             $output = &mt("Select a user name to modify the user's information");
+                     if ($context eq 'domain') {
+                         @allroles = &roles_by_context($setting,$custom);
+                     } else {
+                         @allroles = &roles_by_context($context,$custom);
+                     }
+                 } else {
+                     @allroles = ($env{'form.showrole'});
+                 }
+                 foreach my $role (@allroles) {
+                     if ($context eq 'domain') {
+                         if ($setting eq 'domain') {
+                             if (&Apache::lonnet::allowed('c'.$role,
+                                     $env{'request.role.domain'})) {
+                                 $canchange{$role} = 1;
+                             }
+                         } elsif ($setting eq 'author') {
+                             if (&Apache::lonnet::allowed('c'.$role,
+                                     $env{'request.role.domain'})) {
+                                 $canchange{$role} = 1;
+                             }
+                         }
+                     } elsif ($context eq 'author') {
+                         if (&Apache::lonnet::allowed('c'.$role,
+                             $env{'user.domain'}.'/'.$env{'user.name'})) {
+                             $canchange{$role} = 1;
+                         }
+                     } elsif ($context eq 'course') {
+                         if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
+                             $canchange{$role} = 1;
+                         } elsif ($env{'request.course.sec'} ne '') {
+                             if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
+                                 $canchangesec{$role} = $env{'request.course.sec'};
+                             }
+                         }
+                     }
+                 }
+             }
+             $output .= '<div class="LC_left_float"><fieldset><legend><b>'.$lt{'link'}.'</b></legend>'.
+                        '<table><tr>';
+             my @linkdests = ('aboutme');
+             if ($permission->{'cusr'}) {
+                 unshift (@linkdests,'modify');
+             }
+             $output .= '<td>';
+             my $usernamelink = $env{'form.usernamelink'};
+             if ($usernamelink eq '') {
+                 $usernamelink = 'aboutme';
+             }
+             foreach my $item (@linkdests) {
+                 my $checkedstr = '';
+                 if ($item eq $usernamelink) {
+                     $checkedstr = ' checked="checked" ';
+                 }
+                 $output .= '<span class="LC_nobreak"><label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.'>&nbsp;'.$lt{$item}.'</label></span><br />';
+             }
+             my $checkwin;
+             if ($env{'form.userwin'}) {
+                 $checkwin = 'checked = "checked"';
+             }
+             $output .= '</td><td valign="top"><span class="LC_nobreak"><input type="checkbox" name="userwin" value="1" '.$checkwin.'/>'.$lt{'owin'}.'</span></td></tr></table></fieldset></div>';
          }
-         $output .= "\n<p>\n".
+         $output .= "\n".'<div class="LC_clear_float_footer">&nbsp;</div>'."\n".
                    &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row();
          if ($mode eq 'autoenroll') {
              $output .= "
-  <th><a href=\"javascript:document.studentform.sortby.value='type';document.studentform.submit();\">$lt{'type'}</a></th>
+  <th><a href=\"javascript:document.$formname.sortby.value='type';document.$formname.submit();\">$lt{'type'}</a></th>
              ";
          } else {
-             $output .= "
+             if ($mode eq 'pickauthor') {
- <th>Count</th>
+                 $output .= "\n".'<th>&nbsp;</th>'."\n";
-             ";
+             } else {
+                 $output .= "\n".'<th>'.&mt('Count').'</th>'."\n";
+             }
+             if ($actionselect) {
+                 $output .= '<th>'.&mt('Select').'</th>'."\n";
+             }
          }
          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.$formname.sortby.value='$item';document.$formname.submit();\">$lt{$item}</a></th>\n";
          }
          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') {
                  # Clicker display on or off?
-                 my %clicker_options = &Apache::lonlocal::texthash(
+                 my %clicker_options = (
-                                                             'on' => 'Show',
+                                         'on' => 'Show',
-                                                             'off' => 'Hide',
+                                         'off' => 'Hide',
-                                                            );
+                                       );
                  my $clickerchg = 'on';
                  if ($displayclickers eq 'on') {
                      $clickerchg = 'off';
                  }
-                 $output .= '    <th>'."\n".'     '.
+                 $output .= '    <th>'."\n".'     '
-                     '<a href="javascript:document.studentform.displayclickers.value='.
+                         .&mt('[_1]'.$clicker_options{$clickerchg}.'[_2] clicker id'
-                       "'".$clickerchg."'".';document.studentform.submit();">'.
+                             ,'<a href="javascript:document.'.$formname.'.displayclickers.value='
-                       $clicker_options{$clickerchg}.'</a>&nbsp;'.$lt{'clicker'}."\n".
+                              ."'".$clickerchg."'".';document.'.$formname.'.submit();">'
-                       '    </th>'."\n";
+                             ,'</a>')
+                         ."\n".'    </th>'."\n";
                  # Photo display on or off?
                  if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
- Line 1865  END
+ Line 2242  END
                          $photochg = 'off';
                      }
                      $output .= '    <th>'."\n".'     '.
-                 '<a href="javascript:document.studentform.displayphotos.value='.
+                 '<a href="javascript:document.'.$formname.'.displayphotos.value='.
-                       "'".$photochg."'".';document.studentform.submit();">'.
+                       "'".$photochg."'".';document.'.$formname.'.submit();">'.
                        $photo_options{$photochg}.'</a>&nbsp;'.$lt{'photo'}."\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
      } elsif ($mode eq 'csv') {
          #
- Line 1882  END
+ Line 2259  END
                         time.'_'.rand(1000000000).'.csv';
          unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) {
              $r->log_error("Couldn't open $CSVfilename for output $!");
-             $r->print("Problems occured in writing the csv file.  ".
+             $r->print(&mt('Problems occurred in writing the CSV file. '
-                       "This error has been logged.  ".
+                          .'This error has been logged. '
-                       "Please alert your LON-CAPA administrator.");
+                          .'Please alert your LON-CAPA administrator.'));
              $CSVfile = undef;
          }
          #
+         push @cols,'clicker';
          # Write headers and data to file
          print $CSVfile '"'.$results_description.'"'."\n";
          print $CSVfile '"'.join('","',map {
              &Apache::loncommon::csv_translate($lt{$_})
-             } (@cols)).'"'."\n";
+             } (@cols))."\"\n";
      } elsif ($mode eq 'excel') {
+         push @cols,'clicker';
          # Create the excel spreadsheet
          ($excel_workbook,$excel_filename,$format) =
              &Apache::loncommon::create_workbook($r);
- Line 1902  END
+ Line 2281  END
          $excel_sheet->write($row++,0,$results_description,$format->{'h2'});
          #
          my @colnames = map {$lt{$_}} (@cols);
          $excel_sheet->write($row++,0,\@colnames,$format->{'bold'});
      }
  # Done with header lines in all formats
      my %index;
      my $i;
      foreach my $idx (@$keylist) {
          $index{$idx} = $i++;
      }
      my $usercount = 0;
+     my ($secfilter,$grpfilter);
+     if ($context eq 'course') {
+         $secfilter = $env{'form.secfilter'};
+         $grpfilter = $env{'form.grpfilter'};
+         if ($secfilter eq '') {
+             $secfilter = 'all';
+         }
+         if ($grpfilter eq '') {
+             $grpfilter = 'all';
+         }
+     }
      # Get groups, role, permanent e-mail so we can sort on them if
      # necessary.
      foreach my $user (keys(%{$userlist})) {
+         if ($user eq '' ) {
+             delete($userlist->{$user});
+             next;
+         }
+         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);
          if (($statusmode ne 'Any') &&
                   ($userlist->{$user}->[$index{'status'}] ne $statusmode)) {
- Line 1925  END
+ Line 2323  END
          if ($context eq 'domain') {
              if ($env{'form.roletype'} eq 'domain') {
                  ($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);
              } elsif ($env{'form.roletype'} eq 'course') {
                  ($uname,$udom,$role) = split(/:/,$user);
- Line 1942  END
+ Line 2344  END
              delete($userlist->{$user});
              next;
          }
-         if (ref($classgroups) eq 'HASH') {
+         if ($context eq 'course') {
-             $groups = $classgroups->{$user};
+             my @ac_groups;
-         }
+             if (ref($classgroups) eq 'HASH') {
-         if (ref($groups->{active}) eq 'HASH') {
+                 $groups = $classgroups->{$user};
-             $userlist->{$user}->[$index{'groups'}] = join(', ',keys(%{$groups->{'active'}}));
+             }
+             if (ref($groups->{'active'}) eq 'HASH') {
+                 @ac_groups = keys(%{$groups->{'active'}});
+                 $userlist->{$user}->[$index{'groups'}] = join(', ',@ac_groups);
+             }
+             if ($mode ne 'autoenroll') {
+                 my $section = $userlist->{$user}->[$index{'section'}];
+                 if (($env{'request.course.sec'} ne '') &&
+                     ($section ne $env{'request.course.sec'})) {
+                     if ($role eq 'st') {
+                         delete($userlist->{$user});
+                         next;
+                     }
+                 }
+                 if ($secfilter eq 'none') {
+                     if ($section ne '') {
+                         delete($userlist->{$user});
+                         next;
+                     }
+                 } elsif ($secfilter ne 'all') {
+                     if ($section ne $secfilter) {
+                         delete($userlist->{$user});
+                         next;
+                     }
+                 }
+                 if ($grpfilter eq 'none') {
+                     if (@ac_groups > 0) {
+                         delete($userlist->{$user});
+                         next;
+                     }
+                 } elsif ($grpfilter ne 'all') {
+                     if (!grep(/^\Q$grpfilter\E$/,@ac_groups)) {
+                         delete($userlist->{$user});
+                         next;
+                     }
+                 }
+                 if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
+                     if (($displayphotos eq 'on') && ($role eq 'st')) {
+                         $userlist->{$user}->[$index{'photo'}] =
+                             &Apache::lonnet::retrievestudentphoto($udom,$uname,'jpg');
+                         $userlist->{$user}->[$index{'thumbnail'}] =
+                             &Apache::lonnet::retrievestudentphoto($udom,$uname,
+                                                                 'gif','thumbnail');
+                     }
+                 }
+             }
          }
          my %emails   = &Apache::loncommon::getemails($uname,$udom);
          if ($emails{'permanentemail'} =~ /\S/) {
- Line 1986  END
+ Line 2433  END
          foreach my $item (@{$keylist}) {
              $in{$item} = $sdata->[$index{$item}];
          }
+         my $clickers = (&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];
+         if ($clickers!~/\w/) { $clickers='-'; }
+         $in{'clicker'} = $clickers;
+ 	my $role = $in{'role'};
          $in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}]);
          if (! defined($in{'start'}) || $in{'start'} == 0) {
              $in{'start'} = &mt('none');
- Line 1997  END
+ Line 2448  END
          } else {
              $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
          }
-         if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {
+         if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
              $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><span class="LC_nobreak"><label><input type="checkbox" name="chgmanual" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;Change</label></span></td></tr><tr><td><span class="LC_nobreak">';
-                           "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 .= '</span></td></tr></table>';
+                 }
+                 $r->print("<td>$cellentry</td>\n");
+             } else {
+                 if ($mode ne 'pickauthor') {
+                     $r->print("<td>$rowcount</td>\n");
+                 }
+                 if ($actionselect) {
+                     my $showcheckbox;
+                     if ($role =~ /^cr\//) {
+                         $showcheckbox = $canchange{'cr'};
+                     } else {
+                         $showcheckbox = $canchange{$role};
+                     }
+                     if (!$showcheckbox) {
+                         if ($context eq 'course') {
+                             if ($canchangesec{$role} ne '') {
+                                 if ($canchangesec{$role} eq $in{'section'}) {
+                                     $showcheckbox = 1;
+                                 }
+                             }
+                         }
+                     }
+                     if ($showcheckbox) {
+                         $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>');
+                     } else {
+                         $r->print('<td>&nbsp;</td>');
+                     }
+                 } elsif ($mode eq 'pickauthor') {
+                         $r->print('<td><input type="button" name="chooseauthor" onclick="javascript:gochoose('."'$in{'username'}'".');" value="'.&mt('Select').'" /></td>');
+                 }
              }
              foreach my $item (@cols) {
-                 $r->print('<td>'.$in{$item}.'</td>'."\n");
+                 if ($item eq 'username') {
+                     $r->print('<td>'.&print_username_link($mode,\%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 ($displayclickers eq 'on') {
                          my $clickers =
- Line 2028  END
+ Line 2530  END
                          $r->print('    <td>&nbsp;</td>  ');
                      }
                      if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
-                         if ($displayphotos eq 'on' && $sdata->[$index{'role'}] eq 'st') {
+                         if ($displayphotos eq 'on' && $role eq 'st' && $in{'photo'} ne '') {
-                             my $imgurl =
+                             $r->print('    <td align="right"><a href="javascript:photowindow('."'".$in{'photo'}."'".')"><img src="'.$in{'thumbnail'}.'" border="1"></a></td>');
-                         &Apache::lonnet::retrievestudentphoto($in{'domain'},$in{'username'},
-                                                           'gif','thumbnail');
-                             $r->print('    <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($in{'domain'},$in{'username'},'jpg')."'".')"><img src="'.$imgurl.'" border="1"></a></td>');
                          } else {
                              $r->print('    <td>&nbsp;</td>  ');
                          }
- Line 2057  END
+ Line 2556  END
              foreach my $item (@cols) {
                  push @line,&Apache::loncommon::csv_translate($in{$item});
              }
-             print $CSVfile '"'.join('","',@line).'"'."\n";
+             print $CSVfile '"'.join('","',@line)."\"\n";
          } elsif ($mode eq 'excel') {
              my $col = 0;
              foreach my $item (@cols) {
- Line 2076  END
+ Line 2575  END
              $row++;
          }
      }
-     if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {
+     if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
              $r->print(&Apache::loncommon::end_data_table().'<br />');
      } elsif ($mode eq 'excel') {
          $excel_workbook->close();
-         $r->print('<p><a href="'.$excel_filename.'">'.
+ 	$r->print(&mt('[_1]Your Excel spreadsheet[_2] is ready for download.', '<p><a href="'.$excel_filename.'">','</a>')."</p>\n");
-                   &mt('Your Excel spreadsheet').'</a> '.&mt('is ready for download').'.</p>'."\n");
      } elsif ($mode eq 'csv') {
          close($CSVfile);
-         $r->print('<a href="'.$CSVfilename.'">'.
+ 	$r->print(&mt('[_1]Your CSV file[_2] is ready for download.', '<p><a href="'.$CSVfilename.'">','</a>')."</p>\n");
-                   &mt('Your CSV file').'</a> is ready for download.'.
-                   "\n");
          $r->rflush();
      }
      if ($mode eq 'autoenroll') {
- Line 2096  END
+ Line 2592  END
      }
  }
+ sub bulkaction_javascript {
+     my ($formname,$caller) = @_;
+     my $docstart = 'document';
+     if ($caller eq 'popup') {
+         $docstart = 'opener.document';
+     }
+     my %lt = &Apache::lonlocal::texthash(
+               acwi => 'Access will be set to start immediately',
+               asyo => 'as you did not select an end date in the pop-up window',
+               accw => 'Access will be set to continue indefinitely',
+               asyd => 'as you did not select an end date in the pop-up window',
+               sewi => "Sections will be switched to 'No section'",
+               ayes => "as you either selected the 'No section' option",
+               oryo => 'or you did not select a section in the pop-up window',
+               arol => 'A role with no section will be added',
+               swbs => 'Sections will be switched to:',
+               rwba => 'Roles will be added for section(s):',
+             );
+     my $alert = &mt("You must select at least one user by checking a user's 'Select' checkbox");
+     my $noaction = &mt("You need to select an action to take for the user(s) you have selected");
+     my $singconfirm = &mt(' for a single user?');
+     my $multconfirm = &mt(' for multiple users?');
+     my $output = <<"ENDJS";
+ function verify_action (field) {
+     var numchecked = 0;
+     var singconf = '$singconfirm';
+     var multconf = '$multconfirm';
+     if ($docstart.$formname.elements[field].length > 0) {
+         for (i=0; i<$docstart.$formname.elements[field].length; i++) {
+             if ($docstart.$formname.elements[field][i].checked == true) {
+                numchecked ++;
+             }
+         }
+     } else {
+         if ($docstart.$formname.elements[field].checked == true) {
+             numchecked ++;
+         }
+     }
+     if (numchecked == 0) {
+         alert("$alert");
+         return;
+     } else {
+         var message = $docstart.$formname.bulkaction[$docstart.$formname.bulkaction.selectedIndex].text;
+         var choice = $docstart.$formname.bulkaction[$docstart.$formname.bulkaction.selectedIndex].value;
+         if (choice == '') {
+             alert("$noaction");
+             return;
+         } else {
+             if (numchecked == 1) {
+                 message += singconf;
+             } else {
+                 message += multconf;
+             }
+ ENDJS
+     if ($caller ne 'popup') {
+         $output .= <<"NEWWIN";
+             if (choice == 'chgdates' || choice == 'reenable' || choice == 'activate' || choice == 'chgsec') {
+                 opendatebrowser(document.$formname,'$formname','go');
+                 return;
+             } else {
+                 if (confirm(message)) {
+                     document.$formname.phase.value = 'bulkchange';
+                     document.$formname.submit();
+                     return;
+                 }
+             }
+ NEWWIN
+     } else {
+         $output .= <<"POPUP";
+             if (choice == 'chgdates' || choice == 'reenable' || choice == 'activate') {
+                 var datemsg = '';
+                 if (($docstart.$formname.startdate_month.value == '') &&
+                     ($docstart.$formname.startdate_day.value  == '') &&
+                     ($docstart.$formname.startdate_year.value == '')) {
+                     datemsg = "\\n$lt{'acwi'},\\n$lt{'asyo'}.\\n";
+                 }
+                 if (($docstart.$formname.enddate_month.value == '') &&
+                     ($docstart.$formname.enddate_day.value  == '') &&
+                     ($docstart.$formname.enddate_year.value == '')) {
+                     datemsg += "\\n$lt{'accw'},\\n$lt{'asyd'}.\\n";
+                 }
+                 if (datemsg != '') {
+                     message += "\\n"+datemsg;
+                 }
+             }
+             if (choice == 'chgsec') {
+                 var rolefilter = $docstart.$formname.showrole.options[$docstart.$formname.showrole.selectedIndex].value;
+                 var retained =  $docstart.$formname.retainsec.value;
+                 var secshow = $docstart.$formname.newsecs.value;
+                 if (secshow == '') {
+                     if (rolefilter == 'st' || retained == 0 || retained == "") {
+                         message += "\\n\\n$lt{'sewi'},\\n$lt{'ayes'},\\n$lt{'oryo'}.\\n";
+                     } else {
+                         message += "\\n\\n$lt{'arol'}\\n$lt{'ayes'},\\n$lt{'oryo'}.\\n";
+                     }
+                 } else {
+                     if (rolefilter == 'st' || retained == 0 || retained == "") {
+                         message += "\\n\\n$lt{'swbs'} "+secshow+".\\n";
+                     } else {
+                         message += "\\n\\n$lt{'rwba'} "+secshow+".\\n";
+                     }
+                 }
+             }
+             if (confirm(message)) {
+                 $docstart.$formname.phase.value = 'bulkchange';
+                 $docstart.$formname.submit();
+                 window.close();
+             }
+ POPUP
+     }
+     $output .= '
+         }
+     }
+ }
+ ';
+     return $output;
+ }
+ sub print_username_link {
+     my ($mode,$in) = @_;
+     my $output;
+     if ($mode eq 'autoenroll') {
+         $output = $in->{'username'};
+     } else {
+         $output = '<a href="javascript:username_display_launch('.
+                   "'$in->{'username'}','$in->{'domain'}'".')" />'.
+                   $in->{'username'}.'</a>';
+     }
+     return $output;
+ }
  sub role_type_names {
      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;
  }
+ sub select_actions {
+     my ($context,$setting,$statusmode,$formname) = @_;
+     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);
+     # FIXME Disable actions for now for roletype=course in domain context
+     if ($context eq 'domain' && $setting eq 'course') {
+         return;
+     }
+     if ($context eq 'course') {
+         if ($env{'form.showrole'} ne 'Any') {
+              if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},
+                                            $env{'request.course.id'})) {
+                  if ($env{'request.course.sec'} eq '') {
+                      return;
+                  } else {
+                      if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
+                          return;
+                      }
+                  }
+             }
+         }
+     }
+     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') && ($env{'request.course.sec'} eq '')) {
+             $options .= '
+ <option value="chgsec">'.$lt{'chgsec'}.'</option>';
+             $choices{'sections'} = 1;
+         }
+     }
+     if ($options) {
+         $output = '<select name="bulkaction">'."\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".
+                 '<input type="hidden" name="no_end_date" 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 = 'Date_And_Section_Selector';
+     my %nopopup = &Apache::lonlocal::texthash (
+         revoke => "Check the boxes for any users for whom roles are to be revoked, and click 'Proceed'",
+         delete => "Check the boxes for any users for whom roles are to be deleted, and click 'Proceed'",
+         none   => "Choose an action to take for selected users",
+     );
+     my $output = '
+ <script type="text/javascript">'."\n";
+     $output .= <<"ENDONE";
+     function opendatebrowser(callingform,formname,calledby) {
+         var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;
+         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";
+         if (formname.retainsec.length > 1) {
+             for (var i=0; i<formname.retainsec.length; i++) {
+                 if (formname.retainsec[i].checked == true) {
+                     opener.document.$callingform.retainsec.value = formname.retainsec[i].value;
+                 }
+             }
+         } else {
+             opener.document.$callingform.retainsec.value = formname.retainsec.value;
+         }
+         setSections(formname);
+         if (seccheck == 'ok') {
+             opener.document.$callingform.newsecs.value = formname.sections.value;
+         }
+ END
+     } else {
+         if ($context eq 'course') {
+             if (($env{'form.bulkaction'} eq 'reenable') ||
+                 ($env{'form.bulkaction'} eq 'activate') ||
+                 ($env{'form.bulkaction'} eq 'chgdates')) {
+                 if ($env{'request.course.sec'} eq '') {
+                     $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;
+     if (formname.no_end_date.checked) {
+         opener.document.$callingform.no_end_date.value = '1';
+     } else {
+         opener.document.$callingform.no_end_date.value = '0';
+     }
+ END
+     }
+     my $verify_action_js = &bulkaction_javascript($callingform,'popup');
+     $output .= <<"ENDJS";
+     verify_action('actionlist');
+ }
+ $verify_action_js
+ </script>
+ ENDJS
+     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 $info;
+         if ($env{'form.showrole'} eq 'st') {
+             $output .= '<p>'.$lt{'fors'}.'</p>';
+         } elsif ($env{'form.showrole'} 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 $rowtitle = &mt('New section to assign');
+         my $secbox = &section_picker($cdom,$cnum,$env{'form.showrole'},$rowtitle,$permission,$context);
+         $output .= $info.$secbox;
+     }
+     $output .= '<p>'.
+ '<input type="button" name="dateselection" value="'.&mt('Make changes').'" 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(&mt('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 {
-     my ($rolefilter,$statusmode,$context) = @_;
+     my ($rolefilter,$statusmode,$context,$permission,$mode) = @_;
      my ($description,$showfilter);
      if ($rolefilter ne 'Any') {
          $showfilter = $rolefilter;
      }
      if ($context eq 'course') {
-         $description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': ';
+         if ($mode eq 'csv' || $mode eq 'excel') {
+             $description = &mt('Course - [_1]:',$env{'course.'.$env{'request.course.id'}.'.description'}).' ';
+         }
          if ($statusmode eq 'Expired') {
              $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);
          } elsif ($statusmode eq 'Active') {
              $description .= &mt('Users in course with active [_1] roles',$showfilter);
- Line 2127  sub results_header_row {
+ Line 3055  sub results_header_row {
                  $description .= &mt('All users in course with [_1] roles',$rolefilter);
              }
          }
-     } elsif ($context eq 'construction_space') {
+         my $constraint;
-         $description = &mt('Author space for [_1].').' ';
+         my $viewablesec = &viewable_section($permission);
+         if ($viewablesec ne '') {
+             if ($env{'form.showrole'} eq 'st') {
+                 $constraint = &mt('only users in section "[_1]"',$viewablesec);
+             } elsif ($env{'form.showrole'} ne 'cc') {
+                 $constraint = &mt('only users affiliated with no section or section "[_1]"',$viewablesec);
+             }
+             if (($env{'form.grpfilter'} ne 'all') && ($env{'form.grpfilter'} ne '')) {
+                 if ($env{'form.grpfilter'} eq 'none') {
+                     $constraint .= &mt(' and not in any group');
+                 } else {
+                     $constraint .= &mt(' and members of group: "[_1]"',$env{'form.grpfilter'});
+                 }
+             }
+         } else {
+             if (($env{'form.secfilter'} ne 'all') && ($env{'form.secfilter'} ne '')) {
+                 if ($env{'form.secfilter'} eq 'none') {
+                     $constraint = &mt('only users affiliated with no section');
+                 } else {
+                     $constraint = &mt('only users affiliated with section "[_1]"',$env{'form.secfilter'});
+                 }
+             }
+             if (($env{'form.grpfilter'} ne 'all') && ($env{'form.grpfilter'} ne '')) {
+                 if ($env{'form.grpfilter'} eq 'none') {
+                     if ($constraint eq '') {
+                         $constraint = &mt('only users not in any group');
+                     } else {
+                         $constraint .= &mt(' and also not in any group');
+                     }
+                 } else {
+                     if ($constraint eq '') {
+                         $constraint = &mt('only members of group: "[_1]"',$env{'form.grpfilter'});
+                     } else {
+                         $constraint .= &mt(' and also members of group: "[_1]"'.$env{'form.grpfilter'});
+                     }
+                 }
+             }
+         }
+         if ($constraint ne '') {
+             $description .= ' ('.$constraint.')';
+         }
+     } elsif ($context eq 'author') {
+         $description =
+             &mt('Author space for [_1]'
+                 ,'<span class="LC_cusr_emph">'
+                 .&Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})
+                 .'</span>')
+             .':&nbsp;&nbsp;';
          if ($statusmode eq 'Expired') {
              $description .= &mt('Co-authors with expired [_1] roles',$showfilter);
          } elsif ($statusmode eq 'Future') {
- Line 2144  sub results_header_row {
+ Line 3119  sub results_header_row {
          }
      } elsif ($context eq 'domain') {
          my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');
-         $description = &mt('Domain - ').$domdesc.': ';
+         $description = &mt('Domain - [_1]:',$domdesc).' ';
          if ($env{'form.roletype'} eq 'domain') {
              if ($statusmode eq 'Expired') {
                  $description .= &mt('Users in domain with expired [_1] roles',$showfilter);
- Line 2159  sub results_header_row {
+ Line 3134  sub results_header_row {
                      $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') {
                  $description .= &mt('Co-authors in domain with expired [_1] roles',$showfilter);
              } elsif ($statusmode eq 'Future') {
- Line 2204  sub results_header_row {
+ Line 3179  sub results_header_row {
      }
      return $description;
  }
+ sub viewable_section {
+     my ($permission) = @_;
+     my $viewablesec;
+     if (ref($permission) eq 'HASH') {
+         if (exists($permission->{'view_section'})) {
+             $viewablesec = $permission->{'view_section'};
+         } elsif (exists($permission->{'cusr_section'})) {
+             $viewablesec = $permission->{'cusr_section'};
+         }
+     }
+     return $viewablesec;
+ }
  #################################################
  #################################################
  sub show_drop_list {
-     my ($r,$classlist,$keylist,$nosort)=@_;
+     my ($r,$classlist,$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'})) {
          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                  ['sortby']);
- Line 2218  sub show_drop_list {
+ Line 3208  sub show_drop_list {
      if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) {
          $sortby = 'username';
      }
-     my $cdom = $env{'course.'.$cid.'.domain'};
-     my $cnum = $env{'course.'.$cid,'.num'};
-     my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
-                                               $classlist,$keylist,$cdom,$cnum);
-     #
      my $action = "drop";
+     my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
      $r->print(<<END);
  <input type="hidden" name="sortby" value="$sortby" />
  <input type="hidden" name="action" value="$action" />
  <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>
  <p>
  <input type="hidden" name="phase" value="four">
  END
+     my ($indexhash,$keylist) = &make_keylist_array();
- my %lt=&Apache::lonlocal::texthash('usrn'   => "username",
+     my $studentcount = 0;
-                                    'dom'    => "domain",
+     if (ref($classlist) eq 'HASH') {
-                                    'sn'     => "student name",
+         foreach my $student (keys(%{$classlist})) {
-                                    'sec'    => "section",
+             my $sdata = $classlist->{$student};
-                                    'start'  => "start date",
+             my $status = $sdata->[$indexhash->{'status'}];
-                                    'end'    => "end date",
+             my $section = $sdata->[$indexhash->{'section'}];
-                                    'groups' => "active groups",
+             if ($status ne 'Active') {
-                                    );
+                 delete($classlist->{$student});
+                 next;
+             }
+             if ($env{'request.course.sec'} ne '') {
+                 if ($section ne $env{'request.course.sec'}) {
+                     delete($classlist->{$student});
+                     next;
+                 }
+             }
+             $studentcount ++;
+         }
+     }
+     if (!$studentcount) {
+         $r->print(&mt('There are no students to drop.'));
+         return;
+     }
+     my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
+                                               $classlist,$keylist,$cdom,$cnum);
+     my %lt=&Apache::lonlocal::texthash('usrn'   => "username",
+                                        'dom'    => "domain",
+                                        'sn'     => "student name",
+                                        'sec'    => "section",
+                                        'start'  => "start date",
+                                        'end'    => "end date",
+                                        'groups' => "active groups",
+                                       );
      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);
- <tr>
      <th>&nbsp;</th>
      <th>$lt{'usrn'}</th>
      <th>$lt{'dom'}</th>
- Line 2264  my %lt=&Apache::lonlocal::texthash('usrn
+ Line 3267  my %lt=&Apache::lonlocal::texthash('usrn
      <th>$lt{'start'}</th>
      <th>$lt{'end'}</th>
      <th>$lt{'groups'}</th>
- </tr>
  END
+         $r->print(&Apache::loncommon::end_data_table_header_row());
      } 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);
- <tr><th>&nbsp;</th>
+     <th>&nbsp;</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>
-        <a href="/adm/dropadd?action=$action&sortby=domain">$lt{'dom'}</a>
+        <a href="/adm/createuser?action=$action&sortby=domain">$lt{'dom'}</a>
      </th><th>
-        <a href="/adm/dropadd?action=$action&sortby=id">ID</a>
+        <a href="/adm/createuser?action=$action&sortby=id">ID</a>
      </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>
-        <a href="/adm/dropadd?action=$action&sortby=section">$lt{'sec'}</a>
+        <a href="/adm/createuser?action=$action&sortby=section">$lt{'sec'}</a>
      </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>
-        <a href="/adm/dropadd?action=$action&sortby=end">$lt{'end'}</a>
+        <a href="/adm/createuser?action=$action&sortby=end">$lt{'end'}</a>
      </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>
- </tr>
  END
+         $r->print(&Apache::loncommon::end_data_table_header_row());
      }
      #
      # Sort the students
-     my %index;
+     my $index  = $indexhash->{$sortby};
-     my $i;
+     my $second = $indexhash->{'username'};
-     foreach (@$keylist) {
+     my $third  = $indexhash->{'domain'};
-         $index{$_} = $i++;
-     }
-     $index{'groups'} = scalar(@$keylist);
-     my $index  = $index{$sortby};
-     my $second = $index{'username'};
-     my $third  = $index{'domain'};
      my @Sorted_Students = sort {
          lc($classlist->{$a}->[$index])  cmp lc($classlist->{$b}->[$index])
              ||
          lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
              ||
          lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
-         } (keys(%$classlist));
+         } (keys(%{$classlist}));
      foreach my $student (@Sorted_Students) {
          my $error;
          my $sdata = $classlist->{$student};
-         my $username = $sdata->[$index{'username'}];
+         my $username = $sdata->[$indexhash->{'username'}];
-         my $domain   = $sdata->[$index{'domain'}];
+         my $domain   = $sdata->[$indexhash->{'domain'}];
-         my $section  = $sdata->[$index{'section'}];
+         my $section  = $sdata->[$indexhash->{'section'}];
-         my $name     = $sdata->[$index{'fullname'}];
+         my $name     = $sdata->[$indexhash->{'fullname'}];
-         my $id       = $sdata->[$index{'id'}];
+         my $id       = $sdata->[$indexhash->{'id'}];
-         my $start    = $sdata->[$index{'start'}];
+         my $start    = $sdata->[$indexhash->{'start'}];
-         my $end      = $sdata->[$index{'end'}];
+         my $end      = $sdata->[$indexhash->{'end'}];
          my $groups = $classgroups->{$student};
          my $active_groups;
          if (ref($groups->{active}) eq 'HASH') {
- Line 2334  END
+ Line 3331  END
          } else {
              $end = &Apache::lonlocal::locallocaltime($end);
          }
-         my $status   = $sdata->[$index{'status'}];
+         my $studentkey = $student.':'.$section;
-         next if ($status ne 'Active');
+         my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$indexhash->{'start'}].'" />';
          #
          $r->print(&Apache::loncommon::start_data_table_row());
          $r->print(<<"END");
-     <td><input type="checkbox" name="droplist" value="$student"></td>
+     <td><input type="checkbox" name="droplist" value="$studentkey"></td>
      <td>$username</td>
      <td>$domain</td>
      <td>$id</td>
      <td>$name</td>
      <td>$section</td>
-     <td>$start</td>
+     <td>$start $startitem</td>
      <td>$end</td>
      <td>$active_groups</td>
  END
- Line 2353  END
+ Line 3350  END
      }
      $r->print(&Apache::loncommon::end_data_table().'<br />');
      %lt=&Apache::lonlocal::texthash(
-                        'dp'   => "Expire Users' Roles",
+                        'dp'   => "Drop Students",
                         'ca'   => "check all",
                         'ua'   => "uncheck all",
                                         );
- Line 2377  sub print_first_users_upload_form {
+ Line 3374  sub print_first_users_upload_form {
      $str .= '<input type="hidden"   name="state"  value="got_file" />';
      $str .= "<h3>".&mt('Upload a file containing information about users')."</h3>\n";
      $str .= &Apache::loncommon::upfile_select_html();
-     $str .= "<p>\n";
+     $str .= '<p>';
-     $str .= '<input type="submit" name="fileupload" value="'.
-         &mt('Upload file of users').'">'."\n";
-     $str .= '<label><input type="checkbox" name="noFirstLine" /> '.
-         &mt('Ignore First Line')."</label></p>\n";
      $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",
                           &mt("How do I create a users list from a spreadsheet")).
                               "<br />\n";
      $str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
-                            &mt("How do I create a CSV file from a spreadsheet")).
+                            &mt("How do I create a CSV file from a spreadsheet"));
-                                "<br />\n";
+     $str .= "</p>\n";
+     $str .= "<p>\n";
+     $str .= '<label><input type="checkbox" name="noFirstLine" /> '.
+         &mt('Ignore First Line')."</label></p>\n";
+     $str .= '<input type="submit" name="fileupload" value="'.
+         &mt('Go to next step').'">'."<br />\n";
      $str .= &Apache::loncommon::end_page();
      $r->print($str);
      return;
- Line 2395  sub print_first_users_upload_form {
+ Line 3393  sub print_first_users_upload_form {
  # ================================================= Drop/Add from uploaded file
  sub upfile_drop_add {
-     my ($r,$context) = @_;
+     my ($r,$context,$permission) = @_;
      &Apache::loncommon::load_tmp_file($r);
      my @userdata=&Apache::loncommon::upfile_record_sep();
      if($env{'form.noFirstLine'}){shift(@userdata);}
- Line 2410  sub upfile_drop_add {
+ Line 3408  sub upfile_drop_add {
              $fields{$env{'form.f'.$i}}=$keyfields[$i];
          }
      }
+     if ($env{'form.fullup'} ne 'yes') {
+         $r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n".
+                   '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />');
+     }
      #
      # Store the field choices away
      foreach my $field (qw/username names
-                        fname mname lname gen id sec ipwd email role/) {
+                        fname mname lname gen id sec ipwd email role domain/) {
          $env{'form.'.$field.'_choice'}=$fields{$field};
      }
      &Apache::loncommon::store_course_settings('enrollment_upload',
- Line 2427  sub upfile_drop_add {
+ Line 3429  sub upfile_drop_add {
                                                  'sec_choice' => 'scalar',
                                                  'ipwd_choice' => 'scalar',
                                                  'email_choice' => 'scalar',
-                                                 'role_choice'  => 'scalar' });
+                                                 'role_choice'  => 'scalar',
+                                                 'domain_choice' => 'scalar'});
      #
      my ($startdate,$enddate) = &get_dates_from_form();
      if ($env{'form.makedatesdefault'}) {
-         $r->print(&make_dates_default($startdate,$enddate));
+         $r->print(&make_dates_default($startdate,$enddate,$context));
      }
      # Determine domain and desired host (home server)
-     my $domain=$env{'request.role.domain'};
+     my $defdom=$env{'request.role.domain'};
+     my $domain;
+     if ($env{'form.defaultdomain'} ne '') {
+         $domain = $env{'form.defaultdomain'};
+     } else {
+         $domain = $defdom;
+     }
      my $desiredhost = $env{'form.lcserver'};
      if (lc($desiredhost) eq 'default') {
          $desiredhost = undef;
      } else {
-         my %home_servers = &Apache::lonnet::get_servers($domain,'library');
+         my %home_servers = &Apache::lonnet::get_servers($defdom,'library');
          if (! exists($home_servers{$desiredhost})) {
              $r->print('<span class="LC_error">'.&mt('Error').
                        &mt('Invalid home server specified').'</span>');
- Line 2484  sub upfile_drop_add {
+ Line 3493  sub upfile_drop_add {
              $defaultrole = $env{'form.defaultrole'};
          } elsif ($setting eq 'course') {
              $defaultrole = $env{'form.courserole'};
+             $defaultsec = $env{'form.sections'};
          }
-     } elsif ($context eq 'construction_space') {
+     } elsif ($context eq 'author') {
          $defaultrole = $env{'form.defaultrole'};
-     }
+     } elsif ($context eq 'course') {
-     if ($context eq 'domain' && $setting eq 'course') {
+         $defaultrole = $env{'form.defaultrole'};
-         if ($env{'form.newsec'} ne '') {
+         $defaultsec = $env{'form.sections'};
-             $defaultsec = $env{'form.newsec'};
-         } elsif ($env{'form.defaultsec'} ne '') {
-             $defaultsec = $env{'form.defaultsec'}
-         }
      }
      if ($env{'request.course.id'} ne '') {
          $cid = $env{'request.course.id'};
-     } elsif ($env{'form.defaultdomain'} ne '' && $env{'form.defaultcourse'} ne '') {
+     } elsif ($setting eq 'course') {
-         $cid = $env{'form.defaultdomain'}.'_'.
+         if (&Apache::lonnet::is_course($env{'form.dcdomain'},$env{'form.dccourse'})) {
-                $env{'form.defaultcourse'};
+             $cid = $env{'form.dcdomain'}.'_'.$env{'form.dccourse'};
+         }
+     }
+     # Check to see if user information can be changed
+     my @userinfo = ('firstname','middlename','lastname','generation',
+                     'permanentemail','id');
+     my %canmodify;
+     if (&Apache::lonnet::allowed('mau',$domain)) {
+         foreach my $field (@userinfo) {
+             $canmodify{$field} = 1;
+         }
+     }
+     my (%userlist,%modifiable_fields,@poss_roles);
+     my $secidx = &Apache::loncoursedata::CL_SECTION();
+     my @courseroles = &roles_by_context('course',1);
+     if (!&Apache::lonnet::allowed('mau',$domain)) {
+         if ($context eq 'course' || $context eq 'author') {
+             @poss_roles =  &curr_role_permissions($context);
+             my @statuses = ('active','future');
+             my ($indexhash,$keylist) = &make_keylist_array();
+             my %info;
+             foreach my $role (@poss_roles) {
+                 %{$modifiable_fields{$role}} = &can_modify_userinfo($context,$domain,
+                                                         \@userinfo,[$role]);
+             }
+             if ($context eq 'course') {
+                 my ($cnum,$cdom) = &get_course_identity();
+                 my $roster = &Apache::loncoursedata::get_classlist();
+                 if (ref($roster) eq 'HASH') {
+                     %userlist = %{$roster};
+                 }
+                 my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
+                                                          \@statuses,\@poss_roles);
+                 &gather_userinfo($context,'view',\%userlist,$indexhash,\%info,
+                                 \%advrolehash,$permission);
+             } elsif ($context eq 'author') {
+                 my %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef,
+                                                   \@statuses,\@poss_roles);
+                 &gather_userinfo($context,'view',\%userlist,$indexhash,\%info,
+                              \%cstr_roles,$permission);
+             }
+         }
      }
      if ( $domain eq &LONCAPA::clean_domain($domain)
          && ($amode ne '')) {
- Line 2508  sub upfile_drop_add {
+ Line 3556  sub upfile_drop_add {
          #######################################
          if ($context eq 'course') {
              $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");
          } else {
              $r->print('<h3>'.&mt('Adding/Modifying Users')."</h3>\n<p>\n");
- Line 2520  sub upfile_drop_add {
+ Line 3568  sub upfile_drop_add {
                       );
          my $flushc=0;
          my %student=();
-         my %curr_groups;
+         my (%curr_groups,@sections,@cleansec,$defaultwarn,$groupwarn);
          my %userchg;
-         if ($context eq 'course') {
+         if ($context eq 'course' || $setting eq 'course') {
-             # Get information about course groups
+             if ($context eq 'course') {
-             %curr_groups = &Apache::longroup::coursegroups();
+                 # Get information about course groups
+                 %curr_groups = &Apache::longroup::coursegroups();
+             } elsif ($setting eq 'course') {
+                 if ($cid) {
+                     %curr_groups =
+                         &Apache::longroup::coursegroups($env{'form.dcdomain'},
+                                                         $env{'form.dccourse'});
+                 }
+             }
+             # determine section number
+             if ($defaultsec =~ /,/) {
+                 push(@sections,split(/,/,$defaultsec));
+             } else {
+                 push(@sections,$defaultsec);
+             }
+             # remove non alphanumeric values from section
+             foreach my $item (@sections) {
+                 $item =~ s/\W//g;
+                 if ($item eq "none" || $item eq 'all') {
+                     $defaultwarn = &mt('Default section name [_1] could not be used as it is a reserved word.',$item);
+                 } elsif ($item ne ''  && exists($curr_groups{$item})) {
+                     $groupwarn = &mt('Default section name "[_1]" is the name of a course group. Section names and group names must be distinct.',$item);
+                 } elsif ($item ne '') {
+                     push(@cleansec,$item);
+                 }
+             }
+             if ($defaultwarn) {
+                 $r->print($defaultwarn.'<br />');
+             }
+             if ($groupwarn) {
+                 $r->print($groupwarn.'<br />');
+             }
          }
          my (%curr_rules,%got_rules,%alerts);
+         my %customroles = &my_custom_roles();
+         my @permitted_roles = &roles_on_upload($context,$setting,%customroles);
          # Get new users list
-         foreach (@userdata) {
+         foreach my $line (@userdata) {
-             my %entries=&Apache::loncommon::record_sep($_);
+             my @secs;
+             my %entries=&Apache::loncommon::record_sep($line);
              # Determine user name
              unless (($entries{$fields{'username'}} eq '') ||
                      (!defined($entries{$fields{'username'}}))) {
- Line 2554  sub upfile_drop_add {
+ Line 3636  sub upfile_drop_add {
                  if ($entries{$fields{'username'}}
                      ne &LONCAPA::clean_username($entries{$fields{'username'}})) {
                      $r->print('<br />'.
-       &mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]',
+       &mt('[_1]: Unacceptable username for user [_2] [_3] [_4] [_5]',
-           $entries{$fields{'username'}},$fname,$mname,$lname,$gen).
+           '<b>'.$entries{$fields{'username'}}.'</b>',$fname,$mname,$lname,$gen));
-                               '</b>');
+                     next;
                  } else {
+                     if ($entries{$fields{'domain'}}
+                         ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {
+                         $r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.
+                                   '</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen));
+                         next;
+                     }
                      my $username = $entries{$fields{'username'}};
-                     my $sec;
+                     my $userdomain = $entries{$fields{'domain'}};
-                     if ($context eq 'course' || $setting eq 'course') {
+                     if ($userdomain eq '') {
-                         # determine section number
+                         $userdomain = $domain;
-                         if (defined($fields{'sec'})) {
+                     }
-                             if (defined($entries{$fields{'sec'}})) {
+                     if (defined($fields{'sec'})) {
-                                 $sec=$entries{$fields{'sec'}};
+                         if (defined($entries{$fields{'sec'}})) {
+                             $entries{$fields{'sec'}} =~ s/\W//g;
+                             my $item = $entries{$fields{'sec'}};
+                             if ($item eq "none" || $item eq 'all') {
+                                 $r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a reserved word.','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$item));
+                                 next;
+                             } elsif (exists($curr_groups{$item})) {
+                                 $r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a course group.','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$item).' '.&mt('Section names and group names must be distinct.'));
+                                 next;
+                             } else {
+                                 push(@secs,$item);
                              }
-                         } else {
-                             $sec = $defaultsec;
                          }
-                         # remove non alphanumeric values from section
+                     }
-                         $sec =~ s/\W//g;
+                     if ($env{'request.course.sec'} ne '') {
-                         if ($sec eq "none" || $sec eq 'all') {
+                         @secs = ($env{'request.course.sec'});
-                             $r->print('<br />'.
+                         if (ref($userlist{$username.':'.$userdomain}) eq 'ARRAY') {
-       &mt('<b>[_1]</b>: Unable to enroll: section name "[_2]" for user [_3] [_4] [_5] [_6] is a reserved word.',
+                             my $currsec = $userlist{$username.':'.$userdomain}[$secidx];
-                                       $username,$sec,$fname,$mname,$lname,$gen));
+                             if ($currsec ne $env{'request.course.sec'}) {
-                             next;
+                                 $r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]".','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$secs[0]).'<br />');
-                         } elsif (($sec ne '') && (exists($curr_groups{$sec}))) {
+                                 if ($currsec eq '') {
-                             $r->print('<br />'.
+                                     $r->print(&mt('This user already has an active/future student role in the course, unaffiliated to any section.'));
-       &mt('<b>[_1]</b>: Unable to enroll: section name "[_2]" for user [_3] [_4] [_5] [_6] is a course group. Section names and group names must be distinct.',
-                                       $username,$sec,$fname,$mname,$lname,$gen));
+                                 } else {
-                             next;
+                                     $r->print(&mt('This user already has an active/future role in section "[_1]" of the course.',$currsec));
+                                 }
+                                 $r->print('<br />'.&mt('Although your current role has privileges to add students to section "[_1]", you do not have privileges to modify existing enrollments in other sections.',$secs[0]).'<br />');
+                                 next;
+                             }
+                         }
+                     } elsif ($context eq 'course' || $setting eq 'course') {
+                         if (@secs == 0) {
+                             @secs = @cleansec;
                          }
                      }
                      # determine id number
- Line 2609  sub upfile_drop_add {
+ Line 3713  sub upfile_drop_add {
                      my $role = '';
                      if (defined($fields{'role'})) {
                          if ($entries{$fields{'role'}}) {
-                             my @poss_roles =
+                             $entries{$fields{'role'}}  =~ s/(\s+$|^\s+)//g;
-                                  &curr_role_permissions($context,$setting);
+                             if ($entries{$fields{'role'}} ne '') {
-                             if (grep(/^\Q$entries{$fields{'role'}}\E/,@poss_roles)) {
+                                 if (grep(/^\Q$entries{$fields{'role'}}\E$/,@permitted_roles)) {
-                                 $role=$entries{$fields{'role'}};
+                                     $role = $entries{$fields{'role'}};
-                             } else {
+                                 }
-                                 my $rolestr = join(', ',@poss_roles);
+                             }
-                                 $r->print('<br />'.
+                             if ($role eq '') {
-       &mt('<b>[_1]</b>: You do not have permission to add the requested role [_2] for the user.',$entries{$fields{'username'}},$entries{$fields{'role'}}).'<br />'.&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n");
+                                 my $rolestr = join(', ',@permitted_roles);
+                                 $r->print('<br />'
+                                          .&mt('[_1]: You do not have permission to add the requested role [_2] for the user.'
+                                              ,'<b>'.$entries{$fields{'username'}}.'</b>'
+                                              ,$entries{$fields{'role'}})
+                                          .'<br />'
+                                          .&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n"
+                                 );
                                  next;
                              }
                          }
- Line 2625  sub upfile_drop_add {
+ Line 3736  sub upfile_drop_add {
                          $role = $defaultrole;
                      }
                      # Clean up whitespace
-                     foreach (\$domain,\$username,\$id,\$fname,\$mname,
+                     foreach (\$id,\$fname,\$mname,\$lname,\$gen) {
-                              \$lname,\$gen,\$sec,\$role) {
                          $$_ =~ s/(\s+$|^\s+)//g;
                      }
                      # check against rules
                      my $checkid = 0;
                      my $newuser = 0;
                      my (%rulematch,%inst_results,%idinst_results);
-                     my $uhome=&Apache::lonnet::homeserver($username,$domain);
+                     my $uhome=&Apache::lonnet::homeserver($username,$userdomain);
                      if ($uhome eq 'no_host') {
+                         next if ($userdomain ne $domain);
                          $checkid = 1;
                          $newuser = 1;
                          my $checkhash;
- Line 2648  sub upfile_drop_add {
+ Line 3759  sub upfile_drop_add {
                                  next if ($alerts{'username'}{$domain}{$username});
                              }
                          }
+                     } else {
+                         if ($context eq 'course' || $context eq 'author') {
+                             if ($userdomain eq $domain ) {
+                                 if ($role eq '') {
+                                     my @checkroles;
+                                     foreach my $role (@poss_roles) {
+                                         my $endkey;
+                                         if ($role ne 'st') {
+                                             $endkey = ':'.$role;
+                                         }
+                                         if (exists($userlist{$username.':'.$userdomain.$endkey})) {
+                                             if (!grep(/^\Q$role\E$/,@checkroles)) {
+                                                 push(@checkroles,$role);
+                                             }
+                                         }
+                                     }
+                                     if (@checkroles > 0) {
+                                         %canmodify = &can_modify_userinfo($context,$domain,\@userinfo,\@checkroles);
+                                     }
+                                 } elsif (ref($modifiable_fields{$role}) eq 'HASH') {
+                                     %canmodify = %{$modifiable_fields{$role}};
+                                 }
+                             }
+                             my @newinfo = (\$fname,\$mname,\$lname,\$gen,\$email,\$id);
+                             for (my $i=0; $i<@userinfo; $i++) {
+                                 if (${$newinfo[$i]} ne '') {
+                                     if (!$canmodify{$userinfo[$i]}) {
+                                         ${$newinfo[$i]} = '';
+                                     }
+                                 }
+                             }
+                         }
                      }
                      if ($id ne '') {
                          if (!$newuser) {
-                             my %idhash = &Apache::lonnet::idrget($domain,($username));
+                             my %idhash = &Apache::lonnet::idrget($userdomain,($username));
                              if ($idhash{$username} ne $id) {
                                  $checkid = 1;
                              }
- Line 2659  sub upfile_drop_add {
+ Line 3802  sub upfile_drop_add {
                          if ($checkid) {
                              my $checkhash;
                              my $checks = { 'id' => 1 };
-                             $checkhash->{$username.':'.$domain} = { 'newuser' => $newuser,
+                             $checkhash->{$username.':'.$userdomain} = { 'newuser' => $newuser,
                                                                      'id'  => $id };
                              &Apache::loncommon::user_rule_check($checkhash,$checks,
                                  \%alerts,\%rulematch,\%idinst_results,\%curr_rules,
                                  \%got_rules);
                              if (ref($alerts{'id'}) eq 'HASH') {
-                                 if (ref($alerts{'id'}{$domain}) eq 'HASH') {
+                                 if (ref($alerts{'id'}{$userdomain}) eq 'HASH') {
-                                     next if ($alerts{'id'}{$domain}{$id});
+                                     next if ($alerts{'id'}{$userdomain}{$id});
                                  }
                              }
                          }
                      }
                      if ($password || $env{'form.login'} eq 'loc') {
-                         my ($userresult,$authresult,$roleresult);
+                         my $multiple = 0;
+                         my ($userresult,$authresult,$roleresult,$idresult);
+                         my (%userres,%authres,%roleres,%idres);
+                         my $singlesec = '';
                          if ($role eq 'st') {
-                             &modifystudent($domain,$username,$cid,$sec,
+                             my $sec;
-                                            $desiredhost);
+                             if (@secs > 0) {
-                             $roleresult =
+                                 $sec = $secs[0];
+                             }
+                             &modifystudent($userdomain,$username,$cid,$sec,
+                                            $desiredhost,$context);
+                             $roleresult =
                                  &Apache::lonnet::modifystudent
-                                     ($domain,$username,$id,$amode,$password,
+                                     ($userdomain,$username,$id,$amode,$password,
                                       $fname,$mname,$lname,$gen,$sec,$enddate,
                                       $startdate,$env{'form.forceid'},
-                                      $desiredhost,$email);
+                                      $desiredhost,$email,'manual','',$cid,
+                                      '',$context);
+                             $userresult = $roleresult;
+                         } else {
+                             if ($role ne '') {
+                                 if ($context eq 'course' || $setting eq 'course') {
+                                     if ($customroles{$role}) {
+                                         $role = 'cr_'.$env{'user.domain'}.'_'.
+                                                 $env{'user.name'}.'_'.$role;
+                                     }
+                                     if ($role ne 'cc') {
+                                         if (@secs > 1) {
+                                             $multiple = 1;
+                                             foreach my $sec (@secs) {
+                                                 ($userres{$sec},$authres{$sec},$roleres{$sec},$idres{$sec}) =
+                                                 &modifyuserrole($context,$setting,
+                                                     $changeauth,$cid,$userdomain,$username,
+                                                     $id,$amode,$password,$fname,
+                                                     $mname,$lname,$gen,$sec,
+                                                     $env{'form.forceid'},$desiredhost,
+                                                     $email,$role,$enddate,
+                                                     $startdate,$checkid);
+                                             }
+                                         } elsif (@secs > 0) {
+                                             $singlesec = $secs[0];
+                                         }
+                                     }
+                                 }
+                             }
+                             if (!$multiple) {
+                                 ($userresult,$authresult,$roleresult,$idresult) =
+                                     &modifyuserrole($context,$setting,
+                                                     $changeauth,$cid,$userdomain,$username,
+                                                     $id,$amode,$password,$fname,
+                                                     $mname,$lname,$gen,$singlesec,
+                                                     $env{'form.forceid'},$desiredhost,
+                                                     $email,$role,$enddate,$startdate,$checkid);
+                             }
+                         }
+                         if ($multiple) {
+                             foreach my $sec (sort(keys(%userres))) {
+                                 $flushc =
+                                 &user_change_result($r,$userres{$sec},$authres{$sec},
+                                                     $roleres{$sec},$idres{$sec},\%counts,$flushc,
+                                                     $username,$userdomain,\%userchg);
+                             }
                          } else {
-                             ($userresult,$authresult,$roleresult) =
+                             $flushc =
-                                 &modifyuserrole($context,$setting,
+                                 &user_change_result($r,$userresult,$authresult,
-                                     $changeauth,$cid,$domain,$username,
+                                                     $roleresult,$idresult,\%counts,$flushc,
-                                     $id,$amode,$password,$fname,
+                                                     $username,$userdomain,\%userchg);
-                                     $mname,$lname,$gen,$sec,
+                         }
-                                     $env{'form.forceid'},$desiredhost,
-                                     $email,$role,$enddate,$startdate,$checkid);
-                         }
-                         $flushc =
-                             &user_change_result($r,$userresult,$authresult,
-                                                 $roleresult,\%counts,$flushc,
-                                                 $username,%userchg);
                      } else {
                          if ($context eq 'course') {
                              $r->print('<br />'.
-       &mt('<b>[_1]</b>: Unable to enroll.  No password specified.',$username)
+       &mt('[_1]: Unable to enroll. No password specified.','<b>'.$username.'</b>')
                                       );
-                         } elsif ($context eq 'construction_space') {
+                         } elsif ($context eq 'author') {
                              $r->print('<br />'.
-       &mt('<b>[_1]</b>: Unable to add co-author.  No password specified.',$username)
+       &mt('[_1]: Unable to add co-author. No password specified.','<b>'.$username.'</b>')
                                       );
                          } else {
                              $r->print('<br />'.
-       &mt('<b>[_1]</b>: Unable to add user.  No password specified.',$username)
+       &mt('[_1]: Unable to add user. No password specified.','<b>'.$username.'</b>')
                                       );
                          }
                      }
- Line 2715  sub upfile_drop_add {
+ Line 3904  sub upfile_drop_add {
          } # end of foreach (@userdata)
          # Flush the course logs so reverse user roles immediately updated
          &Apache::lonnet::flushcourselogs();
-         $r->print("</p>\n<p>\n".&mt('Processed [_1] user(s).',$counts{'user'}).
+         $r->print("</p>\n<p>\n".&mt('Processed [quant,_1,user].',$counts{'user'}).
                    "</p>\n");
          if ($counts{'role'} > 0) {
              $r->print("<p>\n".
-                       &mt('Roles added for [_1] users. If user is active, the new role will be available when the user next logs in to LON-CAPA.',$counts{'role'})."</p>\n");
+                       &mt('Roles added for [quant,_1,user].',$counts{'role'}).' '.&mt('If a user is currently logged-in to LON-CAPA, any new roles which are active will be available when the user next logs in.')."</p>\n");
+         } else {
+             $r->print('<p>'.&mt('No roles added').'</p>');
          }
          if ($counts{'auth'} > 0) {
              $r->print("<p>\n".
                        &mt('Authentication changed for [_1] existing users.',
                            $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(&Apache::lonhtmlcommon::echo_form_input(['phase','prevphase','currstate']));
-         $r->print('</form>');
          #####################################
-         #           Drop students           #
+         # Display list of students to drop  #
          #####################################
          if ($env{'form.fullup'} eq 'yes') {
-             $r->print('<h3>'.&mt('Dropping Students')."</h3>\n");
+             $r->print('<h3>'.&mt('Students to Drop')."</h3>\n");
              #  Get current classlist
-             my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
+             my $classlist = &Apache::loncoursedata::get_classlist();
              if (! defined($classlist)) {
-                 $r->print(&mt('There are no students currently enrolled.').
+                 $r->print('<form name="studentform" method="post" action="/adm/createuser" />'.
-                           "\n");
+                           '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
-             } else {
+                           &mt('There are no students with current/future access to the course.').
+                           '</form>'."\n");
+             } elsif (ref($classlist) eq 'HASH') {
                  # Remove the students we just added from the list of students.
-                 foreach (@userdata) {
+                 foreach my $line (@userdata) {
-                     my %entries=&Apache::loncommon::record_sep($_);
+                     my %entries=&Apache::loncommon::record_sep($line);
                      unless (($entries{$fields{'username'}} eq '') ||
                              (!defined($entries{$fields{'username'}}))) {
                          delete($classlist->{$entries{$fields{'username'}}.
- Line 2783  sub upfile_drop_add {
+ Line 3941  sub upfile_drop_add {
                      }
                  }
                  # Print out list of dropped students.
-                 &show_drop_list($r,$classlist,$keylist,'nosort');
+                 &show_drop_list($r,$classlist,'nosort',$permission);
              }
          }
      } # end of unless
+     if ($env{'form.fullup'} ne 'yes') {
+         $r->print('</form>');
+     }
+ }
+ 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 {
-     my ($r,$userresult,$authresult,$roleresult,$counts,$flushc,$username,
+     my ($r,$userresult,$authresult,$roleresult,$idresult,$counts,$flushc,
-         $userchg) = @_;
+         $username,$userdomain,$userchg) = @_;
      my $okresult = 0;
      if ($userresult ne 'ok') {
          if ($userresult =~ /^error:(.+)$/) {
              my $error = $1;
              $r->print('<br />'.
-                   &mt('<b>[_1]</b>:  Unable to add/modify: [_2]',$username,$error));
+                   &mt('[_1]: Unable to add/modify: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
          }
      } else {
          $counts->{'user'} ++;
- Line 2807  sub user_change_result {
+ Line 4008  sub user_change_result {
          if ($authresult =~ /^error:(.+)$/) {
              my $error = $1;
              $r->print('<br />'.
-                   &mt('<b>[_1]</b>:  Unable to modify authentication: [_2]',$username,$error));
+                   &mt('[_1]: Unable to modify authentication: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
          }
      } else {
          $counts->{'auth'} ++;
- Line 2817  sub user_change_result {
+ Line 4018  sub user_change_result {
          if ($roleresult =~ /^error:(.+)$/) {
              my $error = $1;
              $r->print('<br />'.
-                   &mt('<b>[_1]</b>:  Unable to add role: [_2]',$username,$error));
+                   &mt('[_1]: Unable to add role: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
          }
      } else {
          $counts->{'role'} ++;
- Line 2825  sub user_change_result {
+ Line 4026  sub user_change_result {
      }
      if ($okresult) {
          $flushc++;
-         $userchg->{$username}=1;
+         $userchg->{$username.':'.$userdomain}=1;
          $r->print('. ');
          if ($flushc>15) {
              $r->rflush;
              $flushc=0;
          }
      }
+     if ($idresult) {
+         $r->print($idresult);
+     }
      return $flushc;
  }
  # ========================================================= 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".
-     my $cid=$env{'request.course.id'};
+               '<form name="studentform" method="post">'."\n");
-     my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
+     my $classlist = &Apache::loncoursedata::get_classlist();
      if (! defined($classlist)) {
          $r->print(&mt('There are no students currently enrolled.')."\n");
-         return;
+     } else {
+         &show_drop_list($r,$classlist,'nosort',$permission);
      }
-     # Print out the available choices
+     $r->print('</form>'. &Apache::loncommon::end_page());
-     &show_drop_list($r,$classlist,$keylist);
      return;
  }
  # ================================================================== 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 @droplist = &Apache::loncommon::get_env_multiple('form.droplist');
+     my @changelist;
-     foreach (@droplist) {
+     if ($choice eq 'drop') {
-         my ($uname,$udom)=split(/\:/,$_);
+         @changelist = &Apache::loncommon::get_env_multiple('form.droplist');
-         # drop student
+     } else {
-         my $result = &modifystudent($udom,$uname,$env{'request.course.id'});
+         @changelist = &Apache::loncommon::get_env_multiple('form.actionlist');
+     }
+     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 $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,'',$context);
+         } 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,'',$context);
+             } else {
+                 $result =
+                     &Apache::lonnet::revokerole($udom,$uname,$scope,$role,
+                                                 '','',$context);
+             }
+         } elsif ($choice eq 'delete') {
+             if ($role eq 'st') {
+                 &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$now,$start,$type,$locktype,$cid,'',$context);
+             }
+             $result =
+                 &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now,
+                                             $start,1,'',$context);
+         } 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,'',$context);
+                 } else {
+                     $result =
+                         &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
+                                                     $now,'','',$context);
+                 }
+             } 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,'',$context);
+                 } else {
+                     $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
+                                             $now,'','',$context);
+                 }
+             } 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,'',$context);
+                 } else {
+                     $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
+                                                 $start,'','',$context);
+                 }
+             } 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 {
+                             $revresult =
+                                 &Apache::lonnet::revokerole($udom,$uname,
+                                                             $scope,$role,
+                                                             '','',$context);
+                         }
+                     } else {
+                         if (@newsecs > 0) {
+                             if (grep(/^\Q$sec\E$/,@newsecs)) {
+                                 push(@retained,$sec);
+                             } else {
+                                 $revresult =
+                                     &Apache::lonnet::revokerole($udom,$uname,
+                                                                 $scope,$role,
+                                                                 '','',$context);
+                             }
+                         } else {
+                             $revresult =
+                                 &Apache::lonnet::revokerole($udom,$uname,
+                                                             $scope,$role,
+                                                             '','',$context);
+                         }
+                     }
+                 } else {
+                     if ($sec eq '') {
+                         $nochg = 1;
+                     } else {
+                         push(@retained,$sec);
+                     }
+                 }
+                 # add new sections
+                 if (@newsecs == 0) {
+                     if (!$nochg) {
+                         if ($role eq 'st') {
+                             $result =
+                                 &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid,'',$context);
+                         } else {
+                             my $newscope = $scopestem;
+                             $result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start,'','',$context);
+                         }
+                     }
+                 } 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,'',$context);
+                             } 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:') {
-             $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++;
          } else {
              $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('<form name="studentform" method="post" action="/adm/createuser">'."\n");
+     if ($choice eq 'drop') {
+         $r->print('<input type="hidden" name="action" value="listusers" />'."\n".
+                   '<input type="hidden" name="Status" value="Active" />'."\n".
+                   '<input type="hidden" name="showrole" value="st" />'."\n");
+     } else {
+         foreach my $item ('action','sortby','roletype','showrole','Status','secfilter','grpfilter') {
+             if ($env{'form.'.$item} ne '') {
+                 $r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.
+                           '" />'."\n");
+             }
+         }
+     }
+     $r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no 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,$context));
+         }
+     }
+     my $linktext = &mt('Display User Lists');
+     if ($choice eq 'drop') {
+         $linktext = &mt('Display current class roster');
      }
-     $r->print('<p><b>'.&mt('Dropped [_1] user(s).',$count).'</b></p>');
+     $r->print('<a href="javascript:document.studentform.submit()">'.$linktext.'</a></form>'."\n");
-     $r->print('<p>'.&mt('Re-enrollment will re-activate data.')) if ($count);
  }
  sub classlist_drop {
-     my ($scope,$uname,$udom,$now,$action) = @_;
+     my ($scope,$uname,$udom,$now) = @_;
      my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)});
-     my $cid=$cdom.'_'.$cnum;
+     if (&Apache::lonnet::is_course($cdom,$cnum)) {
-     my $user = $uname.':'.$udom;
-     if ($action eq 'drop') {
          if (!&active_student_roles($cnum,$cdom,$uname,$udom)) {
-             my $result =
+             my %user;
-                 &Apache::lonnet::cput('classlist',
+             my $result = &update_classlist($cdom,$cnum,$udom,$uname,\%user,$now);
-                                       { $user => $now },
-                                       $env{'course.'.$cid.'.domain'},
-                                       $env{'course.'.$cid.'.num'});
              return &mt('Drop from classlist: [_1]',
                         '<b>'.$result.'</b>').'<br />';
          }
- Line 2904  sub section_check_js {
+ Line 4330  sub section_check_js {
      my $groupslist= &get_groupslist();
      return <<"END";
  function validate(caller) {
-     var groups = new Array("$groupslist");
+     var groups = new Array($groupslist);
      var secname = caller.value;
      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.");
- Line 2952  sub set_login {
+ Line 4378  sub set_login {
  }
  sub course_sections {
-     my ($sections_count,$role) = @_;
+     my ($sections_count,$role,$current_sec) = @_;
      my $output = '';
      my @sections = (sort {$a <=> $b} keys %{$sections_count});
-     if (scalar(@sections) == 1) {
+     my $numsec = scalar(@sections);
+     my $is_selected = ' selected="selected" ';
+     if ($numsec <= 1) {
          $output = '<select name="currsec_'.$role.'" >'."\n".
-                   '  <option value="">Select</option>'."\n".
+                   '  <option value="">'.&mt('Select').'</option>'."\n";
-                   '  <option value="">No section</option>'."\n".
+         if ($current_sec eq 'none') {
+             $output .=
+                   '  <option value=""'.$is_selected.'>'.&mt('No section').'</option>'."\n";
+         } else {
+             $output .=
+                   '  <option value="">'.&mt('No section').'</option>'."\n";
+         }
+         if ($numsec == 1) {
+             if ($current_sec eq $sections[0]) {
+                 $output .=
+                   '  <option value="'.$sections[0].'"'.$is_selected.'>'.$sections[0].'</option>'."\n";
+             } else {
+                 $output .=
                    '  <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";
+         if ($role eq 'st') {
+             $output .= '>'."\n".
+                        '  <option value="">'.&mt('Select').'</option>'."\n";
+             if ($current_sec eq 'none') {
+                 $output .=
+                        '  <option value=""'.$is_selected.'>'.&mt('No section')."</option>\n";
+             } else {
+                 $output .=
+                        '  <option value="">'.&mt('No section')."</option>\n";
+             }
+         } else {
+             $output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
+         }
          foreach my $sec (@sections) {
-             $output .= '<option value="'.$sec.'">'.$sec."</option>\n";
+             if ($current_sec eq $sec) {
+                 $output .= '<option value="'.$sec.'"'.$is_selected.'>'.$sec."</option>\n";
+             } else {
+                 $output .= '<option value="'.$sec.'">'.$sec."</option>\n";
+             }
          }
      }
      $output .= '</select>';
- Line 2980  sub get_groupslist {
+ Line 4438  sub get_groupslist {
          $groupslist = join('","',sort(keys(%curr_groups)));
          $groupslist = '"'.$groupslist.'"';
      }
      return $groupslist;
  }
  sub setsections_javascript {
-     my ($form,$groupslist) = @_;
+     my ($formname,$groupslist,$mode,$checkauth) = @_;
-     my ($checkincluded,$finish,$roleplace,$setsection_js);
+     my ($checkincluded,$finish,$rolecode,$setsection_js);
-     if ($form eq 'cu') {
+     if ($mode eq 'upload') {
+         $checkincluded = 'formname.name == "'.$formname.'"';
+         $finish = "return 'ok';";
+         $rolecode = "var role = formname.defaultrole.options[formname.defaultrole.selectedIndex].value;\n";
+     } elsif ($formname eq 'cu') {
          $checkincluded = 'formname.elements[i-1].checked == true';
-         $finish = 'formname.submit()';
+         if ($checkauth) {
-         $roleplace = 3;
+             $finish = "var authcheck = auth_check();\n".
+                       "   if (authcheck == 'ok') {\n".
+                       "       formname.submit();\n".
+                       "   }\n";
+         } else {
+             $finish = 'formname.submit()';
+         }
+         $rolecode = "var match = str.split('_');
+                 var role = match[3];\n";
+     } elsif ($formname eq 'enrollstudent') {
+         $checkincluded = 'formname.name == "'.$formname.'"';
+         if ($checkauth) {
+             $finish = "var authcheck = auth_check();\n".
+                       "   if (authcheck == 'ok') {\n".
+                       "       formname.submit();\n".
+                       "   }\n";
+         } else {
+             $finish = 'formname.submit()';
+         }
+         $rolecode = "var match = str.split('_');
+                 var role = match[1];\n";
      } else {
-         $checkincluded = 'formname.name == "'.$form.'"';
+         $checkincluded = 'formname.name == "'.$formname.'"';
          $finish = "seccheck = 'ok';";
-         $roleplace = 1;
+         $rolecode = "var match = str.split('_');
-         $setsection_js = "var seccheck = 'alert';";
+                 var role = match[1];\n";
+         $setsection_js = "var seccheck = 'alert';";
      }
      my %alerts = &Apache::lonlocal::texthash(
                      secd => 'Section designations do not apply to Course Coordinator roles.',
- Line 3007  sub setsections_javascript {
+ Line 4490  sub setsections_javascript {
                      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) {
- Line 3018  function setSections(formname) {
+ Line 4501  function setSections(formname) {
          var checkcurr = str.match(re1);
          if (checkcurr != null) {
              if ($checkincluded) {
-                 var match = str.split('_');
+                 $rolecode
-                 var role = match[$roleplace];
                  if (role == 'cc') {
                      alert("$alerts{'secd'}\\n$alerts{'accr'}");
                  }
- Line 3087  function setSections(formname) {
+ Line 4569  function setSections(formname) {
      $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 (&Apache::lonnet::allowed('mau',$dom)) {
+         return $cancreate;
+     }
+     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 ($context eq 'selfcreate') {
+                                     $testrole = $role;
+                                 } else {
+                                     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 roles_on_upload {
+     my ($context,$setting,%customroles) = @_;
+     my (@possible_roles,@permitted_roles);
+     @possible_roles = &curr_role_permissions($context,$setting,1);
+     foreach my $role (@possible_roles) {
+         if ($role eq 'cr') {
+             push(@permitted_roles,keys(%customroles));
+         } else {
+             push(@permitted_roles,$role);
+         }
+     }
+     return @permitted_roles;
+ }
+ 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,$context) = @_;
+     my ($dc_setcourse_code,$authen_check);
+     my $cctext = &Apache::lonnet::plaintext('cc');
+     my %alerts = &sectioncheck_alerts();
+     my $role = 'role';
+     if ($mode eq 'upload') {
+         $role = 'courserole';
+     } else {
+         $authen_check = &verify_authen($formname,$context);
+     }
+     $dc_setcourse_code = (<<"SCRIPTTOP");
+ $authen_check
+ 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
+             }
+         }
+     }
+     var authcheck = auth_check();
+     if (authcheck == 'ok') {
+         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
+     return $dc_setcourse_code;
+ }
+ sub verify_authen {
+     my ($formname,$context) = @_;
+     my %alerts = &authcheck_alerts();
+     my $finish = "return 'ok';";
+     if ($context eq 'author') {
+         $finish = "document.$formname.submit();";
+     }
+     my $outcome = <<"ENDSCRIPT";
+ function auth_check() {
+     var logintype;
+     if (document.$formname.login.length) {
+         if (document.$formname.login.length > 0) {
+             var loginpicked = 0;
+             for (var i=0; i<document.$formname.login.length; i++) {
+                 if (document.$formname.login[i].checked == true) {
+                     loginpicked = 1;
+                     logintype = document.$formname.login[i].value;
+                 }
+             }
+             if (loginpicked == 0) {
+                 alert("$alerts{'authen'}");
+                 return;
+             }
+         }
+     } else {
+         logintype = document.$formname.login.value;
+     }
+     if (logintype == 'nochange') {
+         return 'ok';
+     }
+     var argpicked = document.$formname.elements[logintype+'arg'].value;
+     if ((argpicked == null) || (argpicked == '') || (typeof argpicked == 'undefined')) {
+         var alertmsg = '';
+         switch (logintype) {
+             case 'krb':
+                 alertmsg = '$alerts{'krb'}';
+                 break;
+             case 'int':
+                 alertmsg = '$alerts{'ipass'}';
+             case 'fsys':
+                 alertmsg = '$alerts{'ipass'}';
+                 break;
+             case 'loc':
+                 alertmsg = '';
+                 break;
+             default:
+                 alertmsg = '';
+         }
+         if (alertmsg != '') {
+             alert(alertmsg);
+             return;
+         }
+     }
+     $finish
+ }
+ 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;
+ }
+ sub authcheck_alerts {
+     my %alerts =
+         &Apache::lonlocal::texthash(
+                     authen => 'You must choose an authentication type.',
+                     krb    => 'You need to specify the Kerberos domain.',
+                     ipass  => 'You need to specify the initial password.',
+         );
+     return %alerts;
  }
 ;

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.8
changed lines
	Added in v.1.77