Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonuserutils.pm between versions 1.109.2.9 and 1.184.4.10.2.1

-version 1.109.2.9, 2010/11/15 17:37:47
+version 1.184.4.10.2.1, 2022/02/20 19:48:31
  Line 30
  package Apache::lonuserutils;
+ =pod
+ =head1 NAME
+ Apache::lonuserutils.pm
+ =head1 SYNOPSIS
+     Utilities for management of users and custom roles
+     Provides subroutines called by loncreateuser.pm
+ =head1 OVERVIEW
+ =cut
  use strict;
  use Apache::lonnet;
  use Apache::loncommon();
  use Apache::lonhtmlcommon;
  use Apache::lonlocal;
  use Apache::longroup;
- use Apache::lonnavmaps;
+ use HTML::Entities;
  use LONCAPA qw(:DEFAULT :match);
  ###############################################################
- Line 238  sub domain_roles_select {
+ Line 254  sub domain_roles_select {
      # Role types
      my @roletypes = ('domain','author','course','community');
      my %lt = &role_type_names();
+     my $onchangefirst = "updateCols('showrole')";
+     my $onchangesecond = "updateCols('showrole')";
      #
      # build up the menu information to be passed to
      # &Apache::loncommon::linked_select_forms
- Line 284  sub domain_roles_select {
+ Line 302  sub domain_roles_select {
      my $result = &Apache::loncommon::linked_select_forms
          ('studentform',('&nbsp;'x3).&mt('Role: '),$env{'form.roletype'},
           'roletype','showrole',\%select_menus,
-          ['domain','author','course','community']);
+          ['domain','author','course','community'],$onchangefirst,
+          $onchangesecond);
      return $result;
  }
- Line 296  sub hidden_input {
+ Line 315  sub hidden_input {
  }
  sub print_upload_manager_header {
-     my ($r,$datatoken,$distotal,$krbdefdom,$context,$permission,$crstype,$formname,
+     my ($r,$datatoken,$distotal,$krbdefdom,$context,$permission,$crstype,
          $can_assign)=@_;
      my $javascript;
      #
- Line 327  sub print_upload_manager_header {
+ Line 346  sub print_upload_manager_header {
          $password_choice = 'int';
      }
      #
-     my ($sectionjs,$groupslist);
+     my $groupslist;
      if ($context eq 'course') {
          $groupslist = &get_groupslist();
-         if ($env{'form.context'} eq 'requestcrs') {
-             $sectionjs = <<"ENDJS";
- function toggleSectionsDefault() {
-     var usingsecs;
-     if (document.$formname.usesection.length > 1) {
-         for (var i=0; i<document.$formname.usesection.length; i++) {
-             if (document.$formname.usesection[i].checked) {
-                 usingsecs = document.$formname.usesection[i].value;
-             }
-         }
-     }
-     if (usingsecs == 1) {
-         document.getElementById('defaultsec').style.display="block";
-     } else {
-         document.getElementById('defaultsec').style.display="none";
-         document.$formname.newsec.value = "";
-         document.$formname.sections.value = "";
-     }
-     return;
- }
- ENDJS
-         }
      }
      my $javascript_validations =
          &javascript_validations('upload',$krbdefdom,$password_choice,undef,
                                  $env{'request.role.domain'},$context,
                                  $groupslist,$crstype);
      my $checked=(($env{'form.noFirstLine'})?' checked="checked"':'');
-     $r->print('<p>'
+     $r->print(
-              .&mt('Total number of records found in file: [_1]'
+         '<h3>'.&mt('Identify fields in uploaded list')."</h3>\n".
-                  ,'<b>'.$distotal.'</b>')
+         '<p class="LC_info">'.
-              ."</p>\n");
+         &mt('Total number of records found in file: [_1]'
-     $r->print('<div class="LC_left_float"><h3>'.
+            ,'<b>'.$distotal.'</b>').
-               &mt('Identify fields in uploaded list')."</h3>\n");
+         "</p>\n"
-     $r->print(&mt('Enter as many fields as you can.').'<br />'.
+     );
-               &mt('The system will inform you and bring you back to this page,').
+     if ($distotal == 0) {
-               '<br />'.&mt('if the data selected are insufficient to add users.')."<br />\n");
+         $r->print('<p class="LC_warning">'.&mt('None found').'</p>');
+     }
+     $r->print(
+         '<p>'.
+         &mt('Enter as many fields as you can.').'<br />'.
+         &mt('The system will inform you and bring you back to this page,[_1]if the data selected are insufficient to add users.','<br />').
+         "</p>\n"
+     );
      $r->print(&hidden_input('action','upload').
                &hidden_input('state','got_file').
                &hidden_input('associate','').
                &hidden_input('datatoken',$datatoken).
                &hidden_input('fileupload',$env{'form.fileupload'}).
                &hidden_input('upfiletype',$env{'form.upfiletype'}).
-               &hidden_input('upfile_associate',$env{'form.upfile_associate'}).
+               &hidden_input('upfile_associate',$env{'form.upfile_associate'}));
-               &hidden_input('context',$env{'form.context'}));
+     $r->print(
-     $r->print('<br /><label><input type="checkbox" name="noFirstLine"'.$checked.' />'.
+         '<div class="LC_left_float">'.
-               &mt('Ignore First Line').'</label><br />');
+         '<fieldset><legend>'.&mt('Functions').'</legend>'.
-     $r->print('<br /><input type="button" value="'.&mt('Reverse Association').'" '.
+         '<label><input type="checkbox" name="noFirstLine"'.$checked.' />'.
+               &mt('Ignore First Line').'</label>'.
+         ' <input type="button" value="'.&mt('Reverse Association').'" '.
                'name="Reverse Association" '.
-               'onclick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');
+               'onclick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />'.
-     $r->print("<br /><br />\n".
+         '</fieldset></div><br clear="all" />'
-               '<script type="text/javascript" language="Javascript">'."\n".
+     );
-               '// <![CDATA['."\n".
+     $r->print(
-               $javascript."\n".$javascript_validations."\n".$sectionjs."\n".
+         '<script type="text/javascript" language="Javascript">'."\n".
-               '// ]]>'."\n".
+         '// <![CDATA['."\n".
-               '</script>');
+         $javascript."\n".$javascript_validations."\n".
+         '// ]]>'."\n".
+         '</script>'
+     );
  }
  ###############################################################
- Line 408  sub javascript_validations {
+ Line 416  sub javascript_validations {
          $param{'curr_autharg'} = $curr_authfield;
      }
+     my $showcredits;
+     my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);
+     if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'}) {
+         $showcredits = 1;
+     }
      my ($setsection_call,$setsections_js);
      my $finish = "  vf.submit();\n";
      if ($mode eq 'upload') {
- Line 415  sub javascript_validations {
+ Line 429  sub javascript_validations {
              if ($context eq 'course') {
                  if ($env{'request.course.sec'} eq '') {
                      $setsection_call = 'setSections(document.'.$param{'formname'}.",'$crstype'".');';
-                     if ($env{'form.context'} eq 'requestcrs') {
+                     $setsections_js =
-                         $setsections_js =  &newsections_javascript($param{'formname'});
+                         &setsections_javascript($param{'formname'},$groupslist,
-                     } else {
+                                                 $mode,'',$crstype,$showcredits);
-                         $setsections_js =
-                             &setsections_javascript($param{'formname'},$groupslist,
-                                                     $mode,'',$crstype);
-                     }
                  } else {
                      $setsection_call = "'ok'";
                  }
              } elsif ($context eq 'domain') {
                  $setsection_call = 'setCourse()';
-                 $setsections_js = &dc_setcourse_js($param{'formname'},$mode,$context);
+                 $setsections_js = &dc_setcourse_js($param{'formname'},$mode,
+                                                    $context,$showcredits,$domain);
              }
              $finish = "  var checkSec = $setsection_call\n".
                        "  if (checkSec == 'ok') {\n".
- Line 450  sub javascript_validations {
+ Line 461  sub javascript_validations {
           domain   => 'The optional domain field was not specified.',
           continue => 'Continue adding users?',
           );
+     if ($showcredits) {
+         $alert{'credits'} = &mt('The optional credits field was not specified');
+     }
      if (($mode eq 'upload') && ($context eq 'domain')) {
          $alert{'inststatus'} = &mt('The optional affiliation field was not specified');
      }
+     &js_escape(\%alert);
      my $function_name = <<"END";
  $setsections_js
- function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus) {
+ function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus,foundcredits) {
  END
      my ($authnum,%can_assign) =  &Apache::loncommon::get_assignable_auth($domain);
      my $auth_checks;
- Line 513  END
+ Line 528  END
              return;
          }
      }
+ /* regexp here to check for non \d \. in credits */
  END
      } else {
+         my ($numrules,$intargjs) =
+             &Apache::loncommon::passwd_validation_js('vf.elements[current.argfield].value',$domain);
          $auth_checks .= (<<END);
      foundatype=1;
      if (current.argfield == null || current.argfield == '') {
+         // The login radiobutton checked does not have an associated textbox
+     } else if (vf.elements[current.argfield].value == '') {
          var alertmsg = '';
          switch (current.radiovalue) {
              case 'krb':
                  alertmsg = '$alert{'krb'}';
                  break;
-             case 'loc':
+             case 'int':
-             case 'fsys':
                  alertmsg = '$alert{'ipass'}';
                  break;
              case 'fsys':
+                 alertmsg = '$alert{'ipass'}';
+                 break;
+             case 'loc':
                  alertmsg = '';
                  break;
              default:
- Line 537  END
+ Line 559  END
              alert(alertmsg);
              return;
          }
+     } else if (current.radiovalue == 'int') {
+         if ($numrules > 0) {
+ $intargjs
+         }
      }
  END
      }
- Line 549  END
+ Line 575  END
  END
      } else {
          $section_checks = &section_check_js();
+         $optional_checks = (<<END);
-         unless ($env{'form.context'} eq 'requestcrs') {
-             $optional_checks = (<<END);
      var message='';
      if (foundname==0) {
          message='$alert{'name'}';
- Line 587  END
+ Line 611  END
          message+='$alert{'domain'}';
      }
  END
+         if ($showcredits) {
+             $optional_checks .= <<END;
+     if (foundcredits==0) {
+         if (message!='') {
+             message+='\\n';
+         }
+         message+='$alert{'credits'}';
+     }
+ END
          }
          if (($mode eq 'upload') && ($context eq 'domain')) {
              $optional_checks .= (<<END);
- Line 599  END
+ Line 632  END
      }
  END
          }
-         if ($env{'form.context'} eq 'requestcrs') {
+         $optional_checks .= (<<END);
-             $optional_checks .= (<<END);
-     vf.state.value='enrolling';
-     $finish
- }
- END
-         } else {
-             $optional_checks .= (<<END);
      if (message!='') {
          message+= '\\n$alert{'continue'}';
- Line 620  END
+ Line 646  END
      }
  }
  END
-        }
      }
      my $result = $function_name.$auth_checks.$optional_checks."\n".
                   $section_checks.$authheader;
      return $result;
  }
  ###############################################################
  ###############################################################
  sub upload_manager_javascript_forward_associate {
- Line 645  sub upload_manager_javascript_forward_as
+ Line 671  sub upload_manager_javascript_forward_as
              $numbuttons ++;
          }
          if (!$can_assign->{'int'}) {
-             my $warning = &mt('You may not specify an initial password for each user, as this is only available when new users use LON-CAPA internal authentication.\n').
+             my $warning = &mt('You may not specify an initial password for each user, as this is only available when new users use LON-CAPA internal authentication.')."\n".
                            &mt('Your current role does not have rights to create users with that authentication type.');
+             &js_escape(\$warning);
              $auth_update = <<"END";
     // Currently the initial password field is only supported for internal auth
     // (see bug 6368).
-    if (nw==2) {
+    if (nw==9) {
         eval('vf.f'+tf+'.selectedIndex=0;')
         alert('$warning');
     }
- Line 659  END
+ Line 686  END
              $auth_update = <<"END";
     // If we set the password, make the password form below correspond to
     // the new value.
-    if (nw==2) {
+    if (nw==9) {
        changed_radio('int',document.studentform);
        set_auth_radio_buttons('int',document.studentform);
  $argreset
- Line 680  function verify(vf,sec_caller) {
+ Line 707  function verify(vf,sec_caller) {
      var foundrole=0;
      var founddomain=0;
      var foundinststatus=0;
+     var foundcredits=0;
      var tw;
      for (i=0;i<=vf.nfields.value;i++) {
          tw=eval('vf.f'+i+'.selectedIndex');
          if (tw==1) { founduname=1; }
-         if (tw==2) { foundpwd=1; }
+         if ((tw>=2) && (tw<=6)) { foundname=1; }
-         if ((tw>=3) && (tw<=7)) { foundname=1; }
+         if (tw==7) { foundid=1; }
-         if (tw==8) { foundid=1; }
+         if (tw==8) { foundsec=1; }
-         if (tw==9) { foundsec=1; }
+         if (tw==9) { foundpwd=1; }
          if (tw==10) { foundemail=1; }
          if (tw==11) { foundrole=1; }
          if (tw==12) { founddomain=1; }
          if (tw==13) { foundinststatus=1; }
+         if (tw==14) { foundcredits=1; }
      }
-     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus);
+     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus,foundcredits);
  }
  //
- Line 704  function verify(vf,sec_caller) {
+ Line 733  function verify(vf,sec_caller) {
  //
  // 0 = none
  // 1 = username
- // 2 = ipwd  (password)
+ // 2 = names (lastname, firstnames)
- // 3 = names (lastname, firstnames)
+ // 3 = fname (firstname)
- // 4 = fname (firstname)
+ // 4 = mname (middlename)
- // 5 = mname (middlename)
+ // 5 = lname (lastname)
- // 6 = lname (lastname)
+ // 6 = gen   (generation)
- // 7 = gen   (generation)
+ // 7 = id
- // 8 = id
+ // 8 = section
- // 9 = section
+ // 9 = ipwd  (password)
  // 10 = email address
  // 11 = role
  // 12 = domain
  // 13 = inststatus
+ // 14 = foundcredits
  function flip(vf,tf) {
     var nw=eval('vf.f'+tf+'.selectedIndex');
- Line 727  function flip(vf,tf) {
+ Line 757  function flip(vf,tf) {
        }
     }
     // If we set this to 'lastname, firstnames', clear out all the ones
-    // set to 'fname','mname','lname','gen' (4,5,6,7) currently.
+    // set to 'fname','mname','lname','gen' (3,4,5,6) currently.
-    if (nw==3) {
+    if (nw==2) {
        for (i=0;i<=vf.nfields.value;i++) {
-          if ((eval('vf.f'+i+'.selectedIndex')>=4) &&
+          if ((eval('vf.f'+i+'.selectedIndex')>=3) &&
-              (eval('vf.f'+i+'.selectedIndex')<=7)) {
+              (eval('vf.f'+i+'.selectedIndex')<=6)) {
               eval('vf.f'+i+'.selectedIndex=0;')
           }
        }
     }
-    // If we set this to one of 'fname','mname','lname','gen' (4,5,6,7),
+    // If we set this to one of 'fname','mname','lname','gen' (3,4,5,6),
-    // clear out any that are set to 'lastname, firstnames' (3)
+    // clear out any that are set to 'lastname, firstnames' (2)
-    if ((nw>=4) && (nw<=7)) {
+    if ((nw>=3) && (nw<=6)) {
        for (i=0;i<=vf.nfields.value;i++) {
-          if (eval('vf.f'+i+'.selectedIndex')==3) {
+          if (eval('vf.f'+i+'.selectedIndex')==2) {
               eval('vf.f'+i+'.selectedIndex=0;')
           }
        }
- Line 751  function flip(vf,tf) {
+ Line 781  function flip(vf,tf) {
  function clearpwd(vf) {
      var i;
      for (i=0;i<=vf.nfields.value;i++) {
-         if (eval('vf.f'+i+'.selectedIndex')==2) {
+         if (eval('vf.f'+i+'.selectedIndex')==9) {
              eval('vf.f'+i+'.selectedIndex=0;')
          }
      }
- Line 781  sub upload_manager_javascript_reverse_as
+ Line 811  sub upload_manager_javascript_reverse_as
          if (!$can_assign->{'int'}) {
              my $warning = &mt('You may not specify an initial password, as this is only available when new users use LON-CAPA internal authentication.\n').
                            &mt('Your current role does not have rights to create users with that authentication type.');
+             &js_escape(\$warning);
              $auth_update = <<"END";
     // Currently the initial password field is only supported for internal auth
     // (see bug 6368).
-    if (tf==1 && nw!=0) {
+    if (tf==8 && nw!=0) {
         eval('vf.f'+tf+'.selectedIndex=0;')
         alert('$warning');
     }
- Line 792  END
+ Line 823  END
          } elsif ($numbuttons > 1) {
              $auth_update = <<"END";
     // initial password specified, pick internal authentication
-    if (tf==1 && nw!=0) {
+    if (tf==8 && nw!=0) {
        changed_radio('int',document.studentform);
        set_auth_radio_buttons('int',document.studentform);
  $argreset
- Line 813  function verify(vf,sec_caller) {
+ Line 844  function verify(vf,sec_caller) {
      var foundrole=0;
      var founddomain=0;
      var foundinststatus=0;
+     var foundcredits=0;
      var tw;
      for (i=0;i<=vf.nfields.value;i++) {
          tw=eval('vf.f'+i+'.selectedIndex');
          if (i==0 && tw!=0) { founduname=1; }
-         if (i==1 && tw!=0) { foundpwd=1; }
+         if (((i>=1) && (i<=5)) && tw!=0 ) { foundname=1; }
-         if (((i>=2) && (i<=6)) && tw!=0 ) { foundname=1; }
+         if (i==6 && tw!=0) { foundid=1; }
-         if (i==7 && tw!=0) { foundid=1; }
+         if (i==7 && tw!=0) { foundsec=1; }
-         if (i==8 && tw!=0) { foundsec=1; }
+         if (i==8 && tw!=0) { foundpwd=1; }
          if (i==9 && tw!=0) { foundemail=1; }
          if (i==10 && tw!=0) { foundrole=1; }
          if (i==11 && tw!=0) { founddomain=1; }
          if (i==12 && tw!=0) { foundinstatus=1; }
+         if (i==13 && tw!=0) { foundcredits=1; }
      }
-     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus);
+     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus,foundcredits);
  }
  function flip(vf,tf) {
     var nw=eval('vf.f'+tf+'.selectedIndex');
     var i;
     // picked the all one name field, reset the other name ones to blank
-    if (tf==2 && nw!=0) {
+    if (tf==1 && nw!=0) {
-       for (i=3;i<=6;i++) {
+       for (i=2;i<=5;i++) {
           eval('vf.f'+i+'.selectedIndex=0;')
        }
     }
     //picked one of the piecewise name fields, reset the all in
     //one field to blank
-    if ((tf>=3) && (tf<=6) && (nw!=0)) {
+    if ((tf>=2) && (tf<=5) && (nw!=0)) {
-       eval('vf.f2.selectedIndex=0;')
+       eval('vf.f1.selectedIndex=0;')
     }
     $auth_update
  }
  function clearpwd(vf) {
      var i;
-     if (eval('vf.f1.selectedIndex')!=0) {
+     if (eval('vf.f8.selectedIndex')!=0) {
-         eval('vf.f1.selectedIndex=0;')
+         eval('vf.f8.selectedIndex=0;')
      }
  }
  ENDPICK
- Line 858  ENDPICK
+ Line 891  ENDPICK
  ###############################################################
  ###############################################################
  sub print_upload_manager_footer {
-     my ($r,$i,$keyfields,$defdom,$today,$halfyear,$context,$permission,$crstype) = @_;
+     my ($r,$i,$keyfields,$defdom,$today,$halfyear,$context,$permission,$crstype,
+         $showcredits) = @_;
      my $form = 'document.studentform';
      my $formname = 'studentform';
      my ($krbdef,$krbdefdom) =
- Line 872  sub print_upload_manager_footer {
+ Line 906  sub print_upload_manager_footer {
          $env{'form.ipwd_choice'} ne '') {
          $param{'curr_authtype'} = 'int';
      }
-     if ($env{'form.context'} eq 'requestcrs') {
-         $param{'context'} = $env{'form.context'};
-     }
      my $krbform = &Apache::loncommon::authform_kerberos(%param);
      my $intform = &Apache::loncommon::authform_internal(%param);
      my $locform = &Apache::loncommon::authform_local(%param);
- Line 887  sub print_upload_manager_footer {
+ Line 918  sub print_upload_manager_footer {
      $Str .= '<h3>'.&mt('Options').'</h3>'
             .&Apache::lonhtmlcommon::start_pick_box();
-     if ($env{'form.context'} eq 'requestcrs') {
-         $Str .= &Apache::lonhtmlcommon::row_title(&mt('Default password'));
+     $Str .= &Apache::lonhtmlcommon::row_title(&mt('Login Type'));
-     } else {
-         $Str .= &Apache::lonhtmlcommon::row_title(&mt('Login Type'));
-     }
      if ($context eq 'domain') {
          $Str .= '<p>'
                 .&mt('Change authentication for existing users in domain "[_1]" to these settings?'
- Line 905  sub print_upload_manager_footer {
+ Line 933  sub print_upload_manager_footer {
                 .'</span></p>';
      } else {
          $Str .= '<p class="LC_info">'."\n".
-             &mt('This will not take effect if the user already exists.');
+             &mt('This will not take effect if the user already exists.').
-             my ($authnum,%can_assign) =  &Apache::loncommon::get_assignable_auth($defdom);
+             &Apache::loncommon::help_open_topic('Auth_Options').
-             if ($authnum > 1) {
+             "</p>\n";
-                 $Str .= &Apache::loncommon::help_open_topic('Auth_Options');
-             }
-             $Str .= "</p>\n";
      }
      $Str .= &set_login($defdom,$krbform,$intform,$locform);
-     if ($env{'form.context'} eq 'requestcrs') {
-         $Str .= '<input type="hidden" name="defaultdomain" value="gcitest" />';
-     }
      my ($home_server_pick,$numlib) =
          &Apache::loncommon::home_server_form_item($defdom,'lcserver',
                                                    'default','hide');
- Line 931  sub print_upload_manager_footer {
+ Line 954  sub print_upload_manager_footer {
                  &Apache::lonhtmlcommon::row_closure();
      }
-     unless ($env{'form.context'} eq 'requestcrs') {
+     $Str .= &Apache::lonhtmlcommon::row_title(&mt('Default domain'))
-         $Str .= &Apache::lonhtmlcommon::row_title(&mt('Default domain'))
+            .&Apache::loncommon::select_dom_form($defdom,'defaultdomain',undef,1)
-                .&Apache::loncommon::select_dom_form($defdom,'defaultdomain',undef,1)
+            .&Apache::lonhtmlcommon::row_closure();
-                .&Apache::lonhtmlcommon::row_closure()
-                .&Apache::lonhtmlcommon::row_title(&mt('Starting and Ending Dates'))
+     $Str .= &Apache::lonhtmlcommon::row_title(&mt('Starting and Ending Dates'))
-                ."<p>\n".$date_table."</p>\n"
+            ."<p>\n".$date_table."</p>\n"
-                .&Apache::lonhtmlcommon::row_closure();
+            .&Apache::lonhtmlcommon::row_closure();
-     }
      if ($context eq 'domain') {
          $Str .= &Apache::lonhtmlcommon::row_title(
                      &mt('Settings for assigning roles'))
- Line 958  sub print_upload_manager_footer {
+ Line 981  sub print_upload_manager_footer {
                      &mt('Default role'))
                 .&mt('Choose the role to assign to users without a value specified in the uploaded file.')
      } elsif ($context eq 'course') {
-         if ($env{'form.context'} eq 'requestcrs') {
+         if ($showcredits) {
-             $Str .= &Apache::lonhtmlcommon::row_title(&mt('Default section')).
+             $Str .= &Apache::lonhtmlcommon::row_title(
-                     &mt('Students can be assigned to different sections.').'<br />'.
+                     &mt('Default role, section and credits'))
-                     &mt('Will you be using sections?').'&nbsp;'.
+                    .&mt('Choose the role and/or section(s) and/or credits to assign to users without values specified in the uploaded file.');
-                     '<input type="radio" name="usesection" value="1" '.
+         } else {
-                     'onclick="javascript:toggleSectionsDefault()" />'.
-                     '&nbsp;'.&mt('Yes').'</label>'.
-                     '&nbsp;&nbsp;&nbsp;<label>'.
-                     '<input type="radio" name="usesection" value="0" checked="checked" '.
-                     'onclick="javascript:toggleSectionsDefault()" />'.
-                     '&nbsp;'.&mt('No').'</label>';
-         } else {
              $Str .= &Apache::lonhtmlcommon::row_title(
                      &mt('Default role and section'))
                     .&mt('Choose the role and/or section(s) to assign to users without values specified in the uploaded file.');
          }
      } else {
          $Str .= &Apache::lonhtmlcommon::row_title(
                      &mt('Default role and/or section(s)'))
- Line 981  sub print_upload_manager_footer {
+ Line 997  sub print_upload_manager_footer {
      }
      if (($context eq 'domain') || ($context eq 'author')) {
          $Str .= '<br />';
-         my ($options,$cb_script,$coursepick) = &default_role_selector($context,1);
+         my ($options,$cb_script,$coursepick) =
+             &default_role_selector($context,1,'',$showcredits);
          if ($context eq 'domain') {
              $Str .= '<p>'
                     .'<b>'.&mt('Domain Level').'</b><br />'
- Line 997  sub print_upload_manager_footer {
+ Line 1014  sub print_upload_manager_footer {
          }
      } else {
          my ($cnum,$cdom) = &get_course_identity();
-         my ($rowtitle,$closure);
+         my $rowtitle = &mt('section');
-         if ($env{'form.context'} eq 'requestcrs') {
+         my $defaultcredits;
-             $closure = 1;
+         if ($showcredits) {
-             $rowtitle = &mt('default section name (letters/numbers only)');
+             $defaultcredits = &get_defaultcredits();
-         } else {
+         }
-             $rowtitle = &mt('section');
+         my $secbox = &section_picker($cdom,$cnum,'Any',$rowtitle,$permission,
-         }
+                                      $context,'upload',$crstype,$showcredits,
-         my $secbox = &section_picker($cdom,$cnum,'Any',$rowtitle,
+                                      $defaultcredits);
-                                     $permission,$context,'upload',$crstype,
+         $Str .= $secbox
-                                     $env{'form.context'}).
+                .&Apache::lonhtmlcommon::row_closure();
-                      &Apache::lonhtmlcommon::row_closure($closure);
-         if ($env{'form.context'} eq 'requestcrs') {
-             $Str .= '<div id ="defaultsec" style="display: none" />'.$secbox.'</div>';
-         } else {
-             $Str .= $secbox;
-         }
          my %lt;
          if ($crstype eq 'Community') {
              %lt = &Apache::lonlocal::texthash (
- Line 1025  sub print_upload_manager_footer {
+ Line 1036  sub print_upload_manager_footer {
                      stus => 'Students selected from this list can be dropped.'
              );
          }
-         unless ($env{'form.context'} eq 'requestcrs') {
+         $Str .= &Apache::lonhtmlcommon::row_title(&mt('Full Update'))
-             $Str .= &Apache::lonhtmlcommon::row_title(&mt('Full Update'))
+                .'<label><input type="checkbox" name="fullup" value="yes" />'
-                    .'<label><input type="checkbox" name="fullup" value="yes" />'
+                .' '.$lt{'disp'}
-                    .' '.$lt{'disp'}
+                .'</label><br />'
-                    .'</label><br />'
+                .$lt{'stus'}
-                    .$lt{'stus'}
+                .&Apache::lonhtmlcommon::row_closure();
-                    .&Apache::lonhtmlcommon::row_closure();
-         }
      }
      if ($context eq 'course' || $context eq 'domain') {
-         unless ($env{'form.context'} eq 'requestcrs') {
+         $Str .= &Apache::lonhtmlcommon::row_title(&mt('Student/Employee ID'))
-             $Str .= &forceid_change($context);
+                .&forceid_change($context)
-         }
+                .&Apache::lonhtmlcommon::row_closure(1); # last row in pick_box
      }
      $Str .= &Apache::lonhtmlcommon::end_pick_box();
- Line 1060  sub print_upload_manager_footer {
+ Line 1069  sub print_upload_manager_footer {
      return;
  }
+ sub get_defaultcredits {
+     my ($cdom,$cnum) = @_;
+     if ($cdom eq '' || $cnum eq '') {
+         return unless ($env{'request.course.id'});
+         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+     }
+     return unless(($cdom =~ /^$match_domain$/) && ($cnum =~ /^$match_courseid$/));
+     my ($defaultcredits,$domdefcredits);
+     my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
+     if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'}) {
+         my $instcode = $env{'course.'.$cdom.'_'.$cnum.'.internal.coursecode'};
+         if ($instcode) {
+             $domdefcredits = $domdefaults{'officialcredits'};
+         } elsif ($env{'course.'.$cdom.'_'.$cnum.'.internal.textbook'}) {
+             $domdefcredits = $domdefaults{'textbookcredits'};
+         } else {
+             $domdefcredits = $domdefaults{'unofficialcredits'};
+         }
+     } else {
+         return;
+     }
+     if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
+         $defaultcredits = $env{'course.'.$cdom.'_'.$cnum.'.internal.defaultcredits'};
+     } elsif (exists($env{'course.'.$cdom.'_'.$cnum.'.internal.defaultcredits'})) {
+         $defaultcredits = $env{'course.'.$cdom.'_'.$cnum.'.internal.defaultcredits'};
+     } else {
+         my %crsinfo =
+             &Apache::lonnet::coursedescription("$cdom/$cnum",{'one_time' => 1});
+         $defaultcredits = $crsinfo{'internal.defaultcredits'};
+     }
+     if ($defaultcredits eq '') {
+         $defaultcredits = $domdefcredits;
+     }
+     return $defaultcredits;
+ }
  sub forceid_change {
      my ($context) = @_;
      my $output =
-         &Apache::lonhtmlcommon::row_title(&mt('Student/Employee ID'))
+         '<label><input type="checkbox" name="forceid" value="yes" />'
-        .'<label><input type="checkbox" name="forceid" value="yes" />'
+        .&mt('Force change of existing ID')
-        .&mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs')
+        .'</label>'.&Apache::loncommon::help_open_topic('ForceIDChange')."\n";
-        .'</label><br />'."\n"
-        .&mt('(only do if you know what you are doing.)')."\n";
      if ($context eq 'domain') {
-         $output .= '<br /><label><input type="checkbox" name="recurseid"'.
+         $output .=
-                    ' value="yes" />'.
+             '<br />'
-   &mt('Update student/employee ID in courses in which user is active/future student,[_1](if forcing change).','<br />').
+            .'<label><input type="checkbox" name="recurseid" value="yes" />'
-                    '</label>'."\n";
+            .&mt("Update ID in user's course(s).").'</label>'."\n";
      }
-     $output .= &Apache::lonhtmlcommon::row_closure(1); # last row in pick_box
      return $output;
  }
  ###############################################################
  ###############################################################
  sub print_upload_manager_form {
-     my ($r,$context,$permission,$crstype,$formname) = @_;
+     my ($r,$context,$permission,$crstype,$showcredits) = @_;
      my $firstLine;
      my $datatoken;
      if (!$env{'form.datatoken'}) {
          $datatoken=&Apache::loncommon::upfile_store($r);
      } else {
-         $datatoken=$env{'form.datatoken'};
+         $datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'});
-         &Apache::loncommon::load_tmp_file($r);
+         if ($datatoken ne '') {
+             &Apache::loncommon::load_tmp_file($r,$datatoken);
+         }
+     }
+     if ($datatoken eq '') {
+         $r->print('<p class="LC_error">'.&mt('Error').': '.
+                   &mt('Invalid datatoken').'</p>');
+         return 'missingdata';
      }
      my @records=&Apache::loncommon::upfile_record_sep();
      if($env{'form.noFirstLine'}){
- Line 1114  sub print_upload_manager_form {
+ Line 1166  sub print_upload_manager_form {
                                 'domain_choice' => 'scalar',
                                 'inststatus_choice' => 'scalar',
                               };
-     my $defdom = $env{'request.role.domain'};
+     if ($showcredits) {
+         $col_setting_names->{'credits_choice'} = 'scalar';
+     }
      if ($context eq 'course') {
          &Apache::loncommon::restore_course_settings('enrollment_upload',
                                                      $col_setting_names);
- Line 1122  sub print_upload_manager_form {
+ Line 1176  sub print_upload_manager_form {
          &Apache::loncommon::restore_settings($context,'user_upload',
                                               $col_setting_names);
      }
+     my $defdom = $env{'request.role.domain'};
      #
      # Determine kerberos parameters as appropriate
      my ($krbdef,$krbdefdom) =
- Line 1129  sub print_upload_manager_form {
+ Line 1184  sub print_upload_manager_form {
      #
      my ($authnum,%can_assign) =  &Apache::loncommon::get_assignable_auth($defdom);
      &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom,$context,
-                                  $permission,$crstype,$formname,\%can_assign);
+                                  $permission,$crstype,\%can_assign);
      my $i;
      my $keyfields;
      if ($total>=0) {
          my @field=
              (['username',&mt('Username'),     $env{'form.username_choice'}],
-              ['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}],
               ['names',&mt('Last Name, First Names'),$env{'form.names_choice'}],
               ['fname',&mt('First Name'),      $env{'form.fname_choice'}],
               ['mname',&mt('Middle Names/Initials'),$env{'form.mname_choice'}],
- Line 1143  sub print_upload_manager_form {
+ Line 1197  sub print_upload_manager_form {
               ['gen',  &mt('Generation'),      $env{'form.gen_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'}],
               ['domain',&mt('Domain'),         $env{'form.domain_choice'}],
               ['inststatus',&mt('Affiliation'), $env{'form.inststatus_choice'}]);
+         if ($showcredits) {
+             push(@field,
+                  ['credits',&mt('Student Credits'), $env{'form.credits_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 1163  sub print_upload_manager_form {
+ Line 1222  sub print_upload_manager_form {
              $keyfields=join(',',sort(keys(%sone)));
          }
      }
-     $r->print('</div>');
      &print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear,
-                                  $context,$permission,$crstype);
+                                  $context,$permission,$crstype,$showcredits);
+     return 'ok';
  }
  sub setup_date_selectors {
- Line 1322  sub make_dates_default {
+ Line 1381  sub make_dates_default {
  }
  sub default_role_selector {
-     my ($context,$checkpriv,$crstype) = @_;
+     my ($context,$checkpriv,$crstype,$showcredits) = @_;
      my %customroles;
      my ($options,$coursepick,$cb_jscript);
      if ($context ne 'author') {
- Line 1334  sub default_role_selector {
+ Line 1393  sub default_role_selector {
                      'grs'  => "Section",
                      'exs'  => "Existing sections",
                      'new'  => "New section",
+                     'crd'  => "Credits",
                    );
-     $options = '<select name="defaultrole">'."\n";
+     $options = '<select name="defaultrole">'."\n".
-     unless (($context eq 'course') && (&Apache::loncommon::needs_gci_custom())) {
+                ' <option value="">'.&mt('Please select').'</option>'."\n";
-         $options .= ' <option value="">'.&mt('Please select').'</option>'."\n";
-     }
      if ($context eq 'course') {
          $options .= &default_course_roles($context,$checkpriv,$crstype,%customroles);
      } elsif ($context eq 'author') {
- Line 1355  sub default_role_selector {
+ Line 1413  sub default_role_selector {
          }
          my $courseform = &Apache::loncommon::selectcourse_link
              ('studentform','dccourse','dcdomain','coursedesc',"$env{'request.role.domain'}",undef,'Course/Community');
+         my ($credit_elem,$creditsinput);
+         if ($showcredits) {
+             $credit_elem = 'credits';
+             $creditsinput = '<td><input type="text" name="credits" value="" /></td>';
+         }
          $cb_jscript =
-             &Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'},'currsec','studentform','courserole','Course/Community');
+             &Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'},'currsec','studentform','courserole','Course/Community',$credit_elem);
          $coursepick = &Apache::loncommon::start_data_table().
                        &Apache::loncommon::start_data_table_header_row().
                        '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th>'.
                        '<th>'.$lt{'grs'}.'</th>'.
+                       '<th>'.$lt{'crd'}.'</th>'.
                        &Apache::loncommon::end_data_table_header_row().
                        &Apache::loncommon::start_data_table_row()."\n".
                        '<td><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'studentform','dccourse','dcdomain','coursedesc','','','','crstype'".')" /></td>'."\n".
- Line 1368  sub default_role_selector {
+ Line 1432  sub default_role_selector {
                        &default_course_roles($context,$checkpriv,'Course',%customroles)."\n".
                        '</select></td><td>'.
                        '<table class="LC_createuser">'.
-                       '<tr class="LC_section_row"><td valign"top">'.
+                       '<tr class="LC_section_row"><td valign="top">'.
                        $lt{'exs'}.'<br /><select name="currsec">'.
-                       ' <option value=""><--'.&mt('Pick course first').
+                       ' <option value="">&lt;--'.&mt('Pick course first').
                        '</select></td>'.
                        '<td>&nbsp;&nbsp;</td>'.
                        '<td valign="top">'.$lt{'new'}.'<br />'.
- Line 1382  sub default_role_selector {
+ Line 1446  sub default_role_selector {
                        '<input type="hidden" name="dccourse" value="" />'.
                        '<input type="hidden" name="dcdomain" value="" />'.
                        '<input type="hidden" name="crstype" value="" />'.
-                       '</td></tr></table></td>'.
+                       '</td></tr></table></td>'.$creditsinput.
                        &Apache::loncommon::end_data_table_row().
                        &Apache::loncommon::end_data_table()."\n";
      }
- Line 1502  sub curr_role_permissions {
+ Line 1566  sub curr_role_permissions {
  # ======================================================= Existing Custom Roles
  sub my_custom_roles {
-     my ($crstype) = @_;
+     my ($crstype,$udom,$uname) = @_;
      my %returnhash=();
-     my %rolehash=&Apache::lonnet::dump('roles');
+     my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
+     my %rolehash=&Apache::lonnet::dump('roles',$udom,$uname);
      foreach my $key (keys(%rolehash)) {
          if ($key=~/^rolesdef\_(\w+)$/) {
              if ($crstype eq 'Community') {
- Line 1518  sub my_custom_roles {
+ Line 1583  sub my_custom_roles {
  sub print_userlist {
      my ($r,$mode,$permission,$context,$formname,$totcodes,$codetitles,
-         $idlist,$idlist_titles) = @_;
+         $idlist,$idlist_titles,$showcredits) = @_;
      my $format = $env{'form.output'};
      if (! exists($env{'form.sortby'})) {
          $env{'form.sortby'} = 'username';
- Line 1526  sub print_userlist {
+ Line 1591  sub print_userlist {
      if ($env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) {
          $env{'form.Status'} = 'Active';
      }
+     my $onchange = "javascript:updateCols('Status');";
      my $status_select = &Apache::lonhtmlcommon::StatusOptions
-         ($env{'form.Status'});
+         ($env{'form.Status'},undef,undef,$onchange);
      if ($env{'form.showrole'} eq '') {
          if ($context eq 'course') {
- Line 1552  sub print_userlist {
+ Line 1618  sub print_userlist {
          @statuses = ('future');
      }
- #    if ($context eq 'course') {
- #        $r->print(&display_adv_courseroles());
- #    }
-     #
      # Interface output
      $r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n".
                '<input type="hidden" name="action" value="'.
                $env{'form.action'}.'" />');
-     $r->print("<p>\n");
+     $r->print('<div>'."\n");
      if ($env{'form.action'} ne 'modifystudent') {
          my %lt=&Apache::lonlocal::texthash('csv' => "CSV",
                                             'excel' => "Excel",
                                             'html'  => 'HTML');
-         my $output_selector = '<select size="1" name="output" >';
+         my $output_selector = '<select size="1" name="output" onchange="javascript:updateCols('."'output'".');" >';
          foreach my $outputformat ('html','csv','excel') {
              my $option = '<option value="'.$outputformat.'"';
              if ($outputformat eq $env{'form.output'}) {
- Line 1575  sub print_userlist {
+ Line 1637  sub print_userlist {
              $output_selector .= "\n".$option;
          }
          $output_selector .= '</select>';
-         $r->print('<label><span class="LC_nobreak">'
+         $r->print('<span class="LC_nobreak">'
                   .&mt('Output Format: [_1]',$output_selector)
-                  .'</span></label>'.('&nbsp;'x3));
+                  .'</span>'.('&nbsp;'x3));
      }
-     $r->print('<label><span class="LC_nobreak">'
+     $r->print('<span class="LC_nobreak">'
               .&mt('User Status: [_1]',$status_select)
-              .'</span></label>'.('&nbsp;'x3)."\n");
+              .'</span>'.('&nbsp;'x3)."\n");
      my $roleselected = '';
      if ($env{'form.showrole'} eq 'Any') {
         $roleselected = ' selected="selected"';
- Line 1592  sub print_userlist {
+ Line 1654  sub print_userlist {
          ($cnum,$cdom) = &get_course_identity();
          $r->print(&section_group_filter($cnum,$cdom));
      }
+     $r->print('</div><div class="LC_left_float">'.
+               &column_checkboxes($context,$mode,$formname,$showcredits).
+               '</div>');
      if ($env{'form.phase'} eq '') {
-         $r->print('<br /><br />'.&list_submit_button(&mt('Display List of Users')).
+         $r->print('<br clear="all" />'.
-                   "\n</p>\n".
+                   &list_submit_button(&mt('Display List of Users'))."\n".
                    '<input type="hidden" name="phase" value="" /></form>');
          return;
      }
      if (!(($context eq 'domain') &&
            (($env{'form.roletype'} eq 'course') || ($env{'form.roletype'} eq 'community')))) {
-         $r->print('&nbsp;'.&list_submit_button(&mt('Update Display')).
+         $r->print('<br clear="all" />'.
-                   "\n</p>\n");
+                   &list_submit_button(&mt('Update Display'))."\n");
+     }
+     my @cols = &infocolumns($context,$mode,$showcredits);
+     if (!@cols) {
+          $r->print('<hr style="clear:both;" /><span class="LC_warning">'.
+                    &mt('No user information selected for display.').'</span>'.
+                    '<input type="hidden" name="phase" value="display" /></form>'."\n");
+          return;
      }
      my ($indexhash,$keylist) = &make_keylist_array();
-     my (%userlist,%userinfo,$clearcoursepick);
+     my (%userlist,%userinfo,$clearcoursepick,$needauthorquota,$needauthorusage);
      if (($context eq 'domain') &&
          ($env{'form.roletype'} eq 'course') ||
          ($env{'form.roletype'} eq 'community')) {
- Line 1620  sub print_userlist {
+ Line 1693  sub print_userlist {
              $title = &mt('Select Communities');
              $warning = &mt('Warning: data retrieval for multiple communities can take considerable time, as this operation is not currently optimized.');
          }
+         my @standardnames = &Apache::loncommon::get_standard_codeitems();
          my $courseform =
              &Apache::lonhtmlcommon::course_selection($formname,$numcodes,
-                             $codetitles,$idlist,$idlist_titles,$crstype);
+                             $codetitles,$idlist,$idlist_titles,$crstype,
-         $r->print('<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".
+                             \@standardnames);
-                   &Apache::lonhtmlcommon::start_pick_box()."\n".
+         $r->print('<div class="LC_left_float">'.
-                   &Apache::lonhtmlcommon::row_title($title,'LC_oddrow_value')."\n".
+                   '<fieldset><legend>'.$title.'</legend>'."\n".
                    $courseform."\n".
-                   &Apache::lonhtmlcommon::row_closure(1).
+                   '</fieldset></div><br clear="all" />'.
-                   &Apache::lonhtmlcommon::end_pick_box().'</p>'.
                    '<p><input type="hidden" name="origroletype" value="'.$env{'form.roletype'}.'" />'.
                    &list_submit_button(&mt('Update Display')).
                    "\n".'</p><span class="LC_warning">'.$warning.'</span>'."\n");
- Line 1638  sub print_userlist {
+ Line 1711  sub print_userlist {
              $clearcoursepick = 1;
          }
          if (($env{'form.coursepick'}) && (!$clearcoursepick)) {
-             $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');
+             $r->print('<hr />'.&mt('Searching ...').'<br />&nbsp;<br />');
          }
      } else {
-         $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');
+         $r->print('<hr style="clear:both;" /><div id="searching">'.&mt('Searching ...').'</div>');
      }
      $r->rflush();
      if ($context eq 'course') {
- Line 1676  sub print_userlist {
+ Line 1749  sub print_userlist {
                               \%cstr_roles,$permission);
          } elsif ($context eq 'domain') {
              if ($env{'form.roletype'} eq 'domain') {
+                 if (grep(/^authorusage$/,@cols)) {
+                     $needauthorusage = 1;
+                 }
+                 if (grep(/^authorquota$/,@cols)) {
+                     $needauthorquota = 1;
+                 }
                  %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'});
                  foreach my $key (keys(%dom_roles)) {
                      if (ref($dom_roles{$key}) eq 'HASH') {
- Line 1761  sub print_userlist {
+ Line 1840  sub print_userlist {
          }
      }
      if (keys(%userlist) == 0) {
+         my $msg = '';
          if ($context eq 'author') {
-             $r->print(&mt('There are no co-authors to display.')."\n");
+             $msg = &mt('There are no co-authors to display.');
          } elsif ($context eq 'domain') {
              if ($env{'form.roletype'} eq 'domain') {
-                 $r->print(&mt('There are no users with domain roles to display.')."\n");
+                 $msg = &mt('There are no users with domain roles to display.');
              } elsif ($env{'form.roletype'} eq 'author') {
-                 $r->print(&mt('There are no authors or co-authors to display.')."\n");
+                 $msg = &mt('There are no authors or co-authors to display.');
              } elsif ($env{'form.roletype'} eq 'course') {
-                 $r->print(&mt('There are no course users to display')."\n");
+                 $msg = &mt('There are no course users to display');
              } elsif ($env{'form.roletype'} eq 'community') {
-                 $r->print(&mt('There are no community users to display')."\n");
+                 $msg = &mt('There are no community users to display');
              }
          } elsif ($context eq 'course') {
              $r->print(&mt('There are no course users to display.')."\n");
          }
+         $r->print('<p class="LC_info">'.$msg.'</p>'."\n") if $msg;
      } else {
          # Print out the available choices
          my $usercount;
          if ($env{'form.action'} eq 'modifystudent') {
              ($usercount) = &show_users_list($r,$context,'view',$permission,
-                                  $env{'form.Status'},\%userlist,$keylist);
+                                  $env{'form.Status'},\%userlist,$keylist,'',
+                                  $showcredits);
          } else {
              ($usercount) = &show_users_list($r,$context,$env{'form.output'},
-                                $permission,$env{'form.Status'},\%userlist,$keylist);
+                                $permission,$env{'form.Status'},\%userlist,
+                                $keylist,'',$showcredits,$needauthorquota,$needauthorusage);
          }
          if (!$usercount) {
-             $r->print('<br /><span class="LC_warning">'
+             $r->print('<br /><span class="LC_info">'
                       .&mt('There are no users matching the search criteria.')
                       .'</span>'
              );
- Line 1795  sub print_userlist {
+ Line 1878  sub print_userlist {
      }
      $r->print('<input type="hidden" name="phase" value="'.
                $env{'form.phase'}.'" /></form>');
+     return;
  }
  sub role_filter {
- Line 1807  sub role_filter {
+ Line 1891  sub role_filter {
      my ($role_select);
      if ($context eq 'domain') {
          $role_select = &domain_roles_select();
-         $output = '<label><span class="LC_nobreak">'
+         $output = '<span class="LC_nobreak">'
                   .&mt('Role Type: [_1]',$role_select)
-                  .'</span></label>';
+                  .'</span>';
      } else {
-         $role_select = '<select name="showrole">'."\n".
+         $role_select = '<select name="showrole" onchange="javascript:updateCols('."'showrole'".');">'."\n".
                         '<option value="Any" '.$roleselected.'>'.
                         &mt('Any role').'</option>';
          my ($roletype,$crstype);
- Line 1838  sub role_filter {
+ Line 1922  sub role_filter {
              $role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
          }
          $role_select .= '</select>';
-         $output = '<label><span class="LC_nobreak">'
+         $output = '<span class="LC_nobreak">'
                   .&mt('Role: [_1]',$role_select)
-                  .'</span></label>';
+                  .'</span>';
      }
      return $output;
  }
- Line 1880  sub section_group_filter {
+ Line 1964  sub section_group_filter {
          }
          if (@options > 0) {
              my $currsel;
-             $markup = '<select name="'.$name{$item}.'" />'."\n";
+             $markup = '<select name="'.$name{$item}.'">'."\n";
              foreach my $option ('all','none',@options) {
                  $currsel = '';
                  if ($env{'form.'.$name{$item}} eq $option) {
- Line 1895  sub section_group_filter {
+ Line 1979  sub section_group_filter {
                  $markup .= '</option>'."\n";
              }
              $markup .= '</select>'."\n";
-             $output .= ('&nbsp;'x3).'<label>'.$title{$item}.': '.$markup.'</label>';
+             $output .= ('&nbsp;'x3).'<span class="LC_nobreak">'
+                       .'<label>'.$title{$item}.': '.$markup.'</label>'
+                       .'</span> ';
          }
      }
      return $output;
  }
+ sub infocolumns {
+     my ($context,$mode,$showcredits) = @_;
+     my @cols;
+     if (($mode eq 'pickauthor') || ($mode eq 'autoenroll')) {
+         @cols = &get_cols_array($context,$mode,$showcredits);
+     } else {
+         my @posscols = &get_cols_array($context,$mode,$showcredits);
+         if ($env{'form.phase'} ne '') {
+             my @checkedcols = &Apache::loncommon::get_env_multiple('form.showcol');
+             foreach my $col (@checkedcols) {
+                 if (grep(/^$col$/,@posscols)) {
+                     push(@cols,$col);
+                 }
+             }
+         } else {
+             @cols = @posscols;
+         }
+     }
+     return @cols;
+ }
+ sub get_cols_array {
+     my ($context,$mode,$showcredits) = @_;
+     my @cols;
+     if ($mode eq 'pickauthor') {
+         @cols = ('username','fullname','status','email');
+     } else {
+         @cols = ('username','domain','id','fullname');
+         if ($context eq 'course') {
+             push(@cols,'section');
+         }
+         push(@cols,('start','end','role'));
+         unless (($mode eq 'autoenroll') && ($env{'form.Status'} ne 'Any')) {
+             push(@cols,'status');
+         }
+         if ($context eq 'course') {
+             push(@cols,'groups');
+         }
+         push(@cols,'email');
+         if (($context eq 'course') && ($mode ne 'autoenroll')) {
+             if ($showcredits) {
+                 push(@cols,'credits');
+             }
+             push(@cols,'lastlogin','clicker');
+         }
+         if (($context eq 'course') && ($mode ne 'autoenroll') &&
+             ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'})) {
+             push(@cols,'photo');
+         }
+         if ($context eq 'domain') {
+             push (@cols,('authorusage','authorquota','extent'));
+         }
+     }
+     return @cols;
+ }
+ sub column_checkboxes {
+     my ($context,$mode,$formname,$showcredits) = @_;
+     my @cols = &get_cols_array($context,$mode,$showcredits);
+     my @showncols = &Apache::loncommon::get_env_multiple('form.showcol');
+     my (%disabledchk,%unchecked);
+     if ($env{'form.phase'} eq '') {
+         $disabledchk{'status'} = 1;
+         if ($context eq 'course') {
+             $disabledchk{'role'} = 1;
+             $unchecked{'photo'} = 1;
+             $unchecked{'clicker'} = 1;
+             if ($showcredits) {
+                 $unchecked{'credits'} = 1;
+             }
+         } elsif ($context eq 'domain') {
+             $unchecked{'extent'} = 1;
+         }
+         $unchecked{'start'} = 1;
+         $unchecked{'end'} = 1;
+     } else {
+         if ($env{'form.Status'} ne 'Any') {
+             $disabledchk{'status'} = 1;
+         }
+         if (($env{'form.showrole'} ne 'Any') && ($env{'form.showrole'} ne 'cr')) {
+             $disabledchk{'role'} = 1;
+         }
+         if ($context eq 'domain') {
+             if (($env{'form.roletype'} eq 'course') ||
+                 ($env{'form.roletype'} eq 'community')) {
+                 $disabledchk{'status'} = 1;
+                 $disabledchk{'authorusage'} = 1;
+                 $disabledchk{'authorquota'} = 1;
+             } elsif ($env{'form.roletype'} eq 'domain') {
+                 $disabledchk{'extent'} = 1;
+             }
+         }
+     }
+     my $numposs = scalar(@cols);
+     my $numinrow = 7;
+     my %lt = &get_column_names($context);
+     my $output = '<fieldset><legend>'.&mt('Information to show').'</legend>'."\n".'<span class="LC_nobreak">'.
+                  '<input type="button" onclick="javascript:checkAll(document.'.$formname.'.showcol);" value="'.&mt('check all').'" />'.
+                  ('&nbsp;'x3).
+                  '<input type="button" onclick="javascript:uncheckAll(document.'.$formname.'.showcol);" value="'.&mt('uncheck all').'" />'.
+                  '</span><table>';
+     for (my $i=0; $i<$numposs; $i++) {
+         my $rem = $i%($numinrow);
+         if ($rem == 0) {
+             if ($i > 0) {
+                 $output .= '</tr>';
+             }
+             $output .= '<tr>';
+         }
+         my $checked;
+         if ($env{'form.phase'} eq '') {
+             $checked = ' checked="checked"';
+             if ($unchecked{$cols[$i]}) {
+                $checked = '';
+             }
+             if ($disabledchk{$cols[$i]}) {
+                 $checked = ' disabled="disabled"';
+             }
+         } elsif (grep(/^\Q$cols[$i]\E$/,@showncols)) {
+             $checked = ' checked="checked"';
+         } elsif ($disabledchk{$cols[$i]}) {
+             $checked = ' disabled="disabled"';
+         }
+         if ($i == $numposs-1) {
+             my $colsleft = $numinrow-$rem;
+             if ($colsleft > 1) {
+                 $output .= '<td colspan="'.$colsleft.'">';
+             } else {
+                 $output .= '<td>';
+             }
+         } else {
+             $output .= '<td>';
+         }
+         my $style;
+         if ($cols[$i] eq 'extent') {
+             if (($env{'form.roletype'} eq 'domain') || ($env{'form.roletype'} eq '')) {
+                 $style = ' style="display: none;"';
+             }
+         } elsif (($cols[$i] eq 'authorusage') || ($cols[$i] eq 'authorquota')) {
+             if ($env{'form.roletype'} ne 'domain') {
+                 $style = ' style="display: none;"';
+             }
+         }
+         $output .= '<span id="show'.$cols[$i].'"'.$style.'><label>'.
+                    '<input id="showcol'.$cols[$i].'" type="checkbox" name="showcol" value="'.$cols[$i].'"'.$checked.' /><span id="showcoltext'.$cols[$i].'">'.
+                    $lt{$cols[$i]}.'</span>'.
+                    '</label></span></td>';
+     }
+     $output .= '</tr></table></fieldset>';
+     return $output;
+ }
  sub list_submit_button {
      my ($text) = @_;
      return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />';
  }
+ sub get_column_names {
+     my ($context) = @_;
+     my %lt = &Apache::lonlocal::texthash(
+         'username'   => "username",
+         'domain'     => "domain",
+         'id'         => 'ID',
+         'fullname'   => "name",
+         'section'    => "section",
+         'groups'     => "active groups",
+         'start'      => "start date",
+         'end'        => "end date",
+         'status'     => "status",
+         'role'       => "role",
+         'credits'    => "credits",
+         'type'       => "enroll type/action",
+         'email'      => "e-mail address",
+         'photo'      => "photo",
+         'lastlogin'  => "last login",
+         'extent'     => "extent",
+         'authorusage' => "disk usage (%)",
+         'authorquota' => "disk quota (MB)",
+         'ca'         => "check all",
+         'ua'         => "uncheck all",
+         'clicker'    => "clicker-ID",
+     );
+     if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
+         $lt{'extent'} = &mt('course(s): description, section(s), status');
+     } elsif ($context eq 'domain' && $env{'form.roletype'} eq 'community') {
+         $lt{'extent'} = &mt('community(s): description, section(s), status');
+     } elsif (($context eq 'author') ||
+              ($context eq 'domain' && $env{'form.roletype'} eq 'author')) {
+         $lt{'extent'} = &mt('author');
+     }
+     return %lt;
+ }
  sub gather_userinfo {
      my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;
      my $viewablesec;
- Line 2023  sub build_user_record {
+ Line 2298  sub build_user_record {
  sub courses_selector {
      my ($cdom,$formname) = @_;
-     my %coursecodes = ();
      my %codes = ();
      my @codetitles = ();
      my %cat_titles = ();
- Line 2036  sub courses_selector {
+ Line 2310  sub courses_selector {
      my $jscript = '';
      my $totcodes = 0;
-     $totcodes =
+     my $instcats = &Apache::lonnet::get_dom_instcats($cdom);
-         &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,
+     if (ref($instcats) eq 'HASH') {
-                                                       $cdom,$totcodes);
+         if ((ref($instcats->{'codetitles'}) eq 'ARRAY') && (ref($instcats->{'codes'}) eq 'HASH') &&
-     if ($totcodes > 0) {
+             (ref($instcats->{'cat_titles'}) eq 'HASH') && (ref($instcats->{'cat_order'}) eq 'HASH')) {
-         $format_reply =
+             %codes = %{$instcats->{'codes'}};
-              &Apache::lonnet::auto_instcode_format($caller,$cdom,\%coursecodes,
+             @codetitles = @{$instcats->{'codetitles'}};
-                                 \%codes,\@codetitles,\%cat_titles,\%cat_order);
+             %cat_titles = %{$instcats->{'cat_titles'}};
-         if ($format_reply eq 'ok') {
+             %cat_order = %{$instcats->{'cat_order'}};
+             $totcodes = scalar(keys(%codes));
              my $numtypes = @codetitles;
              &Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles);
              my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles);
- Line 2051  sub courses_selector {
+ Line 2326  sub courses_selector {
              my $allidlist = $idlist{$codetitles[0]};
              $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist);
              $jscript .= $scripttext;
-             $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,@codetitles);
+             $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,\@codetitles);
          }
      }
      my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom);
- Line 2069  function setCourseCat(formname) {
+ Line 2344  function setCourseCat(formname) {
      if (formname.Year.options[formname.Year.selectedIndex].value == -1) {
          return;
      }
-     courseSet('Year');
+     courseSet('$codetitles[0]');
      for (var j=0; j<formname.Semester.length; j++) {
          if (formname.Semester.options[j].value == "$env{'form.Semester'}") {
              formname.Semester.options[j].selected = true;
- Line 2078  function setCourseCat(formname) {
+ Line 2353  function setCourseCat(formname) {
      if (formname.Semester.options[formname.Semester.selectedIndex].value == -1) {
          return;
      }
-     courseSet('Semester');
+     courseSet('$codetitles[1]');
      for (var j=0; j<formname.Department.length; j++) {
-         if (formname.Department.options[j].value == "$env{'form.Department'}") {            formname.Department.options[j].selected = true;
+         if (formname.Department.options[j].value == "$env{'form.Department'}") {
+             formname.Department.options[j].selected = true;
          }
      }
      if (formname.Department.options[formname.Department.selectedIndex].value == -1) {
          return;
      }
-     courseSet('Department');
+     courseSet('$codetitles[2]');
      for (var j=0; j<formname.Number.length; j++) {
          if (formname.Number.options[j].value == "$env{'form.Number'}") {
              formname.Number.options[j].selected = true;
- Line 2155  sub instcode_from_coursefilter {
+ Line 2431  sub instcode_from_coursefilter {
      return $instcode;
  }
- sub display_adv_courseroles {
-     my $output;
-     #
-     # List course personnel
-     my %coursepersonnel =
-        &Apache::lonnet::get_course_adv_roles($env{'request.course.id'});
-     #
-     $output = '<br />'.&Apache::loncommon::start_data_table();
-     foreach my $role (sort(keys(%coursepersonnel))) {
-         next if ($role =~ /^\s*$/);
-         $output .= &Apache::loncommon::start_data_table_row().
-                   '<td>'.$role.'</td><td>';
-         foreach my $user (split(',',$coursepersonnel{$role})) {
-             my ($puname,$pudom)=split(':',$user);
-             $output .= ' '.&Apache::loncommon::aboutmewrapper(
-                        &Apache::loncommon::plainname($puname,$pudom),
-                        $puname,$pudom);
-         }
-         $output .= '</td>'.&Apache::loncommon::end_data_table_row();
-     }
-     $output .= &Apache::loncommon::end_data_table();
- }
  sub make_keylist_array {
      my ($index,$keylist);
      $index->{'domain'} = &Apache::loncoursedata::CL_SDOM();
- Line 2196  sub make_keylist_array {
+ Line 2449  sub make_keylist_array {
      $index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();
      $index->{'photo'} = &Apache::loncoursedata::CL_PHOTO();
      $index->{'thumbnail'} = &Apache::loncoursedata::CL_THUMBNAIL();
+     $index->{'credits'} = &Apache::loncoursedata::CL_CREDITS();
+     $index->{'instsec'} = &Apache::loncoursedata::CL_INSTSEC();
+     $index->{'authorquota'} = &Apache::loncoursedata::CL_AUTHORQUOTA();
+     $index->{'authorusage'} = &Apache::loncoursedata::CL_AUTHORUSAGE();
      foreach my $key (keys(%{$index})) {
          $keylist->[$index->{$key}] = $key;
      }
- Line 2244  sub process_date_info {
+ Line 2501  sub process_date_info {
  }
  sub show_users_list {
-     my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist,$formname)=@_;
+     my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist,$formname,
-     my $custommenu;
+         $showcredits,$needauthorquota,$needauthorusage)=@_;
      if ($formname eq '') {
          $formname = 'studentform';
      }
+     my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
      #
      # Variables for excel output
      my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);
- Line 2260  sub show_users_list {
+ Line 2518  sub show_users_list {
      my @sortable = ('username','domain','id','fullname','start','end','email','role');
      if ($context eq 'course') {
          push(@sortable,('section','groups','type'));
+         if ($showcredits) {
+             push(@sortable,'credits');
+         }
      } else {
          push(@sortable,'extent');
+         if (($context eq 'domain') && ($env{'form.roletype'} eq 'domain') &&
+             (($env{'form.showrole'} eq 'Any') || ($env{'form.showrole'} eq 'au'))) {
+             push(@sortable,('authorusage','authorquota'));
+         }
      }
      if ($mode eq 'pickauthor') {
          @sortable = ('username','fullname','email','status');
      }
-     if (!grep(/^\Q$sortby\E$/,@sortable)) {
+     my %is_sortable;
+     map { $is_sortable{$_} = 1; } @sortable;
+     unless ($is_sortable{$sortby}) {
          $sortby = 'username';
      }
      my $setting = $env{'form.roletype'};
-     my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers,$crstype,
+     my ($cid,$cdom,$cnum,$classgroups,$crstype,$defaultcredits);
-         $clickersupport,$displaygroups);
      if ($context eq 'course') {
          $cid = $env{'request.course.id'};
          $crstype = &Apache::loncommon::course_type();
          ($cnum,$cdom) = &get_course_identity($cid);
-         $custommenu = &Apache::loncommon::needs_gci_custom();
+         $defaultcredits = $env{'course.'.$cid.'.internal.defaultcredits'};
-         unless ($custommenu) {
-             $clickersupport = 1;
-             $displaygroups = 1;
-         }
          ($classgroups) = &Apache::loncoursedata::get_group_memberships(
                                       $userlist,$keylist,$cdom,$cnum);
          if ($mode eq 'autoenroll') {
              $env{'form.showrole'} = 'st';
          } else {
-             if (! exists($env{'form.displayphotos'})) {
-                 $env{'form.displayphotos'} = 'off';
-             }
-             $displayphotos = $env{'form.displayphotos'};
-             if (! exists($env{'form.displayclickers'})) {
-                 $env{'form.displayclickers'} = 'off';
-             }
-             $displayclickers = $env{'form.displayclickers'};
              if ($env{'course.'.$cid.'.internal.showphoto'}) {
                  $r->print('
  <script type="text/javascript">
- Line 2309  function photowindow(photolink) {
+ Line 2563  function photowindow(photolink) {
  </script>
                 ');
              }
-             $r->print(<<END);
- <input type="hidden" name="displayphotos" value="$displayphotos" />
- <input type="hidden" name="displayclickers" value="$displayclickers" />
- END
          }
      } elsif ($context eq 'domain') {
          if ($setting eq 'community') {
- Line 2322  END
+ Line 2572  END
          }
      }
      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">
  // <![CDATA[
- $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.length) {
-         if (document.$formname.usernamelink[i].checked) {
+         target = document.$formname.usernamelink.value;
-             target = document.$formname.usernamelink[i].value;
+     } else {
+         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 ((target == 'modify') || (target == 'activity')) {
+         var nextaction = 'singleuser';
+         if (target == 'activity') {
+             nextaction = 'accesslogs';
+         }
          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 url = '/adm/createuser?srchterm='+username+'&srchdomain='+domain+'&phase=get_user_info&srchin=dom&srchby=uname&srchtype=exact&popup=1&action='+nextaction;
              var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
              modifywin = window.open(url,'',options,1);
              modifywin.focus();
- Line 2351  function username_display_launch(usernam
+ Line 2607  function username_display_launch(usernam
              document.$formname.srchterm.value=username;
              document.$formname.srchdomain.value=domain;
              document.$formname.phase.value='get_user_info';
-             document.$formname.action.value = 'singleuser';
+             document.$formname.action.value = nextaction;
              document.$formname.submit();
          }
      }
- Line 2387  END
+ Line 2643  END
      $r->print(<<END);
  <input type="hidden" name="sortby" value="$sortby" />
  END
+     my @cols = &infocolumns($context,$mode,$showcredits);
-     my %lt=&Apache::lonlocal::texthash(
+     my %coltxt = &get_column_names($context);
-                        'username'   => "username",
+     my %acttxt = &Apache::lonlocal::texthash(
-                        'domain'     => "domain",
-                        'id'         => 'ID',
-                        'fullname'   => "name",
-                        'section'    => "section",
-                        'groups'     => "active groups",
-                        'start'      => "start date",
-                        'end'        => "end date",
-                        'status'     => "status",
-                        'role'       => "role",
-                        'type'       => "enroll type/action",
-                        'email'      => "e-mail address",
-                        'lastlogin'  => "last login",
-                        'submissions' => "test status",
-                        '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 information page",
                         'owin'       => "Open in a new window",
                         'modify'     => "Modify a user's information",
                         'track'      => "View a user's recent activity",
-                        'clicker'    => "Clicker-ID",
+                        'activity'   => "View a user's access log",
                        );
-     if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
+     my %lt = (%coltxt,%acttxt);
-         $lt{'extent'} = &mt('Course(s): description, section(s), status');
-     } elsif ($context eq 'domain' && $env{'form.roletype'} eq 'community') {
-         $lt{'extent'} = &mt('Communities: description, section(s), status');
-     } elsif ($context eq 'author') {
-         $lt{'extent'} = &mt('Author');
-     }
-     my @cols;
-     if ($mode eq 'pickauthor') {
-         @cols = ('username','fullname','status','email');
-     } else {
-         @cols = ('username','domain','id','fullname');
-         if ($context eq 'course') {
-             push(@cols,'section');
-         }
-         if (!($context eq 'domain' && ($env{'form.roletype'} eq 'course')
-                               && ($env{'form.roletype'} eq 'community'))) {
-             push(@cols,('start','end'));
-         }
-         if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') {
-             push(@cols,'role');
-         }
-         if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' ||
-                                     $env{'form.roletype'} eq 'course' ||
-                                     $env{'form.roletype'} eq 'community')) {
-             push (@cols,'extent');
-         }
-         if (($statusmode eq 'Any') &&
-             (!($context eq 'domain' && (($env{'form.roletype'} eq 'course')
-              || ($env{'form.roletype'} eq 'community'))))) {
-             push(@cols,'status');
-         }
-         if ($context eq 'course') {
-             if ($displaygroups) {
-                 push(@cols,'groups');
-             }
-         }
-         push(@cols,'email');
-         if ($context eq 'course') {
-             if ($custommenu) {
-                 push(@cols,'lastlogin');
-                 if (($env{'form.showrole'} eq 'Any') || ($env{'form.showrole'} eq 'st')) {
-                     push(@cols,'submissions');
-                 }
-             }
-         }
-     }
      my $rolefilter = $env{'form.showrole'};
      if ($env{'form.showrole'} eq 'cr') {
          $rolefilter = &mt('custom');
- Line 2474  END
+ Line 2666  END
      if ($mode ne 'autoenroll') {
          $results_description = &results_header_row($rolefilter,$statusmode,
                                                     $context,$permission,$mode,$crstype);
-         $r->print('<b>'.$results_description.'</b><br /><br />');
+         $r->print('<b>'.$results_description.'</b><br clear="all" />');
      }
      my ($output,$actionselect,%canchange,%canchangesec);
      if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
- Line 2536  END
+ Line 2728  END
                              if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
                                  $canchangesec{$role} = $env{'request.course.sec'};
                              }
+                         } elsif ((($role eq 'co') && ($crstype eq 'Community')) ||
+                                  (($role eq 'cc') && ($crstype eq 'Course'))) {
+                             if (&is_courseowner($env{'request.course.id'},
+                                                 $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'})) {
+                                 $canchange{$role} = 1;
+                             }
                          }
                      }
                  }
- Line 2546  END
+ Line 2744  END
              if ($permission->{'cusr'}) {
                  unshift (@linkdests,'modify');
              }
-             if (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) ||
+             if ($context eq 'course') {
-                 &Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'.
+                 if (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) ||
-                                          $env{'request.course.sec'})) {
+                     &Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'.
-                 push(@linkdests,'track');
+                                              $env{'request.course.sec'})) {
+                     push(@linkdests,'track');
+                 }
+             } elsif ($context eq 'domain') {
+                 if (&Apache::lonnet::allowed('vac',$env{'request.role.domain'})) {
+                     push(@linkdests,'activity');
+                 }
              }
              $output .= '<td>';
              my $usernamelink = $env{'form.usernamelink'};
              if ($usernamelink eq '') {
- Line 2568  END
+ Line 2771  END
              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 .=
+                 '</td><td valign="top"  style="border-left: 1px solid;">'
+                .'<span class="LC_nobreak"><label>'
+                .'<input type="checkbox" name="userwin" value="1"'.$checkwin.' />'.$lt{'owin'}
+                .'</label></span></td></tr></table></fieldset></div>';
          }
-         $output .= "\n".'<div class="LC_clear_float_footer">&nbsp;</div>'."\n".
+         $output .= "\n".'<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".
                    &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row();
          if ($mode eq 'autoenroll') {
- Line 2580  END
+ Line 2787  END
          } else {
              $output .= "\n".'<th>&nbsp;</th>'."\n";
              if ($actionselect) {
-                 $output .= '<th>'.&mt('Select').'</th>'."\n";
+                 $output .= '<th class="LC_nobreak" valign="top">'.&mt('Select').'</th>'."\n";
              }
          }
          foreach my $item (@cols) {
-             if (grep(/^\Q$item\E$/,@sortable)) {
+             $output .= '<th class="LC_nobreak" valign="top">';
-                 $output .= "<th><a href=\"javascript:document.$formname.sortby.value='$item';document.$formname.submit();\">$lt{$item}</a></th>\n";
+             if ($is_sortable{$item}) {
+                 $output .= "<a href=\"javascript:document.$formname.sortby.value='$item';document.$formname.submit();\" style=\"text-decoration:none;\">$lt{$item}<span class=\"LC_fontsize_small\"> &#9660;</span></a>";
              } else {
-                 $output .= "<th>$lt{$item}</th>\n";
+                 $output .= $lt{$item};
              }
+             $output .= "</th>\n";
          }
          my %role_types = &role_type_names();
-         if ($context eq 'course' && $mode ne 'autoenroll') {
-             if ($env{'form.showrole'} eq 'st' || $env{'form.showrole'} eq 'Any') {
-                 # Clicker display on or off?
-                 if ($clickersupport) {
-                     my %clicker_options = (
-                                             'on' => 'Show',
-                                             'off' => 'Hide',
-                                           );
-                     my $clickerchg = 'on';
-                     if ($displayclickers eq 'on') {
-                         $clickerchg = 'off';
-                     }
-                     $output .= '    <th>'."\n".'     '
-                        .&mt('[_1]'.$clicker_options{$clickerchg}.'[_2] clicker id'
-                             ,'<a href="javascript:document.'.$formname.'.displayclickers.value='
-                              ."'".$clickerchg."'".';document.'.$formname.'.submit();">'
-                             ,'</a>')
-                         ."\n".'    </th>'."\n";
-                 }
-                 # Photo display on or off?
-                 if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
-                     my %photo_options = &Apache::lonlocal::texthash(
-                                                             'on' => 'Show',
-                                                             'off' => 'Hide',
-                                                                 );
-                     my $photochg = 'on';
-                     if ($displayphotos eq 'on') {
-                         $photochg = 'off';
-                     }
-                     $output .= '    <th>'."\n".'     '.
-                 '<a href="javascript:document.'.$formname.'.displayphotos.value='.
-                       "'".$photochg."'".';document.'.$formname.'.submit();">'.
-                       $photo_options{$photochg}.'</a>&nbsp;'.$lt{'photo'}."\n".
-                       '    </th>'."\n";
-                 }
-             }
-         }
          $output .= &Apache::loncommon::end_data_table_header_row();
  # Done with the HTML header line
      } elsif ($mode eq 'csv') {
- Line 2648  END
+ Line 2820  END
              $CSVfile = undef;
          }
          #
-         if ($clickersupport) {
-             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";
      } elsif ($mode eq 'excel') {
-         if ($clickersupport) {
-             push @cols,'clicker';
-         }
          # Create the excel spreadsheet
          ($excel_workbook,$excel_filename,$format) =
              &Apache::loncommon::create_workbook($r);
- Line 2695  END
+ Line 2861  END
                                                  Future  => 'Future',
                                                  Expired => 'Expired',
                                                 );
-     # If this is for a single course get last course "log-in" and submissions.
+     # If this is for a single course get last course "log-in".
-     my (%crslogins,%stusubmissions,%elapsed,$numparts,%nummultipart,$multipart);
+     my %crslogins;
-     my $now = time;
      if ($context eq 'course') {
-         if ($custommenu) {
+         %crslogins=&Apache::lonnet::dump('nohist_crslastlogin',$cdom,$cnum);
-             %crslogins=&Apache::lonnet::dump('nohist_crslastlogin',$cdom,$cnum);
-             %stusubmissions=&Apache::lonnet::dump('nohist_submissiontracker',$cdom,$cnum);
-             %elapsed = &Apache::lonlocal::texthash(
-                                          -1 => 'more than a month ago',
-                                     2592000 => 'within last 30 days',
-=> 'within last 7 days',
-=> 'within last 24 hours',
-                                    );
-             my $navmap = Apache::lonnavmaps::navmap->new();
-             if (defined($navmap)) {
-                 my @allres=$navmap->retrieveResources('/uploaded/'.$cdom.'/'.$cnum.'/default_1261144274.sequence',sub { $_[0]->is_problem() },0);
-                 foreach my $resource (@allres) {
-                     my @parts = $resource->parts();
-                     my $count = scalar(@parts);
-                     if ($count > 1) {
-                         $nummultipart{$count} ++;
-                     }
-                     $numparts += $count;
-                 }
-                 if (keys(%nummultipart) > 0) {
-                    $multipart = '<br />'.'contains';
-                    foreach my $key (sort {$a <=> $b} keys(%nummultipart)) {
-                        $multipart .= " nummultipart{$key} multipart questions (with $key parts)";
-                    }
-                 }
-             }
-         }
      }
      # Get groups, role, permanent e-mail so we can sort on them if
      # necessary.
      foreach my $user (keys(%{$userlist})) {
- Line 2812  END
+ Line 2949  END
                      }
                  }
                  if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
-                     if (($displayphotos eq 'on') && ($role eq 'st')) {
+                     if ((grep/^photo$/,@cols) && ($role eq 'st')) {
                          $userlist->{$user}->[$index{'photo'}] =
                              &Apache::lonnet::retrievestudentphoto($udom,$uname,'jpg');
                          $userlist->{$user}->[$index{'thumbnail'}] =
- Line 2820  END
+ Line 2957  END
                                                                  'gif','thumbnail');
                      }
                  }
+                 if (($role eq 'st') && ($defaultcredits)) {
+                     if ($userlist->{$user}->[$index{'credits'}] eq '') {
+                         $userlist->{$user}->[$index{'credits'}] = $defaultcredits;
+                     }
+                 }
              }
          }
          my %emails   = &Apache::loncommon::getemails($uname,$udom);
          if ($emails{'permanentemail'} =~ /\S/) {
              $userlist->{$user}->[$index{'email'}] = $emails{'permanentemail'};
          }
+         if (($context eq 'domain') && ($env{'form.roletype'} eq 'domain') &&
+             ($role eq 'au')) {
+             my ($disk_quota,$current_disk_usage,$percent);
+             if (($needauthorusage) || ($needauthorquota)) {
+                 $disk_quota = &Apache::loncommon::get_user_quota($uname,$udom,'author');
+             }
+             if ($needauthorusage) {
+                 $current_disk_usage =
+                     &Apache::lonnet::diskusage($udom,$uname,"$londocroot/priv/$udom/$uname");
+                 if ($disk_quota == 0) {
+                     $percent = 100.0;
+                 } else {
+                     $percent = $current_disk_usage/(10 * $disk_quota);
+                 }
+                 $userlist->{$user}->[$index{'authorusage'}] = sprintf("%.0f",$percent);
+             }
+             if ($needauthorquota) {
+                 $userlist->{$user}->[$index{'authorquota'}] = sprintf("%.2f",$disk_quota);
+             }
+         }
          $usercount ++;
      }
      my $autocount = 0;
- Line 2846  END
+ Line 3008  END
      my $index  = $index{$sortby};
      my $second = $index{'username'};
      my $third  = $index{'domain'};
-     my @sorted_users = sort {
+     my @sorted_users;
-         lc($userlist->{$a}->[$index])  cmp lc($userlist->{$b}->[$index])
+     if (($sortby eq 'authorquota') || ($sortby eq 'authorusage')) {
-             ||
+         @sorted_users = sort {
-         lc($userlist->{$a}->[$second]) cmp lc($userlist->{$b}->[$second])            ||
+             $userlist->{$b}->[$index] <=> $userlist->{$a}->[$index]           ||
-         lc($userlist->{$a}->[$third]) cmp lc($userlist->{$b}->[$third])
+             lc($userlist->{$a}->[$second]) cmp lc($userlist->{$b}->[$second]) ||
-         } (keys(%$userlist));
+             lc($userlist->{$a}->[$third]) cmp lc($userlist->{$b}->[$third])
+             } (keys(%$userlist));
+     } else {
+         @sorted_users = sort {
+             lc($userlist->{$a}->[$index]) cmp lc($userlist->{$b}->[$index])   ||
+             lc($userlist->{$a}->[$second]) cmp lc($userlist->{$b}->[$second]) ||
+             lc($userlist->{$a}->[$third]) cmp lc($userlist->{$b}->[$third])
+             } (keys(%$userlist));
+     }
      my $rowcount = 0;
+     my $disabled;
+     if ($mode eq 'autoenroll') {
+         unless ($permission->{'cusr'}) {
+             $disabled = ' disabled="disabled"';
+         }
+     }
      foreach my $user (@sorted_users) {
          my %in;
          my $sdata = $userlist->{$user};
- Line 2862  END
+ Line 3038  END
          }
          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'}],$crstype);
-         if (! defined($in{'start'}) || $in{'start'} == 0) {
+         unless ($mode eq 'excel') {
-             $in{'start'} = &mt('none');
+             if (! defined($in{'start'}) || $in{'start'} == 0) {
-         } else {
+                 $in{'start'} = &mt('none');
-             $in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'});
+             } else {
-         }
+                 $in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'});
-         if (! defined($in{'end'}) || $in{'end'} == 0) {
+             }
-             $in{'end'} = &mt('none');
+             if (! defined($in{'end'}) || $in{'end'} == 0) {
-         } else {
+                 $in{'end'} = &mt('none');
-             $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
+             } else {
+                 $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
+             }
          }
          if ($context eq 'course') {
-             if ($custommenu) {
+             my $lastlogin = $crslogins{$in{'username'}.':'.$in{'domain'}.':'.$in{'section'}.':'.$role};
-                 my $lastlogin = $crslogins{$in{'username'}.':'.$in{'domain'}.':'.$in{'section'}.':'.$role};
+             if ($lastlogin ne '') {
-                 if ($lastlogin ne '') {
+                 $in{'lastlogin'} = &Apache::lonlocal::locallocaltime($lastlogin);
-                     my $sincelogin = $now - $lastlogin;
-                     if ($sincelogin < 86400) {
-                         $in{'lastlogin'} = $elapsed{'86400'};
-                     } elsif ($sincelogin < 604800) {
-                         $in{'lastlogin'} = $elapsed{'604800'};
-                     } elsif ($sincelogin < 2592000 ) {
-                         $in{'lastlogin'} = $elapsed{'2592000'};
-                     } else {
-                         $in{'lastlogin'} = $elapsed{'-1'};
-                     }
-                 }
-             }
-             if ($role eq 'st') {
-                 my $numsub = $stusubmissions{$in{'username'}.':'.$in{'domain'}."\0attempts"} +
-                              $stusubmissions{$in{'username'}.':'.$in{'domain'}."\0surveysubs"};
-                 if (!$numsub) {
-                     $in{'submissions'} = 'not attempted';
-                 } elsif ($numsub < $numparts) {
-                     $in{'submissions'} = 'incomplete ('.$numsub.'/'.$numparts.')';
-                 } else {
-                     $in{'submissions'} = 'completed';
-                 }
              }
          }
          if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
- Line 2909  END
+ Line 3065  END
              if ($mode eq 'autoenroll') {
                  my $cellentry;
                  if ($in{'type'} eq 'auto') {
-                     $cellentry = '<b>'.&mt('auto').'</b>&nbsp;<label><input type="checkbox" name="chgauto" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;Change</label>';
+                     $cellentry = '<b>'.&mt('auto').'</b>&nbsp;<label><input type="checkbox" name="chgauto" value="'.$in{'username'}.':'.$in{'domain'}.'"'.$disabled.' />&nbsp;'.&mt('Change').'</label>';
                      $autocount ++;
                  } else {
-                     $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">';
+                     $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'}.'"'.$disabled.' />&nbsp;'.&mt('Change').'</label></span></td></tr><tr><td><span class="LC_nobreak">';
                      $manualcount ++;
                      if ($in{'lockedtype'}) {
-                         $cellentry .= '<label><input type="checkbox" name="unlockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;'.&mt('Unlock').'</label>';
+                         $cellentry .= '<label><input type="checkbox" name="unlockchg" value="'.$in{'username'}.':'.$in{'domain'}.'"'.$disabled.' />&nbsp;'.&mt('Unlock').'</label>';
                          $unlockcount ++;
                      } else {
-                         $cellentry .= '<label><input type="checkbox" name="lockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;'.&mt('Lock').'</label>';
+                         $cellentry .= '<label><input type="checkbox" name="lockchg" value="'.$in{'username'}.':'.$in{'domain'}.'"'.$disabled.' />&nbsp;'.&mt('Lock').'</label>';
                          $lockcount ++;
                      }
                      $cellentry .= '</span></td></tr></table>';
- Line 2947  END
+ Line 3103  END
                      if ($showcheckbox) {
                          $checkval = $user;
                          if ($context eq 'course') {
-                             if ($role eq 'st') {
+                             if (($role eq 'co' || $role eq 'cc') &&
-                                 $checkval .= ':st';
+                                 ($user =~ /^\Q$env{'user.name'}:$env{'user.domain'}:$role\E/)) {
-                             }
+                                 $showcheckbox = 0;
-                             $checkval .= ':'.$in{'section'};
+                             } else {
-                             if ($role eq 'st') {
+                                 if ($role eq 'st') {
-                                 $checkval .= ':'.$in{'type'}.':'.
+                                     $checkval .= ':st';
-                                              $in{'lockedtype'};
+                                 }
+                                 $checkval .= ':'.$in{'section'};
+                                 if ($role eq 'st') {
+                                     $checkval .= ':'.$in{'type'}.':'.
+                                                  $in{'lockedtype'}.':'.
+                                                  $in{'credits'}.':'.
+                                                  &escape($in{'instsec'});
+                                 }
+                              }
+                         }
+                         if ($showcheckbox) {
+                             $r->print('<td><input type="checkbox" name="'.
+                                       'actionlist" value="'.
+                                       &HTML::Entities::encode($checkval,'&<>"').'" />');
+                             foreach my $item ('start','end') {
+                                 $r->print('<input type="hidden" name="'.
+                                           &HTML::Entities::encode($checkval.'_'.$item,'&<>"').'"'.
+                                           ' value="'.$sdata->[$index{$item}].'" />');
                              }
+                             $r->print('</td>');
+                         } else {
+                             $r->print('<td>&nbsp;</td>');
                          }
-                         $r->print('<td><input type="checkbox" name="'.
-                                   'actionlist" value="'.$checkval.'" /></td>');
                      } else {
                          $r->print('<td>&nbsp;</td>');
                      }
- Line 2968  END
+ Line 3142  END
              foreach my $item (@cols) {
                  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");
                  } elsif ($item eq 'status') {
                      my $showitem = $in{$item};
                      if (defined($ltstatus{$in{$item}})) {
                          $showitem = $ltstatus{$in{$item}};
                      }
                      $r->print('<td>'.$showitem.'</td>'."\n");
-                 } elsif ($item eq 'submissions') {
+                 } elsif ($item eq 'photo') {
-                     if ($in{$item} =~ /^incomplete/) {
+                      if (($context eq 'course') && ($mode ne 'autoenroll') &&
-                         $r->print('<td>'.$in{$item}.$multipart.'</td>');
+                          ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'})) {
-                     } else {
+                          if ($role eq 'st') {
-                         $r->print('<td>'.$in{$item}.'</td>'."\n");
+                              $r->print('<td align="right"><a href="javascript:photowindow('."'".$in{'photo'}."'".')"><img src="'.$in{'thumbnail'}.'" border="1" alt="" /></a></td>');
-                     }
+                          } else {
-                 } else {
+                              $r->print('<td>&nbsp;</td>');
-                     $r->print('<td>'.$in{$item}.'</td>'."\n");
+                          }
-                 }
+                      }
-             }
+                 } elsif ($item eq 'clicker') {
-             if (($context eq 'course') && ($mode ne 'autoenroll')) {
+                     if (($context eq 'course') && ($mode ne 'autoenroll')) {
-                 if ($env{'form.showrole'} eq 'st' || $env{'form.showrole'} eq 'Any') {
+                         if ($env{'form.showrole'} eq 'st' || $env{'form.showrole'} eq 'Any') {
-                     if ($clickersupport) {
-                         if ($displayclickers eq 'on') {
                              my $clickers =
                     (&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];
                              if ($clickers!~/\w/) { $clickers='-'; }
                              $r->print('<td>'.$clickers.'</td>');
                          } else {
-                             $r->print('    <td>&nbsp;</td>  ');
+                              $r->print('<td>&nbsp;</td>'."\n");
                          }
-                     }
-                     if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
-                         if ($displayphotos eq 'on' && $role eq 'st' && $in{'photo'} ne '') {
-                             $r->print('    <td align="right"><a href="javascript:photowindow('."'".$in{'photo'}."'".')"><img src="'.$in{'thumbnail'}.'" border="1" alt="" /></a></td>');
-                         } else {
-                             $r->print('    <td>&nbsp;</td>  ');
-                         }
                      }
+                 } elsif (($item eq 'authorquota') || ($item eq 'authorusage')) {
+                     $r->print('<td align="right">'.$in{$item}.'</td>'."\n");
+                 } else {
+                     $r->print('<td>'.$in{$item}.'</td>'."\n");
                  }
              }
              $r->print(&Apache::loncommon::end_data_table_row());
          } elsif ($mode eq 'csv') {
              next if (! defined($CSVfile));
              # no need to bother with $linkto
-             if (! defined($in{'start'}) || $in{'start'} == 0) {
-                 $in{'start'} = &mt('none');
-             } else {
-                 $in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'});
-             }
-             if (! defined($in{'end'}) || $in{'end'} == 0) {
-                 $in{'end'} = &mt('none');
-             } else {
-                 $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
-             }
              my @line = ();
              foreach my $item (@cols) {
                  push @line,&Apache::loncommon::csv_translate($in{$item});
- Line 3030  END
+ Line 3187  END
              my $col = 0;
              foreach my $item (@cols) {
                  if ($item eq 'start' || $item eq 'end') {
-                     if (defined($item) && $item != 0) {
+                     if ((defined($in{$item})) && ($in{$item} != 0)) {
                          $excel_sheet->write($row,$col++,
-                             &Apache::lonstathelpers::calc_serial($in{item}),
+                             &Apache::lonstathelpers::calc_serial($in{$item}),
                                      $format->{'date'});
                      } else {
                          $excel_sheet->write($row,$col++,'none');
- Line 3048  END
+ Line 3205  END
              $r->print(&Apache::loncommon::end_data_table().'<br />');
      } elsif ($mode eq 'excel') {
          $excel_workbook->close();
- 	$r->print(&mt('[_1]Your Excel spreadsheet[_2] is ready for download.', '<p><a href="'.$excel_filename.'">','</a>')."</p>\n");
+ 	$r->print('<p>'.&mt('[_1]Your Excel spreadsheet[_2] is ready for download.', '<a href="'.$excel_filename.'">','</a>')."</p>\n");
      } elsif ($mode eq 'csv') {
          close($CSVfile);
- 	$r->print(&mt('[_1]Your CSV file[_2] is ready for download.', '<p><a href="'.$CSVfilename.'">','</a>')."</p>\n");
+ 	$r->print('<p>'.&mt('[_1]Your CSV file[_2] is ready for download.', '<a href="'.$CSVfilename.'">','</a>')."</p>\n");
          $r->rflush();
      }
      if ($mode eq 'autoenroll') {
- Line 3083  sub bulkaction_javascript {
+ Line 3240  sub bulkaction_javascript {
      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?');
+     &js_escape(\$alert);
+     &js_escape(\$noaction);
+     &js_escape(\$singconfirm);
+     &js_escape(\$multconfirm);
      my $output = <<"ENDJS";
  function verify_action (field) {
      var numchecked = 0;
- Line 3187  sub print_username_link {
+ Line 3348  sub print_username_link {
          $output = $in->{'username'};
      } else {
          $output = '<a href="javascript:username_display_launch('.
-                   "'$in->{'username'}','$in->{'domain'}'".')" />'.
+                   "'$in->{'username'}','$in->{'domain'}'".')">'.
                    $in->{'username'}.'</a>';
      }
      return $output;
- Line 3213  sub select_actions {
+ Line 3374  sub select_actions {
                  chgdates  => "Change starting/ending dates",
                  chgsec   => "Change section associated with user roles",
      );
+     # FIXME Add an option to change credits for student roles.
      my ($output,$options,%choices);
      # FIXME Disable actions for now for roletype=course in domain context
      if ($context eq 'domain' && $setting eq 'course') {
- Line 3220  sub select_actions {
+ Line 3382  sub select_actions {
      }
      if ($context eq 'course') {
          if ($env{'form.showrole'} ne 'Any') {
-              if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},
+             my $showactions;
-                                            $env{'request.course.id'})) {
+             if (&Apache::lonnet::allowed('c'.$env{'form.showrole'},
-                  if ($env{'request.course.sec'} eq '') {
+                                           $env{'request.course.id'})) {
-                      return;
+                 $showactions = 1;
-                  } else {
+             } elsif ($env{'request.course.sec'} ne '') {
-                      if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
+                 if (&Apache::lonnet::allowed('c'.$env{'form.showrole'},$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
-                          return;
+                     $showactions = 1;
-                      }
+                 }
-                  }
+             }
+             unless ($showactions) {
+                 unless (&is_courseowner($env{'request.course.id'},
+                                        $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'})) {
+                     return;
+                 }
              }
          }
      }
- Line 3335  ENDTWO
+ Line 3502  ENDTWO
  }
  sub date_section_selector {
-     my ($context,$permission,$crstype) = @_;
+     my ($context,$permission,$crstype,$showcredits) = @_;
      my $callingform = $env{'form.callingform'};
      my $formname = 'dateselect';
      my $groupslist = &get_groupslist();
-     my $sec_js = &setsections_javascript($formname,$groupslist);
+     my $sec_js =
+         &setsections_javascript($formname,$groupslist,undef,undef,$crstype,
+                                 $showcredits);
      my $output = <<"END";
  <script type="text/javascript">
  // <![CDATA[
- Line 3363  END
+ Line 3532  END
          setSections(formname,'$crstype');
          if (seccheck == 'ok') {
              opener.document.$callingform.newsecs.value = formname.sections.value;
+         } else {
+             return;
          }
  END
      } else {
- Line 3417  ENDJS
+ Line 3588  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.',
+                  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.',
+                  forn => 'For a course role that is not "student", users may have roles in more than one section at a time.',
                   reta => "Retain each user's current section affiliations?",
                   dnap => '(Does not apply to student roles).',
              );
      my ($date_items,$headertext);
- Line 3437  ENDJS
+ Line 3608  ENDJS
                                            $permission,$crstype);
      }
      $output .= '<h3>'.$headertext.'</h3>'.
-                '<form name="'.$formname.'" method="post">'."\n".
+                '<form name="'.$formname.'" method="post" action="">'."\n".
                  $date_items;
      if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') {
          my ($cnum,$cdom) = &get_course_identity();
-         my $crstype = &Apache::loncommon::course_type();
          if ($crstype eq 'Community') {
-             $lt{'fors'} = &mt('For member roles changing the section, will result in a section switch as members may only be in one section of a community at a time.');
+             $lt{'fors'} = &mt('For member roles, changing the section will result in a section switch, as members may only be in one section of a community at a time.');
-             $lt{'forn'} = &mt('For a role in a community that is not a member role, a user may have roles in more than one section of a community at a time.');
+             $lt{'forn'} = &mt('For a community role that is not "member", users may have roles in more than one section at a time.');
              $lt{'dnap'} = &mt('(Does not apply to member roles).');
          }
          my $info;
- Line 3472  ENDJS
+ Line 3642  ENDJS
              $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,'',$crstype);
+         my $secbox = &section_picker($cdom,$cnum,$env{'form.showrole'},$rowtitle,
+                                      $permission,$context,'chgsec',$crstype);
          $output .= $info.$secbox;
      }
      $output .= '<p>'.
- Line 3482  ENDJS
+ Line 3653  ENDJS
  }
  sub section_picker {
-     my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode,$crstype,$caller) = @_;
+     my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode,$crstype,
+         $showcredits,$credits) = @_;
      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";
+     my $secbox = '<div>'.&Apache::lonhtmlcommon::start_pick_box()."\n";
-     if ($mode eq 'upload' && $caller ne 'requestcrs') {
+     if ($mode eq 'upload') {
          my ($options,$cb_script,$coursepick) =
-             &default_role_selector($context,1,$crstype);
+             &default_role_selector($context,1,$crstype,$showcredits);
          $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 ($caller eq 'requestcrs') {
+     if ($env{'request.course.sec'} eq '') {
-        $secbox .=  '<input type="hidden" name="defaultrole" value="st" />'."\n".
-                    '<input type="text" name="newsec" size="15" />'."\n".
-                    '<input type="hidden" name="sections" value="" />'."\n";
-     } elsif ($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="text" name="newsec" size="15" value="" />'."\n".
                     '<input type="hidden" name="sections" value="" />'."\n".
                     '</td></tr></table>'."\n";
      } else {
-        $secbox .= '<input type="hidden" name="sections" value="'.
+         $secbox .= '<input type="hidden" name="sections" value="'.
                     $env{'request.course.sec'}.'" />'.
                     $env{'request.course.sec'};
      }
-     $secbox .= &Apache::lonhtmlcommon::row_closure(1)."\n".
+     $secbox .= &Apache::lonhtmlcommon::row_closure(1)."\n";
-                &Apache::lonhtmlcommon::end_pick_box().'</p>';
+     unless ($mode eq 'chgsec') {
+         if ($showcredits) {
+             $secbox .=
+                 &Apache::lonhtmlcommon::row_title(&mt('credits (students)'),
+                                                   'LC_evenrow_value')."\n".
+                 '<input type="text" name="credits" size="3" value="'.$credits.'" />'."\n".
+                 &Apache::lonhtmlcommon::row_closure(1)."\n";
+         }
+     }
+     $secbox .= &Apache::lonhtmlcommon::end_pick_box().'</div>';
      return $secbox;
  }
- Line 3652  sub results_header_row {
+ Line 3829  sub results_header_row {
                  if ($rolefilter eq 'Any') {
                      $description .= &mt('All users with co-author roles in domain',$showfilter);
                  } else {
-                     $description .= &mt('All co-authors in domain  with [_1] roles',$rolefilter);
+                     $description .= &mt('All co-authors in domain with [_1] roles',$rolefilter);
                  }
              }
          } elsif (($env{'form.roletype'} eq 'course') ||
- Line 3716  sub show_drop_list {
+ Line 3893  sub show_drop_list {
      my ($r,$classlist,$nosort,$permission,$crstype) = @_;
      my $cid = $env{'request.course.id'};
      my ($cnum,$cdom) = &get_course_identity($cid);
-     my $displaygroups;
-     unless (&Apache::loncommon::needs_gci_custom()) {
-         $displaygroups = 1;
-     }
      if (! exists($env{'form.sortby'})) {
          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                  ['sortby']);
- Line 3739  sub show_drop_list {
+ Line 3912  sub show_drop_list {
  $check_uncheck_js
  // ]]>
  </script>
- <p>
  <input type="hidden" name="phase" value="four" />
  END
      my ($indexhash,$keylist) = &make_keylist_array();
- Line 3763  END
+ Line 3935  END
          }
      }
      if (!$studentcount) {
+        my $msg = '';
          if ($crstype eq 'Community') {
-             $r->print(&mt('There are no members to drop.'));
+             $msg = &mt('There are no members to drop.');
          } else {
-             $r->print(&mt('There are no students to drop.'));
+             $msg = &mt('There are no students to drop.');
          }
+         $r->print('<p class="LC_info">'.$msg.'</p>');
          return;
      }
      my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
                                                $classlist,$keylist,$cdom,$cnum);
      my %lt=&Apache::lonlocal::texthash('usrn'   => "username",
                                         'dom'    => "domain",
+                                        'id'     => "ID",
                                         'sn'     => "student name",
                                         'mn'     => "member name",
                                         'sec'    => "section",
- Line 3792  END
+ Line 3967  END
      <th>&nbsp;</th>
      <th>$lt{'usrn'}</th>
      <th>$lt{'dom'}</th>
-     <th>ID</th>
+     <th>$lt{'id'}</th>
      <th>$nametitle</th>
      <th>$lt{'sec'}</th>
      <th>$lt{'start'}</th>
      <th>$lt{'end'}</th>
+     <th>$lt{'groups'}</th>
  END
-         if ($displaygroups) {
-             $r->print("    <th>$lt{'groups'}</th>\n");
-         }
          $r->print(&Apache::loncommon::end_data_table_header_row());
      } else  {
          $r->print(&Apache::loncommon::start_data_table().
- Line 3808  END
+ Line 3981  END
          $r->print(<<END);
      <th>&nbsp;</th>
      <th>
-        <a href="/adm/createuser?action=$action&sortby=username">$lt{'usrn'}</a>
+        <a href="/adm/createuser?action=$action&amp;sortby=username">$lt{'usrn'}</a>
      </th><th>
-        <a href="/adm/createuser?action=$action&sortby=domain">$lt{'dom'}</a>
+        <a href="/adm/createuser?action=$action&amp;sortby=domain">$lt{'dom'}</a>
      </th><th>
-        <a href="/adm/createuser?action=$action&sortby=id">ID</a>
+        <a href="/adm/createuser?action=$action&amp;sortby=id">$lt{'id'}</a>
      </th><th>
-        <a href="/adm/createuser?action=$action&sortby=fullname">$nametitle</a>
+        <a href="/adm/createuser?action=$action&amp;sortby=fullname">$nametitle</a>
      </th><th>
-        <a href="/adm/createuser?action=$action&sortby=section">$lt{'sec'}</a>
+        <a href="/adm/createuser?action=$action&amp;sortby=section">$lt{'sec'}</a>
      </th><th>
-        <a href="/adm/createuser?action=$action&sortby=start">$lt{'start'}</a>
+        <a href="/adm/createuser?action=$action&amp;sortby=start">$lt{'start'}</a>
      </th><th>
-        <a href="/adm/createuser?action=$action&sortby=end">$lt{'end'}</a>
+        <a href="/adm/createuser?action=$action&amp;sortby=end">$lt{'end'}</a>
+     </th><th>
+        <a href="/adm/createuser?action=$action&amp;sortby=groups">$lt{'groups'}</a>
      </th>
  END
-        if ($displaygroups) {
-            $r->print("<th>
-        <a href=\"/adm/createuser?action=$action&sortby=groups\">$lt{'groups'}</a>
-     </th>\n");
-         }
          $r->print(&Apache::loncommon::end_data_table_header_row());
      }
      #
- Line 3880  END
+ Line 4050  END
      <td>$section</td>
      <td>$start $startitem</td>
      <td>$end</td>
+     <td>$active_groups</td>
  END
-         if ($displaygroups) {
-             $r->print("    <td>$active_groups</td>\n");
-         }
          $r->print(&Apache::loncommon::end_data_table_row());
      }
      $r->print(&Apache::loncommon::end_data_table().'<br />');
- Line 3898  END
+ Line 4066  END
          $btn = $lt{'dm'};
      }
      $r->print(<<"END");
- </p>
  <p>
  <input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.droplist)" /> &nbsp;
  <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.droplist)" />
- Line 3914  END
+ Line 4081  END
  # Print out the initial form to get the file containing a list of users
  #
  sub print_first_users_upload_form {
-     my ($r,$context,$noheader,$caller) = @_;
+     my ($r,$context) = @_;
      my $str;
      $str  = '<input type="hidden" name="phase" value="two" />';
      $str .= '<input type="hidden" name="action" value="upload" />';
      $str .= '<input type="hidden" name="state"  value="got_file" />';
-     unless ($noheader) {
+     $str .= &Apache::grades::checkforfile_js();
-         $str .= '<h3>'.&mt('Upload a file containing information about users').'</h3>'."\n";
-     }
+     $str .= '<h2>'.&mt('Upload a file containing information about users').'</h2>'."\n";
      # Excel and CSV Help
-     $str .= '<div class="LC_left_float">'
+     $str .= '<div class="LC_columnSection">'
             .&Apache::loncommon::help_open_topic("Course_Create_Class_List",
                  &mt("How do I create a users list from a spreadsheet"))
-            .'</div><div class="LC_left_float">'."\n"
+            .' '.&Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
-            .&Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
                  &mt("How do I create a CSV file from a spreadsheet"))
-            .'</div><br clear="all" />'."\n";
+            ."</div>\n";
      $str .= &Apache::lonhtmlcommon::start_pick_box()
-            .&Apache::lonhtmlcommon::row_title(&mt('File'))
+            .&Apache::lonhtmlcommon::row_title(&mt('File'));
-            .&Apache::loncommon::upfile_select_html()
+     if (&Apache::lonlocal::current_language() ne 'en') {
+         if ($context eq 'course') {
+             $str .= '<p class="LC_info">'."\n"
+                    .&mt('Please upload an UTF8 encoded file to ensure a correct character encoding in your classlist.')."\n"
+                    .'</p>'."\n";
+         }
+     }
+     $str .= &Apache::loncommon::upfile_select_html()
             .&Apache::lonhtmlcommon::row_closure()
-            .&Apache::lonhtmlcommon::row_title(&mt('Ignore First Line, e.g., contains column titles'))
+            .&Apache::lonhtmlcommon::row_title(
-            .'<label><input type="radio" name="noFirstLine" id="noFirstLine" value="1" />&nbsp;'.&mt('Yes').'</label>'
+                 '<label for="noFirstLine">'
-            .'&nbsp;&nbsp;&nbsp;'
+                .&mt('Ignore First Line')
-            .'<label><input type="radio" name="noFirstLine" id="FirstLineOK" value="0" checked="checked" />&nbsp;'.&mt('No').'</label>'
+                .'</label>')
+            .'<input type="checkbox" name="noFirstLine" id="noFirstLine" />'
             .&Apache::lonhtmlcommon::row_closure(1)
             .&Apache::lonhtmlcommon::end_pick_box();
      $str .= '<p>'
-            .'<input type="hidden" name="context" value="'.$caller.'" />'
+            .'<input type="button" name="fileupload" value="'.&mt('Next').'"'
-            .'<input type="submit" name="fileupload" value="'.&mt('Next').'" />'
+            .' onclick="javascript:checkUpload(this.form);" />'
             .'</p>';
      $r->print($str);
- Line 3954  sub print_first_users_upload_form {
+ Line 4128  sub print_first_users_upload_form {
  # ================================================= Drop/Add from uploaded file
  sub upfile_drop_add {
-     my ($r,$context,$permission) = @_;
+     my ($r,$context,$permission,$showcredits) = @_;
-     &Apache::loncommon::load_tmp_file($r);
+     my $datatoken = &Apache::loncommon::valid_datatoken($env{'form.datatoken'});
+     if ($datatoken ne '') {
+         &Apache::loncommon::load_tmp_file($r,$datatoken);
+     }
      my @userdata=&Apache::loncommon::upfile_record_sep();
      if($env{'form.noFirstLine'}){shift(@userdata);}
      my @keyfields = split(/\,/,$env{'form.keyfields'});
- Line 3969  sub upfile_drop_add {
+ Line 4146  sub upfile_drop_add {
              $fields{$env{'form.f'.$i}}=$keyfields[$i];
          }
      }
-     if (($env{'form.fullup'} ne 'yes') && ($env{'form.context'} ne 'requestcrs')) {
-         $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
+     my @storefields = qw/username names fname mname lname gen id
-                        fname mname lname gen id sec ipwd email role domain/) {
+                          sec ipwd email role domain inststatus/;
+     if ($showcredits) {
+         push (@storefields,'credits');
+     }
+     my %fieldstype;
+     foreach my $field (@storefields) {
          $env{'form.'.$field.'_choice'}=$fields{$field};
+         $fieldstype{$field.'_choice'} = 'scalar';
      }
-     &Apache::loncommon::store_course_settings('enrollment_upload',
+     &Apache::loncommon::store_course_settings('enrollment_upload',\%fieldstype);
-                                               { 'username_choice' => 'scalar',
-                                                 'names_choice' => 'scalar',
-                                                 'fname_choice' => 'scalar',
-                                                 'mname_choice' => 'scalar',
-                                                 'lname_choice' => 'scalar',
-                                                 'gen_choice' => 'scalar',
-                                                 'id_choice' => 'scalar',
-                                                 'sec_choice' => 'scalar',
-                                                 'ipwd_choice' => 'scalar',
-                                                 'email_choice' => 'scalar',
-                                                 'role_choice'  => 'scalar',
-                                                 'domain_choice' => 'scalar',
-                                                 'inststatus_choice' => 'scalar'});
-     #
      my ($cid,$crstype,$setting);
      if ($context eq 'domain') {
          $setting = $env{'form.roleaction'};
- Line 4007  sub upfile_drop_add {
+ Line 4172  sub upfile_drop_add {
              $crstype = &Apache::loncommon::course_type($cid);
          }
      }
-     my ($startdate,$enddate);
+     my ($startdate,$enddate) = &get_dates_from_form();
-     if ($env{'form.context'} eq 'requestcrs') {
+     if ($env{'form.makedatesdefault'}) {
-         $startdate = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_start_date'};
+         $r->print(&make_dates_default($startdate,$enddate,$context,$crstype));
-         $enddate = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_end_date'};
-     } else {
-         ($startdate,$enddate) = &get_dates_from_form();
-         if ($env{'form.makedatesdefault'}) {
-             $r->print(&make_dates_default($startdate,$enddate,$context,$crstype));
-         }
      }
      # Determine domain and desired host (home server)
      my $defdom=$env{'request.role.domain'};
- Line 4031  sub upfile_drop_add {
+ Line 4190  sub upfile_drop_add {
      } else {
          my %home_servers = &Apache::lonnet::get_servers($defdom,'library');
          if (! exists($home_servers{$desiredhost})) {
-             $r->print('<span class="LC_error">'.&mt('Error').
+             $r->print('<p class="LC_error">'.&mt('Error').': '.
-                       &mt('Invalid home server specified').'</span>');
+                       &mt('Invalid home server specified').'</p>');
              $r->print(&Apache::loncommon::end_page());
-             return;
+             return 'invalidhome';
          }
      }
      # Determine authentication mechanism
- Line 4044  sub upfile_drop_add {
+ Line 4203  sub upfile_drop_add {
      }
      my $amode  = '';
      my $genpwd = '';
+     my @genpwdfail;
      if ($env{'form.login'} eq 'krb') {
          $amode='krb';
          $amode.=$env{'form.krbver'};
- Line 4052  sub upfile_drop_add {
+ Line 4212  sub upfile_drop_add {
          $amode='internal';
          if ((defined($env{'form.intarg'})) && ($env{'form.intarg'})) {
              $genpwd=$env{'form.intarg'};
+             @genpwdfail =
+                 &Apache::loncommon::check_passwd_rules($domain,$genpwd);
          }
      } elsif ($env{'form.login'} eq 'loc') {
          $amode='localauth';
- Line 4067  sub upfile_drop_add {
+ Line 4229  sub upfile_drop_add {
              $amode = ''; # This causes the loop below to be skipped
          }
      }
-     my ($defaultsec,$defaultrole);
+     my ($defaultsec,$defaultrole,$defaultcredits,$commoncredits);
      if ($context eq 'domain') {
          if ($setting eq 'domain') {
              $defaultrole = $env{'form.defaultrole'};
          } elsif ($setting eq 'course') {
              $defaultrole = $env{'form.courserole'};
              $defaultsec = $env{'form.sections'};
-         }
+             if ($showcredits) {
+                 $commoncredits = $env{'form.credits'};
+                 if ($crstype ne 'Community') {
+                     my %coursehash=&Apache::lonnet::coursedescription($cid);
+                     $defaultcredits = $coursehash{'internal.defaultcredits'};
+                 }
+             }
+         }
      } elsif ($context eq 'author') {
          $defaultrole = $env{'form.defaultrole'};
      } elsif ($context eq 'course') {
          $defaultrole = $env{'form.defaultrole'};
          $defaultsec = $env{'form.sections'};
+         if ($showcredits) {
+             $commoncredits = $env{'form.credits'};
+             $defaultcredits = $env{'course.'.$cid.'.internal.defaultcredits'};
+         }
      }
      # Check to see if user information can be changed
      my @userinfo = ('firstname','middlename','lastname','generation',
- Line 4119  sub upfile_drop_add {
+ Line 4292  sub upfile_drop_add {
                                                    \@statuses,\@poss_roles);
                  &gather_userinfo($context,'view',\%userlist,$indexhash,\%info,
                               \%cstr_roles,$permission);
              }
          }
      }
+     if ($datatoken eq '') {
+         $r->print('<p class="LC_error">'.&mt('Error').': '.
+                   &mt('Invalid datatoken').'</p>');
+         return 'missingdata';
+     }
      if ( $domain eq &LONCAPA::clean_domain($domain)
          && ($amode ne '')) {
          #######################################
- Line 4189  sub upfile_drop_add {
+ Line 4366  sub upfile_drop_add {
                              official   => 'Institutional',
                              unofficial => 'Non-institutional',
                          );
-         map { $cancreate{$_} = &can_create_user($domain,$context,$_); } keys(%longtypes);
+         my $newuserdom = $env{'request.role.domain'};
+         map { $cancreate{$_} = &can_create_user($newuserdom,$context,$_); } keys(%longtypes);
          # Get new users list
+         my (%existinguser,%userinfo,%disallow,%rulematch,%inst_results,%alerts,%checkuname,
+             %showpasswdrules,$haspasswdmap);
+         my $counter = -1;
          foreach my $line (@userdata) {
+             $counter ++;
              my @secs;
              my %entries=&Apache::loncommon::record_sep($line);
              # Determine user name
- Line 4223  sub upfile_drop_add {
+ Line 4405  sub upfile_drop_add {
                      if ($entries{$fields{'username'}} =~ /\s/) {
                          $nowhitespace = ' - '.&mt('usernames may not contain spaces.');
                      }
-                     $r->print('<br />'.
+                     $disallow{$counter} =
-       &mt('[_1]: Unacceptable username for user [_2] [_3] [_4] [_5]',
+                         &mt('Unacceptable username [_1] for user [_2] [_3] [_4] [_5]',
-           '<b>'.$entries{$fields{'username'}}.'</b>',$fname,$mname,$lname,$gen).
+                             '"<b>'.$entries{$fields{'username'}}.'</b>"',
-                               $nowhitespace);
+                             $fname,$mname,$lname,$gen).$nowhitespace;
                      next;
                  } else {
                      $entries{$fields{'domain'}} =~ s/^\s+|\s+$//g;
                      if ($entries{$fields{'domain'}}
                          ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {
-                         $r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.
+                         $disallow{$counter} =
-                                   '</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen));
+                             &mt('Unacceptable domain [_1] for user [_2] [_3] [_4] [_5]',
+                                 '"<b>'.$entries{$fields{'domain'}}.'</b>"',
+                                 $fname,$mname,$lname,$gen);
                          next;
                      }
                      my $username = $entries{$fields{'username'}};
- Line 4246  sub upfile_drop_add {
+ Line 4430  sub upfile_drop_add {
                              $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));
+                                 $disallow{$counter} =
+                                     &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.'));
+                                 $disallow{$counter} =
+                                     &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);
- Line 4261  sub upfile_drop_add {
+ Line 4450  sub upfile_drop_add {
                          if (ref($userlist{$username.':'.$userdomain}) eq 'ARRAY') {
                              my $currsec = $userlist{$username.':'.$userdomain}[$secidx];
                              if ($currsec ne $env{'request.course.sec'}) {
-                                 $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 />');
+                                 $disallow{$counter} =
+                                     &mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]".',
+                                         '<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$secs[0]);
                                  if ($currsec eq '') {
-                                     $r->print(&mt('This user already has an active/future student role in the course, unaffiliated to any section.'));
+                                     $disallow{$counter} .=
+                                         &mt('This user already has an active/future student role in the course, unaffiliated to any section.');
                                  } else {
-                                     $r->print(&mt('This user already has an active/future role in section "[_1]" of the course.',$currsec));
+                                     $disallow{$counter} .=
+                                         &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 />');
+                                 $disallow{$counter} .=
+                                     '<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]);
                                  next;
                              }
                          }
- Line 4302  sub upfile_drop_add {
+ Line 4498  sub upfile_drop_add {
                          }
                      }
                      # determine user password
-                     my $password = $genpwd;
+                     my $password;
+                     my $passwdfromfile;
                      if (defined($fields{'ipwd'})) {
                          if ($entries{$fields{'ipwd'}}) {
                              $password=$entries{$fields{'ipwd'}};
+                             $passwdfromfile = 1;
+                             if ($env{'form.login'} eq 'int') {
+                                 my $uhome=&Apache::lonnet::homeserver($username,$userdomain);
+                                 if (($uhome eq 'no_host') || ($changeauth)) {
+                                     my @brokepwdrules =
+                                         &Apache::loncommon::check_passwd_rules($domain,$password);
+                                     if (@brokepwdrules) {
+                                         $disallow{$counter} = &mt('[_1]: Password included in file for this user did not meet requirements.',
+                                                                   '<b>'.$username.'</b>');
+                                         map { $showpasswdrules{$_} = 1; } @brokepwdrules;
+                                         next;
+                                     }
+                                 }
+                             }
+                         }
+                     }
+                     unless ($passwdfromfile) {
+                         if ($env{'form.login'} eq 'int') {
+                             if (@genpwdfail) {
+                                 my $uhome=&Apache::lonnet::homeserver($username,$userdomain);
+                                 if (($uhome eq 'no_host') || ($changeauth)) {
+                                     $disallow{$counter} = &mt('[_1]: No specific password in file for this user; default password did not meet requirements',
+                                                               '<b>'.$username.'</b>');
+                                     unless ($haspasswdmap) {
+                                         map { $showpasswdrules{$_} = 1; } @genpwdfail;
+                                         $haspasswdmap = 1;
+                                     }
+                                 }
+                                 next;
+                             }
                          }
+                         $password = $genpwd;
                      }
                      # determine user role
                      my $role = '';
- Line 4320  sub upfile_drop_add {
+ Line 4548  sub upfile_drop_add {
                              }
                              if ($role eq '') {
                                  my $rolestr = join(', ',@permitted_roles);
-                                 $r->print('<br />'
+                                 $disallow{$counter} =
-                                          .&mt('[_1]: You do not have permission to add the requested role [_2] for the user.'
+                                     &mt('[_1]: You do not have permission to add the requested role [_2] for the user.'
-                                              ,'<b>'.$entries{$fields{'username'}}.'</b>'
+                                         ,'<b>'.$entries{$fields{'username'}}.'</b>'
-                                              ,$entries{$fields{'role'}})
+                                         ,$entries{$fields{'role'}})
-                                          .'<br />'
+                                         .'<br />'
-                                          .&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n"
+                                         .&mt('Allowable role(s) is/are: [_1].',$rolestr);
-                                 );
                                  next;
                              }
                          }
- Line 4338  sub upfile_drop_add {
+ Line 4565  sub upfile_drop_add {
                      foreach (\$id,\$fname,\$mname,\$lname,\$gen,\$inststatus) {
                          $$_ =~ s/(\s+$|^\s+)//g;
                      }
+                     my $credits;
+                     if ($showcredits) {
+                         if (($role eq 'st') && ($crstype ne 'Community')) {
+                             $credits = $entries{$fields{'credits'}};
+                             if ($credits ne '') {
+                                 $credits =~ s/[^\d\.]//g;
+                             }
+                             if ($credits eq '') {
+                                 $credits = $commoncredits;
+                             }
+                             if ($credits eq $defaultcredits) {
+                                 undef($credits);
+                             }
+                         }
+                     }
                      # check against rules
                      my $checkid = 0;
                      my $newuser = 0;
-                     my (%rulematch,%inst_results,%idinst_results);
                      my $uhome=&Apache::lonnet::homeserver($username,$userdomain);
                      if ($uhome eq 'no_host') {
-                         if ($userdomain ne $domain) {
+                         if ($userdomain ne $newuserdom) {
-                             $r->print('<br />'.
+                             if ($context eq 'course') {
-                                       &mt('[_1]: The domain specified ([_2]) is different to that of the course.',
+                                 $disallow{$counter} =
-                                          '<b>'.$username.'</b>',$userdomain).'<br />'.
+                                     &mt('[_1]: The domain specified ([_2]) is different to that of the course.',
-                                       &mt('The user does not already exist, and you may not create a new user in a different domain.'));
+                                        '<b>'.$username.'</b>',$userdomain);
+                             } elsif ($context eq 'author') {
+                                 $disallow{$counter} =
+                                     &mt('[_1]: The domain specified ([_2]) is different to that of the author.',
+                                         '<b>'.$username.'</b>',$userdomain);
+                             } else {
+                                 $disallow{$counter} =
+                                     &mt('[_1]: The domain specified ([_2]) is different to that of your current role.',
+                                         '<b>'.$username.'</b>',$userdomain);
+                             }
+                             $disallow{$counter} .=
+                                 &mt('The user does not already exist, and you may not create a new user in a different domain.');
                              next;
+                         } else {
+                             unless ($password || $env{'form.login'} eq 'loc') {
+                                 $disallow{$counter} =
+                                     &mt('[_1]: This is a new user but no default password was provided, and the authentication type requires one.',
+                                         '<b>'.$username.'</b>');
+                                 next;
+                             }
                          }
                          $checkid = 1;
                          $newuser = 1;
-                         if ($username =~/^[^\@]+\@[^\@]+$/) {
+                         $checkuname{$username.':'.$newuserdom} = { 'newuser' => $newuser, 'id' => $id };
-                             if ($email eq '') {
-                                 $email = $username;
-                             }
-                             if (&Apache::loncommon::needs_gci_custom()) {
-                                 my $lc_email;
-                                 if ($username eq $email) {
-                                     $lc_email = lc($email);
-                                 }
-                                 my $lc_username = lc($username);
-                                 if ($lc_username ne $username) {
-                                     if ($username eq $email) {
-                                         $email = $lc_username;
-                                     }
-                                     $username = $lc_username;
-                                     $uhome=&Apache::lonnet::homeserver($username,$userdomain);
-                                     if ($uhome ne 'no_host') {
-                                         $newuser = 0;
-                                     }
-                                 }
-                             }
-                         }
-                     }
-                     my $user = $username.':'.$userdomain;
-                     if ($newuser) {
-                         my $checkhash;
-                         my $checks = { 'username' => 1 };
-                         $checkhash->{$user} = { 'newuser' => 1, };
-                         &Apache::loncommon::user_rule_check($checkhash,$checks,
-                             \%alerts,\%rulematch,\%inst_results,\%curr_rules,
-                             \%got_rules);
-                         if (ref($alerts{'username'}) eq 'HASH') {
-                             if (ref($alerts{'username'}{$domain}) eq 'HASH') {
-                                 if ($alerts{'username'}{$domain}{$username}) {
-                                     $r->print('<br />'.
-                                               &mt('[_1]: matches the username format at your institution, but is not known to your directory service.','<b>'.$username.'</b>').'<br />'.
-                                               &mt('Consequently, the user was not created.'));
-                                     next;
-                                 }
-                             }
-                         }
-                         my $usertype = 'unofficial';
-                         if (ref($rulematch{$user}) eq 'HASH') {
-                             if ($rulematch{$user}{'username'}) {
-                                 $usertype = 'official';
-                             }
-                         }
-                         if (!$cancreate{$usertype}) {
-                             $r->print('<br />'.
-                                       &mt("[_1]: The user does not exist, and you are not permitted to create users of type: $longtypes{$usertype}.",'<b>'.$username.'</b>'));
-                             next;
-                         }
                      } else {
                          if ($context eq 'course' || $context eq 'author') {
                              if ($userdomain eq $domain ) {
- Line 4437  sub upfile_drop_add {
+ Line 4645  sub upfile_drop_add {
                                  }
                              }
                          }
+                         if ($id) {
+                             $existinguser{$userdomain}{$username} = $id;
+                         }
                      }
-                     if ($id ne '') {
+                     $userinfo{$counter} = {
-                         if (!$newuser) {
+                                           username   => $username,
-                             my %idhash = &Apache::lonnet::idrget($userdomain,($username));
+                                           domain     => $userdomain,
-                             if ($idhash{$username} ne $id) {
+                                           fname      => $fname,
-                                 $checkid = 1;
+                                           mname      => $mname,
+                                           lname      => $lname,
+                                           gen        => $gen,
+                                           email      => $email,
+                                           id         => $id,
+                                           password   => $password,
+                                           inststatus => $inststatus,
+                                           role       => $role,
+                                           sections   => \@secs,
+                                           credits    => $credits,
+                                           newuser    => $newuser,
+                                           checkid    => $checkid,
+                                         };
+                 }
+             }
+         } # end of foreach (@userdata)
+         if ($counter > -1) {
+             my $total = $counter + 1;
+             my %checkids;
+             if ((keys(%existinguser)) || (keys(%checkuname))) {
+                 $r->print(&mt('Please be patient -- checking for institutional data ...'));
+                 $r->rflush();
+                 if (keys(%existinguser)) {
+                     foreach my $dom (keys(%existinguser)) {
+                         if (ref($existinguser{$dom}) eq 'HASH') {
+                             my %idhash = &Apache::lonnet::idrget($dom,keys(%{$existinguser{$dom}}));
+                             foreach my $username (keys(%{$existinguser{$dom}})) {
+                                 if ($idhash{$username} ne $existinguser{$dom}{$username}) {
+                                     $checkids{$username.':'.$dom} = {
+                                                                     'id' => $existinguser{$dom}{$username},
+                                                                     };
+                                 }
+                             }
+                             if (keys(%checkids)) {
+                                 &Apache::loncommon::user_rule_check(\%checkids,{ 'id' => 1 },
+                                                                     \%alerts,\%rulematch,
+                                                                     \%inst_results,\%curr_rules,
+                                                                     \%got_rules);
+                             }
+                         }
+                     }
+                 }
+                 if (keys(%checkuname)) {
+                     &Apache::loncommon::user_rule_check(\%checkuname,{ 'username' => 1, 'id' => 1, },
+                                                         \%alerts,\%rulematch,\%inst_results,
+                                                         \%curr_rules,\%got_rules);
+                 }
+                 $r->print(' '.&mt('done').'<br /><br />');
+                 $r->rflush();
+             }
+             my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,$total);
+             $r->print('<ul>');
+             for (my $i=0; $i<=$counter; $i++) {
+                 if ($disallow{$i}) {
+                     $r->print('<li>'.$disallow{$i}.'</li>');
+                 } elsif (ref($userinfo{$i}) eq 'HASH') {
+                     my $password = $userinfo{$i}{'password'};
+                     my $newuser = $userinfo{$i}{'newuser'};
+                     my $checkid = $userinfo{$i}{'checkid'};
+                     my $id = $userinfo{$i}{'id'};
+                     my $role = $userinfo{$i}{'role'};
+                     my @secs;
+                     if (ref($userinfo{$i}{'sections'}) eq 'ARRAY') {
+                         @secs = @{$userinfo{$i}{'sections'}};
+                     }
+                     my $fname = $userinfo{$i}{'fname'};
+                     my $mname = $userinfo{$i}{'mname'};
+                     my $lname = $userinfo{$i}{'lname'};
+                     my $gen = $userinfo{$i}{'gen'};
+                     my $email = $userinfo{$i}{'email'};
+                     my $inststatus = $userinfo{$i}{'inststatus'};
+                     my $credits = $userinfo{$i}{'credits'};
+                     my $username = $userinfo{$i}{'username'};
+                     my $userdomain = $userinfo{$i}{'domain'};
+                     my $user = $username.':'.$userdomain;
+                     if ($newuser) {
+                         if (ref($alerts{'username'}) eq 'HASH') {
+                             if (ref($alerts{'username'}{$userdomain}) eq 'HASH') {
+                                 if ($alerts{'username'}{$userdomain}{$username}) {
+                                     $r->print('<li>'.
+                                               &mt('[_1]: matches the username format at your institution, but is not known to your directory service.','<b>'.$username.'</b>').'<br />'.
+                                               &mt('Consequently, the user was not created.').'</li>');
+                                     next;
+                                 }
+                             }
+                         }
+                         if (ref($inst_results{$user}) eq 'HASH') {
+                             if ($inst_results{$user}{'firstname'} ne '') {
+                                 $fname = $inst_results{$user}{'firstname'};
+                             }
+                             if ($inst_results{$user}{'middlename'} ne '') {
+                                 $mname = $inst_results{$user}{'middlename'};
+                             }
+                             if ($inst_results{$user}{'lasttname'} ne '') {
+                                 $lname = $inst_results{$user}{'lastname'};
+                             }
+                             if ($inst_results{$user}{'permanentemail'} ne '') {
+                                 $email = $inst_results{$user}{'permanentemail'};
+                             }
+                             if ($inst_results{$user}{'id'} ne '') {
+                                 $id = $inst_results{$user}{'id'};
+                                 $checkid = 0;
+                             }
+                             if (ref($inst_results{$user}{'inststatus'}) eq 'ARRAY') {
+                                 $inststatus = join(':',@{$inst_results{$user}{'inststatus'}});
                              }
                          }
-                         if ($checkid) {
+                         if (($checkid) && ($id ne '')) {
-                             my $checkhash;
-                             my $checks = { 'id' => 1 };
-                             $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'}{$userdomain}) eq 'HASH') {
-                                     if ($alerts{'id'}{$userdomain}{$id}) {
+                                     if ($alerts{'id'}{$userdomain}{$username}) {
-                                         $r->print(&mt('[_1]: has a student/employee ID matching the format at your institution, but the ID is found by your directory service.',
+                                         $r->print('<li>'.
+                                                   &mt('[_1]: has a student/employee ID matching the format at your institution, but the ID is not found by your directory service.',
                                                    '<b>'.$username.'</b>').'<br />'.
-                                                   &mt('Consequently, the user was not created.'));
+                                                   &mt('Consequently, the user was not created.').'</li>');
                                          next;
                                      }
                                  }
                              }
                          }
+                         my $usertype = 'unofficial';
+                         if (ref($rulematch{$user}) eq 'HASH') {
+                             if ($rulematch{$user}{'username'}) {
+                                 $usertype = 'official';
+                             }
+                         }
+                         unless ($cancreate{$usertype}) {
+                             my $showtype = $longtypes{$usertype};
+                             $r->print('<li>'.
+                                       &mt('[_1]: The user does not exist, and you are not permitted to create users of type: [_2].','<b>'.$username.'</b>',$showtype).'</li>');
+                             next;
+                         }
+                     } elsif ($id ne '') {
+                         if (exists($checkids{$user})) {
+                             $checkid = 1;
+                             if (ref($alerts{'id'}) eq 'HASH') {
+                                 if (ref($alerts{'id'}{$userdomain}) eq 'HASH') {
+                                     if ($alerts{'id'}{$userdomain}{$username}) {
+                                         $r->print('<li>'.
+                                                   &mt('[_1]: has a student/employee ID matching the format at your institution, but the ID is not found by your directory service.',
+                                                   '<b>'.$username.'</b>').'<br />'.
+                                                   &mt('Consequently, the ID was not changed.').'</li>');
+                                         $id = '';
+                                     }
+                                 }
+                             }
+                         }
                      }
-                     if ($password || $env{'form.login'} eq 'loc') {
+                     my $multiple = 0;
-                         my $multiple = 0;
+                     my ($userresult,$authresult,$roleresult,$idresult);
-                         my ($userresult,$authresult,$roleresult,$idresult);
+                     my (%userres,%authres,%roleres,%idres);
-                         my (%userres,%authres,%roleres,%idres);
+                     my $singlesec = '';
-                         my $singlesec = '';
+                     if ($role eq 'st') {
-                         if ($role eq 'st') {
+                         if (($context eq 'domain') && ($changeauth eq 'Yes') && (!$newuser)) {
-                             my $sec;
+                             if ((&Apache::lonnet::allowed('mau',$userdomain)) &&
+                                 (&Apache::lonnet::homeserver($username,$userdomain) ne 'no_host')) {
+                                 if ((($amode =~ /^krb4|krb5|internal$/) && $password ne '') ||
+                                      ($amode eq 'localauth')) {
+                                     $authresult =
+                                         &Apache::lonnet::modifyuserauth($userdomain,$username,$amode,$password);
+                                 }
+                             }
+                         }
+                         my $sec;
+                         if (ref($userinfo{$i}{'sections'}) eq 'ARRAY') {
                              if (@secs > 0) {
                                  $sec = $secs[0];
                              }
-                             &modifystudent($userdomain,$username,$cid,$sec,
+                         }
-                                            $desiredhost,$context);
+                         &modifystudent($userdomain,$username,$cid,$sec,
-                             $roleresult =
+                                        $desiredhost,$context);
-                                 &Apache::lonnet::modifystudent
+                         $roleresult =
-                                     ($userdomain,$username,$id,$amode,$password,
+                             &Apache::lonnet::modifystudent
-                                      $fname,$mname,$lname,$gen,$sec,$enddate,
+                                 ($userdomain,$username,$id,$amode,$password,
-                                      $startdate,$env{'form.forceid'},
+                                  $fname,$mname,$lname,$gen,$sec,$enddate,
-                                      $desiredhost,$email,'manual','',$cid,
+                                  $startdate,$env{'form.forceid'},
-                                      '',$context,$inststatus);
+                                  $desiredhost,$email,'manual','',$cid,
-                             $userresult = $roleresult;
+                                  '',$context,$inststatus,$credits);
-                         } else {
+                         $userresult = $roleresult;
-                             if ($role ne '') {
+                     } else {
-                                 if ($context eq 'course' || $setting eq 'course') {
+                         if ($role ne '') {
-                                     if ($customroles{$role}) {
+                             if ($context eq 'course' || $setting eq 'course') {
-                                         $role = 'cr_'.$env{'user.domain'}.'_'.
+                                 if ($customroles{$role}) {
-                                                 $env{'user.name'}.'_'.$role;
+                                     $role = 'cr_'.$env{'user.domain'}.'_'.
-                                     }
+                                             $env{'user.name'}.'_'.$role;
-                                     if (($role ne 'cc') && ($role ne 'co')) {
+                                 }
-                                         if (@secs > 1) {
+                                 if (($role ne 'cc') && ($role ne 'co')) {
-                                             $multiple = 1;
+                                    if (@secs > 1) {
-                                             foreach my $sec (@secs) {
+                                         $multiple = 1;
-                                                 ($userres{$sec},$authres{$sec},$roleres{$sec},$idres{$sec}) =
+                                         foreach my $sec (@secs) {
-                                                 &modifyuserrole($context,$setting,
+                                             ($userres{$sec},$authres{$sec},$roleres{$sec},$idres{$sec}) =
-                                                     $changeauth,$cid,$userdomain,$username,
+                                             &modifyuserrole($context,$setting,
-                                                     $id,$amode,$password,$fname,
+                                                 $changeauth,$cid,$userdomain,$username,
-                                                     $mname,$lname,$gen,$sec,
+                                                 $id,$amode,$password,$fname,
-                                                     $env{'form.forceid'},$desiredhost,
+                                                 $mname,$lname,$gen,$sec,
-                                                     $email,$role,$enddate,
+                                                 $env{'form.forceid'},$desiredhost,
-                                                     $startdate,$checkid,$inststatus);
+                                                 $email,$role,$enddate,
-                                             }
+                                                 $startdate,$checkid,$inststatus);
-                                         } elsif (@secs > 0) {
-                                             $singlesec = $secs[0];
                                          }
+                                     } 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,$inststatus);
-                             }
                          }
-                         if ($multiple) {
+                         if (!$multiple) {
-                             foreach my $sec (sort(keys(%userres))) {
+                             ($userresult,$authresult,$roleresult,$idresult) =
-                                 $flushc =
+                                 &modifyuserrole($context,$setting,
+                                                 $changeauth,$cid,$userdomain,$username,
+                                                 $id,$amode,$password,$fname,
+                                                 $mname,$lname,$gen,$singlesec,
+                                                 $env{'form.forceid'},$desiredhost,
+                                                 $email,$role,$enddate,$startdate,
+                                                 $checkid,$inststatus);
+                         }
+                     }
+                     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 {
-                             $flushc =
-                                 &user_change_result($r,$userresult,$authresult,
-                                                     $roleresult,$idresult,\%counts,$flushc,
-                                                     $username,$userdomain,\%userchg);
                          }
                      } else {
-                         if ($context eq 'course') {
+                         $flushc =
-                             $r->print('<br />'.
+                             &user_change_result($r,$userresult,$authresult,
-       &mt('[_1]: Unable to enroll. No password specified.','<b>'.$username.'</b>')
+                                                 $roleresult,$idresult,\%counts,$flushc,
-                                      );
+                                                 $username,$userdomain,\%userchg);
-                         } elsif ($context eq 'author') {
-                             $r->print('<br />'.
-       &mt('[_1]: Unable to add co-author. No password specified.','<b>'.$username.'</b>')
-                                      );
-                         } else {
-                             $r->print('<br />'.
-       &mt('[_1]: Unable to add user. No password specified.','<b>'.$username.'</b>')
-                                      );
-                         }
                      }
                  }
-             }
+                 &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last user');
-         } # end of foreach (@userdata)
+             } # end of loop
+             $r->print('</ul>');
+             &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
+         }
          # Flush the course logs so reverse user roles immediately updated
-         &Apache::lonnet::flushcourselogs();
+         $r->register_cleanup(\&Apache::lonnet::flushcourselogs);
          $r->print("</p>\n<p>\n".&mt('Processed [quant,_1,user].',$counts{'user'}).
                    "</p>\n");
          if ($counts{'role'} > 0) {
-             if (&Apache::loncommon::needs_gci_custom()) {
+             $r->print("<p>\n".
-                 $r->print("<p>\n".
+                       &mt('Roles added for [quant,_1,user].',$counts{'role'}).' '.
-                           &mt('[quant,_1,student] enrolled in Concept Test.',$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");
+                       "</p>\n");
-             } else {
-                 $r->print("<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 {
-             if (&Apache::loncommon::needs_gci_custom()) {
+             $r->print('<p>'.&mt('No roles added').'</p>');
-                 $r->print('<p>'.&mt('No students enrolled').'</p>');
-             } else {
-                 $r->print('<p>'.&mt('No roles added').'</p>');
-             }
          }
          if ($counts{'auth'} > 0) {
              $r->print("<p>\n".
- Line 4580  sub upfile_drop_add {
+ Line 4907  sub upfile_drop_add {
                            $counts{'auth'})."</p>\n");
          }
          $r->print(&print_namespacing_alerts($domain,\%alerts,\%curr_rules));
+         $r->print(&passwdrule_alerts($domain,\%showpasswdrules));
          #####################################
          # Display list of students to drop  #
          #####################################
- Line 4588  sub upfile_drop_add {
+ Line 4916  sub upfile_drop_add {
              #  Get current classlist
              my $classlist = &Apache::loncoursedata::get_classlist();
              if (! defined($classlist)) {
-                 $r->print('<form name="studentform" method="post" action="/adm/createuser" />'.
+                 $r->print('<p class="LC_info">'.
-                           '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
                            &mt('There are no students with current/future access to the course.').
-                           '</form>'."\n");
+                           '</p>'."\n");
              } elsif (ref($classlist) eq 'HASH') {
                  # Remove the students we just added from the list of students.
                  foreach my $line (@userdata) {
- Line 4607  sub upfile_drop_add {
+ Line 4934  sub upfile_drop_add {
              }
          }
      } # end of unless
-     if ($env{'form.fullup'} ne 'yes') {
+     return 'ok';
-         $r->print('</form>');
-     }
  }
  sub print_namespacing_alerts {
- Line 4652  sub print_namespacing_alerts {
+ Line 4977  sub print_namespacing_alerts {
      }
  }
+ sub passwdrule_alerts {
+     my ($domain,$passwdrules) = @_;
+     my $warning;
+     if (ref($passwdrules) eq 'HASH') {
+         my %showrules = %{$passwdrules};
+         if (keys(%showrules)) {
+             my %passwdconf = &Apache::lonnet::get_passwdconf($domain);
+             $warning = '<b>'.&mt('Password requirement(s) unmet for one or more users:').'</b><ul>';
+             if ($showrules{'min'}) {
+                 my $min = $passwdconf{'min'};
+                 if ($min eq '') {
+                     $min = $Apache::lonnet::passwdmin;
+                 }
+                 $warning .= '<li>'.&mt('minimum [quant,_1,character]',$min).'</li>';
+             }
+             if ($showrules{'max'}) {
+                 $warning .= '<li>'.&mt('maximum [quant,_1,character]',$passwdconf{'max'}).'</li>';
+             }
+             if ($showrules{'uc'}) {
+                 $warning .= '<li>'.&mt('contain at least one upper case letter').'</li>';
+             }
+             if ($showrules{'lc'}) {
+                 $warning .= '<li>'.&mt('contain at least one lower case letter').'</li>';
+             }
+             if ($showrules{'num'}) {
+                 $warning .= '<li>'.&mt('contain at least one number').'</li>';
+             }
+             if ($showrules{'spec'}) {
+                 $warning .= '<li>'.&mt('contain at least one non-alphanumeric').'</li>';
+             }
+             $warning .= '</ul>';
+         }
+     }
+     return $warning;
+ }
  sub user_change_result {
      my ($r,$userresult,$authresult,$roleresult,$idresult,$counts,$flushc,
          $username,$userdomain,$userchg) = @_;
      my $okresult = 0;
+     my @status;
      if ($userresult ne 'ok') {
          if ($userresult =~ /^error:(.+)$/) {
              my $error = $1;
-             $r->print('<br />'.
+             push(@status,
-                   &mt('[_1]: Unable to add/modify: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
+                  &mt('[_1]: Unable to add/modify: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
          }
      } else {
          $counts->{'user'} ++;
- Line 4669  sub user_change_result {
+ Line 5031  sub user_change_result {
      if ($authresult ne 'ok') {
          if ($authresult =~ /^error:(.+)$/) {
              my $error = $1;
-             $r->print('<br />'.
+             push(@status,
-                   &mt('[_1]: Unable to modify authentication: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
+                  &mt('[_1]: Unable to modify authentication: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
          }
      } else {
          $counts->{'auth'} ++;
- Line 4679  sub user_change_result {
+ Line 5041  sub user_change_result {
      if ($roleresult ne 'ok') {
          if ($roleresult =~ /^error:(.+)$/) {
              my $error = $1;
-             $r->print('<br />'.
+             push(@status,
-                   &mt('[_1]: Unable to add role: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
+                  &mt('[_1]: Unable to add role: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
          }
      } else {
          $counts->{'role'} ++;
- Line 4689  sub user_change_result {
+ Line 5051  sub user_change_result {
      if ($okresult) {
          $flushc++;
          $userchg->{$username.':'.$userdomain}=1;
-         $r->print('. ');
          if ($flushc>15) {
              $r->rflush;
              $flushc=0;
          }
      }
      if ($idresult) {
-         $r->print($idresult);
+         push(@status,$idresult);
+     }
+     if (@status) {
+         $r->print('<li>'.join('<br />',@status).'</li>');
      }
      return $flushc;
  }
- Line 4711  sub print_drop_menu {
+ Line 5075  sub print_drop_menu {
          $heading = &mt("Drop Students");
      }
      $r->print('<h3>'.$heading.'</h3>'."\n".
-               '<form name="studentform" method="post">'."\n");
+               '<form name="studentform" method="post" action="">'."\n");
      my $classlist = &Apache::loncoursedata::get_classlist();
      if (! defined($classlist)) {
+         my $msg = '';
          if ($crstype eq 'Community') {
-             $r->print(&mt('There are no members currently enrolled.')."\n");
+             $msg = &mt('There are no members currently enrolled.');
          } else {
-             $r->print(&mt('There are no students currently enrolled.')."\n");
+             $msg = &mt('There are no students currently enrolled.');
          }
+         $r->print('<p class="LC_info">'.$msg."</p>\n");
      } else {
          &show_drop_list($r,$classlist,'nosort',$permission,$crstype);
      }
-     $r->print('</form>'. &Apache::loncommon::end_page());
+     $r->print('</form>');
      return;
  }
  # ================================================================== Phase four
  sub update_user_list {
-     my ($r,$context,$setting,$choice) = @_;
+     my ($r,$context,$setting,$choice,$crstype) = @_;
      my $now = time;
      my $count=0;
-     my $crstype;
      if ($context eq 'course') {
          $crstype = &Apache::loncommon::course_type();
      }
- Line 4747  sub update_user_list {
+ Line 5112  sub update_user_list {
                                     'reenable' => 'Re-enabled',
                                     'activate' => 'Activated',
                                     'chgdates' => 'Changed Access Dates for',
-                                    'chgsec'   => 'Changed section for',
+                                    'chgsec'   => 'Changed section(s) for',
                                     'drop'     => 'Dropped',
                                   },
                          error => {'revoke'    => 'revoking',
- Line 4764  sub update_user_list {
+ Line 5129  sub update_user_list {
          ($startdate,$enddate) = &get_dates_from_form();
      }
      foreach my $item (@changelist) {
-         my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,@sections,
+         my ($role,$uname,$udom,$cid,$sec,$scope,$result,$type,$locktype,
-             $scopestem);
+             @sections,$scopestem,$singlesec,$showsecs,$warn_singlesec,
+             $nothingtodo,$keepnosection,$credits,$instsec);
          if ($choice eq 'drop') {
              ($uname,$udom,$sec) = split(/:/,$item,-1);
              $role = 'st';
- Line 4778  sub update_user_list {
+ Line 5144  sub update_user_list {
                  $scope = $scopestem.'/'.$sec;
              }
          } elsif ($context eq 'course') {
-             ($uname,$udom,$role,$sec,$type,$locktype) = split(/\:/,$item,-1);
+             ($uname,$udom,$role,$sec,$type,$locktype,$credits,$instsec) =
+                 split(/\:/,$item,8);
+             $instsec = &unescape($instsec);
              $cid = $env{'request.course.id'};
              $scopestem = '/'.$cid;
              $scopestem =~s/\_/\//g;
- Line 4797  sub update_user_list {
+ Line 5165  sub update_user_list {
              } elsif ($setting eq 'author') {
                  ($uname,$udom,$role,$scope) = split(/\:/,$item);
              } elsif ($setting eq 'course') {
-                 ($uname,$udom,$role,$cid,$sec,$type,$locktype) =
+                 ($uname,$udom,$role,$cid,$sec,$type,$locktype,$credits,$instsec) =
-                     split(/\:/,$item);
+                     split(/\:/,$item,9);
+                 $instsec = &unescape($instsec);
                  $scope = '/'.$cid;
                  $scope =~s/\_/\//g;
                  if ($sec ne '') {
- Line 4820  sub update_user_list {
+ Line 5189  sub update_user_list {
              $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);
+                     &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context,$credits,$instsec);
              } else {
                  $result =
                      &Apache::lonnet::revokerole($udom,$uname,$scope,$role,
- Line 4828  sub update_user_list {
+ Line 5197  sub update_user_list {
              }
          } 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);
+                 &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$now,$start,$type,$locktype,$cid,'',$context,$credits,$instsec);
              }
              $result =
                  &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now,
- Line 4841  sub update_user_list {
+ Line 5210  sub update_user_list {
              }
              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);
+                     $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context,$credits,$instsec);
                  } else {
                      $result =
                          &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
- Line 4849  sub update_user_list {
+ Line 5218  sub update_user_list {
                  }
              } 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);
+                     $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context,$credits,$instsec);
                  } 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);
+                     $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context,$credits,$instsec);
                  } else {
                      $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
                                                  $start,'','',$context);
- Line 4864  sub update_user_list {
+ Line 5233  sub update_user_list {
              } elsif ($choice eq 'chgsec') {
                  my (@newsecs,$revresult,$nochg,@retained);
                  if (($role ne 'cc') && ($role ne 'co')) {
-                     @newsecs = split(/,/,$env{'form.newsecs'});
+                     my @secs = sort(split(/,/,$env{'form.newsecs'}));
+                     if (@secs) {
+                         my %curr_groups = &Apache::longroup::coursegroups();
+                         foreach my $sec (@secs) {
+                             next if (($sec =~ /\W/) || ($sec eq 'none') ||
+                             (exists($curr_groups{$sec})));
+                             push(@newsecs,$sec);
+                         }
+                     }
                  }
                  # remove existing section if not to be retained.
-                 if (!$env{'form.retainsec'}) {
+                 if (!$env{'form.retainsec'} || ($role eq 'st')) {
                      if ($sec eq '') {
                          if (@newsecs == 0) {
-                             $result = &mt('No change in section assignment (none)');
+                             $result = 'ok';
                              $nochg = 1;
+                             $nothingtodo = 1;
                          } else {
                              $revresult =
                                  &Apache::lonnet::revokerole($udom,$uname,
- Line 4898  sub update_user_list {
+ Line 5276  sub update_user_list {
                  } else {
                      if ($sec eq '') {
                          $nochg = 1;
-                     } else {
+                         $keepnosection = 1;
+                     } else {
                          push(@retained,$sec);
                      }
                  }
                  # add new sections
+                 my (@diffs,@shownew);
+                 if (@retained) {
+                     @diffs = &Apache::loncommon::compare_arrays(\@retained,\@newsecs);
+                 } else {
+                     @diffs = @newsecs;
+                 }
                  if (@newsecs == 0) {
-                     if (!$nochg) {
+                     if ($nochg) {
+                         $result = 'ok';
+                         $nothingtodo = 1;
+                     } else {
                          if ($role eq 'st') {
                              $result =
-                                 &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid,'',$context);
+                                 &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$end,$start,$type,$locktype,$cid,'',$context,$credits,$instsec);
                          } else {
                              my $newscope = $scopestem;
                              $result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start,'','',$context);
                          }
                      }
+                     $showsecs = &mt('No section');
+                 } elsif (@diffs == 0) {
+                     $result = 'ok';
+                     $nothingtodo = 1;
                  } 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);
+                                 $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid,'',$context,$credits,$instsec);
+                                 if (@newsecs > 1) {
+                                     my $showsingle;
+                                     if ($newsec eq '') {
+                                         $showsingle = &mt('No section');
+                                     } else {
+                                         $showsingle = $newsec;
+                                     }
+                                     if ($crstype eq 'Community') {
+                                         $warn_singlesec = &mt('Although more than one section was indicated, a role was only added for the first section - [_1], as each community member may only be in one section at a time.','<i>'.$showsingle.'</i>');
+                                     } else {
+                                         $warn_singlesec = &mt('Although more than one section was indicated, a role was only added for the first section - [_1], as each student may only be in one section of a course at a time.','<i>'.$showsingle.'</i>');
+                                     }
+                                     $showsecs = $showsingle;
+                                     last;
+                                 } else {
+                                     if ($newsec eq '') {
+                                         $showsecs = &mt('No section');
+                                     } else {
+                                         $showsecs = $newsec;
+                                     }
+                                 }
                              } else {
                                  my $newscope = $scopestem;
                                  if ($newsec ne '') {
                                     $newscope .= '/'.$newsec;
+                                    push(@shownew,$newsec);
                                  }
                                  $result = &Apache::lonnet::assignrole($udom,$uname,
                                                          $newscope,$role,$end,$start);
                              }
                          }
                      }
                  }
+                 unless ($role eq 'st') {
+                     unless ($showsecs) {
+                         my @tolist = sort(@shownew,@retained);
+                         if ($keepnosection) {
+                             push(@tolist,&mt('No section'));
+                         }
+                         $showsecs = join(', ',@tolist);
+                     }
+                 }
              }
          }
          my $extent = $scope;
- Line 4939  sub update_user_list {
+ Line 5363  sub update_user_list {
              }
          }
          if ($result eq 'ok' || $result eq 'ok:') {
-             $r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for [_3]",
+             my $dates;
-                           $plrole,$extent,$uname.':'.$udom).'<br />');
+             if (($choice eq 'chgsec') || ($choice eq 'chgdates')) {
-             $count++;
+                 $dates = &dates_feedback($start,$end,$now);
+             }
+             if ($choice eq 'chgsec') {
+                 if ($nothingtodo) {
+                     $r->print(&mt("Section assignment for role of '[_1]' in [_2] for '[_3]' unchanged.",$plrole,$extent,'<i>'.
+                           &Apache::loncommon::plainname($uname,$udom).
+                           '</i>').' ');
+                     if ($sec eq '') {
+                         $r->print(&mt('[_1]No section[_2] - [_3]','<b>','</b>',$dates));
+                     } else {
+                         $r->print(&mt('Section(s): [_1] - [_2]',
+                                       '<b>'.$showsecs.'</b>',$dates));
+                     }
+                     $r->print('<br />');
+                 } else {
+                     $r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for '[_3]' to [_4] - [_5]",$plrole,$extent,
+                         '<i>'.&Apache::loncommon::plainname($uname,$udom).'</i>',
+                         '<b>'.$showsecs.'</b>',$dates).'<br />');
+                    $count ++;
+                }
+                if ($warn_singlesec) {
+                    $r->print('<div class="LC_warning">'.$warn_singlesec.'</div>');
+                }
+             } elsif ($choice eq 'chgdates') {
+                 $r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for '[_3]' - [_4]",$plrole,$extent,
+                       '<i>'.&Apache::loncommon::plainname($uname,$udom).'</i>',
+                       $dates).'<br />');
+                $count ++;
+             } else {
+                 $r->print(&mt("$result_text{'ok'}{$choice} role of '[_1]' in [_2] for '[_3]'.",$plrole,$extent,
+                       '<i>'.&Apache::loncommon::plainname($uname,$udom).'</i>').
+                           '<br />');
+                 $count ++;
+             }
          } else {
              $r->print(
-                 &mt("Error $result_text{'error'}{$choice} [_1] in [_2] for [_3]: [_4].",
+                 &mt("Error $result_text{'error'}{$choice} [_1] in [_2] for '[_3]': [_4].",
-                     $plrole,$extent,$uname.':'.$udom,$result).'<br />');
+                     $plrole,$extent,
+                     '<i>'.&Apache::loncommon::plainname($uname,$udom).'</i>',
+                     $result).'<br />');
          }
      }
      $r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n");
- Line 4961  sub update_user_list {
+ Line 5420  sub update_user_list {
              }
          }
      }
-     $r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>');
+     $r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} [quant,_1,user role,user roles,no user roles].",$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();
+         $r->register_cleanup(\&Apache::lonnet::flushcourselogs);
      }
      if ($env{'form.makedatesdefault'}) {
          if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') {
- Line 4978  sub update_user_list {
+ Line 5437  sub update_user_list {
      if ($choice eq 'drop') {
          $linktext = &mt('Display current class roster');
      }
-     $r->print('<a href="javascript:document.studentform.submit()">'.$linktext.'</a></form>'."\n");
+     $r->print(
+         &Apache::lonhtmlcommon::actionbox(
+             ['<a href="javascript:document.studentform.submit()">'.$linktext.'</a>'])
+        .'</form>'."\n");
+ }
+ sub dates_feedback {
+     my ($start,$end,$now) = @_;
+     my $dates;
+     if ($start < $now) {
+         if ($end == 0) {
+             $dates = &mt('role(s) active now; no end date');
+         } elsif ($end > $now) {
+             $dates = &mt('role(s) active now; ends [_1].',&Apache::lonlocal::locallocaltime($end));
+         } else {
+             $dates = &mt('role(s) expired: [_1].',&Apache::lonlocal::locallocaltime($end));
+         }
+      } else {
+         if ($end == 0 || $end > $now) {
+             $dates = &mt('future role(s); starts: [_1].',&Apache::lonlocal::locallocaltime($start));
+         } else {
+             $dates = &mt('role(s) expired: [_1].',&Apache::lonlocal::locallocaltime($end));
+         }
+     }
+     return $dates;
  }
  sub classlist_drop {
- Line 5004  sub active_student_roles {
+ Line 5487  sub active_student_roles {
  sub section_check_js {
      my $groupslist= &get_groupslist();
+     my %js_lt = &Apache::lonlocal::texthash(
+         mayn   => 'may not be used as the name for a section, as it is a reserved word.',
+         plch   => 'Please choose a different section name.',
+         mnot   => 'may not be used as a section name, as it is the name of a course group.',
+         secn   => 'Section names and group names must be distinct. Please choose a different section name.',
+     );
+     &js_escape(\%js_lt);
      return <<"END";
  function validate(caller) {
      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.");
+         alert("'"+secname+"' $js_lt{'mayn'}\\n$js_lt{'plch'}");
          return 'error';
      }
      if (secname != '') {
          for (var k=0; k<groups.length; k++) {
              if (secname == groups[k]) {
-                 alert("'"+secname+"' may not be used as the name for a section, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");
+                 alert("'"+secname+"' $js_lt{'mnot'}\\n$js_lt{'secn'}");
                  return 'error';
              }
          }
- Line 5054  sub set_login {
+ Line 5544  sub set_login {
  }
  sub course_sections {
-     my ($sections_count,$role,$current_sec) = @_;
+     my ($sections_count,$role,$current_sec,$disabled) = @_;
      my $output = '';
-     my @sections = (sort {$a <=> $b} keys %{$sections_count});
+     my @sections = (sort {$a <=> $b} keys(%{$sections_count}));
      my $numsec = scalar(@sections);
      my $is_selected = ' selected="selected"';
      if ($numsec <= 1) {
-         $output = '<select name="currsec_'.$role.'" >'."\n".
+         $output = '<select name="currsec_'.$role.'"'.$disabled.'>'."\n".
                    '  <option value="">'.&mt('Select').'</option>'."\n";
          if ($current_sec eq 'none') {
              $output .=
- Line 5083  sub course_sections {
+ Line 5573  sub course_sections {
          my $multiple = 4;
          if (scalar(@sections) < 4) { $multiple = scalar(@sections); }
          if ($role eq 'st') {
-             $output .= '>'."\n".
+             $output .= $disabled.'>'."\n".
                         '  <option value="">'.&mt('Select').'</option>'."\n";
              if ($current_sec eq 'none') {
                  $output .=
- Line 5093  sub course_sections {
+ Line 5583  sub course_sections {
                         '  <option value="">'.&mt('No section')."</option>\n";
              }
          } else {
-             $output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
+             $output .= 'multiple="multiple" size="'.$multiple.'"'.$disabled.'>'."\n";
          }
          foreach my $sec (@sections) {
              if ($current_sec eq $sec) {
- Line 5118  sub get_groupslist {
+ Line 5608  sub get_groupslist {
  }
  sub setsections_javascript {
-     my ($formname,$groupslist,$mode,$checkauth,$crstype) = @_;
+     my ($formname,$groupslist,$mode,$checkauth,$crstype,$showcredits) = @_;
      my ($checkincluded,$finish,$rolecode,$setsection_js);
      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';
+         if (($crstype eq 'Course') && ($showcredits)) {
+             $checkincluded = "((role == 'st') && (formname.elements[i-2].checked == true)) || ((role != 'st') && (formname.elements[i-1].checked == true))";
+         } else {
+             $checkincluded = 'formname.elements[i-1].checked == true';
+         }
          if ($checkauth) {
              $finish = "var authcheck = auth_check();\n".
                        "   if (authcheck == 'ok') {\n".
- Line 5136  sub setsections_javascript {
+ Line 5630  sub setsections_javascript {
          }
          $rolecode = "var match = str.split('_');
                  var role = match[3];\n";
-     } elsif ($formname eq 'enrollstudent') {
+     } elsif (($formname eq 'enrollstudent') || ($formname eq 'selfenroll')) {
          $checkincluded = 'formname.name == "'.$formname.'"';
          if ($checkauth) {
              $finish = "var authcheck = auth_check();\n".
- Line 5161  sub setsections_javascript {
+ Line 5655  sub setsections_javascript {
                      accr => 'A course coordinator role will be added with access to all sections.',
                      acor => 'A coordinator role will be added with access to all sections',
                      inea => 'In each course, each user may only have one student role at a time.',
-                     inec => 'In each community, each user may only have on member role at a time.',
+                     inco => 'In each community, each user may only have one member role at a time.',
-                     youh => 'You had selected ',
+                     youh => 'You had selected',
                      secs => 'sections.',
                      plmo => 'Please modify your selections so they include no more than one section.',
                      mayn => 'may not be used as the name for a section, as it is a reserved word.',
                      plch => 'Please choose a different section name.',
                      mnot => 'may not be used as a section name, as it is the name of a course group.',
                      secn => 'Section names and group names must be distinct. Please choose a different section name.',
-                  );
+                     nonw => 'Section names may only contain letters or numbers.',
+                  );
+     &js_escape(\%alerts);
      $setsection_js .= <<"ENDSECCODE";
  function setSections(formname,crstype) {
      var re1 = /^currsec_/;
+     var re2 =/\\W/;
+     var trimleading = /^\\s+/;
+     var trimtrailing = /\\s+\$/;
      var groups = new Array($groupslist);
      for (var i=0;i<formname.elements.length;i++) {
          var str = formname.elements[i].name;
+         if (typeof(str) === "undefined") {
+             continue;
+         }
          var checkcurr = str.match(re1);
          if (checkcurr != null) {
+             var num = i;
+             $rolecode
              if ($checkincluded) {
-                 $rolecode
                  if (role == 'cc' || role == 'co') {
                      if (role == 'cc') {
                          alert("$alerts{'secd'}\\n$alerts{'accr'}");
- Line 5190  function setSections(formname,crstype) {
+ Line 5693  function setSections(formname,crstype) {
                  } else {
                      var sections = '';
                      var numsec = 0;
-                     var sections;
+                     var fromexisting = new Array();
-                     for (var j=0; j<formname.elements[i].length; j++) {
+                     for (var j=0; j<formname.elements[num].length; j++) {
-                         if (formname.elements[i].options[j].selected == true ) {
+                         if (formname.elements[num].options[j].selected == true ) {
-                             if (formname.elements[i].options[j].value != "") {
+                             var addsec = formname.elements[num].options[j].value;
+                             if ((addsec != "") && (addsec != null)) {
+                                 fromexisting.push(addsec);
                                  if (numsec == 0) {
-                                     if (formname.elements[i].options[j].value != "") {
+                                     sections = addsec;
-                                         sections = formname.elements[i].options[j].value;
+                                 } else {
-                                         numsec ++;
+                                     sections = sections + "," +  addsec;
-                                     }
-                                 }
-                                 else {
-                                     sections = sections + "," +  formname.elements[i].options[j].value
-                                     numsec ++;
                                  }
+                                 numsec ++;
                              }
                          }
                      }
-                     if (numsec > 0) {
+                     var newsecs = formname.elements[num+1].value;
-                         if (formname.elements[i+1].value != "" && formname.elements[i+1].value != null) {
+                     var validsecs = new Array();
-                             sections = sections + "," +  formname.elements[i+1].value;
+                     var validsecstr = '';
-                         }
+                     var badsecs = new Array();
-                     }
-                     else {
-                         sections = formname.elements[i+1].value;
-                     }
-                     var newsecs = formname.elements[i+1].value;
-                     var numsplit;
                      if (newsecs != null && newsecs != "") {
-                         numsplit = newsecs.split(/,/g);
+                         var numsplit;
-                         numsec = numsec + numsplit.length;
+                         if (newsecs.indexOf(',') == -1) {
+                             numsplit = new Array(newsecs);
+                         } else {
+                             numsplit = newsecs.split(/,/g);
+                         }
+                         for (var m=0; m<numsplit.length; m++) {
+                             var newsec = numsplit[m];
+                             newsec = newsec.replace(trimleading,'');
+                             newsec = newsec.replace(trimtrailing,'');
+                             if (re2.test(newsec) == true) {
+                                 badsecs.push(newsec);
+                             } else {
+                                 if (newsec != '') {
+                                     var isnew = 1;
+                                     if (fromexisting != null) {
+                                         for (var n=0; n<fromexisting.length; n++) {
+                                             if (newsec == fromexisting[n]) {
+                                                 isnew = 0;
+                                             }
+                                         }
+                                     }
+                                     if (isnew == 1) {
+                                         validsecs.push(newsec);
+                                     }
+                                 }
+                             }
+                         }
+                         if (badsecs.length > 0) {
+                             alert("$alerts{'nonw'}\\n$alerts{'plch'}");
+                             return;
+                         }
+                         numsec = numsec + validsecs.length;
                      }
                      if ((role == 'st') && (numsec > 1)) {
                          if (crstype == 'Community') {
                              alert("$alerts{'inea'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");
                          } else {
-                             alert("$alerts{'inec'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");
+                             alert("$alerts{'inco'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");
                          }
                          return;
-                     }
+                     } else {
-                     else {
+                         if (validsecs != null) {
-                         if (numsplit != null) {
+                             for (var j=0; j<validsecs.length; j++) {
-                             for (var j=0; j<numsplit.length; j++) {
+                                 if (validsecstr == '' || validsecstr == null) {
-                                 if ((numsplit[j] == 'all') ||
+                                     validsecstr = validsecs[j];
-                                     (numsplit[j] == 'none')) {
+                                 } else {
-                                     alert("'"+numsplit[j]+"' $alerts{'mayn'}\\n$alerts{'plch'}");
+                                     validsecstr += ','+validsecs[j];
+                                 }
+                                 if ((validsecs[j] == 'all') ||
+                                     (validsecs[j] == 'none')) {
+                                     alert("'"+validsecs[j]+"' $alerts{'mayn'}\\n$alerts{'plch'}");
                                      return;
                                  }
                                  for (var k=0; k<groups.length; k++) {
-                                     if (numsplit[j] == groups[k]) {
+                                     if (validsecs[j] == groups[k]) {
-                                         alert("'"+numsplit[j]+"' $alerts{'mnot'}\\n$alerts{'secn'}");
+                                         alert("'"+validsecs[j]+"' $alerts{'mnot'}\\n$alerts{'secn'}");
                                          return;
                                      }
                                  }
                              }
                          }
-                         formname.elements[i+2].value = sections;
                      }
+                     if ((validsecstr != '') && (validsecstr != null)) {
+                         if ((sections == '') || (sections == null)) {
+                             sections = validsecstr;
+                         } else {
+                             sections = sections + "," + validsecstr;
+                         }
+                     }
+                     formname.elements[num+2].value = sections;
                  }
              }
          }
- Line 5258  ENDSECCODE
+ Line 5794  ENDSECCODE
      return $setsection_js;
  }
- sub newsections_javascript {
-     my %alerts = &Apache::lonlocal::texthash(
-                     inea => 'In each course, each user may only have one student role at a time.',
-                     youh => 'You had selected ',
-                     secs => 'sections.',
-                     plmo => 'Please modify your selections so they include no more than one section.',
-                     mayn => 'may not be used as the name for a section, as it is a reserved word.',
-                     plch => 'Please choose a different section name.',
-                  );
-     my $setsection_js = <<"ENDSECCODE";
- function setSections(formname) {
-     var newsecs = formname.newsec.value;
-     var numsplit = 0;
-     var numsec = 0;
-     if (newsecs != null && newsecs != "") {
-         numsplit = newsecs.split(/,/g);
-         numsec = numsplit.length;
-     }
-     if (numsec > 1) {
-         alert("$alerts{'inea'} $alerts{'youh'} "+numsec+" $alerts{'secs'}\\n$alerts{'plmo'}");
-     } else {
-         if (numsplit > 0) {
-             for (var j=0; j<numsplit.length; j++) {
-                 if ((numsplit[j] == 'all') ||
-                     (numsplit[j] == 'none')) {
-                     alert("'"+numsplit[j]+"' $alerts{'mayn'}\\n$alerts{'plch'}");
-                     return;
-                 }
-            }
-            formname.sections.value = newsecs;
-        }
-     }
-     return 'ok';
- }
- 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;
+     } elsif ($context eq 'domain') {
+         $cancreate = 0;
+         return $cancreate;
      }
      if (ref($domconf{'usercreation'}) eq 'HASH') {
          if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') {
- Line 5383  sub can_modify_userinfo {
+ Line 5882  sub can_modify_userinfo {
      return %canmodify;
  }
+ sub can_change_internalpass {
+     my ($uname,$udom,$crstype,$permission) = @_;
+     my $canchange;
+     if (&Apache::lonnet::allowed('mau',$udom)) {
+         $canchange = 1;
+     } elsif ((ref($permission) eq 'HASH') && ($permission->{'mip'}) &&
+              ($udom eq $env{'request.role.domain'})) {
+         unless ($env{'course.'.$env{'request.course.id'}.'.internal.nopasswdchg'}) {
+             my ($cnum,$cdom) = &get_course_identity();
+             if ((&Apache::lonnet::is_course_owner($cdom,$cnum)) && ($udom eq $env{'user.domain'})) {
+                 my @userstatuses = ('default');
+                 my %userenv = &Apache::lonnet::userenvironment($udom,$uname,'inststatus');
+                 if ($userenv{'inststatus'} ne '') {
+                     @userstatuses =  split(/:/,$userenv{'inststatus'});
+                 }
+                 my $noupdate = 1;
+                 my %passwdconf = &Apache::lonnet::get_passwdconf($cdom);
+                 if (ref($passwdconf{'crsownerchg'}) eq 'HASH') {
+                     if (ref($passwdconf{'crsownerchg'}{'for'}) eq 'ARRAY') {
+                         foreach my $status (@userstatuses) {
+                             if (grep(/^\Q$status\E$/,@{$passwdconf{'crsownerchg'}{'for'}})) {
+                                 undef($noupdate);
+                                 last;
+                             }
+                         }
+                     }
+                 }
+                 if ($noupdate) {
+                     return;
+                 }
+                 my %owned = &Apache::lonnet::courseiddump($cdom,'.',1,'.',
+                                                           $env{'user.name'}.':'.$env{'user.domain'},
+                                                           undef,undef,undef,'.');
+                 my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',
+                                                               ['active','future']);
+                 foreach my $key (keys(%roleshash)) {
+                     my ($name,$domain,$role) = split(/:/,$key);
+                     if ($role eq 'st') {
+                         next if (($name eq $cnum) && ($domain eq $cdom));
+                         if ($owned{$domain.'_'.$name}) {
+                             if (ref($owned{$domain.'_'.$name}) eq 'HASH') {
+                                 if ($owned{$domain.'_'.$name}{'nopasswdchg'}) {
+                                     $noupdate = 1;
+                                     last;
+                                 }
+                             }
+                         } else {
+                             $noupdate = 1;
+                             last;
+                         }
+                     } else {
+                         $noupdate = 1;
+                         last;
+                     }
+                 }
+                 unless ($noupdate) {
+                     $canchange = 1;
+                 }
+             }
+         }
+     }
+     return $canchange;
+ }
  sub check_usertype {
-     my ($dom,$uname,$rules) = @_;
+     my ($dom,$uname,$rules,$curr_rules,$got_rules) = @_;
      my $usertype;
-     if (ref($rules) eq 'HASH') {
+     if ((ref($got_rules) eq 'HASH') && (ref($curr_rules) eq 'HASH')) {
-         my @user_rules = keys(%{$rules});
+         if (!$got_rules->{$dom}) {
-         if (@user_rules > 0) {
+             my %domconfig = &Apache::lonnet::get_dom('configuration',
-             my %rule_check = &Apache::lonnet::inst_rulecheck($dom,$uname,undef,'username',\@user_rules);
+                                               ['usercreation'],$dom);
-             if (keys(%rule_check) > 0) {
+             if (ref($domconfig{'usercreation'}) eq 'HASH') {
-                 $usertype = 'unofficial';
+                 foreach my $item ('username','id') {
-                 foreach my $item (keys(%rule_check)) {
+                     if (ref($domconfig{'usercreation'}{$item.'_rule'}) eq 'ARRAY') {
-                     if ($rule_check{$item}) {
+                         $curr_rules->{$dom}{$item} =
-                         $usertype = 'official';
+                                 $domconfig{'usercreation'}{$item.'_rule'};
-                         last;
+                     }
+                 }
+             }
+             $got_rules->{$dom} = 1;
+         }
+         if (ref($rules) eq 'HASH') {
+             my @user_rules;
+             if (ref($curr_rules->{$dom}{'username'}) eq 'ARRAY') {
+                 foreach my $rule (keys(%{$rules})) {
+                     if (grep(/^\Q$rule\E/,@{$curr_rules->{$dom}{'username'}})) {
+                         push(@user_rules,$rule);
+                     }
+                 }
+             }
+             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;
+                         }
                      }
                  }
              }
- Line 5412  sub roles_by_context {
+ Line 5997  sub roles_by_context {
          if ($env{'request.role'} =~ m{^dc\./}) {
              push(@allroles,'ad');
          }
-         if (&Apache::loncommon::needs_gci_custom()) {
+         push(@allroles,('ta','ep','in'));
-             if ($crstype eq 'Community') {
+         if ($crstype eq 'Community') {
-                 push(@allroles,'co');
+             push(@allroles,'co');
-             } else {
-                 push(@allroles,'cc');
-             }
          } else {
-             push(@allroles,('ta','ep','in'));
+             push(@allroles,'cc');
-             if ($crstype eq 'Community') {
+         }
-                 push(@allroles,'co');
+         if ($custom) {
-             } else {
+             push(@allroles,'cr');
-                 push(@allroles,'cc');
-             }
-             if ($custom) {
-                 push(@allroles,'cr');
-             }
          }
      } elsif ($context eq 'author') {
          @allroles = ('ca','aa');
      } elsif ($context eq 'domain') {
-         @allroles = ('li','ad','dg','sc','au','dc');
+         @allroles = ('li','ad','dg','dh','da','sc','au','dc');
      }
      return @allroles;
  }
- Line 5474  sub get_permission {
+ Line 6051  sub get_permission {
          if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
              $permission{'grp_manage'} = 1;
          }
+         if ($permission{'cusr'}) {
+             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+             my %coursehash = (
+                 'internal.selfenrollmgrdc' => $env{'course.'.$env{'request.course.id'}.'.internal.selfenrollmgrdc'},
+                 'internal.selfenrollmgrcc' => $env{'course.'.$env{'request.course.id'}.'.internal.selfenrollmgrcc'},
+                 'internal.coursecode'      => $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'},
+                 'internal.textbook'        =>$env{'course.'.$env{'request.course.id'}.'.internal.textbook'},
+             );
+             my ($managed_by_cc,$managed_by_dc) = &selfenrollment_administration($cdom,$cnum,$crstype,\%coursehash);
+             if (ref($managed_by_cc) eq 'ARRAY') {
+                 if (@{$managed_by_cc}) {
+                     $permission{'selfenrolladmin'} = 1;
+                 }
+             }
+         }
+         if ($env{'request.course.id'}) {
+             my $user;
+             if (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')) {
+                 $user = $env{'user.name'}.':'.$env{'user.domain'};
+             }
+             if (($user ne '') && ($env{'course.'.$env{'request.course.id'}.'.internal.courseowner'} eq
+                                   $user)) {
+                 $permission{'owner'} = 1;
+                 if (&Apache::lonnet::allowed('mip',$env{'request.course.id'})) {
+                     $permission{'mip'} = 1;
+                 }
+             } elsif (($user ne '') && ($env{'course.'.$env{'request.course.id'}.'.internal.co-owners'} ne '')) {
+                 if (grep(/^\Q$user\E$/,split(/,/,$env{'course.'.$env{'request.course.id'}.'.internal.co-owners'}))) {
+                     $permission{'co-owner'} = 1;
+                 }
+             }
+         }
      } elsif ($context eq 'author') {
          $permission{'cusr'} = &authorpriv($env{'user.name'},$env{'request.role.domain'});
          $permission{'view'} = $permission{'cusr'};
- Line 5493  sub get_permission {
+ Line 6103  sub get_permission {
          if (&Apache::lonnet::allowed('ccr',$env{'request.role.domain'})) {
              $permission{'custom'} = 1;
          }
-         $permission{'view'} = $permission{'cusr'};
+         if (&Apache::lonnet::allowed('vac',$env{'request.role.domain'})) {
+             $permission{'activity'} = 1;
+         }
+         if (&Apache::lonnet::allowed('vur',$env{'request.role.domain'})) {
+             $permission{'view'} = 1;
+         }
+         if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
+             $permission{'owner'} = 1;
+         }
      }
      my $allowed = 0;
      foreach my $perm (values(%permission)) {
- Line 5546  sub get_course_identity {
+ Line 6164  sub get_course_identity {
  }
  sub dc_setcourse_js {
-     my ($formname,$mode,$context) = @_;
+     my ($formname,$mode,$context,$showcredits,$domain) = @_;
      my ($dc_setcourse_code,$authen_check);
      my $cctext = &Apache::lonnet::plaintext('cc');
      my $cotext = &Apache::lonnet::plaintext('co');
- Line 5555  sub dc_setcourse_js {
+ Line 6173  sub dc_setcourse_js {
      if ($mode eq 'upload') {
          $role = 'courserole';
      } else {
-         $authen_check = &verify_authen($formname,$context);
+         $authen_check = &verify_authen($formname,$context,$domain);
      }
      $dc_setcourse_code = (<<"SCRIPTTOP");
  $authen_check
- Line 5632  function setCourse() {
+ Line 6250  function setCourse() {
          }
  SCRIPTTOP
      if ($mode ne 'upload') {
-         $dc_setcourse_code .= (<<"ENDSCRIPT");
+         $dc_setcourse_code .= (<<"SCRIPTMID");
          var coursename = "_$env{'request.role.domain'}"+"_"+course+"_"+userrole
          var numcourse = getIndex(document.$formname.dccourse);
          if (numcourse == "-1") {
- Line 5658  SCRIPTTOP
+ Line 6276  SCRIPTTOP
              if (numend != "-1") {
                  document.$formname.elements[numend].name = "end"+coursename
              }
+ SCRIPTMID
+         if ($showcredits) {
+             $dc_setcourse_code .= <<ENDCRED;
+             var numcredits = getIndex(document.$formname.credits);
+             if (numcredits != "-1") {
+                 document.$formname.elements[numcredits].name = "credits"+coursename;
+             }
+ ENDCRED
+         }
+         $dc_setcourse_code .= <<ENDSCRIPT;
          }
      }
      var authcheck = auth_check();
- Line 5689  ENDSCRIPT
+ Line 6317  ENDSCRIPT
  }
  sub verify_authen {
-     my ($formname,$context) = @_;
+     my ($formname,$context,$domain) = @_;
      my %alerts = &authcheck_alerts();
      my $finish = "return 'ok';";
      if ($context eq 'author') {
          $finish = "document.$formname.submit();";
      }
+     my ($numrules,$intargjs) =
+         &Apache::loncommon::passwd_validation_js('argpicked',$domain);
      my $outcome = <<"ENDSCRIPT";
  function auth_check() {
- Line 5728  function auth_check() {
+ Line 6358  function auth_check() {
                  break;
              case 'int':
                  alertmsg = '$alerts{'ipass'}';
+                 break;
              case 'fsys':
                  alertmsg = '$alerts{'ipass'}';
                  break;
- Line 5741  function auth_check() {
+ Line 6372  function auth_check() {
              alert(alertmsg);
              return;
          }
+     } else if (logintype == 'int') {
+         var numrules = $numrules;
+         if (numrules > 0) {
+ $intargjs
+         }
      }
      $finish
  }
- Line 5766  sub sectioncheck_alerts {
+ Line 6402  sub sectioncheck_alerts {
                      thwa => 'There was a problem with your course selection',
                      thwc => 'There was a problem with your community selection',
                   );
+     &js_escape(\%alerts);
      return %alerts;
  }
- Line 5776  sub authcheck_alerts {
+ Line 6413  sub authcheck_alerts {
                      krb    => 'You need to specify the Kerberos domain.',
                      ipass  => 'You need to specify the initial password.',
          );
+     &js_escape(\%alerts);
      return %alerts;
  }
+ sub is_courseowner {
+     my ($thiscourse,$courseowner) = @_;
+     if ($courseowner eq '') {
+         if ($env{'request.course.id'} eq $thiscourse) {
+             $courseowner = $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'};
+         }
+     }
+     if ($courseowner ne '') {
+         if ($courseowner eq $env{'user.name'}.':'.$env{'user.domain'}) {
+             return 1;
+         }
+     }
+     return;
+ }
+ sub get_selfenroll_titles {
+     my @row = ('types','registered','enroll_dates','access_dates','section',
+                'approval','limit');
+     my %lt = &Apache::lonlocal::texthash (
+                 types        => 'Users allowed to self-enroll',
+                 registered   => 'Registration status (official courses)' ,
+                 enroll_dates => 'Dates self-enrollment available',
+                 access_dates => 'Access dates for self-enrolling users',
+                 section      => "Self-enrolling users' section",
+                 approval     => 'Processing of requests',
+                 limit        => 'Enrollment limit',
+              );
+     return (\@row,\%lt);
+ }
+ sub selfenroll_default_descs {
+     my %desc = (
+                  types => {
+                             dom => &mt('Course domain'),
+                             all => &mt('Any domain'),
+                             ''  => &mt('None'),
+                           },
+                  limit => {
+                             none         => &mt('No limit'),
+                             allstudents  => &mt('Limit by total students'),
+                             selfenrolled => &mt('Limit by total self-enrolled'),
+                           },
+                  approval => {
+                                 '0' => &mt('Processed automatically'),
+                                 '1' => &mt('Queued for approval'),
+                                 '2' => &mt('Queued, pending validation'),
+                              },
+                  registered => {
+=> 'No registration required',
+=> 'Registered students only',
+                                },
+                );
+     return %desc;
+ }
+ sub selfenroll_validation_types {
+     my @items = ('url','fields','button','markup');
+     my %names =  &Apache::lonlocal::texthash (
+             url      => 'Web address of validation server/script',
+             fields   => 'Form fields to send to validator',
+             button   => 'Text for validation button',
+             markup   => 'Validation description (HTML)',
+     );
+     my @fields = ('username','domain','uniquecode','course','coursetype','description');
+     return (\@items,\%names,\@fields);
+ }
+ sub get_extended_type {
+     my ($cdom,$cnum,$crstype,$current) = @_;
+     my $type = 'unofficial';
+     my %settings;
+     if (ref($current) eq 'HASH') {
+         %settings = %{$current};
+     } else {
+         %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.textbook'],$cdom,$cnum);
+     }
+     if ($crstype eq 'Community') {
+         $type = 'community';
+     } elsif ($crstype eq 'Placement') {
+         $type = 'placement';
+     } elsif ($settings{'internal.coursecode'}) {
+         $type = 'official';
+     } elsif ($settings{'internal.textbook'}) {
+         $type = 'textbook';
+     }
+     return $type;
+ }
+ sub selfenrollment_administration {
+     my ($cdom,$cnum,$crstype,$coursehash) = @_;
+     my %settings;
+     if (ref($coursehash) eq 'HASH') {
+         %settings = %{$coursehash};
+     } else {
+         %settings = &Apache::lonnet::get('environment',
+                         ['internal.selfenrollmgrdc','internal.selfenrollmgrcc',
+                          'internal.coursecode','internal.textbook'],$cdom,$cnum);
+     }
+     my ($possconfigs) = &get_selfenroll_titles();
+     my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
+     my $selfenrolltype = &get_extended_type($cdom,$cnum,$crstype,\%settings);
+     my (@in_course,@in_domain);
+     if ($settings{'internal.selfenrollmgrcc'} ne '') {
+         @in_course = split(/,/,$settings{'internal.selfenrollmgrcc'});
+         my @diffs = &Apache::loncommon::compare_arrays($possconfigs,\@in_course);
+         unless (@diffs) {
+             return (\@in_course,\@in_domain);
+         }
+     }
+     if ($settings{'internal.selfenrollmgrdc'} ne '') {
+         my @in_domain = split(/,/,$settings{'internal.selfenrollmgrdc'});
+         my @diffs = &Apache::loncommon::compare_arrays(\@in_domain,$possconfigs);
+         unless (@diffs) {
+             return (\@in_course,\@in_domain);
+         }
+     }
+     my @combined = @in_course;
+     push(@combined,@in_domain);
+     my @diffs = &Apache::loncommon::compare_arrays(\@combined,$possconfigs);
+     unless (@diffs) {
+         return (\@in_course,\@in_domain);
+     }
+     if ($domdefaults{$selfenrolltype.'selfenrolladmdc'} eq '') {
+         push(@in_course,@diffs);
+     } else {
+         my @defaultdc = split(/,/,$domdefaults{$selfenrolltype.'selfenrolladmdc'});
+         foreach my $item (@diffs) {
+             if (grep(/^\Q$item\E$/,@defaultdc)) {
+                 push(@in_domain,$item);
+             } else {
+                 push(@in_course,$item);
+             }
+         }
+     }
+     return (\@in_course,\@in_domain);
+ }
+ sub custom_role_header {
+     my ($context,$crstype,$templaterolerefs,$prefix) = @_;
+     my %lt = &Apache::lonlocal::texthash(
+                  sele => 'Select a Template',
+     );
+     my ($context_code,$button_code);
+     if ($context eq 'domain') {
+         $context_code = &custom_coursetype_switch($crstype,$prefix);
+     }
+     if (ref($templaterolerefs) eq 'ARRAY') {
+         foreach my $role (@{$templaterolerefs}) {
+             my $display = 'inline';
+             if (($context eq 'domain') && ($role eq 'co')) {
+                 $display = 'none';
+             }
+             $button_code .= &make_button_code($role,$crstype,$display,$prefix).' ';
+         }
+     }
+     return <<"END";
+ <div class="LC_left_float">
+ <fieldset>
+ <legend>$lt{'sele'}</legend>
+ $button_code
+ </fieldset></div>
+ $context_code
+ <br clear="all" />
+ END
+ }
+ sub custom_coursetype_switch {
+     my ($crstype,$prefix) = @_;
+     my ($checkedcourse,$checkedcommunity);
+     if ($crstype eq 'Community') {
+         $checkedcommunity = ' checked="checked"';
+     } else {
+         $checkedcourse = ' checked="checked"';
+     }
+     my %lt = &Apache::lonlocal::texthash(
+         cont => 'Context',
+         cour => 'Course',
+         comm => 'Community',
+     );
+     return <<"END";
+ <div class="LC_left_float">
+ <fieldset>
+ <legend>$lt{'cont'}</legend>
+ <label>
+ <input type="radio" name="${prefix}_custrolecrstype" value="Course"$checkedcourse onclick="javascript:customSwitchType('$prefix');" />
+ $lt{'cour'}
+ </label>&nbsp;&nbsp;
+ <label>
+ <input type="radio" name="${prefix}_custrolecrstype" value="Community"$checkedcommunity onclick="javascript:customSwitchType('$prefix');" />
+ $lt{'comm'}
+ </label>
+ </fieldset>
+ </div>
+ END
+ }
+ sub custom_role_table {
+     my ($crstype,$full,$levels,$levelscurrent,$prefix,$add_class,$id) = @_;
+     return unless ((ref($full) eq 'HASH') && (ref($levels) eq 'HASH') &&
+                    (ref($levelscurrent) eq 'HASH'));
+     my %lt=&Apache::lonlocal::texthash (
+                     'prv'  => "Privilege",
+                     'crl'  => "Course Level",
+                     'dml'  => "Domain Level",
+                     'ssl'  => "System Level");
+     my %cr = (
+                course => '_c',
+                domain => '_d',
+                system => '_s',
+              );
+     my $output=&Apache::loncommon::start_data_table($add_class,$id).
+                &Apache::loncommon::start_data_table_header_row().
+                '<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.
+                '</th><th>'.$lt{'ssl'}.'</th>'.
+                &Apache::loncommon::end_data_table_header_row();
+     foreach my $priv (sort(keys(%{$full}))) {
+         my $privtext = &Apache::lonnet::plaintext($priv,$crstype);
+         $output .= &Apache::loncommon::start_data_table_row().
+                   '<td><span id="'.$prefix.$priv.'">'.$privtext.'</span></td>';
+         foreach my $type ('course','domain','system') {
+             if (($type eq 'system') && ($priv eq 'bre') && ($crstype eq 'Community')) {
+                 $output .= '<td>&nbsp;</td>';
+             } else {
+                 $output .= '<td>'.
+                   ($levels->{$type}{$priv}?'<input type="checkbox" id="'.$prefix.$priv.$cr{$type}.'"'.
+                   ' name="'.$prefix.$priv.$cr{$type}.'"'.
+                   ($levelscurrent->{$type}{$priv}?' checked="checked"':'').' />':'&nbsp;').
+                   '</td>';
+             }
+         }
+         $output .= &Apache::loncommon::end_data_table_row();
+     }
+     $output .= &Apache::loncommon::end_data_table();
+     return $output;
+ }
+ sub custom_role_privs {
+     my ($privs,$full,$levels,$levelscurrent)= @_;
+     return unless ((ref($privs) eq 'HASH') && (ref($full) eq 'HASH') &&
+                    (ref($levels) eq 'HASH') && (ref($levelscurrent) eq 'HASH'));
+     my %cr = (
+                course => 'cr:c',
+                domain => 'cr:d',
+                system => 'cr:s',
+              );
+     foreach my $type ('course','domain','system') {
+         foreach my $item (split(/\:/,$Apache::lonnet::pr{$cr{$type}})) {
+             my ($priv,$restrict)=split(/\&/,$item);
+             if (!$restrict) { $restrict='F'; }
+             $levels->{$type}->{$priv}=$restrict;
+             if ($privs->{$type}=~/\:$priv/) {
+                 $levelscurrent->{$type}->{$priv}=1;
+             }
+             $full->{$priv}=1;
+         }
+     }
+     return;
+ }
+ sub custom_template_roles {
+     my ($context,$crstype) = @_;
+     my @template_roles = ("in","ta","ep");
+     if (($context eq 'domain') || ($context eq 'domprefs')) {
+         push(@template_roles,"ad");
+     }
+     push(@template_roles,"st");
+     if ($context eq 'domain') {
+         unshift(@template_roles,('co','cc'));
+     } else {
+         if ($crstype eq 'Community') {
+             unshift(@template_roles,'co');
+         } else {
+             unshift(@template_roles,'cc');
+         }
+     }
+     return @template_roles;
+ }
+ sub custom_roledefs_js {
+     my ($context,$crstype,$formname,$full,$templaterolesref,$jsback) = @_;
+     my $button_code = "\n";
+     my $head_script = "\n";
+     my (%roletitlestr,$rolenamestr);
+     my %role_titles = (
+                         Course    => [],
+                         Community => [],
+                       );
+     $head_script .= '<script type="text/javascript">'."\n"
+                    .'// <![CDATA['."\n";
+     if (ref($templaterolesref) eq 'ARRAY') {
+         if ($context eq 'domain') {
+             $rolenamestr = join("','",@{$templaterolesref});
+         }
+         foreach my $role (@{$templaterolesref}) {
+             $head_script .= &make_script_template($role,$crstype,$formname);
+             if ($context eq 'domain') {
+                 foreach my $type ('Course','Community') {
+                     push(@{$role_titles{$type}},&Apache::lonnet::plaintext($role,$type));
+                 }
+             }
+         }
+     }
+     if ($context eq 'domain') {
+         foreach my $type ('Course','Community') {
+             $roletitlestr{$type} = join("','",@{$role_titles{$type}});
+         }
+         my %pt = (
+             Community => {
+                            cst => &mt('Grant/revoke role of Member'),
+                            mdc => &mt('Edit community contents'),
+                            pch => &mt('Post discussion on community resources'),
+                            pfo => &mt('Print for other users and entire community'),
+                          },
+             Course    => {
+                            cst => &mt('Grant/revoke role of Student'),
+                            mdc => &mt('Edit course contents'),
+                            pch => &mt('Post discussion on course resources'),
+                            pfo => &mt('Print for other users and entire course'),
+                          },
+         );
+         $head_script .= <<"ENDJS";
+ function customSwitchType(prefix) {
+     var privnames = new Array('cst','mdc','pch','pfo');
+     var privtxtcrs = new Array('$pt{Course}{cst}','$pt{Course}{mdc}','$pt{Course}{pch}','$pt{Course}{pfo}');
+     var privtxtcom = new Array('$pt{Community}{cst}','$pt{Community}{mdc}','$pt{Community}{pch}','$pt{Community}{pfo}');
+     var rolenames = new Array('$rolenamestr');
+     var rolescrs = new Array('$roletitlestr{Course}');
+     var rolescom = new Array('$roletitlestr{Community}');
+     var radio = prefix+'_custrolecrstype';
+     if (document.$formname.elements[radio].length > 1) {
+         for (var i=0; i<document.$formname.elements[radio].length; i++) {
+             if (document.$formname.elements[radio][i].checked) {
+                 if ((document.getElementById(prefix+'bre_s')) && (document.getElementById(prefix+'bro_s'))) {
+                     if (document.$formname.elements[radio][i].value == 'Community') {
+                         if (document.getElementById(prefix+'bre_s').checked) {
+                             document.getElementById(prefix+'bro_s').checked = true;
+                             document.getElementById(prefix+'bre_s').checked = false;
+                         }
+                         document.getElementById(prefix+'bre_s').style.visibility = 'hidden';
+                     } else {
+                         document.getElementById(prefix+'bre_s').style.visibility = 'visible';
+                         if (document.getElementById(prefix+'bro_s').checked) {
+                             document.getElementById(prefix+'bre_s').checked = true;
+                             document.getElementById(prefix+'bro_s').checked = false;
+                         }
+                     }
+                 }
+                 for (var j=0; j<privnames.length; j++) {
+                     if (document.getElementById(prefix+privnames[j])) {
+                         if (document.getElementById(prefix+privnames[j])) {
+                             if (document.$formname.elements[radio][i].value == 'Course') {
+                                 document.getElementById(prefix+privnames[j]).innerHTML = privtxtcrs[j];
+                             } else {
+                                 document.getElementById(prefix+privnames[j]).innerHTML = privtxtcom[j];
+                             }
+                         }
+                     }
+                 }
+                 for (var j=0; j<rolenames.length; j++) {
+                     if (document.getElementById(prefix+rolenames[j])) {
+                         if (document.getElementById(prefix+rolenames[j])) {
+                             if (document.$formname.elements[radio][i].value == 'Course') {
+                                 document.getElementById(prefix+rolenames[j]).value = rolescrs[j];
+                                 if (rolenames[j] == 'cc') {
+                                     document.getElementById(prefix+rolenames[j]).style.display = 'inline';
+                                 }
+                                 if (rolenames[j] == 'co') {
+                                     document.getElementById(prefix+rolenames[j]).style.display = 'none';
+                                 }
+                             } else {
+                                 document.getElementById(prefix+rolenames[j]).value = rolescom[j];
+                                 if (rolenames[j] == 'cc') {
+                                     document.getElementById(prefix+rolenames[j]).style.display = 'none';
+                                 }
+                                 if (rolenames[j] == 'co') {
+                                     document.getElementById(prefix+rolenames[j]).style.display = 'inline';
+                                 }
+                             }
+                         }
+                     }
+                 }
+             }
+         }
+     }
+     return;
+ }
+ ENDJS
+     }
+     $head_script .= "\n".$jsback."\n"
+                    .'// ]]>'."\n"
+                    .'</script>'."\n";
+     return $head_script;
+ }
+ # --------------------------------------------------------
+ sub make_script_template {
+     my ($role,$crstype,$formname) = @_;
+     my $return_script = 'function set_'.$role.'(prefix) {'."\n";
+     my (%full_by_level,%role_priv);
+     foreach my $level ('c','d','s') {
+         foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:'.$level})) {
+             next if (($level eq 's') && ($crstype eq 'Community') && ($item eq 'bre&S'));
+             my ($priv,$restrict)=split(/\&/,$item);
+             $full_by_level{$level}{$priv}=1;
+         }
+         $role_priv{$level} = {};
+         my @temp = split(/:/,$Apache::lonnet::pr{$role.':'.$level});
+         foreach my $priv (@temp) {
+             my ($priv_item, $dummy) = split(/\&/,$priv);
+             $role_priv{$level}{$priv_item} = 1;
+         }
+     }
+     my %to_check = (
+                       c => ['c','d','s'],
+                       d => ['d','s'],
+                       s => ['s'],
+                    );
+     foreach my $level ('c','d','s') {
+         if (ref($full_by_level{$level}) eq 'HASH') {
+             foreach my $priv (keys(%{$full_by_level{$level}})) {
+                 my $value = 'false';
+                 if (ref($to_check{$level}) eq 'ARRAY') {
+                     foreach my $lett (@{$to_check{$level}}) {
+                         if (exists($role_priv{$lett}{$priv})) {
+                             $value = 'true';
+                             last;
+                         }
+                     }
+                     $return_script .= "document.$formname.elements[prefix+'".$priv."_".$level."'].checked = $value;\n";
+                 }
+             }
+         }
+     }
+     $return_script .= '}'."\n";
+     return ($return_script);
+ }
+ # ----------------------------------------------------------
+ sub make_button_code {
+     my ($role,$crstype,$display,$prefix) = @_;
+     my $label = &Apache::lonnet::plaintext($role,$crstype);
+     my $button_code = '<input type="button" onclick="set_'.$role."('$prefix'".')" '.
+                       'id="'.$prefix.$role.'" value="'.$label.'" '.
+                       'style="display:'.$display.'" />';
+     return ($button_code);
+ }
+ sub custom_role_update {
+     my ($rolename,$prefix) = @_;
+ # ------------------------------------------------------- What can be assigned?
+     my %privs = (
+                       c => '',
+                       d => '',
+                       s => '',
+                     );
+     foreach my $level (keys(%privs)) {
+         foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:'.$level})) {
+             my ($priv,$restrict)=split(/\&/,$item);
+             if (!$restrict) { $restrict=''; }
+             if ($env{'form.'.$prefix.$priv.'_'.$level}) {
+                 $privs{$level} .=':'.$item;
+             }
+         }
+     }
+     return %privs;
+ }
+ sub adhoc_status_types {
+     my ($cdom,$context,$role,$selectedref,$othertitle,$usertypes,$types,$disabled) = @_;
+     my $output = &Apache::loncommon::start_data_table();
+     my $numinrow = 3;
+     my $rem;
+     if (ref($types) eq 'ARRAY') {
+         for (my $i=0; $i<@{$types}; $i++) {
+             if (defined($usertypes->{$types->[$i]})) {
+                 my $rem = $i%($numinrow);
+                 if ($rem == 0) {
+                     if ($i > 0) {
+                         $output .= &Apache::loncommon::end_data_table_row();
+                     }
+                     $output .= &Apache::loncommon::start_data_table_row();
+                 }
+                 my $check;
+                 if (ref($selectedref) eq 'ARRAY') {
+                     if (grep(/^\Q$types->[$i]\E$/,@{$selectedref})) {
+                         $check = ' checked="checked"';
+                     }
+                 }
+                 $output .= '<td>'.
+                            '<span class="LC_nobreak"><label>'.
+                            '<input type="checkbox" name="'.$context.$role.'_status" '.
+                            'value="'.$types->[$i].'"'.$check.$disabled.' />'.
+                            $usertypes->{$types->[$i]}.'</label></span></td>';
+             }
+         }
+         $rem = @{$types}%($numinrow);
+     }
+     my $colsleft = $numinrow - $rem;
+     if (($rem == 0) && (@{$types} > 0)) {
+         $output .= &Apache::loncommon::start_data_table_row();
+     }
+     if ($colsleft > 1) {
+         $output .= '<td colspan="'.$colsleft.'">';
+     } else {
+         $output .= '<td>';
+     }
+     my $defcheck;
+     if (ref($selectedref) eq 'ARRAY') {
+         if (grep(/^default$/,@{$selectedref})) {
+             $defcheck = ' checked="checked"';
+         }
+     }
+     $output .= '<span class="LC_nobreak"><label>'.
+                '<input type="checkbox" name="'.$context.$role.'_status"'.
+                'value="default"'.$defcheck.$disabled.' />'.
+                $othertitle.'</label></span></td>'.
+                &Apache::loncommon::end_data_table_row().
+                &Apache::loncommon::end_data_table();
+     return $output;
+ }
+ sub adhoc_staff {
+     my ($access,$context,$role,$selectedref,$adhocref,$disabled) = @_;
+     my $output;
+     if (ref($adhocref) eq 'HASH') {
+         my %by_fullname;
+         my $numinrow = 4;
+         my $rem;
+         my @personnel = keys(%{$adhocref});
+         if (@personnel) {
+             foreach my $person (@personnel) {
+                 my ($uname,$udom) = split(/:/,$person);
+                 my $fullname = &Apache::loncommon::plainname($uname,$udom,'lastname');
+                 $by_fullname{$fullname} = $person;
+             }
+             my @sorted = sort(keys(%by_fullname));
+             my $count = scalar(@sorted);
+             $output = &Apache::loncommon::start_data_table();
+             for (my $i=0; $i<$count; $i++) {
+                 my $rem = $i%($numinrow);
+                 if ($rem == 0) {
+                     if ($i > 0) {
+                         $output .= &Apache::loncommon::end_data_table_row();
+                     }
+                     $output .= &Apache::loncommon::start_data_table_row();
+                 }
+                 my $check;
+                 my $user = $by_fullname{$sorted[$i]};
+                 if (ref($selectedref) eq 'ARRAY') {
+                     if (grep(/^\Q$user\E$/,@{$selectedref})) {
+                         $check = ' checked="checked"';
+                     }
+                 }
+                 if ($i == $count-1) {
+                     my $colsleft = $numinrow - $rem;
+                     if ($colsleft > 1) {
+                         $output .= '<td colspan="'.$colsleft.'">';
+                     } else {
+                         $output .= '<td>';
+                     }
+                 } else {
+                     $output .= '<td>';
+                 }
+                 $output .= '<span class="LC_nobreak"><label>'.
+                            '<input type="checkbox" name="'.$context.$role.'_staff_'.$access.'" '.
+                            'value="'.$user.'"'.$check.$disabled.' />'.$sorted[$i].
+                            '</label></span></td>';
+                 if ($i == $count-1) {
+                     $output .= &Apache::loncommon::end_data_table_row();
+                 }
+             }
+             $output .= &Apache::loncommon::end_data_table();
+         }
+     }
+     return $output;
+ }
 ;

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.109.2.9
changed lines
	Added in v.1.184.4.10.2.1