Diff for /loncom/interface/lonuserutils.pm between versions 1.17 and 1.97.2.4

version 1.17, 2007/12/21 12:41:25 version 1.97.2.4, 2010/01/20 17:41:25
Line 42  use LONCAPA qw(:DEFAULT :match); Line 42  use LONCAPA qw(:DEFAULT :match);
 ###############################################################  ###############################################################
 # Drop student from all sections of a course, except optional $csec  # Drop student from all sections of a course, except optional $csec
 sub modifystudent {  sub modifystudent {
     my ($udom,$unam,$courseid,$csec,$desiredhost)=@_;      my ($udom,$unam,$courseid,$csec,$desiredhost,$context)=@_;
     # if $csec is undefined, drop the student from all the courses matching      # if $csec is undefined, drop the student from all the courses matching
     # this one.  If $csec is defined, drop them from all other sections of      # this one.  If $csec is defined, drop them from all other sections of
     # this course and add them to section $csec      # this course and add them to section $csec
Line 68  sub modifystudent { Line 68  sub modifystudent {
                     my $reply=&Apache::lonnet::modifystudent                      my $reply=&Apache::lonnet::modifystudent
                         # dom  name  id mode pass     f     m     l     g                          # dom  name  id mode pass     f     m     l     g
                         ($udom,$unam,'',  '',  '',undef,undef,undef,undef,                          ($udom,$unam,'',  '',  '',undef,undef,undef,undef,
                          $section,time,undef,undef,$desiredhost);                           $section,time,undef,undef,$desiredhost,'','manual',
                            '',$courseid,'',$context);
                     $result .= $reply.':';                      $result .= $reply.':';
                 }                  }
             }              }
         }          }
     }      }
     if ($result eq '') {      if ($result eq '') {
         $result = 'Unable to find section for this student';          $result = &mt('Unable to find section for this student');
     } else {      } else {
         $result =~ s/(ok:)+/ok/g;          $result =~ s/(ok:)+/ok/g;
     }      }
Line 85  sub modifystudent { Line 86  sub modifystudent {
 sub modifyuserrole {  sub modifyuserrole {
     my ($context,$setting,$changeauth,$cid,$udom,$uname,$uid,$umode,$upass,      my ($context,$setting,$changeauth,$cid,$udom,$uname,$uid,$umode,$upass,
         $first,$middle,$last,$gene,$sec,$forceid,$desiredhome,$email,$role,          $first,$middle,$last,$gene,$sec,$forceid,$desiredhome,$email,$role,
         $end,$start,$checkid) = @_;          $end,$start,$checkid,$inststatus) = @_;
     my ($scope,$userresult,$authresult,$roleresult,$idresult);      my ($scope,$userresult,$authresult,$roleresult,$idresult);
     if ($setting eq 'course' || $context eq 'course') {      if ($setting eq 'course' || $context eq 'course') {
         $scope = '/'.$cid;          $scope = '/'.$cid;
Line 123  sub modifyuserrole { Line 124  sub modifyuserrole {
     $userresult =      $userresult =
         &Apache::lonnet::modifyuser($udom,$uname,$uid,$umode,$upass,$first,          &Apache::lonnet::modifyuser($udom,$uname,$uid,$umode,$upass,$first,
                                     $middle,$last,$gene,$forceid,$desiredhome,                                      $middle,$last,$gene,$forceid,$desiredhome,
                                     $email,$role,$start,$end);                                      $email,$inststatus);
     if ($userresult eq 'ok') {      if ($userresult eq 'ok') {
         if ($role ne '') {          if ($role ne '') {
               $role =~ s/_/\//g;
             $roleresult = &Apache::lonnet::assignrole($udom,$uname,$scope,              $roleresult = &Apache::lonnet::assignrole($udom,$uname,$scope,
                                                       $role,$end,$start);                                                        $role,$end,$start,'',
                                                         '',$context);
         }          }
     }      }
     return ($userresult,$authresult,$roleresult,$idresult);      return ($userresult,$authresult,$roleresult,$idresult);
Line 145  sub propagate_id_change { Line 148  sub propagate_id_change {
                 one_time => 1,                  one_time => 1,
                );                 );
     foreach my $item (keys(%roleshash)) {      foreach my $item (keys(%roleshash)) {
         my ($cnum,$cdom,$role) = split(/:/,$item);          my ($cnum,$cdom,$role) = split(/:/,$item,-1);
         my ($start,$end) = split(/:/,$roleshash{$item});          my ($start,$end) = split(/:/,$roleshash{$item});
         if (&Apache::lonnet::is_course($cdom,$cnum)) {          if (&Apache::lonnet::is_course($cdom,$cnum)) {
             my $result = &update_classlist($cdom,$cnum,$udom,$uname,$user);              my $result = &update_classlist($cdom,$cnum,$udom,$uname,$user);
Line 166  sub propagate_id_change { Line 169  sub propagate_id_change {
 }  }
   
 sub update_classlist {  sub update_classlist {
     my ($cdom,$cnum,$udom,$uname,$user) = @_;      my ($cdom,$cnum,$udom,$uname,$user,$newend) = @_;
     my ($uid,$classlistentry);      my ($uid,$classlistentry);
     my $fullname =      my $fullname =
         &Apache::lonnet::format_name($user->{'firstname'},$user->{'middlename'},          &Apache::lonnet::format_name($user->{'firstname'},$user->{'middlename'},
Line 177  sub update_classlist { Line 180  sub update_classlist {
     my @classinfo = split(/:/,$classhash{$uname.':'.$udom});      my @classinfo = split(/:/,$classhash{$uname.':'.$udom});
     my $ididx=&Apache::loncoursedata::CL_ID() - 2;      my $ididx=&Apache::loncoursedata::CL_ID() - 2;
     my $nameidx=&Apache::loncoursedata::CL_FULLNAME() - 2;      my $nameidx=&Apache::loncoursedata::CL_FULLNAME() - 2;
       my $endidx = &Apache::loncoursedata::CL_END() - 2;
       my $startidx = &Apache::loncoursedata::CL_START() - 2;
     for (my $i=0; $i<@classinfo; $i++) {      for (my $i=0; $i<@classinfo; $i++) {
         if ($i == $ididx) {          if ($i == $endidx) {
               if ($newend ne '') {
                   $classlistentry .= $newend.':';
               } else {
                   $classlistentry .= $classinfo[$i].':';
               }
           } elsif ($i == $startidx) {
               if ($newend ne '') {
                   if ($classinfo[$i] > $newend) {
                       $classlistentry .= $newend.':';
                   } else {
                       $classlistentry .= $classinfo[$i].':';
                   }
               } else {
                   $classlistentry .= $classinfo[$i].':';
               }
           } elsif ($i == $ididx) {
             if (defined($user->{'id'})) {              if (defined($user->{'id'})) {
                 $classlistentry .= $user->{'id'}.':';                  $classlistentry .= $user->{'id'}.':';
             } else {              } else {
                 $classlistentry .= $classinfo[$i].':';                  $classlistentry .= $classinfo[$i].':';
             }              }
         } elsif ($i == $nameidx) {          } elsif ($i == $nameidx) {
             $classlistentry .= $fullname.':';              if (defined($user->{'lastname'})) {
                   $classlistentry .= $fullname.':';
               } else {
                   $classlistentry .= $classinfo[$i].':';
               }
         } else {          } else {
             $classlistentry .= $classinfo[$i].':';              $classlistentry .= $classinfo[$i].':';
         }          }
Line 210  sub domain_roles_select { Line 235  sub domain_roles_select {
     # domain context         # domain context   
     #      #
     # Role types      # Role types
     my @roletypes = ('domain','author','course');      my @roletypes = ('domain','author','course','community');
   
     my %lt = &role_type_names();      my %lt = &role_type_names();
     #      #
     # build up the menu information to be passed to      # build up the menu information to be passed to
Line 236  sub domain_roles_select { Line 262  sub domain_roles_select {
             @roles = &construction_space_roles();              @roles = &construction_space_roles();
         } else {          } else {
             my $custom = 1;              my $custom = 1;
             @roles = &course_roles('domain',undef,$custom);              @roles = &course_roles('domain',undef,$custom,$roletype);
         }          }
         my $order = ['Any',@roles];          my $order = ['Any',@roles];
         $select_menus{$roletype}->{'order'} = $order;           $select_menus{$roletype}->{'order'} = $order; 
Line 253  sub domain_roles_select { Line 279  sub domain_roles_select {
     }      }
     my $result = &Apache::loncommon::linked_select_forms      my $result = &Apache::loncommon::linked_select_forms
         ('studentform',('&nbsp;'x3).&mt('Role: '),$env{'form.roletype'},          ('studentform',('&nbsp;'x3).&mt('Role: '),$env{'form.roletype'},
          'roletype','showrole',\%select_menus,['domain','author','course']);           'roletype','showrole',\%select_menus,
            ['domain','author','course','community']);
     return $result;      return $result;
 }  }
   
Line 265  sub hidden_input { Line 292  sub hidden_input {
 }  }
   
 sub print_upload_manager_header {  sub print_upload_manager_header {
     my ($r,$datatoken,$distotal,$krbdefdom,$context)=@_;      my ($r,$datatoken,$distotal,$krbdefdom,$context,$permission)=@_;
     my $javascript;      my $javascript;
     #      #
     if (! exists($env{'form.upfile_associate'})) {      if (! exists($env{'form.upfile_associate'})) {
Line 295  sub print_upload_manager_header { Line 322  sub print_upload_manager_header {
         $password_choice = 'int';          $password_choice = 'int';
     }      }
     #      #
       my $groupslist;
       if ($context eq 'course') {
           $groupslist = &get_groupslist();
       }
     my $javascript_validations =      my $javascript_validations =
         &javascript_validations('auth',$krbdefdom,$password_choice,undef,          &javascript_validations('upload',$krbdefdom,$password_choice,undef,
                                 $env{'request.role.domain'});                                  $env{'request.role.domain'},$context,
     my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':'');                                  $groupslist);
     $r->print(&mt('Total number of records found in file: <b>[_1]</b>.',$distotal).      my $checked=(($env{'form.noFirstLine'})?' checked="checked"':'');
               "<br />\n");      $r->print('<p>'
                .&mt('Total number of records found in file: [_1]'
                    ,'<b>'.$distotal.'</b>')
                ."</p>\n");
     $r->print('<div class="LC_left_float"><h3>'.      $r->print('<div class="LC_left_float"><h3>'.
               &mt('Identify fields in uploaded list')."</h3>\n");                &mt('Identify fields in uploaded list')."</h3>\n");
     $r->print(&mt('Enter as many fields as you can.<br /> The system will inform you and bring you back to this page, <br /> if the data selected are insufficient to add users.')."<br />\n");      $r->print(&mt('Enter as many fields as you can.<br /> The system will inform you and bring you back to this page, <br /> if the data selected are insufficient to add users.')."<br />\n");
Line 311  sub print_upload_manager_header { Line 345  sub print_upload_manager_header {
               &hidden_input('fileupload',$env{'form.fileupload'}).                &hidden_input('fileupload',$env{'form.fileupload'}).
               &hidden_input('upfiletype',$env{'form.upfiletype'}).                &hidden_input('upfiletype',$env{'form.upfiletype'}).
               &hidden_input('upfile_associate',$env{'form.upfile_associate'}));                &hidden_input('upfile_associate',$env{'form.upfile_associate'}));
     $r->print('<br /><input type="button" value="Reverse Association" '.      $r->print('<br /><label><input type="checkbox" name="noFirstLine"'.$checked.' />'.
               'name="'.&mt('Reverse Association').'" '.                &mt('Ignore First Line').'</label><br />');
               'onClick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');      $r->print('<br /><input type="button" value="'.&mt('Reverse Association').'" '.
     $r->print('<label><input type="checkbox" name="noFirstLine"'.$checked.'/>'.                'name="Reverse Association" '.
               &mt('Ignore First Line').'</label>');                'onclick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');
     $r->print("<br /><br />\n".      $r->print("<br /><br />\n".
               '<script type="text/javascript" language="Javascript">'."\n".                '<script type="text/javascript" language="Javascript">'."\n".
               $javascript."\n".$javascript_validations.'</script>');                '// <![CDATA['."\n".
                 $javascript."\n".$javascript_validations."\n".
                 '// ]]>'."\n".
                 '</script>');
 }  }
   
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub javascript_validations {  sub javascript_validations {
     my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain)=@_;      my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain,
     my $authheader;          $context,$groupslist)=@_;
     if ($mode eq 'auth') {      my %param = (
         my %param = ( formname => 'studentform',  
                       kerb_def_dom => $krbdefdom,  
                       curr_authtype => $curr_authtype);  
         $authheader = &Apache::loncommon::authform_header(%param);  
     } elsif ($mode eq 'createcourse') {  
         my %param = ( formname => 'ccrs',  
                       kerb_def_dom => $krbdefdom,  
                       curr_authtype => $curr_authtype );  
         $authheader = &Apache::loncommon::authform_header(%param);  
     } elsif ($mode eq 'modifycourse') {  
         my %param = ( formname => 'cmod',  
                   kerb_def_dom => $krbdefdom,                    kerb_def_dom => $krbdefdom,
                   mode => 'modifycourse',  
                   curr_authtype => $curr_authtype,                    curr_authtype => $curr_authtype,
                   curr_autharg => $curr_authfield );                  );
         $authheader = &Apache::loncommon::authform_header(%param);      if ($mode eq 'upload') {
           $param{'formname'} = 'studentform';
       } elsif ($mode eq 'createcourse') {
           $param{'formname'} = 'ccrs';
       } elsif ($mode eq 'modifycourse') {
           $param{'formname'} = 'cmod';
           $param{'mode'} = 'modifycourse',
           $param{'curr_autharg'} = $curr_authfield;
     }      }
   
       my ($setsection_call,$setsections_js);
       my $finish = "  vf.submit();\n";
       if ($mode eq 'upload') {
           if (($context eq 'course') || ($context eq 'domain')) {
               if ($context eq 'course') {
                   if ($env{'request.course.sec'} eq '') {
                       $setsection_call = 'setSections(document.'.$param{'formname'}.');';
                       $setsections_js =
                           &setsections_javascript($param{'formname'},$groupslist,
                                                   $mode);
                   } else {
                       $setsection_call = "'ok'";
                   }
               } elsif ($context eq 'domain') {
                   $setsection_call = 'setCourse()';
                   $setsections_js = &dc_setcourse_js($param{'formname'},$mode,$context);
               }
               $finish = "  var checkSec = $setsection_call\n".
                         "  if (checkSec == 'ok') {\n".
                         "      vf.submit();\n".
                         "   }\n";
           }
       }
       my $authheader = &Apache::loncommon::authform_header(%param);
   
     my %alert = &Apache::lonlocal::texthash      my %alert = &Apache::lonlocal::texthash
         (username => 'You need to specify the username field.',          (username => 'You need to specify the username field.',
          authen   => 'You must choose an authentication type.',           authen   => 'You must choose an authentication type.',
          krb      => 'You need to specify the Kerberos domain.',           krb      => 'You need to specify the Kerberos domain.',
          ipass    => 'You need to specify the initial password.',           ipass    => 'You need to specify the initial password.',
          name     => 'The optional name field was not specified.',           name     => 'The optional name field was not specified.',
          snum     => 'The optional ID number field was not specified.',           snum     => 'The optional student/employee ID field was not specified.',
          section  => 'The optional section field was not specified.',           section  => 'The optional section field was not specified.',
          email    => 'The optional email address field was not specified.',           email    => 'The optional e-mail address field was not specified.',
          role     => 'The optional role field was not specified.',           role     => 'The optional role field was not specified.',
            domain   => 'The optional domain field was not specified.',
          continue => 'Continue adding users?',           continue => 'Continue adding users?',
          );           );
       if (($mode eq 'upload') && ($context eq 'domain')) {
           $alert{'inststatus'} = &mt('The optional affiliation field was not specified'); 
       }
       my $function_name = <<"END";
   $setsections_js
   
 #    my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();  function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus) {
     my $function_name =(<<END);  
 function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) {  
 END  END
     my ($authnum,%can_assign) =  &Apache::loncommon::get_assignable_auth($domain);      my ($authnum,%can_assign) =  &Apache::loncommon::get_assignable_auth($domain);
     my $auth_checks;      my $auth_checks;
Line 423  END Line 484  END
     foundatype=1;      foundatype=1;
     if (current.argfield == null || current.argfield == '') {      if (current.argfield == null || current.argfield == '') {
         var alertmsg = '';          var alertmsg = '';
         switch (current.value) {          switch (current.radiovalue) {
             case 'krb':              case 'krb':
                 alertmsg = '$alert{'krb'}';                  alertmsg = '$alert{'krb'}';
                 break;                  break;
Line 475  END Line 536  END
         }          }
         message+='$alert{'email'}';          message+='$alert{'email'}';
     }      }
       if (foundrole==0) {
           if (message!='') {
               message+='\\n';
           }
           message+='$alert{'role'}';
       }
       if (founddomain==0) {
           if (message!='') {
               message+='\\n';
           }
           message+='$alert{'domain'}';
       }
   END
           if (($mode eq 'upload') && ($context eq 'domain')) {
               $optional_checks .= (<<END);
   
       if (foundinststatus==0) {
           if (message!='') {
               message+='\\n';
           }
           message+='$alert{'inststatus'}';
       }
   END
           }
           $optional_checks .= (<<END);
   
     if (message!='') {      if (message!='') {
         message+= '\\n$alert{'continue'}';          message+= '\\n$alert{'continue'}';
         if (confirm(message)) {          if (confirm(message)) {
             vf.state.value='enrolling';              vf.state.value='enrolling';
             vf.submit();              $finish
         }          }
     } else {      } else {
         vf.state.value='enrolling';          vf.state.value='enrolling';
         vf.submit();          $finish
     }      }
 }  }
 END  END
     }      }
     my $result = $function_name;      my $result = $function_name.$auth_checks.$optional_checks."\n".
     if ( ($mode eq 'auth') || ($mode eq 'createcourse') || ($mode eq 'modifycourse')  ) {                   $section_checks.$authheader;
         $result .= $auth_checks;  
     }  
     $result .= $optional_checks."\n".$section_checks;  
     if ( ($mode eq 'auth') || ($mode eq 'createcourse') || ($mode eq 'modifycourse')  ) {  
         $result .= $authheader;  
     }  
     return $result;      return $result;
 }  }
 ###############################################################  ###############################################################
Line 510  function verify(vf,sec_caller) { Line 591  function verify(vf,sec_caller) {
     var foundsec=0;      var foundsec=0;
     var foundemail=0;      var foundemail=0;
     var foundrole=0;      var foundrole=0;
       var founddomain=0;
       var foundinststatus=0;
     var tw;      var tw;
     for (i=0;i<=vf.nfields.value;i++) {      for (i=0;i<=vf.nfields.value;i++) {
         tw=eval('vf.f'+i+'.selectedIndex');          tw=eval('vf.f'+i+'.selectedIndex');
Line 520  function verify(vf,sec_caller) { Line 603  function verify(vf,sec_caller) {
         if (tw==9) { foundpwd=1; }          if (tw==9) { foundpwd=1; }
         if (tw==10) { foundemail=1; }          if (tw==10) { foundemail=1; }
         if (tw==11) { foundrole=1; }          if (tw==11) { foundrole=1; }
           if (tw==12) { founddomain=1; }
           if (tw==13) { foundinststatus=1; }
     }      }
     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole);      verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail,foundrole,founddomain,foundinststatus);
 }  }
   
 //  //
Line 542  function verify(vf,sec_caller) { Line 627  function verify(vf,sec_caller) {
 // 9 = ipwd  (password)  // 9 = ipwd  (password)
 // 10 = email address  // 10 = email address
 // 11 = role  // 11 = role
   // 12 = domain
   // 13 = inststatus
   
 function flip(vf,tf) {  function flip(vf,tf) {
    var nw=eval('vf.f'+tf+'.selectedIndex');     var nw=eval('vf.f'+tf+'.selectedIndex');
Line 605  function verify(vf,sec_caller) { Line 692  function verify(vf,sec_caller) {
     var foundid=0;      var foundid=0;
     var foundsec=0;      var foundsec=0;
     var foundrole=0;      var foundrole=0;
       var founddomain=0;
       var foundinststatus=0;
     var tw;      var tw;
     for (i=0;i<=vf.nfields.value;i++) {      for (i=0;i<=vf.nfields.value;i++) {
         tw=eval('vf.f'+i+'.selectedIndex');          tw=eval('vf.f'+i+'.selectedIndex');
Line 614  function verify(vf,sec_caller) { Line 703  function verify(vf,sec_caller) {
         if (i==7 && tw!=0) { foundsec=1; }          if (i==7 && tw!=0) { foundsec=1; }
         if (i==8 && tw!=0) { foundpwd=1; }          if (i==8 && tw!=0) { foundpwd=1; }
         if (i==9 && tw!=0) { foundrole=1; }          if (i==9 && tw!=0) { foundrole=1; }
           if (i==10 && tw!=0) { founddomain=1; }
           if (i==13 && tw!=0) { foundinstatus=1; }
     }      }
     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundrole);      verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec,foundrole,founddomain,foundinststatus);
 }  }
   
 function flip(vf,tf) {  function flip(vf,tf) {
Line 654  ENDPICK Line 745  ENDPICK
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub print_upload_manager_footer {  sub print_upload_manager_footer {
     my ($r,$i,$keyfields,$defdom,$today,$halfyear,$context)=@_;      my ($r,$i,$keyfields,$defdom,$today,$halfyear,$context,$permission,$crstype) = @_;
     my $formname;      my $form = 'document.studentform';
     if ($context eq 'course') {      my $formname = 'studentform';
         $formname = 'document.studentform';  
     } elsif ($context eq 'author') {  
         $formname = 'document.studentform';  
     } elsif ($context eq 'domain') {  
         $formname = 'document.studentform';  
     }  
     my ($krbdef,$krbdefdom) =      my ($krbdef,$krbdefdom) =
         &Apache::loncommon::get_kerberos_defaults($defdom);          &Apache::loncommon::get_kerberos_defaults($defdom);
     my %param = ( formname => $formname,      my %param = ( formname => $form,
                   kerb_def_dom => $krbdefdom,                    kerb_def_dom => $krbdefdom,
                   kerb_def_auth => $krbdef                    kerb_def_auth => $krbdef
                   );                    );
Line 677  sub print_upload_manager_footer { Line 762  sub print_upload_manager_footer {
     my $krbform = &Apache::loncommon::authform_kerberos(%param);      my $krbform = &Apache::loncommon::authform_kerberos(%param);
     my $intform = &Apache::loncommon::authform_internal(%param);      my $intform = &Apache::loncommon::authform_internal(%param);
     my $locform = &Apache::loncommon::authform_local(%param);      my $locform = &Apache::loncommon::authform_local(%param);
     my $date_table = &date_setting_table(undef,undef,$context);      my $date_table = &date_setting_table(undef,undef,$context,undef,
                                            $formname,$permission,$crstype);
   
     my $Str = "\n".'<div class="LC_left_float">';      my $Str = "\n".'<div class="LC_left_float">';
     $Str .= &hidden_input('nfields',$i);      $Str .= &hidden_input('nfields',$i);
     $Str .= &hidden_input('keyfields',$keyfields);      $Str .= &hidden_input('keyfields',$keyfields);
     $Str .= "<h3>".&mt('Login Type')."</h3>\n";  
       $Str .= '<h3>'.&mt('Options').'</h3>'
              .&Apache::lonhtmlcommon::start_pick_box();
   
       $Str .= &Apache::lonhtmlcommon::row_title(&mt('Login Type'));
     if ($context eq 'domain') {      if ($context eq 'domain') {
         $Str .= '<p>'.&mt('Change authentication for existing users to these settings?').'&nbsp;<span class="LC_nobreak"><label><input type="radio" name="changeauth" value="No" checked="checked" />'.&mt('No').'</label>&nbsp;&nbsp;<label><input type="radio" name="changeauth" value="Yes" />'.&mt('Yes').'</label></span></p>';           $Str .= '<p>'
                  .&mt('Change authentication for existing users in domain "[_1]" to these settings?'
                      ,$defdom)
                  .'&nbsp;<span class="LC_nobreak"><label>'
                  .'<input type="radio" name="changeauth" value="No" checked="checked" />'
                  .&mt('No').'</label>'
                  .'&nbsp;&nbsp;<label>'
                  .'<input type="radio" name="changeauth" value="Yes" />'
                  .&mt('Yes').'</label>'
                  .'</span></p>'; 
     } else {      } else {
         $Str .= "<p>\n".          $Str .= '<p class="LC_info">'."\n".
             &mt('Note: this will not take effect if the user already exists').              &mt('This will not take effect if the user already exists.').
             &Apache::loncommon::help_open_topic('Auth_Options').              &Apache::loncommon::help_open_topic('Auth_Options').
             "</p>\n";              "</p>\n";
     }      }
     $Str .= &set_login($defdom,$krbform,$intform,$locform);      $Str .= &set_login($defdom,$krbform,$intform,$locform);
   
     my ($home_server_pick,$numlib) =      my ($home_server_pick,$numlib) =
         &Apache::loncommon::home_server_form_item($defdom,'lcserver',          &Apache::loncommon::home_server_form_item($defdom,'lcserver',
                                                   'default','hide');                                                    'default','hide');
     if ($numlib > 1) {      if ($numlib > 1) {
         $Str .= '<h3>'.&mt('LON-CAPA Home Server for New Users')."</h3>\n".          $Str .= &Apache::lonhtmlcommon::row_closure()
                 &mt('LON-CAPA domain: [_1] with home server: [_2]',$defdom,                 .&Apache::lonhtmlcommon::row_title(
                 $home_server_pick).'<br />';                      &mt('LON-CAPA Home Server for New Users'))
     } else {                 .&mt('LON-CAPA domain: [_1] with home server:','"'.$defdom.'"')
         $Str .= $home_server_pick;                 .$home_server_pick
     }                 .&Apache::lonhtmlcommon::row_closure();
     $Str .= '<h3>'.&mt('Starting and Ending Dates').  
             "</h3>\n";  
     $Str .= "<p>\n".$date_table."</p>\n";  
     if ($context eq 'domain') {  
         $Str .= '<h3>'.&mt('Settings for assigning roles:').'</h3>'."\n".  
                 &mt('Pick the action to take on roles for these users:').'<br /><span class="LC_nobreak"><label><input type="radio" name="roleaction" value="norole" checked="checked" />&nbsp;'.&mt('No role changes').'</label>&nbsp;&nbsp;&nbsp;<label><input type="radio" name="roleaction" value="domain" />&nbsp;'.&mt('Add a domain role').'</label>&nbsp;&nbsp;&nbsp;<label><input type="radio" name="roleaction" value="course" />&nbsp;'.&mt('Add a course role').'</label></span>';  
     }  
     if ($context eq 'author') {  
         $Str .= '<h3>'.&mt('Default role')."</h3>\n".  
                 &mt('Choose the role to assign to users without one specified in the uploaded file');  
     } elsif ($context eq 'course') {  
         $Str .= '<h3>'.&mt('Default role and section')."</h3>\n".  
                 &mt('Choose the role and/or section to assign to users without one specified in the uploaded file');  
     } else {      } else {
         $Str .= '<br /><br /><b>'.&mt('Default role and/or section')."</b><br />\n".          $Str .= $home_server_pick.
                 &mt('Role and/or section for users without one in the uploaded file.');                  &Apache::lonhtmlcommon::row_closure();
     }      }
     $Str .= '<br /><br />';  
     my ($options,$cb_script,$coursepick) = &default_role_selector($context,'defaultrole',1);      $Str .= &Apache::lonhtmlcommon::row_title(&mt('Default domain'))
              .&Apache::loncommon::select_dom_form($defdom,'defaultdomain',undef,1)
              .&Apache::lonhtmlcommon::row_closure();
   
       $Str .= &Apache::lonhtmlcommon::row_title(&mt('Starting and Ending Dates'))
              ."<p>\n".$date_table."</p>\n"
              .&Apache::lonhtmlcommon::row_closure();
   
     if ($context eq 'domain') {      if ($context eq 'domain') {
         $Str .= '<span class="LC_role_level">'.&mt('Domain Level').'</span><br />'.$options.'<br /><br /><span class="LC_role_level">'.&mt('Course Level').'</span><br />'.$cb_script.$coursepick;          $Str .= &Apache::lonhtmlcommon::row_title(
                       &mt('Settings for assigning roles'))
                  .&mt('Pick the action to take on roles for these users:').'<br />'
                  .'<span class="LC_nobreak"><label>'
                  .'<input type="radio" name="roleaction" value="norole" checked="checked" />'
                  .'&nbsp;'.&mt('No role changes').'</label>'
                  .'&nbsp;&nbsp;&nbsp;<label>'
                  .'<input type="radio" name="roleaction" value="domain" />'
                  .'&nbsp;'.&mt('Add a domain role').'</label>'
                  .'&nbsp;&nbsp;&nbsp;<label>'
                  .'<input type="radio" name="roleaction" value="course" />'
                  .'&nbsp;'.&mt('Add a course role').'</label>'
                  .'</span>';
     } elsif ($context eq 'author') {      } elsif ($context eq 'author') {
         $Str .= $options;          $Str .= &Apache::lonhtmlcommon::row_title(
                       &mt('Default role'))
                  .&mt('Choose the role to assign to users without a value specified in the uploaded file.')
       } elsif ($context eq 'course') {
           $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 {      } else {
         $Str .= '<table><tr><td><span class="LC_nobreak"<b>'.&mt('role').':&nbsp;</b>'.          $Str .= &Apache::lonhtmlcommon::row_title(
                 $options.'</span></td><td>&nbsp;</td><td><span class="LC_nobreak">'.                      &mt('Default role and/or section(s)'))
                 '<b>'.&mt('section').':&nbsp;</b><input type="text" name="section" value="" size="12" /></span></td></tr></table>';                 .&mt('Role and/or section(s) for users without values specified in the uploaded file.');
     }      }
     if ($context eq 'course') {      if (($context eq 'domain') || ($context eq 'author')) {
         $Str .= "<h3>".&mt('Full Update')."</h3>\n".          $Str .= '<br />';
                 '<label><input type="checkbox" name="fullup" value="yes">'.          my ($options,$cb_script,$coursepick) = &default_role_selector($context,1);
                 ' '.&mt('Full update (also print list of users not enrolled anymore)').          if ($context eq 'domain') {
                 "</label></p>\n";              $Str .= '<p>'
                      .'<b>'.&mt('Domain Level').'</b><br />'
                      .$options
                      .'</p><p>'
                      .'<b>'.&mt('Course Level').'</b>'
                      .'</p>'
                      .$cb_script.$coursepick
                      .&Apache::lonhtmlcommon::row_closure();
           } elsif ($context eq 'author') {
               $Str .= $options
                      .&Apache::lonhtmlcommon::row_closure(1); # last row in pick_box
           }
       } else {
           my ($cnum,$cdom) = &get_course_identity();
           my $rowtitle = &mt('section');
           my $secbox = &section_picker($cdom,$cnum,'Any',$rowtitle,
                                        $permission,$context,'upload',$crstype);
           $Str .= $secbox
                  .&Apache::lonhtmlcommon::row_closure();
           my %lt;
           if ($crstype eq 'Community') {
               %lt = &Apache::lonlocal::texthash (
                       disp => 'Display members with current/future access who are not in the uploaded file',
                       stus => 'Members selected from this list can be dropped.'
               );
           } else {
               %lt = &Apache::lonlocal::texthash (
                       disp => 'Display students with current/future access who are not in the uploaded file',
                       stus => 'Students selected from this list can be dropped.'
               );
           }
           $Str .= &Apache::lonhtmlcommon::row_title(&mt('Full Update'))
                  .'<label><input type="checkbox" name="fullup" value="yes" />'
                  .' '.$lt{'disp'}
                  .'</label><br />'
                  .$lt{'stus'}
                  .&Apache::lonhtmlcommon::row_closure();
     }      }
     if ($context eq 'course' || $context eq 'domain') {      if ($context eq 'course' || $context eq 'domain') {
         $Str .= &forceid_change($context);          $Str .= &forceid_change($context);
     }      }
     $Str .= '</div><div class="LC_clear_float_footer"><br /><input type="button"'.  
               'onClick="javascript:verify(this.form,this.form.csec)" '.      $Str .= &Apache::lonhtmlcommon::end_pick_box();
         'value="Update Users" />'."<br />\n";  
     if ($context eq 'course') {  
         $Str .= &mt('Note: for large courses, this operation may be time '.  
                     'consuming');  
     }  
     $Str .= '</div>';      $Str .= '</div>';
   
       # Footer
       $Str .= '<div class="LC_clear_float_footer">'
              .'<hr />';
       if ($context eq 'course') {
           $Str .= '<p class="LC_info">'
                  .&mt('Note: For large courses, this operation may be time consuming.')
                  .'</p>';
       }
       $Str .= '<p><input type="button"'
              .' onclick="javascript:verify(this.form,this.form.csec)"'
              .' value="'.&mt('Update Users').'" />'
              .'</p>'."\n"
              .'</div>';
     $r->print($Str);      $r->print($Str);
     return;      return;
 }  }
Line 754  sub print_upload_manager_footer { Line 911  sub print_upload_manager_footer {
 sub forceid_change {  sub forceid_change {
     my ($context) = @_;      my ($context) = @_;
     my $output =       my $output = 
         "<h3>".&mt('ID/Student Number')."</h3>\n".          &Apache::lonhtmlcommon::row_title(&mt('Student/Employee ID'))
         "<p>\n".'<label><input type="checkbox" name="forceid" value="yes">'.         .'<label><input type="checkbox" name="forceid" value="yes" />'
         &mt('Disable ID/Student Number Safeguard and Force Change '.         .&mt('Disable Student/Employee ID Safeguard and force change of conflicting IDs')
         'of Conflicting IDs').'</label><br />'."\n".         .'</label><br />'."\n"
         &mt('(only do if you know what you are doing.)')."</br><br />\n";         .&mt('(only do if you know what you are doing.)')."\n";
     if ($context eq 'domain') {      if ($context eq 'domain') {
         $output .= '<label><input type="checkbox" name="recurseid"'.          $output .= '<br /><label><input type="checkbox" name="recurseid"'.
                    ' value="yes">'.                      ' value="yes" />'. 
   &mt('Update ID/Student Number in courses in which user is Active/Future student,<br />(if forcing change).').    &mt('Update student/employee ID in courses in which user is active/future student,[_1](if forcing change).','<br />').
                    '</label></p>'."\n";                     '</label>'."\n";
     }      }
       $output .= &Apache::lonhtmlcommon::row_closure(1); # last row in pick_box
     return $output;      return $output;
 }  }
   
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub print_upload_manager_form {  sub print_upload_manager_form {
     my ($r,$context) = @_;      my ($r,$context,$permission,$crstype) = @_;
     my $firstLine;      my $firstLine;
     my $datatoken;      my $datatoken;
     if (!$env{'form.datatoken'}) {      if (!$env{'form.datatoken'}) {
Line 801  sub print_upload_manager_form { Line 959  sub print_upload_manager_form {
                                'ipwd_choice' => 'scalar',                                 'ipwd_choice' => 'scalar',
                                'email_choice' => 'scalar',                                 'email_choice' => 'scalar',
                                'role_choice' => 'scalar',                                 'role_choice' => 'scalar',
                                  'domain_choice' => 'scalar',
                                  'inststatus_choice' => 'scalar',
                              };                               };
     my $defdom = $env{'request.role.domain'};      my $defdom = $env{'request.role.domain'};
     if ($context eq 'course') {      if ($context eq 'course') {
Line 815  sub print_upload_manager_form { Line 975  sub print_upload_manager_form {
     my ($krbdef,$krbdefdom) =      my ($krbdef,$krbdefdom) =
         &Apache::loncommon::get_kerberos_defaults($defdom);          &Apache::loncommon::get_kerberos_defaults($defdom);
     #      #
     &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom,$context);      &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom,$context,
                                    $permission);
     my $i;      my $i;
     my $keyfields;      my $keyfields;
     if ($total>=0) {      if ($total>=0) {
Line 826  sub print_upload_manager_form { Line 987  sub print_upload_manager_form {
              ['mname',&mt('Middle Names/Initials'),$env{'form.mname_choice'}],               ['mname',&mt('Middle Names/Initials'),$env{'form.mname_choice'}],
              ['lname',&mt('Last Name'),       $env{'form.lname_choice'}],               ['lname',&mt('Last Name'),       $env{'form.lname_choice'}],
              ['gen',  &mt('Generation'),      $env{'form.gen_choice'}],               ['gen',  &mt('Generation'),      $env{'form.gen_choice'}],
              ['id',   &mt('ID/Student Number'),$env{'form.id_choice'}],               ['id',   &mt('Student/Employee ID'),$env{'form.id_choice'}],
              ['sec',  &mt('Section'),          $env{'form.sec_choice'}],               ['sec',  &mt('Section'),          $env{'form.sec_choice'}],
              ['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}],               ['ipwd', &mt('Initial Password'),$env{'form.ipwd_choice'}],
              ['email',&mt('E-mail Address'),   $env{'form.email_choice'}],               ['email',&mt('E-mail Address'),   $env{'form.email_choice'}],
              ['role',&mt('Role'),             $env{'form.role_choice'}]);               ['role',&mt('Role'),             $env{'form.role_choice'}],
                ['domain',&mt('Domain'),         $env{'form.domain_choice'}],
                ['inststatus',&mt('Affiliation'), $env{'form.inststatus_choice'}]);
         if ($env{'form.upfile_associate'} eq 'reverse') {          if ($env{'form.upfile_associate'} eq 'reverse') {
             &Apache::loncommon::csv_print_samples($r,\@records);              &Apache::loncommon::csv_print_samples($r,\@records);
             $i=&Apache::loncommon::csv_print_select_table($r,\@records,              $i=&Apache::loncommon::csv_print_select_table($r,\@records,
Line 849  sub print_upload_manager_form { Line 1012  sub print_upload_manager_form {
     }      }
     $r->print('</div>');      $r->print('</div>');
     &print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear,      &print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear,
                                  $context);                                   $context,$permission,$crstype);
 }  }
   
 sub setup_date_selectors {  sub setup_date_selectors {
     my ($starttime,$endtime,$mode,$nolink) = @_;      my ($starttime,$endtime,$mode,$nolink,$formname) = @_;
       if ($formname eq '') {
           $formname = 'studentform';
       }
     if (! defined($starttime)) {      if (! defined($starttime)) {
         $starttime = time;          $starttime = time;
         unless ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {          unless ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
Line 876  sub setup_date_selectors { Line 1042  sub setup_date_selectors {
     }      }
   
     my $startdateform =       my $startdateform = 
         &Apache::lonhtmlcommon::date_setter('studentform','startdate',$starttime,          &Apache::lonhtmlcommon::date_setter($formname,'startdate',$starttime,
             undef,undef,undef,undef,undef,undef,undef,$nolink);              undef,undef,undef,undef,undef,undef,undef,$nolink);
   
     my $enddateform =       my $enddateform = 
         &Apache::lonhtmlcommon::date_setter('studentform','enddate',$endtime,          &Apache::lonhtmlcommon::date_setter($formname,'enddate',$endtime,
             undef,undef,undef,undef,undef,undef,undef,$nolink);              undef,undef,undef,undef,undef,undef,undef,$nolink);
   
     if ($mode eq 'create_enrolldates') {      if ($mode eq 'create_enrolldates') {
Line 904  sub setup_date_selectors { Line 1070  sub setup_date_selectors {
   
   
 sub get_dates_from_form {  sub get_dates_from_form {
     my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate');      my ($startname,$endname) = @_;
     my $enddate   = &Apache::lonhtmlcommon::get_date_from_form('enddate');      if ($startname eq '') {
           $startname = 'startdate';
       }
       if ($endname eq '') {
           $endname = 'enddate';
       }
       my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname);
       my $enddate   = &Apache::lonhtmlcommon::get_date_from_form($endname);
     if ($env{'form.no_end_date'}) {      if ($env{'form.no_end_date'}) {
         $enddate = 0;          $enddate = 0;
     }      }
Line 913  sub get_dates_from_form { Line 1086  sub get_dates_from_form {
 }  }
   
 sub date_setting_table {  sub date_setting_table {
     my ($starttime,$endtime,$mode,$bulkaction) = @_;      my ($starttime,$endtime,$mode,$bulkaction,$formname,$permission,$crstype) = @_;
     my $nolink;      my $nolink;
     if ($bulkaction) {      if ($bulkaction) {
         $nolink = 1;          $nolink = 1;
     }      }
     my ($startform,$endform) =       my ($startform,$endform) = 
         &setup_date_selectors($starttime,$endtime,$mode,$nolink);          &setup_date_selectors($starttime,$endtime,$mode,$nolink,$formname);
     my $dateDefault;      my $dateDefault;
     if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {      if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
         $dateDefault = '&nbsp;';          $dateDefault = '&nbsp;';
     } elsif ($mode ne 'author' && $mode ne 'domain') {      } elsif ($mode ne 'author' && $mode ne 'domain') {
         if (($bulkaction eq 'reenable') ||           if (($bulkaction eq 'reenable') || 
             ($bulkaction eq 'activate') ||               ($bulkaction eq 'activate') || 
             ($bulkaction eq 'chgdates')) {               ($bulkaction eq 'chgdates') ||
             $dateDefault = '<span class="LC_nobreak">'.              ($env{'form.action'} eq 'upload')) {
                 '<label><input type="checkbox" name="makedatesdefault" /> '.              if ($env{'request.course.sec'} eq '') {
                 &mt('make these dates the default for future enrollment').                  $dateDefault = '<span class="LC_nobreak">'.
                 '</label></span>';                      '<label><input type="checkbox" name="makedatesdefault" value="1" /> ';
                   if ($crstype eq 'Community') {
                       $dateDefault .= &mt("make these dates the default access dates for future community enrollment");
                   } else {
                       $dateDefault .= &mt("make these dates the default access dates for future course enrollment");
                   }
                   $dateDefault .= '</label></span>';
               }
         }          }
     }      }
     my $perpetual = '<span class="LC_nobreak"><label><input type="checkbox" name="no_end_date"';      my $perpetual = '<span class="LC_nobreak"><label><input type="checkbox" name="no_end_date"';
     if (defined($endtime) && $endtime == 0) {      if (defined($endtime) && $endtime == 0) {
         $perpetual .= ' checked';          $perpetual .= ' checked="checked"';
     }      }
     $perpetual.= ' /> '.&mt('no ending date').'</label></span>';      $perpetual.= ' /> '.&mt('no ending date').'</label></span>';
     if ($mode eq 'create_enrolldates') {      if ($mode eq 'create_enrolldates') {
Line 950  sub date_setting_table { Line 1130  sub date_setting_table {
                                                      'LC_oddrow_value')."\n".                                                       'LC_oddrow_value')."\n".
                $endform.'&nbsp;'.$perpetual.                 $endform.'&nbsp;'.$perpetual.
                &Apache::lonhtmlcommon::row_closure(1).                 &Apache::lonhtmlcommon::row_closure(1).
                &Apache::lonhtmlcommon::end_pick_box().'<br />';                 &Apache::lonhtmlcommon::end_pick_box();
     if ($dateDefault) {      if ($dateDefault) {
         $result .=  $dateDefault.'<br />'."\n";          $result .=  $dateDefault.'<br />'."\n";
     }      }
Line 958  sub date_setting_table { Line 1138  sub date_setting_table {
 }  }
   
 sub make_dates_default {  sub make_dates_default {
     my ($startdate,$enddate,$context) = @_;      my ($startdate,$enddate,$context,$crstype = @_;
     my $result = '';      my $result = '';
     if ($context eq 'course') {      if ($context eq 'course') {
         my ($cnum,$cdom) = &get_course_identity();          my ($cnum,$cdom) = &get_course_identity();
Line 966  sub make_dates_default { Line 1146  sub make_dates_default {
                 {'default_enrollment_start_date'=>$startdate,                  {'default_enrollment_start_date'=>$startdate,
                  'default_enrollment_end_date'  =>$enddate},$cdom,$cnum);                   'default_enrollment_end_date'  =>$enddate},$cdom,$cnum);
         if ($put_result eq 'ok') {          if ($put_result eq 'ok') {
             $result .= &mt('Set default start and end dates for course').              if ($crstype eq 'Community') {
                        '<br />'."\n";                  $result .= &mt('Set default start and end access dates for community.');
               } else {
                   $result .= &mt('Set default start and end access dates for course.');
               }
               $result .= '<br />'."\n";
             #              #
             # Refresh the course environment              # Refresh the course environment
             &Apache::lonnet::coursedescription($env{'request.course.id'},              &Apache::lonnet::coursedescription($env{'request.course.id'},
                                                {'freshen_cache' => 1});                                                 {'freshen_cache' => 1});
         } else {          } else {
             $result .= &mt('Unable to set default dates for course').":".$put_result.              if ($crstype eq 'Community') {
                        '<br />';                  $result .= &mt('Unable to set default access dates for community');
               } else {
                   $result .= &mt('Unable to set default access dates for course');
               }
               $result .= ':'.$put_result.'<br />';
         }          }
     }      }
     return $result;      return $result;
 }  }
   
 sub default_role_selector {  sub default_role_selector {
     my ($context,$checkpriv) = @_;      my ($context,$checkpriv,$crstype) = @_;
     my %customroles;      my %customroles;
     my ($options,$coursepick,$cb_jscript);      my ($options,$coursepick,$cb_jscript);
     if ($context ne 'author') {      if ($context ne 'author') {
Line 997  sub default_role_selector { Line 1185  sub default_role_selector {
     $options = '<select name="defaultrole">'."\n".      $options = '<select name="defaultrole">'."\n".
                ' <option value="">'.&mt('Please select').'</option>'."\n";                  ' <option value="">'.&mt('Please select').'</option>'."\n"; 
     if ($context eq 'course') {      if ($context eq 'course') {
         $options .= &default_course_roles($context,$checkpriv,%customroles);          $options .= &default_course_roles($context,$checkpriv,$crstype,%customroles);
     } elsif ($context eq 'author') {      } elsif ($context eq 'author') {
         my @roles = &construction_space_roles($checkpriv);          my @roles = &construction_space_roles($checkpriv);
         foreach my $role (@roles) {          foreach my $role (@roles) {
Line 1011  sub default_role_selector { Line 1199  sub default_role_selector {
            $options .= '  <option value="'.$role.'">'.$plrole.'</option>';             $options .= '  <option value="'.$role.'">'.$plrole.'</option>';
         }          }
         my $courseform = &Apache::loncommon::selectcourse_link          my $courseform = &Apache::loncommon::selectcourse_link
             ('studentform','defaultcourse','defaultdomain','defaultdesc',"$env{'request.role.domain'}",undef,'Course');              ('studentform','dccourse','dcdomain','coursedesc',"$env{'request.role.domain'}",undef,'Course');
         $cb_jscript =           $cb_jscript = 
             &Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'},'defaultsec','studentform');              &Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'},'currsec','studentform');
         $coursepick = &Apache::loncommon::start_data_table().          $coursepick = &Apache::loncommon::start_data_table().
                       &Apache::loncommon::start_data_table_header_row().                        &Apache::loncommon::start_data_table_header_row().
                       '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th>'.                        '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th>'.
                       '<th>'.$lt{'grs'}.'</th>'.                        '<th>'.$lt{'grs'}.'</th>'.
                       &Apache::loncommon::end_data_table_header_row().                        &Apache::loncommon::end_data_table_header_row().
                       &Apache::loncommon::start_data_table_row()."\n".                        &Apache::loncommon::start_data_table_row()."\n".
                       '<td><input type="text" name="defaultdesc" value="" onFocus="this.blur();opencrsbrowser('."'studentform','defcourse','defdomain','coursedesc',''".')" /></td>'."\n".                        '<td><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'studentform','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".
                       '<td><select name="courserole">'."\n".                        '<td><select name="courserole">'."\n".
                       &default_course_roles($context,$checkpriv,%customroles)."\n".                        &default_course_roles($context,$checkpriv,'Course',%customroles)."\n".
                       '</select></td><td>'.                        '</select></td><td>'.
                       '<table class="LC_createuser">'.                        '<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="defaultsec">'.                        $lt{'exs'}.'<br /><select name="currsec">'.
                       ' <option value=""><--'.&mt('Pick course first').                        ' <option value=""><--'.&mt('Pick course first').
                       '</select></td>'.                        '</select></td>'.
                       '<td>&nbsp;&nbsp;</td>'.                        '<td>&nbsp;&nbsp;</td>'.
                       '<td valign="top">'.$lt{'new'}.'<br />'.                        '<td valign="top">'.$lt{'new'}.'<br />'.
                       '<input type="text" name="newsec" value="" size="5" />'.                        '<input type="text" name="newsec" value="" size="5" />'.
                       '<input type="hidden" name="groups" value="" /></td>'.                        '<input type="hidden" name="groups" value="" />'.
                       '</tr></table></td>'.                        '<input type="hidden" name="sections" value="" />'.
                         '<input type="hidden" name="origdom" value="'.
                         $env{'request.role.domain'}.'" />'.
                         '<input type="hidden" name="dccourse" value="" />'.
                         '<input type="hidden" name="dcdomain" value="" />'.
                         '</td></tr></table></td>'.
                       &Apache::loncommon::end_data_table_row().                        &Apache::loncommon::end_data_table_row().
                       &Apache::loncommon::end_data_table()."\n".                        &Apache::loncommon::end_data_table()."\n";
                       '<input type="hidden" name="defaultcourse" value="" />'.  
                       '<input type="hidden" name="defaultdomain" value="" />';  
     }      }
     $options .= '</select>';      $options .= '</select>';
     return ($options,$cb_jscript,$coursepick);      return ($options,$cb_jscript,$coursepick);
 }  }
   
 sub default_course_roles {  sub default_course_roles {
     my ($context,$checkpriv,%customroles) = @_;      my ($context,$checkpriv,$crstype,%customroles) = @_;
     my $output;      my $output;
     my $custom = 1;      my $custom = 1;
     my @roles = &course_roles($context,$checkpriv,$custom);      my @roles = &course_roles($context,$checkpriv,$custom,lc($crstype));
     foreach my $role (@roles) {      foreach my $role (@roles) {
         my $plrole=&Apache::lonnet::plaintext($role);          if ($role ne 'cr') {
         $output .= '  <option value="'.$role.'">'.$plrole.'</option>';              my $plrole=&Apache::lonnet::plaintext($role,$crstype);
               $output .= '  <option value="'.$role.'">'.$plrole.'</option>';
           }
     }      }
     if (keys(%customroles) > 0) {      if (keys(%customroles) > 0) {
         my %customroles = &my_custom_roles();          if (grep(/^cr$/,@roles)) {
         foreach my $cust (sort(keys(%customroles))) {              foreach my $cust (sort(keys(%customroles))) {
             my $custrole='cr_cr_'.$env{'user.domain'}.                  my $custrole='cr_'.$env{'user.domain'}.
                 '_'.$env{'user.name'}.'_'.$cust;                               '_'.$env{'user.name'}.'_'.$cust;
             $output .= '  <option value="'.$custrole.'">'.$cust.'</option>';                  $output .= '  <option value="'.$custrole.'">'.$cust.'</option>';
               }
         }          }
     }      }
     return $output;      return $output;
Line 1096  sub domain_roles { Line 1290  sub domain_roles {
 }  }
   
 sub course_roles {  sub course_roles {
     my ($context,$checkpriv,$custom) = @_;      my ($context,$checkpriv,$custom,$roletype) = @_;
     my @allroles = &roles_by_context('course',$custom);      my @allroles = &roles_by_context('course',$custom,$roletype);
     my @roles;      my @roles;
     if ($context eq 'domain') {      if ($context eq 'domain') {
         @roles = @allroles;          @roles = @allroles;
Line 1108  sub course_roles { Line 1302  sub course_roles {
                     if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {                      if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
                         push(@roles,$role);                          push(@roles,$role);
                     } else {                      } else {
                         if ($role ne 'cc' && $env{'request.course.section'} ne '') {                          if ((($role ne 'cc') && ($role ne 'co')) && ($env{'request.course.sec'} ne '')) {
                             if (!&Apache::lonnet::allowed('c'.$role,                              if (&Apache::lonnet::allowed('c'.$role,
                                              $env{'request.course.id'}.'/'.                                               $env{'request.course.id'}.'/'.
                                              $env{'request.course.section'})) {                                               $env{'request.course.sec'})) {
                                 push(@roles,$role);                                  push(@roles,$role);
                             }                              }
                         }                          }
Line 1126  sub course_roles { Line 1320  sub course_roles {
 }  }
   
 sub curr_role_permissions {  sub curr_role_permissions {
     my ($context,$setting,$checkpriv) = @_;       my ($context,$setting,$checkpriv,$type) = @_; 
     my $custom = 1;      my $custom = 1;
     my @roles;      my @roles;
     if ($context eq 'author') {      if ($context eq 'author') {
         @roles = &construction_space_roles($checkpriv);          @roles = &construction_space_roles($checkpriv);
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         if ($setting eq 'course') {          if ($setting eq 'course') {
             @roles = &course_roles($context,$checkpriv,$custom);               @roles = &course_roles($context,$checkpriv,$custom,$type); 
         } else {          } else {
             @roles = &domain_roles($checkpriv);              @roles = &domain_roles($checkpriv);
         }          }
     } elsif ($context eq 'course') {      } elsif ($context eq 'course') {
         @roles = &course_roles($context,$checkpriv,$custom);          @roles = &course_roles($context,$checkpriv,$custom,$type);
     }      }
     return @roles;      return @roles;
 }  }
Line 1207  sub print_userlist { Line 1401  sub print_userlist {
                                            'html'  => 'HTML');                                             'html'  => 'HTML');
         my $output_selector = '<select size="1" name="output" >';          my $output_selector = '<select size="1" name="output" >';
         foreach my $outputformat ('html','csv','excel') {          foreach my $outputformat ('html','csv','excel') {
             my $option = '<option value="'.$outputformat.'" ';              my $option = '<option value="'.$outputformat.'"';
             if ($outputformat eq $env{'form.output'}) {              if ($outputformat eq $env{'form.output'}) {
                 $option .= 'selected ';                  $option .= ' selected="selected"';
             }              }
             $option .='>'.$lt{$outputformat}.'</option>';              $option .='>'.$lt{$outputformat}.'</option>';
             $output_selector .= "\n".$option;              $output_selector .= "\n".$option;
         }          }
         $output_selector .= '</select>';          $output_selector .= '</select>';
         $r->print('<label>'.&mt('Output Format: [_1]',$output_selector).'</label>'.('&nbsp;'x3));          $r->print('<label><span class="LC_nobreak">'
     }                   .&mt('Output Format: [_1]',$output_selector)
     $r->print('<label>'.&mt('User Status: [_1]',$status_select).'</label>'.('&nbsp;'x3)."\n");                   .'</span></label>'.('&nbsp;'x3));
       }
       $r->print('<label><span class="LC_nobreak">'
                .&mt('User Status: [_1]',$status_select)
                .'</span></label>'.('&nbsp;'x3)."\n");
     my $roleselected = '';      my $roleselected = '';
     if ($env{'form.showrole'} eq 'Any') {      if ($env{'form.showrole'} eq 'Any') {
        $roleselected = ' selected="selected" ';          $roleselected = ' selected="selected"'; 
     }      }
     my $role_select;      my ($cnum,$cdom);
     if ($context eq 'domain') {      $r->print(&role_filter($context));
         $role_select = &domain_roles_select();      if ($context eq 'course') {
         $r->print('<label>'.&mt('Role Type: [_1]',$role_select).'</label>');          ($cnum,$cdom) = &get_course_identity();
     } else {          $r->print(&section_group_filter($cnum,$cdom));
         $role_select = '<select name="showrole">'."\n".  
                        '<option value="Any" '.$roleselected.'>'.  
                        &mt('Any role').'</option>';  
         my @poss_roles = &curr_role_permissions($context);  
         foreach my $role (@poss_roles) {  
             $roleselected = '';  
             if ($role eq $env{'form.showrole'}) {  
                 $roleselected = ' selected="selected" ';  
             }  
             my $plrole=&Apache::lonnet::plaintext($role);  
             $role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';  
         }  
         $roleselected = '';  
         if ($env{'form.showrole'} eq 'cr') {  
             $roleselected = ' selected="selected" ';  
         }  
         $role_select .= '<option value="cr"'.$roleselected.'>'.&mt('Custom role').'</option>'.  
                         '</select>';  
         $r->print('<label>'.&mt('Role: [_1]',$role_select).'</label>');  
     }      }
     if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {      if ($env{'form.phase'} eq '') {
         $r->print(&list_submit_button(&mt('Update Display'))."\n</p>\n");          $r->print('<br /><br />'.&list_submit_button(&mt('Display List of Users')).
                     "\n</p>\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')).
                     "\n</p>\n");
     }      }
     my ($indexhash,$keylist) = &make_keylist_array();      my ($indexhash,$keylist) = &make_keylist_array();
     my (%userlist,%userinfo);      my (%userlist,%userinfo,$clearcoursepick);
     if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {      if (($context eq 'domain') && 
           ($env{'form.roletype'} eq 'course') ||
           ($env{'form.roletype'} eq 'community')) {
           my ($crstype,$numcodes,$title,$warning);
           if ($env{'form.roletype'} eq 'course') {
               $crstype = 'Course';
               $numcodes = $totcodes;
               $title = &mt('Select Courses');
               $warning = &mt('Warning: data retrieval for multiple courses can take considerable time, as this operation is not currently optimized.');
           } elsif ($env{'form.roletype'} eq 'community') {
               $crstype = 'Community';
               $numcodes = 0;
               $title = &mt('Select Communities');
               $warning = &mt('Warning: data retrieval for multiple communities can take considerable time, as this operation is not currently optimized.');
           }
         my $courseform =          my $courseform =
             &Apache::lonhtmlcommon::course_selection($formname,$totcodes,              &Apache::lonhtmlcommon::course_selection($formname,$numcodes,
                                          $codetitles,$idlist,$idlist_titles);                              $codetitles,$idlist,$idlist_titles,$crstype);
         $r->print('<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".          $r->print('<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".
                   &Apache::lonhtmlcommon::start_pick_box()."\n".                    &Apache::lonhtmlcommon::start_pick_box()."\n".
                   &Apache::lonhtmlcommon::row_title(&mt('Select Course(s)'),                    &Apache::lonhtmlcommon::row_title($title,'LC_oddrow_value')."\n".
                                                     'LC_oddrow_value')."\n".  
                   $courseform."\n".                    $courseform."\n".
                   &Apache::lonhtmlcommon::row_closure(1).                    &Apache::lonhtmlcommon::row_closure(1).
                   &Apache::lonhtmlcommon::end_pick_box().'</p>'.                    &Apache::lonhtmlcommon::end_pick_box().'</p>'.
                   '<p>'.&list_submit_button(&mt('Update Display')).                    '<p><input type="hidden" name="origroletype" value="'.$env{'form.roletype'}.'" />'.
                   "\n</p>\n");                    &list_submit_button(&mt('Update Display')).
         if ($env{'form.coursepick'}) {                    "\n".'</p><span class="LC_warning">'.$warning.'</span>'."\n");
           $clearcoursepick = 0;
           if (($env{'form.origroletype'} ne '') &&
               ($env{'form.origroletype'} ne $env{'form.roletype'})) {
               $clearcoursepick = 1;
           }
           if (($env{'form.coursepick'}) && (!$clearcoursepick)) {
             $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');              $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');
         }          }
     } else {      } else {
Line 1273  sub print_userlist { Line 1479  sub print_userlist {
     }      }
     $r->rflush();      $r->rflush();
     if ($context eq 'course') {      if ($context eq 'course') {
         my $classlist = &Apache::loncoursedata::get_classlist();          if (($env{'form.showrole'} eq 'st') || ($env{'form.showrole'} eq 'Any')) { 
         my $secidx = &Apache::loncoursedata::CL_SECTION();              my $classlist = &Apache::loncoursedata::get_classlist();
         foreach my $student (keys(%{$classlist})) {              if (ref($classlist) eq 'HASH') {
             if (exists($permission->{'view_section'})) {                  %userlist = %{$classlist};
                 if ($classlist->{$student}[$secidx] ne $permission->{'view_section'}) {  
                     next;  
                 } else {  
                     $userlist{$student} = $classlist->{$student};  
                 }  
             } else {  
                 $userlist{$student} = $classlist->{$student};  
             }              }
         }          }
         my $cid =$env{'request.course.id'};          if ($env{'form.showrole'} ne 'st') {
         my ($cnum,$cdom) = &get_course_identity($cid);              my $showroles;
         my $showroles;              if ($env{'form.showrole'} ne 'Any') {
         if ($env{'form.showrole'} ne 'Any') {                  $showroles = [$env{'form.showrole'}];
             $showroles = [$env{'form.showrole'}];              } else {
         } else {                  $showroles = undef;
             $showroles = undef;              }
               my $withsec = 1;
               my $hidepriv = 1;
               my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
                                 \@statuses,$showroles,undef,$withsec,$hidepriv);
               &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
                                \%advrolehash,$permission);
         }          }
         my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,  
                                                         \@statuses,$showroles);  
         &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,  
                          \%advrolehash,$permission);  
     } else {      } else {
         my (%cstr_roles,%dom_roles);          my (%cstr_roles,%dom_roles);
         if ($context eq 'author') {          if ($context eq 'author') {
Line 1327  sub print_userlist { Line 1528  sub print_userlist {
                         } else {                          } else {
                             my @possroles;                              my @possroles;
                             if ($env{'form.showrole'} eq 'Any') {                              if ($env{'form.showrole'} eq 'Any') {
                                 my @possroles = &roles_by_context($context);                                  @possroles = &roles_by_context('author');
                             } else {                              } else {
                                 @possroles = ($env{'form.showrole'});                                   @possroles = ($env{'form.showrole'}); 
                             }                              }
                             foreach my $author (sort(keys(%{$dom_roles{$key}}))) {                              foreach my $author (sort(keys(%{$dom_roles{$key}}))) {
                                 my ($role,$authorname,$authordom) = split(/:/,$author);                                  my ($role,$authorname,$authordom) = split(/:/,$author,-1);
                                 my $extent = '/'.$authordom.'/'.$authorname;                                  my $extent = '/'.$authordom.'/'.$authorname;
                                 %{$coauthors{$extent}} =                                  %{$coauthors{$extent}} =
                                     &Apache::lonnet::get_my_roles($authorname,                                      &Apache::lonnet::get_my_roles($authorname,
Line 1344  sub print_userlist { Line 1545  sub print_userlist {
                     }                      }
                 }                  }
             } elsif ($env{'form.roletype'} eq 'course') {              } elsif ($env{'form.roletype'} eq 'course') {
                 if ($env{'form.coursepick'}) {                  if (($env{'form.coursepick'}) && (!$clearcoursepick)) {
                     my %courses = &process_coursepick();                      my %courses = &process_coursepick();
                     my %allusers;                       my %allusers;
                       my $hidepriv = 1;
                     foreach my $cid (keys(%courses)) {                      foreach my $cid (keys(%courses)) {
                         my %coursehash =  
                             &Apache::lonnet::coursedescription($cid,{'one_time' => 1});  
                         my ($cnum,$cdom,$cdesc) = &get_course_identity($cid);                          my ($cnum,$cdom,$cdesc) = &get_course_identity($cid);
                         next if ($cnum eq '' || $cdom eq '');                          next if ($cnum eq '' || $cdom eq '');
                         my $custom = 1;                          my $custom = 1;
                         my (@roles,@sections,%access,%users,%userdata,                          my (@roles,@sections,%access,%users,%userdata,
                             %statushash);                              %statushash);
                         if ($env{'form.showrole'} eq 'Any') {                          if ($env{'form.showrole'} eq 'Any') {
                             @roles = &course_roles($context,undef,$custom);                              @roles = &course_roles($context,undef,$custom,
                             unshift(@roles,'cr');                                                     $env{'form.roletype'});
                         } else {                          } else {
                             @roles = ($env{'form.showrole'});                              @roles = ($env{'form.showrole'});
                         }                          }
Line 1367  sub print_userlist { Line 1567  sub print_userlist {
                         foreach my $type (@statuses) {                          foreach my $type (@statuses) {
                             $access{$type} = $type;                              $access{$type} = $type;
                         }                          }
                         &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users,\%userdata,\%statushash);                          &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users,\%userdata,\%statushash,$hidepriv);
                         foreach my $user (keys(%userdata)) {                          foreach my $user (keys(%userdata)) {
                             next if (ref($userinfo{$user}) eq 'HASH');                              next if (ref($userinfo{$user}) eq 'HASH');
                             foreach my $item ('fullname','id') {                              foreach my $item ('fullname','id') {
Line 1403  sub print_userlist { Line 1603  sub print_userlist {
                 $r->print(&mt('There are no authors or co-authors to display.')."\n");                  $r->print(&mt('There are no authors or co-authors to display.')."\n");
             } elsif ($env{'form.roletype'} eq 'course') {              } elsif ($env{'form.roletype'} eq 'course') {
                 $r->print(&mt('There are no course users to display')."\n");                   $r->print(&mt('There are no course users to display')."\n"); 
               } elsif ($env{'form.roletype'} eq 'community') {
                   $r->print(&mt('There are no community users to display')."\n");
             }              }
         } elsif ($context eq 'course') {          } elsif ($context eq 'course') {
             $r->print(&mt('There are no course users to display.')."\n");              $r->print(&mt('There are no course users to display.')."\n");
Line 1418  sub print_userlist { Line 1620  sub print_userlist {
                                $permission,$env{'form.Status'},\%userlist,$keylist);                                 $permission,$env{'form.Status'},\%userlist,$keylist);
         }          }
         if (!$usercount) {          if (!$usercount) {
             $r->print('<br />'.&mt('There are no users matching the search criteria.'));               $r->print('<br /><span class="LC_warning">'
                        .&mt('There are no users matching the search criteria.')
                        .'</span>'
               ); 
         }          }
     }      }
     $r->print('<input type="hidden" name="phase" value="'.      $r->print('<input type="hidden" name="phase" value="'.
               $env{'form.phase'}.'" /></form>');                $env{'form.phase'}.'" /></form>');
 }  }
   
   sub role_filter {
       my ($context) = @_;
       my $output;
       my $roleselected = '';
       if ($env{'form.showrole'} eq 'Any') {
          $roleselected = ' selected="selected"';
       }
       my ($role_select);
       if ($context eq 'domain') {
           $role_select = &domain_roles_select();
           $output = '<label><span class="LC_nobreak">'
                    .&mt('Role Type: [_1]',$role_select)
                    .'</span></label>';
       } else {
           $role_select = '<select name="showrole">'."\n".
                          '<option value="Any" '.$roleselected.'>'.
                          &mt('Any role').'</option>';
           my ($roletype,$crstype);
           if ($context eq 'course') {
               $crstype = &Apache::loncommon::course_type();
               if ($crstype eq 'Community') {
                   $roletype = 'community';
               } else {
                   $roletype = 'course';
               } 
           }
           my @poss_roles = &curr_role_permissions($context,'','',$roletype);
           foreach my $role (@poss_roles) {
               $roleselected = '';
               if ($role eq $env{'form.showrole'}) {
                   $roleselected = ' selected="selected"';
               }
               my $plrole;
               if ($role eq 'cr') {
                   $plrole = &mt('Custom role');
               } else {
                   $plrole=&Apache::lonnet::plaintext($role,$crstype);
               }
               $role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
           }
           $role_select .= '</select>';
           $output = '<label><span class="LC_nobreak">'
                    .&mt('Role: [_1]',$role_select)
                    .'</span></label>';
       }
       return $output;
   }
   
   sub section_group_filter {
       my ($cnum,$cdom) = @_;
       my @filters;
       if ($env{'request.course.sec'} eq '') {
           @filters = ('sec');
       }
       push(@filters,'grp');
       my %name = (
                    sec => 'secfilter',
                    grp => 'grpfilter',
                  );
       my %title = &Apache::lonlocal::texthash (
                                                 sec  => 'Section(s)',
                                                 grp  => 'Group(s)',
                                                 all  => 'all',
                                                 none => 'none',
                                               );
       my $output;
       foreach my $item (@filters) {
           my ($markup,@options); 
           if ($env{'form.'.$name{$item}} eq '') {
               $env{'form.'.$name{$item}} = 'all';
           }
           if ($item eq 'sec') {
               if ($env{'form.showrole'} eq 'cc') {
                   $env{'form.'.$name{$item}} = 'none';
               }
               my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
               @options = sort(keys(%sections_count));
           } elsif ($item eq 'grp') {
               my %curr_groups = &Apache::longroup::coursegroups();
               @options = sort(keys(%curr_groups));
           }
           if (@options > 0) {
               my $currsel;
               $markup = '<select name="'.$name{$item}.'" />'."\n";
               foreach my $option ('all','none',@options) { 
                   $currsel = '';
                   if ($env{'form.'.$name{$item}} eq $option) {
                       $currsel = ' selected="selected"';
                   }
                   $markup .= ' <option value="'.$option.'"'.$currsel.'>';
                   if (($option eq 'all') || ($option eq 'none')) {
                       $markup .= $title{$option};
                   } else {
                       $markup .= $option;
                   }   
                   $markup .= '</option>'."\n";
               }
               $markup .= '</select>'."\n";
               $output .= ('&nbsp;'x3).'<label>'.$title{$item}.': '.$markup.'</label>';
           }
       }
       return $output;
   }
   
 sub list_submit_button {  sub list_submit_button {
     my ($text) = @_;      my ($text) = @_;
     return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />';      return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />';
Line 1432  sub list_submit_button { Line 1741  sub list_submit_button {
   
 sub gather_userinfo {  sub gather_userinfo {
     my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;      my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash,$permission) = @_;
       my $viewablesec;
       if ($context eq 'course') {
           $viewablesec = &viewable_section($permission);
       }
     foreach my $item (keys(%{$rolehash})) {      foreach my $item (keys(%{$rolehash})) {
         @{$userlist->{$item}} = ();  
         my %userdata;          my %userdata;
         if ($context eq 'author' || $context eq 'course') {           if ($context eq 'author') { 
             ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =              ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =
                 split(/:/,$item);                  split(/:/,$item);
             ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});              ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});
             &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);              &build_user_record($context,\%userdata,$userinfo,$indexhash,
                                  $item,$userlist);
           } elsif ($context eq 'course') {
               ($userdata{'username'},$userdata{'domain'},$userdata{'role'},
                $userdata{'section'}) = split(/:/,$item,-1);
               ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});
               if (($viewablesec ne '') && ($userdata{'section'} ne '')) {
                   next if ($viewablesec ne $userdata{'section'});
               }
               &build_user_record($context,\%userdata,$userinfo,$indexhash,
                                  $item,$userlist);
         } elsif ($context eq 'domain') {          } elsif ($context eq 'domain') {
             if ($env{'form.roletype'} eq 'domain') {              if ($env{'form.roletype'} eq 'domain') {
                 ($userdata{'role'},$userdata{'username'},$userdata{'domain'}) =                  ($userdata{'role'},$userdata{'username'},$userdata{'domain'}) =
                     split(/:/,$item);                      split(/:/,$item);
                 ($userdata{'end'},$userdata{'start'})=split(/:/,$rolehash->{$item});                  ($userdata{'end'},$userdata{'start'})=split(/:/,$rolehash->{$item});
                 &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);                  &build_user_record($context,\%userdata,$userinfo,$indexhash,
                                      $item,$userlist);
             } elsif ($env{'form.roletype'} eq 'author') {              } elsif ($env{'form.roletype'} eq 'author') {
                 if (ref($rolehash->{$item}) eq 'HASH') {                  if (ref($rolehash->{$item}) eq 'HASH') {
                     $userdata{'extent'} = $item;                      $userdata{'extent'} = $item;
Line 1454  sub gather_userinfo { Line 1777  sub gather_userinfo {
                         ($userdata{'start'},$userdata{'end'}) =                           ($userdata{'start'},$userdata{'end'}) = 
                             split(/:/,$rolehash->{$item}{$key});                              split(/:/,$rolehash->{$item}{$key});
                         my $uniqid = $key.':'.$item;                          my $uniqid = $key.':'.$item;
                         &build_user_record(\%userdata,$userinfo,$indexhash,$uniqid,$userlist);                          &build_user_record($context,\%userdata,$userinfo,
                                              $indexhash,$uniqid,$userlist);
                     }                      }
                 }                  }
             } elsif ($env{'form.roletype'} eq 'course') {              } elsif ($env{'form.roletype'} eq 'course') {
Line 1469  sub gather_userinfo { Line 1793  sub gather_userinfo {
                             my $space = ', ';                              my $space = ', ';
                             if ($format eq 'html' || $format eq 'view') {                              if ($format eq 'html' || $format eq 'view') {
                                 $spanstart = '<span class="LC_nobreak">';                                  $spanstart = '<span class="LC_nobreak">';
                                 if ($permission->{'cusr'}) {                                  # FIXME: actions on courses disabled for now
                                     if ($numcids > 1) {  #                                if ($permission->{'cusr'}) {
                                         $spanstart .= '<input type="radio" name="'.$item.'" value="'.$cid.'" &nbsp; />';  #                                    if ($numcids > 1) {
                                     } else {  #                                        $spanstart .= '<input type="radio" name="'.$item.'" value="'.$cid.'" />&nbsp;';
                                         $spanstart .= '<input type="hidden" name="'.$item.'" value="'.$cid.'" &nbsp; />';  #                                    } else {
                                     }  #                                        $spanstart .= '<input type="hidden" name="'.$item.'" value="'.$cid.'" />&nbsp;';
                                 }  #                                    }
   #                                }
                                 $spanend = '</span><br />';                                  $spanend = '</span><br />';
                                 $space = ',&nbsp;';                                  $space = ',&nbsp;';
                             }                              }
Line 1483  sub gather_userinfo { Line 1808  sub gather_userinfo {
                                     $rolehash->{$item}{$cid}{'desc'}.$space;                                      $rolehash->{$item}{$cid}{'desc'}.$space;
                             if (ref($rolehash->{$item}{$cid}{'secs'}) eq 'HASH') {                               if (ref($rolehash->{$item}{$cid}{'secs'}) eq 'HASH') { 
                                 foreach my $sec (sort(keys(%{$rolehash->{$item}{$cid}{'secs'}}))) {                                  foreach my $sec (sort(keys(%{$rolehash->{$item}{$cid}{'secs'}}))) {
                                     $userdata{'extent'} .= $sec.$space.$rolehash->{$item}{$cid}{'secs'}{$sec}.$spanend;                                      if (($env{'form.Status'} eq 'Any') ||
                                           ($env{'form.Status'} eq $rolehash->{$item}{$cid}{'secs'}{$sec})) {
                                           $userdata{'extent'} .= $sec.$space.$rolehash->{$item}{$cid}{'secs'}{$sec}.$spanend;
                                           $userdata{'status'} = $rolehash->{$item}{$cid}{'secs'}{$sec};
                                       }
                                 }                                  }
                             }                              }
                         }                          }
                     }                      }
                 }                  }
                 &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);                  if ($userdata{'status'} ne '') {
                       &build_user_record($context,\%userdata,$userinfo,
                                          $indexhash,$item,$userlist);
                   }
             }              }
         }          }
     }      }
Line 1497  sub gather_userinfo { Line 1829  sub gather_userinfo {
 }  }
   
 sub build_user_record {  sub build_user_record {
     my ($userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;      my ($context,$userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;
     next if ($userdata->{'start'} eq '-1' && $userdata->{'end'} eq '-1');      next if ($userdata->{'start'} eq '-1' && $userdata->{'end'} eq '-1');
     &process_date_info($userdata);      if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {
           &process_date_info($userdata);
       }
     my $username = $userdata->{'username'};      my $username = $userdata->{'username'};
     my $domain = $userdata->{'domain'};      my $domain = $userdata->{'domain'};
     if (ref($userinfo->{$username.':'.$domain}) eq 'HASH') {      if (ref($userinfo->{$username.':'.$domain}) eq 'HASH') {
         $userdata->{'fullname'} =          $userdata->{'fullname'} = $userinfo->{$username.':'.$domain}{'fullname'};
         $userinfo->{$username.':'.$domain}{'fullname'};  
         $userdata->{'id'} = $userinfo->{$username.':'.$domain}{'id'};          $userdata->{'id'} = $userinfo->{$username.':'.$domain}{'id'};
     } else {      } else {
         &aggregate_user_info($domain,$username,$userinfo);          &aggregate_user_info($domain,$username,$userinfo);
Line 1688  sub make_keylist_array { Line 2021  sub make_keylist_array {
     $index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL();      $index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL();
     $index->{'role'} = &Apache::loncoursedata::CL_ROLE();      $index->{'role'} = &Apache::loncoursedata::CL_ROLE();
     $index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();      $index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();
       $index->{'photo'} = &Apache::loncoursedata::CL_PHOTO();
       $index->{'thumbnail'} = &Apache::loncoursedata::CL_THUMBNAIL();
     foreach my $key (keys(%{$index})) {      foreach my $key (keys(%{$index})) {
         $keylist->[$index->{$key}] = $key;          $keylist->[$index->{$key}] = $key;
     }      }
Line 1736  sub process_date_info { Line 2071  sub process_date_info {
 }  }
   
 sub show_users_list {  sub show_users_list {
     my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist)=@_;      my ($r,$context,$mode,$permission,$statusmode,$userlist,$keylist,$formname)=@_;
       if ($formname eq '') {
           $formname = 'studentform';
       }
     #      #
     # Variables for excel output      # Variables for excel output
     my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);      my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);
Line 1751  sub show_users_list { Line 2089  sub show_users_list {
     } else {      } else {
         push(@sortable,'extent');          push(@sortable,'extent');
     }      }
       if ($mode eq 'pickauthor') {
           @sortable = ('username','fullname','email','status');
       }
     if (!grep(/^\Q$sortby\E$/,@sortable)) {      if (!grep(/^\Q$sortby\E$/,@sortable)) {
         $sortby = 'username';          $sortby = 'username';
     }      }
     my $setting = $env{'form.roleaction'};      my $setting = $env{'form.roletype'};
     my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers);      my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers,$crstype);
     if ($context eq 'course') {      if ($context eq 'course') {
         $cid=$env{'request.course.id'};          $cid = $env{'request.course.id'};
           $crstype = &Apache::loncommon::course_type();
         ($cnum,$cdom) = &get_course_identity($cid);          ($cnum,$cdom) = &get_course_identity($cid);
         ($classgroups) = &Apache::loncoursedata::get_group_memberships(          ($classgroups) = &Apache::loncoursedata::get_group_memberships(
                                      $userlist,$keylist,$cdom,$cnum);                                       $userlist,$keylist,$cdom,$cnum);
Line 1775  sub show_users_list { Line 2117  sub show_users_list {
             if ($env{'course.'.$cid.'.internal.showphoto'}) {              if ($env{'course.'.$cid.'.internal.showphoto'}) {
                 $r->print('                  $r->print('
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function photowindow(photolink) {  function photowindow(photolink) {
     var title = "Photo_Viewer";      var title = "Photo_Viewer";
     var options = "scrollbars=1,resizable=1,menubar=0";      var options = "scrollbars=1,resizable=1,menubar=0";
Line 1782  function photowindow(photolink) { Line 2125  function photowindow(photolink) {
     stdeditbrowser = open(photolink,title,options,"1");      stdeditbrowser = open(photolink,title,options,"1");
     stdeditbrowser.focus();      stdeditbrowser.focus();
 }  }
   // ]]>
 </script>  </script>
                ');                 ');
             }              }
Line 1791  function photowindow(photolink) { Line 2135  function photowindow(photolink) {
 END  END
         }          }
     }      }
     if ($mode ne 'autoenroll') {      if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {
         my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();          my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
         my $alert = &mt("You must select at least one user by checking a user's 'Select' checkbox");          my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode);
         my $singconfirm = &mt(' for a single user');          my $verify_action_js = &bulkaction_javascript($formname);
         my $multconfirm = &mt(' for multiple users');  
         my $date_sec_selector = &date_section_javascript($context,$setting,$statusmode);   
         $r->print(<<END);          $r->print(<<END);
   
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
   // <![CDATA[
 $check_uncheck_js  $check_uncheck_js
   
 function verify_action (field) {  $verify_action_js
     var numchecked = 0;  
     var singconf = '$singconfirm';  
     var multconf = '$multconfirm';  
     if (field.length > 0) {  
         for (i = 0; i < field.length; i++) {  
             if (field[i].checked == true) {  
                numchecked ++;  
             }  
         }  
     } else {  
         if (field.checked == true) {  
             numchecked ++;  
         }  
     }  
     if (numchecked == 0) {  
         alert("$alert");  
     }   
     else {  
         var message = document.studentform.bulkaction[document.studentform.bulkaction.selectedIndex].text;  
         if (numchecked == 1) {   
             message += singconf;  
         }   
         else {  
             message += multconf;   
         }  
         if (confirm(message)) {  
             document.studentform.phase.value = 'bulkchange';  
             document.studentform.submit();  
         }  
     }  
 }  
   
 function username_display_launch(username,domain) {  function username_display_launch(username,domain) {
     var target;      var target;
     for (var i=0; i<document.studentform.usernamelink.length; i++) {      for (var i=0; i<document.$formname.usernamelink.length; i++) {
         if (document.studentform.usernamelink[i].checked) {          if (document.$formname.usernamelink[i].checked) {
             target = document.studentform.usernamelink[i].value;              target = document.$formname.usernamelink[i].value;
         }          }
     }      }
     if (target == 'modify') {      if (target == 'modify') {
         document.studentform.srchterm.value=username;          if (document.$formname.userwin.checked == true) {
         document.studentform.srchdomain.value=domain;              var url = '/adm/createuser?srchterm='+username+'&srchdomain='+domain+'&phase=get_user_info&action=singleuser&srchin=dom&srchby=uname&srchtype=exact&popup=1';
         document.studentform.phase.value='get_user_info';              var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
         document.studentform.action.value = 'singleuser';              modifywin = window.open(url,'',options,1);
         document.studentform.submit();              modifywin.focus();
               return;
           } else {
               document.$formname.srchterm.value=username;
               document.$formname.srchdomain.value=domain;
               document.$formname.phase.value='get_user_info';
               document.$formname.action.value = 'singleuser';
               document.$formname.submit();
           }
       }
       if (target == 'aboutme') {
           if (document.$formname.userwin.checked == true) {
               var url = '/adm/'+domain+'/'+username+'/aboutme?popup=1';
               var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
               aboutmewin = window.open(url,'',options,1);
               aboutmewin.focus();
               return;
           } else {
               document.location.href = '/adm/'+domain+'/'+username+'/aboutme';
           }
     }      }
     else {      if (target == 'track') {
         document.location.href = '/adm/'+domain+'/'+username+'/aboutme';          if (document.$formname.userwin.checked == true) {
               var url = '/adm/trackstudent?selected_student='+username+':'+domain+'&only_body=1';
               var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no';
               var trackwin = window.open(url,'',options,1);
               trackwin.focus();
               return;
           } else {
               document.location.href = '/adm/trackstudent?selected_student='+username+':'+domain;
           }
     }      }
 }  }
   // ]]>
 </script>  </script>
 $date_sec_selector  $date_sec_selector
 <input type="hidden" name="state" value="$env{'form.state'}" />  <input type="hidden" name="state" value="$env{'form.state'}" />
Line 1874  END Line 2214  END
                        'status'     => "status",                         'status'     => "status",
                        'role'       => "role",                         'role'       => "role",
                        'type'       => "enroll type/action",                         'type'       => "enroll type/action",
                        'email'      => "email address",                         'email'      => "e-mail address",
                        'clicker'    => "clicker id",  
                        'photo'      => "photo",                         'photo'      => "photo",
                        'extent'     => "extent",                         'extent'     => "extent",
                        'pr'         => "Proceed",                         'pr'         => "Proceed",
                        'ca'         => "check all",                         'ca'         => "check all",
                        'ua'         => "uncheck all",                         'ua'         => "uncheck all",
                        'ac'         => "Action to take for selected users",                         'ac'         => "Action to take for selected users",
                        'link'       => "Behavior of username links",                         'link'       => "Behavior of clickable username link for each user",
                        'aboutme'    => "Display a user's personal page",                         'aboutme'    => "Display a user's personal information page",
                          'owin'       => "Open in a new window",
                        'modify'     => "Modify a user's information",                         'modify'     => "Modify a user's information",
                          'track'      => "View a user's recent activity",
                          'clicker'    => "Clicker-ID",
                       );                        );
     if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {      if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
         $lt{'extent'} = &mt('Course(s): description, section(s), status');          $lt{'extent'} = &mt('Course(s): description, section(s), status');
     } elsif ($context eq 'author') {      } elsif ($context eq 'author') {
         $lt{'extent'} = &mt('Author');           $lt{'extent'} = &mt('Author'); 
     }      }
     my @cols = ('username','domain','id','fullname');      my @cols;
     if ($context eq 'course') {      if ($mode eq 'pickauthor') {
         push(@cols,'section');          @cols = ('username','fullname','status','email');
     }      } else {
     if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) {           @cols = ('username','domain','id','fullname');
         push(@cols,('start','end'));          if ($context eq 'course') {
     }              push(@cols,'section');
     if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') {          }
         push(@cols,'role');          if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) { 
     }              push(@cols,('start','end'));
     if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' ||          }
                                 $env{'form.roletype'} eq 'course')) {          if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') {
         push (@cols,'extent');              push(@cols,'role');
     }          }
     if (($statusmode eq 'Any') &&           if ($context eq 'domain' && ($env{'form.roletype'} eq 'author' ||
         (!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) {                                      $env{'form.roletype'} eq 'course')) {
         push(@cols,'status');              push (@cols,'extent');
     }          }
     if ($context eq 'course') {          if (($statusmode eq 'Any') && 
         push(@cols,'groups');              (!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) {
               push(@cols,'status');
           }
           if ($context eq 'course') {
               push(@cols,'groups');
           }
           push(@cols,'email');
     }      }
     push(@cols,'email');  
   
     my $rolefilter = $env{'form.showrole'};      my $rolefilter = $env{'form.showrole'};
     if ($env{'form.showrole'} eq 'cr') {      if ($env{'form.showrole'} eq 'cr') {
Line 1923  END Line 2270  END
     my $results_description;      my $results_description;
     if ($mode ne 'autoenroll') {      if ($mode ne 'autoenroll') {
         $results_description = &results_header_row($rolefilter,$statusmode,          $results_description = &results_header_row($rolefilter,$statusmode,
                                                    $context,$permission);                                                     $context,$permission,$mode);
         $r->print('<b>'.$results_description.'</b><br />');          $r->print('<b>'.$results_description.'</b><br /><br />');
     }      }
     my ($output,$actionselect);      my ($output,$actionselect,%canchange,%canchangesec);
     if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll') {      if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
         if ($mode ne 'autoenroll') {          if ($mode ne 'autoenroll' && $mode ne 'pickauthor') {
             if ($permission->{'cusr'}) {              if ($permission->{'cusr'}) {
                 $actionselect = &select_actions($context,$setting,$statusmode);                  $actionselect = &select_actions($context,$setting,$statusmode,$formname);
             }              }
             $r->print(<<END);              $r->print(<<END);
 <input type="hidden" name="srchby"  value="uname" />  <input type="hidden" name="srchby"  value="uname" />
Line 1939  END Line 2286  END
 <input type="hidden" name="srchterm" value="" />  <input type="hidden" name="srchterm" value="" />
 <input type="hidden" name="srchdomain" value="" />   <input type="hidden" name="srchdomain" value="" /> 
 END  END
             $output = '<p>';              if ($actionselect) {
                   $output .= <<"END";
   <div class="LC_left_float"><fieldset><legend><b>$lt{'ac'}</b></legend>
   $actionselect
   <br/><br /><input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.$formname.actionlist)" /> &nbsp;
   <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.$formname.actionlist)" /><br /><input type="button" value="$lt{'pr'}" onclick="javascript:verify_action('actionlist')" /></fieldset></div>
   END
                   my @allroles;
                   if ($env{'form.showrole'} eq 'Any') {
                       my $custom = 1;
                       if ($context eq 'domain') {
                           @allroles = &roles_by_context($setting,$custom,$crstype);
                       } else {
                           @allroles = &roles_by_context($context,$custom,$crstype);
                       }
                   } else {
                       @allroles = ($env{'form.showrole'});
                   }
                   foreach my $role (@allroles) {
                       if ($context eq 'domain') {
                           if ($setting eq 'domain') {
                               if (&Apache::lonnet::allowed('c'.$role,
                                       $env{'request.role.domain'})) {
                                   $canchange{$role} = 1;
                               }
                           } elsif ($setting eq 'author') {
                               if (&Apache::lonnet::allowed('c'.$role,
                                       $env{'request.role.domain'})) {
                                   $canchange{$role} = 1;
                               }
                           }
                       } elsif ($context eq 'author') {
                           if (&Apache::lonnet::allowed('c'.$role,
                               $env{'user.domain'}.'/'.$env{'user.name'})) {
                               $canchange{$role} = 1;
                           }
                       } elsif ($context eq 'course') {
                           if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
                               $canchange{$role} = 1;
                           } elsif ($env{'request.course.sec'} ne '') {
                               if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
                                   $canchangesec{$role} = $env{'request.course.sec'};
                               }
                           }
                       }
                   }
               }
               $output .= '<div class="LC_left_float"><fieldset><legend><b>'.$lt{'link'}.'</b></legend>'.
                          '<table><tr>';
             my @linkdests = ('aboutme');              my @linkdests = ('aboutme');
             if ($permission->{'cusr'}) {              if ($permission->{'cusr'}) {
                 push (@linkdests,'modify');                  unshift (@linkdests,'modify');
                 $output .= '<span class="LC_nobreak">'.$lt{'link'}.':&nbsp;';              }
                 my $usernamelink = $env{'form.usernamelink'};              if (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) ||
                 if ($usernamelink eq '') {                  &Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'.
                     $usernamelink = 'aboutme';                                           $env{'request.course.sec'})) {
                 }                  push(@linkdests,'track');
                 foreach my $item (@linkdests) {              }
                     my $checkedstr = '';              $output .= '<td>';
                     if ($item eq $usernamelink) {              my $usernamelink = $env{'form.usernamelink'};
                         $checkedstr = ' checked="checked" ';              if ($usernamelink eq '') {
                     }                  $usernamelink = 'aboutme';
                     $output .= '<label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.'>&nbsp;'.$lt{$item}.'</label>&nbsp;&nbsp;';              }
               foreach my $item (@linkdests) {
                   my $checkedstr = '';
                   if ($item eq $usernamelink) {
                       $checkedstr = ' checked="checked"';
                 }                  }
                 $output .= '</span><br />';                  $output .= '<span class="LC_nobreak"><label><input type="radio" name="usernamelink" value="'.$item.'"'.$checkedstr.' />&nbsp;'.$lt{$item}.'</label></span><br />';
             } else {  
                 $output .= &mt("Click on a username to view the user's personal page.").'<br />';  
             }              }
             if ($actionselect) {              my $checkwin;
                 $output .= <<"END";               if ($env{'form.userwin'}) {
 $lt{'ac'}:&nbsp;$actionselect <input type="button" value="$lt{'pr'}" onclick="javascript:verify_action(document.studentform.actionlist)" /></p>                  $checkwin = ' checked="checked"';
 <p><input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.actionlist)" /> &nbsp;  
 <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.actionlist)" />  
 END  
             }              }
               $output .= '</td><td valign="top"><span class="LC_nobreak"><input type="checkbox" name="userwin" value="1"'.$checkwin.' />'.$lt{'owin'}.'</span></td></tr></table></fieldset></div>';
         }          }
         $output .= "\n<p>\n".          $output .= "\n".'<div class="LC_clear_float_footer">&nbsp;</div>'."\n".
                   &Apache::loncommon::start_data_table().                    &Apache::loncommon::start_data_table().
                   &Apache::loncommon::start_data_table_header_row();                    &Apache::loncommon::start_data_table_header_row();
         if ($mode eq 'autoenroll') {          if ($mode eq 'autoenroll') {
             $output .= "              $output .= "
  <th><a href=\"javascript:document.studentform.sortby.value='type';document.studentform.submit();\">$lt{'type'}</a></th>   <th><a href=\"javascript:document.$formname.sortby.value='type';document.$formname.submit();\">$lt{'type'}</a></th>
             ";              ";
         } else {          } else {
             $output .= "\n".'<th>'.&mt('Count').'</th>'."\n";              if ($mode eq 'pickauthor') {
                   $output .= "\n".'<th>&nbsp;</th>'."\n";
               } else { 
                   $output .= "\n".'<th>'.&mt('Count').'</th>'."\n";
               }
             if ($actionselect) {              if ($actionselect) {
                 $output .= '<th>'.&mt('Select').'</th>'."\n";                  $output .= '<th>'.&mt('Select').'</th>'."\n";
             }              }
         }          }
         foreach my $item (@cols) {          foreach my $item (@cols) {
             $output .= "<th><a href=\"javascript:document.studentform.sortby.value='$item';document.studentform.submit();\">$lt{$item}</a></th>\n";              $output .= "<th><a href=\"javascript:document.$formname.sortby.value='$item';document.$formname.submit();\">$lt{$item}</a></th>\n";
         }          }
         my %role_types = &role_type_names();          my %role_types = &role_type_names();
         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') {
                 # Clicker display on or off?                  # Clicker display on or off?
                 my %clicker_options = &Apache::lonlocal::texthash(                  my %clicker_options = (
                                                             'on' => 'Show',                                          'on' => 'Show',
                                                             'off' => 'Hide',                                          'off' => 'Hide',
                                                            );                                        );
                 my $clickerchg = 'on';                  my $clickerchg = 'on';
                 if ($displayclickers eq 'on') {                  if ($displayclickers eq 'on') {
                     $clickerchg = 'off';                      $clickerchg = 'off';
                 }                  }
                 $output .= '    <th>'."\n".'     '.                  $output .= '    <th>'."\n".'     '
                     '<a href="javascript:document.studentform.displayclickers.value='.                          .&mt('[_1]'.$clicker_options{$clickerchg}.'[_2] clicker id'
                       "'".$clickerchg."'".';document.studentform.submit();">'.                              ,'<a href="javascript:document.'.$formname.'.displayclickers.value='
                       $clicker_options{$clickerchg}.'</a>&nbsp;'.$lt{'clicker'}."\n".                               ."'".$clickerchg."'".';document.'.$formname.'.submit();">'
                       '    </th>'."\n";                              ,'</a>')
                           ."\n".'    </th>'."\n";
   
                 # Photo display on or off?                  # Photo display on or off?
                 if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {                  if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
Line 2012  END Line 2412  END
                         $photochg = 'off';                          $photochg = 'off';
                     }                      }
                     $output .= '    <th>'."\n".'     '.                      $output .= '    <th>'."\n".'     '.
                 '<a href="javascript:document.studentform.displayphotos.value='.                  '<a href="javascript:document.'.$formname.'.displayphotos.value='.
                       "'".$photochg."'".';document.studentform.submit();">'.                        "'".$photochg."'".';document.'.$formname.'.submit();">'.
                       $photo_options{$photochg}.'</a>&nbsp;'.$lt{'photo'}."\n".                        $photo_options{$photochg}.'</a>&nbsp;'.$lt{'photo'}."\n".
                       '    </th>'."\n";                        '    </th>'."\n";
                 }                  }
Line 2029  END Line 2429  END
                        time.'_'.rand(1000000000).'.csv';                         time.'_'.rand(1000000000).'.csv';
         unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) {          unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) {
             $r->log_error("Couldn't open $CSVfilename for output $!");              $r->log_error("Couldn't open $CSVfilename for output $!");
             $r->print("Problems occured in writing the csv file.  ".              $r->print(&mt('Problems occurred in writing the CSV file. '
                       "This error has been logged.  ".                           .'This error has been logged. '
                       "Please alert your LON-CAPA administrator.");                           .'Please alert your LON-CAPA administrator.'));
             $CSVfile = undef;              $CSVfile = undef;
         }          }
         #          #
           push @cols,'clicker';
         # Write headers and data to file          # Write headers and data to file
         print $CSVfile '"'.$results_description.'"'."\n";           print $CSVfile '"'.$results_description.'"'."\n"; 
         print $CSVfile '"'.join('","',map {          print $CSVfile '"'.join('","',map {
             &Apache::loncommon::csv_translate($lt{$_})              &Apache::loncommon::csv_translate($lt{$_})
             } (@cols)).'"'."\n";              } (@cols))."\"\n";
     } elsif ($mode eq 'excel') {      } elsif ($mode eq 'excel') {
           push @cols,'clicker';
         # Create the excel spreadsheet          # Create the excel spreadsheet
         ($excel_workbook,$excel_filename,$format) =          ($excel_workbook,$excel_filename,$format) =
             &Apache::loncommon::create_workbook($r);              &Apache::loncommon::create_workbook($r);
Line 2049  END Line 2451  END
         $excel_sheet->write($row++,0,$results_description,$format->{'h2'});          $excel_sheet->write($row++,0,$results_description,$format->{'h2'});
         #          #
         my @colnames = map {$lt{$_}} (@cols);          my @colnames = map {$lt{$_}} (@cols);
   
         $excel_sheet->write($row++,0,\@colnames,$format->{'bold'});          $excel_sheet->write($row++,0,\@colnames,$format->{'bold'});
     }      }
   
 # Done with header lines in all formats  # Done with header lines in all formats
   
     my %index;      my %index;
     my $i;      my $i;
     foreach my $idx (@$keylist) {      foreach my $idx (@$keylist) {
         $index{$idx} = $i++;          $index{$idx} = $i++;
     }      }
     my $usercount = 0;      my $usercount = 0;
       my ($secfilter,$grpfilter);
       if ($context eq 'course') {
           $secfilter = $env{'form.secfilter'};
           $grpfilter = $env{'form.grpfilter'};
           if ($secfilter eq '') {
               $secfilter = 'all';
           }
           if ($grpfilter eq '') {
               $grpfilter = 'all';
           }
       }
       my %ltstatus = &Apache::lonlocal::texthash(
                                                   Active  => 'Active',
                                                   Future  => 'Future',
                                                   Expired => 'Expired',
                                                  );
     # Get groups, role, permanent e-mail so we can sort on them if      # Get groups, role, permanent e-mail so we can sort on them if
     # necessary.      # necessary.
     foreach my $user (keys(%{$userlist})) {      foreach my $user (keys(%{$userlist})) {
           if ($user eq '' ) {
               delete($userlist->{$user});
               next;
           }
         if ($context eq 'domain' &&  $user eq $env{'request.role.domain'}.'-domainconfig:'.$env{'request.role.domain'}) {          if ($context eq 'domain' &&  $user eq $env{'request.role.domain'}.'-domainconfig:'.$env{'request.role.domain'}) {
             delete($userlist->{$user});              delete($userlist->{$user});
             next;              next;
Line 2097  END Line 2519  END
             delete($userlist->{$user});              delete($userlist->{$user});
             next;              next;
         }          }
         if (ref($classgroups) eq 'HASH') {          if ($context eq 'course') {
             $groups = $classgroups->{$user};              my @ac_groups;
         }              if (ref($classgroups) eq 'HASH') {
         if (ref($groups->{active}) eq 'HASH') {                  $groups = $classgroups->{$user};
             $userlist->{$user}->[$index{'groups'}] = join(', ',keys(%{$groups->{'active'}}));              }
               if (ref($groups->{'active'}) eq 'HASH') {
                   @ac_groups = keys(%{$groups->{'active'}});
                   $userlist->{$user}->[$index{'groups'}] = join(', ',@ac_groups);
               }
               if ($mode ne 'autoenroll') {
                   my $section = $userlist->{$user}->[$index{'section'}];
                   if (($env{'request.course.sec'} ne '') && 
                       ($section ne $env{'request.course.sec'})) {
                       if ($role eq 'st') {
                           delete($userlist->{$user});
                           next;
                       }
                   }
                   if ($secfilter eq 'none') {
                       if ($section ne '') {
                           delete($userlist->{$user});
                           next;
                       }
                   } elsif ($secfilter ne 'all') {
                       if ($section ne $secfilter) {
                           delete($userlist->{$user});
                           next;
                       }
                   }
                   if ($grpfilter eq 'none') {
                       if (@ac_groups > 0) {
                           delete($userlist->{$user});
                           next;
                       }
                   } elsif ($grpfilter ne 'all') {
                       if (!grep(/^\Q$grpfilter\E$/,@ac_groups)) {
                           delete($userlist->{$user});
                           next;
                       }
                   }
                   if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
                       if (($displayphotos eq 'on') && ($role eq 'st')) {
                           $userlist->{$user}->[$index{'photo'}] =
                               &Apache::lonnet::retrievestudentphoto($udom,$uname,'jpg');
                           $userlist->{$user}->[$index{'thumbnail'}] =
                               &Apache::lonnet::retrievestudentphoto($udom,$uname,
                                                                   'gif','thumbnail');
                       }
                   }
               }
         }          }
         my %emails   = &Apache::loncommon::getemails($uname,$udom);          my %emails   = &Apache::loncommon::getemails($uname,$udom);
         if ($emails{'permanentemail'} =~ /\S/) {          if ($emails{'permanentemail'} =~ /\S/) {
Line 2141  END Line 2608  END
         foreach my $item (@{$keylist}) {          foreach my $item (@{$keylist}) {
             $in{$item} = $sdata->[$index{$item}];              $in{$item} = $sdata->[$index{$item}];
         }          }
         my $role = $in{'role'};          my $clickers = (&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];
         $in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}]);           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) {          if (! defined($in{'start'}) || $in{'start'} == 0) {
             $in{'start'} = &mt('none');              $in{'start'} = &mt('none');
         } else {          } else {
Line 2153  END Line 2623  END
         } else {          } else {
             $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});              $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
         }          }
         if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {          if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
             $r->print(&Apache::loncommon::start_data_table_row());              $r->print(&Apache::loncommon::start_data_table_row());
             my $checkval;              my $checkval;
             if ($mode eq 'autoenroll') {              if ($mode eq 'autoenroll') {
Line 2162  END Line 2632  END
                     $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'}.'" />&nbsp;Change</label>';
                     $autocount ++;                      $autocount ++;
                 } else {                  } else {
                     $cellentry = '<table border="0" cellspacing="0"><tr><td rowspan="2"><b>'.&mt('manual').'</b></td><td><nobr><label><input type="checkbox" name="chgmanual" value="'.$in{'username'}.':'.$in{'domain'}.'" />&nbsp;Change</label></nobr></td></tr><tr><td><nobr>';                      $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">';
                     $manualcount ++;                      $manualcount ++;
                     if ($in{'lockedtype'}) {                      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'}.'" />&nbsp;'.&mt('Unlock').'</label>';
Line 2171  END Line 2641  END
                         $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'}.'" />&nbsp;'.&mt('Lock').'</label>';
                         $lockcount ++;                          $lockcount ++;
                     }                      }
                     $cellentry .= '</nobr></td></tr></table>';                      $cellentry .= '</span></td></tr></table>';
                 }                  }
                 $r->print("<td>$cellentry</td>\n");                  $r->print("<td>$cellentry</td>\n");
             } else {              } else {
                 $r->print("<td>$rowcount</td>\n");                  if ($mode ne 'pickauthor') {  
                 $checkval;                      $r->print("<td>$rowcount</td>\n");
                   }
                 if ($actionselect) {                  if ($actionselect) {
                     $checkval = $user;                       my $showcheckbox;
                     if ($context eq 'course') {                      if ($role =~ /^cr\//) {
                         if ($role eq 'st') {                          $showcheckbox = $canchange{'cr'};
                             $checkval .= ':st';                      } else {
                           $showcheckbox = $canchange{$role};
                       }
                       if (!$showcheckbox) {
                           if ($context eq 'course') {
                               if ($canchangesec{$role} ne '') {
                                   if ($canchangesec{$role} eq $in{'section'}) {
                                       $showcheckbox = 1;
                                   }
                               }
                         }                          }
                         $checkval .= ':'.$in{'section'};                      }
                         if ($role eq 'st') {                      if ($showcheckbox) {
                             $checkval .= ':'.$in{'type'}.':'.$in{'lockedtype'};                          $checkval = $user; 
                           if ($context eq 'course') {
                               if ($role eq 'st') {
                                   $checkval .= ':st';
                               }
                               $checkval .= ':'.$in{'section'};
                               if ($role eq 'st') {
                                   $checkval .= ':'.$in{'type'}.':'.
                                                $in{'lockedtype'};
                               }
                         }                          }
                           $r->print('<td><input type="checkbox" name="'.
                                     'actionlist" value="'.$checkval.'" /></td>');
                       } else {
                           $r->print('<td>&nbsp;</td>');
                     }                      }
                     $r->print('<td><input type="checkbox" name="actionlist" value="'.                  } elsif ($mode eq 'pickauthor') {
                               $checkval.'"></td>');                          $r->print('<td><input type="button" name="chooseauthor" onclick="javascript:gochoose('."'$in{'username'}'".');" value="'.&mt('Select').'" /></td>');
                 }                  }
             }              }
             foreach my $item (@cols) {              foreach my $item (@cols) {
                 if ($item eq 'username') {                  if ($item eq 'username') {
                     $r->print('<td>'.&print_username_link($mode,$permission,                      $r->print('<td>'.&print_username_link($mode,\%in).'</td>');
                                                           \%in).'</td>');  
                 } elsif (($item eq 'start' || $item eq 'end') && ($actionselect)) {                  } 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");                      $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");
                 } else {                  } else {
                     $r->print('<td>'.$in{$item}.'</td>'."\n");                      $r->print('<td>'.$in{$item}.'</td>'."\n");
                 }                  }
Line 2213  END Line 2711  END
                         $r->print('    <td>&nbsp;</td>  ');                          $r->print('    <td>&nbsp;</td>  ');
                     }                      }
                     if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {                      if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
                         if ($displayphotos eq 'on' && $sdata->[$index{'role'}] eq 'st') {                          if ($displayphotos eq 'on' && $role eq 'st' && $in{'photo'} ne '') {
                             my $imgurl =                              $r->print('    <td align="right"><a href="javascript:photowindow('."'".$in{'photo'}."'".')"><img src="'.$in{'thumbnail'}.'" border="1" alt="" /></a></td>');
                         &Apache::lonnet::retrievestudentphoto($in{'domain'},$in{'username'},  
                                                           'gif','thumbnail');  
                             $r->print('    <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($in{'domain'},$in{'username'},'jpg')."'".')"><img src="'.$imgurl.'" border="1"></a></td>');  
                         } else {                          } else {
                             $r->print('    <td>&nbsp;</td>  ');                              $r->print('    <td>&nbsp;</td>  ');
                         }                          }
Line 2242  END Line 2737  END
             foreach my $item (@cols) {              foreach my $item (@cols) {
                 push @line,&Apache::loncommon::csv_translate($in{$item});                  push @line,&Apache::loncommon::csv_translate($in{$item});
             }              }
             print $CSVfile '"'.join('","',@line).'"'."\n";              print $CSVfile '"'.join('","',@line)."\"\n";
         } elsif ($mode eq 'excel') {          } elsif ($mode eq 'excel') {
             my $col = 0;              my $col = 0;
             foreach my $item (@cols) {              foreach my $item (@cols) {
Line 2261  END Line 2756  END
             $row++;              $row++;
         }          }
     }      }
     if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {      if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
             $r->print(&Apache::loncommon::end_data_table().'<br />');              $r->print(&Apache::loncommon::end_data_table().'<br />');
     } elsif ($mode eq 'excel') {      } elsif ($mode eq 'excel') {
         $excel_workbook->close();          $excel_workbook->close();
         $r->print('<p><a href="'.$excel_filename.'">'.   $r->print(&mt('[_1]Your Excel spreadsheet[_2] is ready for download.', '<p><a href="'.$excel_filename.'">','</a>')."</p>\n");
                   &mt('Your Excel spreadsheet').'</a> '.&mt('is ready for download').'.</p>'."\n");  
     } elsif ($mode eq 'csv') {      } elsif ($mode eq 'csv') {
         close($CSVfile);          close($CSVfile);
         $r->print('<a href="'.$CSVfilename.'">'.   $r->print(&mt('[_1]Your CSV file[_2] is ready for download.', '<p><a href="'.$CSVfilename.'">','</a>')."</p>\n");
                   &mt('Your CSV file').'</a> is ready for download.'.  
                   "\n");  
         $r->rflush();          $r->rflush();
     }      }
     if ($mode eq 'autoenroll') {      if ($mode eq 'autoenroll') {
Line 2281  END Line 2773  END
     }      }
 }  }
   
   sub bulkaction_javascript {
       my ($formname,$caller) = @_;
       my $docstart = 'document';
       if ($caller eq 'popup') {
           $docstart = 'opener.document';
       }
       my %lt = &Apache::lonlocal::texthash(
                 acwi => 'Access will be set to start immediately',
                 asyo => 'as you did not select an end date in the pop-up window',
                 accw => 'Access will be set to continue indefinitely',
                 asyd => 'as you did not select an end date in the pop-up window',
                 sewi => "Sections will be switched to 'No section'",
                 ayes => "as you either selected the 'No section' option",
                 oryo => 'or you did not select a section in the pop-up window',
                 arol => 'A role with no section will be added',
                 swbs => 'Sections will be switched to:',
                 rwba => 'Roles will be added for section(s):',
               );
       my $alert = &mt("You must select at least one user by checking a user's 'Select' checkbox");
       my $noaction = &mt("You need to select an action to take for the user(s) you have selected"); 
       my $singconfirm = &mt(' for a single user?');
       my $multconfirm = &mt(' for multiple users?');
       my $output = <<"ENDJS";
   function verify_action (field) {
       var numchecked = 0;
       var singconf = '$singconfirm';
       var multconf = '$multconfirm';
       if ($docstart.$formname.elements[field].length > 0) {
           for (i=0; i<$docstart.$formname.elements[field].length; i++) {
               if ($docstart.$formname.elements[field][i].checked == true) {
                  numchecked ++;
               }
           }
       } else {
           if ($docstart.$formname.elements[field].checked == true) {
               numchecked ++;
           }
       }
       if (numchecked == 0) {
           alert("$alert");
           return;
       } else {
           var message = $docstart.$formname.bulkaction[$docstart.$formname.bulkaction.selectedIndex].text;
           var choice = $docstart.$formname.bulkaction[$docstart.$formname.bulkaction.selectedIndex].value;
           if (choice == '') {
               alert("$noaction");
               return;
           } else {
               if (numchecked == 1) {
                   message += singconf;
               } else {
                   message += multconf;
               }
   ENDJS
       if ($caller ne 'popup') {
           $output .= <<"NEWWIN";
               if (choice == 'chgdates' || choice == 'reenable' || choice == 'activate' || choice == 'chgsec') {
                   opendatebrowser(document.$formname,'$formname','go');
                   return;
   
               } else {
                   if (confirm(message)) {
                       document.$formname.phase.value = 'bulkchange';
                       document.$formname.submit();
                       return;
                   }
               }
   NEWWIN
       } else {
           $output .= <<"POPUP";
               if (choice == 'chgdates' || choice == 'reenable' || choice == 'activate') {
                   var datemsg = '';
                   if (($docstart.$formname.startdate_month.value == '') &&
                       ($docstart.$formname.startdate_day.value  == '') &&
                       ($docstart.$formname.startdate_year.value == '')) {
                       datemsg = "\\n$lt{'acwi'},\\n$lt{'asyo'}.\\n";
                   }
                   if (($docstart.$formname.enddate_month.value == '') &&
                       ($docstart.$formname.enddate_day.value  == '') &&
                       ($docstart.$formname.enddate_year.value == '')) {
                       datemsg += "\\n$lt{'accw'},\\n$lt{'asyd'}.\\n";
                   }
                   if (datemsg != '') {
                       message += "\\n"+datemsg;
                   }
               }
               if (choice == 'chgsec') {
                   var rolefilter = $docstart.$formname.showrole.options[$docstart.$formname.showrole.selectedIndex].value;
                   var retained =  $docstart.$formname.retainsec.value;
                   var secshow = $docstart.$formname.newsecs.value;
                   if (secshow == '') {
                       if (rolefilter == 'st' || retained == 0 || retained == "") {
                           message += "\\n\\n$lt{'sewi'},\\n$lt{'ayes'},\\n$lt{'oryo'}.\\n";
                       } else {
                           message += "\\n\\n$lt{'arol'}\\n$lt{'ayes'},\\n$lt{'oryo'}.\\n";
                       }
                   } else {
                       if (rolefilter == 'st' || retained == 0 || retained == "") {
                           message += "\\n\\n$lt{'swbs'} "+secshow+".\\n";
                       } else {
                           message += "\\n\\n$lt{'rwba'} "+secshow+".\\n";
                       }
                   }
               }
               if (confirm(message)) {
                   $docstart.$formname.phase.value = 'bulkchange';
                   $docstart.$formname.submit();
                   window.close();
               }
   POPUP
       }
       $output .= '
           }
       }
   }
   ';
       return $output;
   }
   
 sub print_username_link {  sub print_username_link {
     my ($mode,$permission,$in) = @_;      my ($mode,$in) = @_;
     my $output;      my $output;
     if ($mode eq 'autoenroll') {      if ($mode eq 'autoenroll') {
         $output = $in->{'username'};          $output = $in->{'username'};
     } elsif (!$permission->{'cusr'}) {  
         $output = &Apache::loncommon::aboutmewrapper($in->{'username'},  
                                                      $in->{'username'},  
                                                      $in->{'domain'});  
     } else {      } else {
         $output = '<a href="javascript:username_display_launch('.          $output = '<a href="javascript:username_display_launch('.
                   "'$in->{'username'}','$in->{'domain'}'".')" />'.                    "'$in->{'username'}','$in->{'domain'}'".')" />'.
Line 2303  sub role_type_names { Line 2910  sub role_type_names {
                          'domain' => 'Domain Roles',                           'domain' => 'Domain Roles',
                          'author' => 'Co-Author Roles',                           'author' => 'Co-Author Roles',
                          'course' => 'Course Roles',                           'course' => 'Course Roles',
                            'community' => 'Community Roles',
   
              );               );
     return %lt;      return %lt;
 }  }
   
 sub select_actions {  sub select_actions {
     my ($context,$setting,$statusmode) = @_;      my ($context,$setting,$statusmode,$formname) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                 revoke   => "Revoke user roles",                  revoke   => "Revoke user roles",
                 delete   => "Delete user roles",                  delete   => "Delete user roles",
Line 2318  sub select_actions { Line 2927  sub select_actions {
                 chgsec   => "Change section associated with user roles",                  chgsec   => "Change section associated with user roles",
     );      );
     my ($output,$options,%choices);      my ($output,$options,%choices);
       # FIXME Disable actions for now for roletype=course in domain context
       if ($context eq 'domain' && $setting eq 'course') {
           return;
       }
       if ($context eq 'course') {
           if ($env{'form.showrole'} ne 'Any') {
                if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},
                                              $env{'request.course.id'})) {
                    if ($env{'request.course.sec'} eq '') {
                        return;
                    } else {
                        if (!&Apache::lonnet::allowed('c'.$env{'form.showrole'},$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
                            return;
                        }
                    }
               }
           }
       }
     if ($statusmode eq 'Any') {      if ($statusmode eq 'Any') {
         $options .= '          $options .= '
 <option value="chgdates">'.$lt{'chgdates'}.'</option>';  <option value="chgdates">'.$lt{'chgdates'}.'</option>';
Line 2344  sub select_actions { Line 2971  sub select_actions {
 <option value="delete">'.$lt{'delete'}.'</option>';  <option value="delete">'.$lt{'delete'}.'</option>';
     }      }
     if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course')) {      if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course')) {
         if ($statusmode ne 'Expired') {          if (($statusmode ne 'Expired') && ($env{'request.course.sec'} eq '')) {
             $options .= '              $options .= '
 <option value="chgsec">'.$lt{'chgsec'}.'</option>';  <option value="chgsec">'.$lt{'chgsec'}.'</option>';
             $choices{'sections'} = 1;              $choices{'sections'} = 1;
         }          }
     }      }
     if ($options) {      if ($options) {
         $output = '<select name="bulkaction" onchange="javascript:opendatebrowser(this.form,'."'studentform'".')" />'."\n".          $output = '<select name="bulkaction">'."\n".
                   '<option value="" selected="selected">'.                    '<option value="" selected="selected">'.
                   &mt('Please select').'</option>'."\n".$options."\n".'</select>';                    &mt('Please select').'</option>'."\n".$options."\n".'</select>';
         if ($choices{'dates'}) {          if ($choices{'dates'}) {
Line 2367  sub select_actions { Line 2994  sub select_actions {
                 '<input type="hidden" name="enddate_year" value="" />'."\n".                  '<input type="hidden" name="enddate_year" value="" />'."\n".
                 '<input type="hidden" name="enddate_hour" value="" />'."\n".                  '<input type="hidden" name="enddate_hour" value="" />'."\n".
                 '<input type="hidden" name="enddate_minute" value="" />'."\n".                  '<input type="hidden" name="enddate_minute" value="" />'."\n".
                 '<input type="hidden" name="enddate_second" value="" />'."\n";                  '<input type="hidden" name="enddate_second" value="" />'."\n".
                   '<input type="hidden" name="no_end_date" value="" />'."\n";
             if ($context eq 'course') {              if ($context eq 'course') {
                 $output .= '<input type="hidden" name="makedatesdefault" value="" />'."\n";                  $output .= '<input type="hidden" name="makedatesdefault" value="" />'."\n";
             }              }
         }          }
         if ($choices{'sections'}) {          if ($choices{'sections'}) {
             $output .= '<input type="hidden" name="retainsec" value= "" />'."\n".              $output .= '<input type="hidden" name="retainsec" value="" />'."\n".
                        '<input type="hidden" name="newsecs" value= "" />'."\n";                         '<input type="hidden" name="newsecs" value="" />'."\n";
         }          }
     }      }
     return $output;      return $output;
Line 2382  sub select_actions { Line 3010  sub select_actions {
   
 sub date_section_javascript {  sub date_section_javascript {
     my ($context,$setting) = @_;      my ($context,$setting) = @_;
     my $title;      my $title = 'Date_And_Section_Selector';
     if (($context eq 'course') || ($context eq 'domain' && $setting eq 'course'))  {      my %nopopup = &Apache::lonlocal::texthash (
         $title = &mt('Date and Section selector');          revoke => "Check the boxes for any users for whom roles are to be revoked, and click 'Proceed'",
     } else {          delete => "Check the boxes for any users for whom roles are to be deleted, and click 'Proceed'",
         $title = &mt('Date selector');          none   => "Choose an action to take for selected users",
     }      );  
     my $output = '      my $output = <<"ENDONE";
 <script type="text/javascript">  <script type="text/javascript">
     var stdeditbrowser;'."\n";  // <![CDATA[
     $output .= <<"ENDONE";      function opendatebrowser(callingform,formname,calledby) {
     function opendatebrowser(callingform,formname) {  
         var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;          var bulkaction = callingform.bulkaction.options[callingform.bulkaction.selectedIndex].value;
         if (bulkaction == 'revoke' || bulkaction == 'delete' || bulkaction == '') {  
             return;  
         }  
         var url = '/adm/createuser?';          var url = '/adm/createuser?';
         var type = '';          var type = '';
         var showrole = callingform.showrole.options[callingform.showrole.selectedIndex].value;          var showrole = callingform.showrole.options[callingform.showrole.selectedIndex].value;
Line 2417  ENDONE Line 3041  ENDONE
         stdeditbrowser = open(url,title,options,'1');          stdeditbrowser = open(url,title,options,'1');
         stdeditbrowser.focus();          stdeditbrowser.focus();
     }      }
   // ]]>
 </script>  </script>
 ENDTWO  ENDTWO
     return $output;      return $output;
 }  }
   
 sub date_section_selector {  sub date_section_selector {
     my ($context) = @_;      my ($context,$permission,$crstype) = @_;
     my $callingform = $env{'form.callingform'};      my $callingform = $env{'form.callingform'};
     my $formname = 'dateselect';        my $formname = 'dateselect';  
     my $groupslist = &get_groupslist();      my $groupslist = &get_groupslist();
     my $sec_js = &setsections_javascript($formname,$groupslist);      my $sec_js = &setsections_javascript($formname,$groupslist);
     my $output = <<"END";      my $output = <<"END";
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
   
 $sec_js  $sec_js
   
Line 2438  function saveselections(formname) { Line 3064  function saveselections(formname) {
 END  END
     if ($env{'form.bulkaction'} eq 'chgsec') {      if ($env{'form.bulkaction'} eq 'chgsec') {
         $output .= <<"END";          $output .= <<"END";
         opener.document.$callingform.retainsec.value = formname.retainsec.value;          if (formname.retainsec.length > 1) {  
               for (var i=0; i<formname.retainsec.length; i++) {
                   if (formname.retainsec[i].checked == true) {
                       opener.document.$callingform.retainsec.value = formname.retainsec[i].value;
                   }
               }
           } else {
               opener.document.$callingform.retainsec.value = formname.retainsec.value;
           }
         setSections(formname);          setSections(formname);
         if (seccheck == 'ok') {          if (seccheck == 'ok') {
             opener.document.$callingform.newsecs.value = formname.sections.value;              opener.document.$callingform.newsecs.value = formname.sections.value;
             window.close();  
         }          }
         return;  
 END  END
     } else {      } else {
         if ($context eq 'course') {          if ($context eq 'course') {
             if (($env{'form.bulkaction'} eq 'reenable') ||               if (($env{'form.bulkaction'} eq 'reenable') || 
                 ($env{'form.bulkaction'} eq 'activate') ||                   ($env{'form.bulkaction'} eq 'activate') || 
                 ($env{'form.bulkaction'} eq 'chgdates')) {                  ($env{'form.bulkaction'} eq 'chgdates')) {
                 $output .= <<"END";                  if ($env{'request.course.sec'} eq '') {
                       $output .= <<"END";
     
         if (formname.makedatesdefault.checked == true) {          if (formname.makedatesdefault.checked == true) {
             opener.document.$callingform.makedatesdefault.value = 1;              opener.document.$callingform.makedatesdefault.value = 1;
Line 2461  END Line 3094  END
         }          }
   
 END  END
                   }
             }              }
         }          }
         $output .= <<"END";          $output .= <<"END";
Line 2476  END Line 3110  END
     opener.document.$callingform.enddate_hour.value =  formname.enddate_hour.options[formname.enddate_hour.selectedIndex].value;      opener.document.$callingform.enddate_hour.value =  formname.enddate_hour.options[formname.enddate_hour.selectedIndex].value;
     opener.document.$callingform.enddate_minute.value =  formname.enddate_minute.value;      opener.document.$callingform.enddate_minute.value =  formname.enddate_minute.value;
     opener.document.$callingform.enddate_second.value = formname.enddate_second.value;      opener.document.$callingform.enddate_second.value = formname.enddate_second.value;
     window.close();      if (formname.no_end_date.checked) {
           opener.document.$callingform.no_end_date.value = '1';
       } else {
           opener.document.$callingform.no_end_date.value = '0';
       }
 END  END
     }      }
     $output .= '      my $verify_action_js = &bulkaction_javascript($callingform,'popup');
       $output .= <<"ENDJS";
       verify_action('actionlist');
 }  }
   
   $verify_action_js
   
   // ]]>
 </script>  </script>
 ';  ENDJS
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                  chac => 'Access dates to apply for selected users',                   chac => 'Access dates to apply for selected users',
                  chse => 'Changes in section affiliation to apply to selected users',                   chse => 'Changes in section affiliation to apply to selected users',
Line 2502  END Line 3146  END
             $starttime = time;              $starttime = time;
         }          }
         $date_items = &date_setting_table($starttime,undef,$context,          $date_items = &date_setting_table($starttime,undef,$context,
                                           $env{'form.bulkaction'});                                            $env{'form.bulkaction'},$formname,
                                             $permission,$crstype);
     }      }
     $output .= '<h3>'.$headertext.'</h3>'.      $output .= '<h3>'.$headertext.'</h3>'.
                '<form name="'.$formname.'" method="post">'."\n".                 '<form name="'.$formname.'" method="post">'."\n".
                 $date_items;                  $date_items;
     if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') {      if ($context eq 'course' && $env{'form.bulkaction'} eq 'chgsec') {
         my ($cnum,$cdom) = &get_course_identity();          my ($cnum,$cdom) = &get_course_identity();
         my %sections_count =  
             &Apache::loncommon::get_sections($cdom,$cnum);  
         my $info;          my $info;
         if ($env{'form.showrole'} eq 'st') {          if ($env{'form.showrole'} eq 'st') {
             $output .= '<p>'.$lt{'fors'}.'</p>';               $output .= '<p>'.$lt{'fors'}.'</p>'; 
         } elsif ($env{'form.shorole'} eq 'Any') {          } elsif ($env{'form.showrole'} eq 'Any') {
             $output .= '<p>'.$lt{'fors'}.'</p>'.              $output .= '<p>'.$lt{'fors'}.'</p>'.
                        '<p>'.$lt{'forn'}.'&nbsp;';                         '<p>'.$lt{'forn'}.'&nbsp;';
             $info = $lt{'reta'};              $info = $lt{'reta'};
Line 2535  END Line 3178  END
         } else {          } else {
             $info = '<input type="hidden" name="retainsec" value="0" />';               $info = '<input type="hidden" name="retainsec" value="0" />'; 
         }          }
         my $sections_select .= &course_sections(\%sections_count,$env{'form.showrole'});          my $rowtitle = &mt('New section to assign');
         my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".          my $secbox = &section_picker($cdom,$cnum,$env{'form.showrole'},$rowtitle,$permission,$context,'',$crstype);
                      &Apache::lonhtmlcommon::row_title(&mt('New section to assign'),'LC_oddrow_value')."\n".  
                      '<table class="LC_createuser"><tr class="LC_section_row">'."\n".  
                      '<td align="center">'.&mt('Existing sections')."\n".  
                      '<br />'.$sections_select.'</td><td align="center">'.  
                      &mt('New section').'<br />'."\n".  
                      '<input type="text" name="newsec" size="15" />'."\n".  
                      '<input type="hidden" name="sections" value="" />'."\n".  
                      '</td></tr></table>'."\n".  
                      &Apache::lonhtmlcommon::row_closure(1)."\n".  
                      &Apache::lonhtmlcommon::end_pick_box().'</p>';  
         $output .= $info.$secbox;          $output .= $info.$secbox;
     }      }
     $output .= '<p>'.      $output .= '<p>'.
 &mt('Use "Save" to update the main window with your selections.').'<br /><br />'.  
 '<input type="button" name="dateselection" value="'.&mt('Save').'" onclick="javascript:saveselections(this.form)" /></p>'."\n".  '<input type="button" name="dateselection" value="'.&mt('Save').'" onclick="javascript:saveselections(this.form)" /></p>'."\n".
 '</form>';  '</form>';
     return $output;      return $output;
 }  }
   
 sub section_picker {  sub section_picker {
     my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode) = @_;      my ($cdom,$cnum,$role,$rowtitle,$permission,$context,$mode,$crstype) = @_;
     my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);      my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
     my $sections_select .= &course_sections(\%sections_count,$role);      my $sections_select .= &course_sections(\%sections_count,$role);
     my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n";      my $secbox = '<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n";
     if ($mode eq 'upload') {      if ($mode eq 'upload') {
         my ($options,$cb_script,$coursepick) =          my ($options,$cb_script,$coursepick) =
             &default_role_selector($context,1);              &default_role_selector($context,1,$crstype);
         $secbox .= &Apache::lonhtmlcommon::row_title('role','LC_oddrow_value').          $secbox .= &Apache::lonhtmlcommon::row_title(&mt('role'),'LC_oddrow_value').
                    $options. &Apache::lonhtmlcommon::row_closure(1)."\n";                     $options. &Apache::lonhtmlcommon::row_closure(1)."\n";
     }      }
     $secbox .= &Apache::lonhtmlcommon::row_title($rowtitle,'LC_oddrow_value')."\n";      $secbox .= &Apache::lonhtmlcommon::row_title($rowtitle,'LC_oddrow_value')."\n";
Line 2587  sub section_picker { Line 3219  sub section_picker {
 }  }
   
 sub results_header_row {  sub results_header_row {
     my ($rolefilter,$statusmode,$context,$permission) = @_;      my ($rolefilter,$statusmode,$context,$permission,$mode) = @_;
     my ($description,$showfilter);      my ($description,$showfilter);
     if ($rolefilter ne 'Any') {      if ($rolefilter ne 'Any') {
         $showfilter = $rolefilter;          $showfilter = $rolefilter;
     }      }
     if ($context eq 'course') {      if ($context eq 'course') {
         $description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': ';          if ($mode eq 'csv' || $mode eq 'excel') {
               $description = &mt('Course - [_1]:',$env{'course.'.$env{'request.course.id'}.'.description'}).' ';
           }
         if ($statusmode eq 'Expired') {          if ($statusmode eq 'Expired') {
             $description .= &mt('Users in course with expired [_1] roles',$showfilter);              $description .= &mt('Users in course with expired [_1] roles',$showfilter);
         } elsif ($statusmode eq 'Future') {          } elsif ($statusmode eq 'Future') {
Line 2607  sub results_header_row { Line 3241  sub results_header_row {
                 $description .= &mt('All users in course with [_1] roles',$rolefilter);                  $description .= &mt('All users in course with [_1] roles',$rolefilter);
             }              }
         }          }
         if (exists($permission->{'view_section'})) {          my $constraint;
           my $viewablesec = &viewable_section($permission);
           if ($viewablesec ne '') {
             if ($env{'form.showrole'} eq 'st') {              if ($env{'form.showrole'} eq 'st') {
                 $description .= ' '.&mt('(section [_1] only)',$permission->{'view_section'});                  $constraint = &mt('only users in section "[_1]"',$viewablesec);
             } elsif ($env{'form.showrole'} eq 'any') {              } elsif ($env{'form.showrole'} ne 'cc') {
                 $description .= ' '.&mt('(section [_1] only)',$permission->{'view_section'});                  $constraint = &mt('only users affiliated with no section or section "[_1]"',$viewablesec);
               }
               if (($env{'form.grpfilter'} ne 'all') && ($env{'form.grpfilter'} ne '')) {
                   if ($env{'form.grpfilter'} eq 'none') {
                       $constraint .= &mt(' and not in any group');
                   } else {
                       $constraint .= &mt(' and members of group: "[_1]"',$env{'form.grpfilter'});
                   }
               }
           } else {
               if (($env{'form.secfilter'} ne 'all') && ($env{'form.secfilter'} ne '')) {
                   if ($env{'form.secfilter'} eq 'none') {
                       $constraint = &mt('only users affiliated with no section');
                   } else {
                       $constraint = &mt('only users affiliated with section "[_1]"',$env{'form.secfilter'});
                   }
               }
               if (($env{'form.grpfilter'} ne 'all') && ($env{'form.grpfilter'} ne '')) {
                   if ($env{'form.grpfilter'} eq 'none') {
                       if ($constraint eq '') {
                           $constraint = &mt('only users not in any group');
                       } else {
                           $constraint .= &mt(' and also not in any group'); 
                       }
                   } else {
                       if ($constraint eq '') {
                           $constraint = &mt('only members of group: "[_1]"',$env{'form.grpfilter'});
                       } else {
                           $constraint .= &mt(' and also members of group: "[_1]"'.$env{'form.grpfilter'});
                       }
                   }
             }              }
         }          }
           if ($constraint ne '') {
               $description .= ' ('.$constraint.')';
           } 
     } elsif ($context eq 'author') {      } elsif ($context eq 'author') {
         $description =           $description = 
             &mt('Author space for <span class="LC_cusr_emph">[_1]</span>',              &mt('Author space for [_1]'
         &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})).':&nbsp;&nbsp;';                  ,'<span class="LC_cusr_emph">'
                   .&Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'})
                   .'</span>')
               .':&nbsp;&nbsp;';
         if ($statusmode eq 'Expired') {          if ($statusmode eq 'Expired') {
             $description .= &mt('Co-authors with expired [_1] roles',$showfilter);              $description .= &mt('Co-authors with expired [_1] roles',$showfilter);
         } elsif ($statusmode eq 'Future') {          } elsif ($statusmode eq 'Future') {
Line 2633  sub results_header_row { Line 3305  sub results_header_row {
         }          }
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');          my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');
         $description = &mt('Domain - ').$domdesc.': ';          $description = &mt('Domain - [_1]:',$domdesc).' ';
         if ($env{'form.roletype'} eq 'domain') {          if ($env{'form.roletype'} eq 'domain') {
             if ($statusmode eq 'Expired') {              if ($statusmode eq 'Expired') {
                 $description .= &mt('Users in domain with expired [_1] roles',$showfilter);                  $description .= &mt('Users in domain with expired [_1] roles',$showfilter);
Line 2693  sub results_header_row { Line 3365  sub results_header_row {
     }      }
     return $description;      return $description;
 }  }
   
   sub viewable_section {
       my ($permission) = @_;
       my $viewablesec;
       if (ref($permission) eq 'HASH') {
           if (exists($permission->{'view_section'})) {
               $viewablesec = $permission->{'view_section'};
           } elsif (exists($permission->{'cusr_section'})) {
               $viewablesec = $permission->{'cusr_section'};
           }
       }
       return $viewablesec;
   }
   
           
 #################################################  #################################################
 #################################################  #################################################
 sub show_drop_list {  sub show_drop_list {
     my ($r,$classlist,$keylist,$nosort,$permission)=@_;      my ($r,$classlist,$nosort,$permission,$crstype) = @_;
     my $cid=$env{'request.course.id'};      my $cid = $env{'request.course.id'};
     my ($cnum,$cdom) = &get_course_identity($cid);      my ($cnum,$cdom) = &get_course_identity($cid);
     if (! exists($env{'form.sortby'})) {      if (! exists($env{'form.sortby'})) {
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
Line 2708  sub show_drop_list { Line 3394  sub show_drop_list {
     if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) {      if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end)$/) {
         $sortby = 'username';          $sortby = 'username';
     }      }
     my ($classgroups) = &Apache::loncoursedata::get_group_memberships(  
                                               $classlist,$keylist,$cdom,$cnum);  
     #  
     my $action = "drop";      my $action = "drop";
     my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();      my $check_uncheck_js = &Apache::loncommon::check_uncheck_jscript();
     $r->print(<<END);      $r->print(<<END);
Line 2718  sub show_drop_list { Line 3401  sub show_drop_list {
 <input type="hidden" name="action" value="$action" />  <input type="hidden" name="action" value="$action" />
 <input type="hidden" name="state"  value="done" />  <input type="hidden" name="state"  value="done" />
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
   // <![CDATA[
 $check_uncheck_js  $check_uncheck_js
   // ]]>
 </script>  </script>
 <p>  <p>
 <input type="hidden" name="phase" value="four">  <input type="hidden" name="phase" value="four" />
 END  END
       my ($indexhash,$keylist) = &make_keylist_array();
 my %lt=&Apache::lonlocal::texthash('usrn'   => "username",      my $studentcount = 0;
                                    'dom'    => "domain",      if (ref($classlist) eq 'HASH') {
                                    'sn'     => "student name",          foreach my $student (keys(%{$classlist})) {
                                    'sec'    => "section",              my $sdata = $classlist->{$student}; 
                                    'start'  => "start date",              my $status = $sdata->[$indexhash->{'status'}];
                                    'end'    => "end date",              my $section = $sdata->[$indexhash->{'section'}];
                                    'groups' => "active groups",              if ($status ne 'Active') {
                                    );                  delete($classlist->{$student});
                   next;
               }
               if ($env{'request.course.sec'} ne '') {
                   if ($section ne $env{'request.course.sec'}) {
                       delete($classlist->{$student});
                       next;
                   }
               }
               $studentcount ++;
           }
       }
       if (!$studentcount) {
           if ($crstype eq 'Community') {
               $r->print(&mt('There are no members to drop.'));
           } else {
               $r->print(&mt('There are no students to drop.'));
           }
           return;
       }
       my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
                                                 $classlist,$keylist,$cdom,$cnum);
       my %lt=&Apache::lonlocal::texthash('usrn'   => "username",
                                          'dom'    => "domain",
                                          'sn'     => "student name",
                                          'mn'     => "member name",
                                          'sec'    => "section",
                                          'start'  => "start date",
                                          'end'    => "end date",
                                          'groups' => "active groups",
                                         );
       my $nametitle = $lt{'sn'};
       if ($crstype eq 'Community') {
           $nametitle = $lt{'mn'};
       }
     if ($nosort) {      if ($nosort) {
         $r->print(&Apache::loncommon::start_data_table().          $r->print(&Apache::loncommon::start_data_table().
                   &Apache::loncommon::start_data_table_header_row());                    &Apache::loncommon::start_data_table_header_row());
Line 2740  my %lt=&Apache::lonlocal::texthash('usrn Line 3459  my %lt=&Apache::lonlocal::texthash('usrn
     <th>$lt{'usrn'}</th>      <th>$lt{'usrn'}</th>
     <th>$lt{'dom'}</th>      <th>$lt{'dom'}</th>
     <th>ID</th>      <th>ID</th>
     <th>$lt{'sn'}</th>      <th>$nametitle</th>
     <th>$lt{'sec'}</th>      <th>$lt{'sec'}</th>
     <th>$lt{'start'}</th>      <th>$lt{'start'}</th>
     <th>$lt{'end'}</th>      <th>$lt{'end'}</th>
Line 2759  END Line 3478  END
     </th><th>      </th><th>
        <a href="/adm/createuser?action=$action&sortby=id">ID</a>         <a href="/adm/createuser?action=$action&sortby=id">ID</a>
     </th><th>      </th><th>
        <a href="/adm/createuser?action=$action&sortby=fullname">$lt{'sn'}</a>         <a href="/adm/createuser?action=$action&sortby=fullname">$nametitle</a>
     </th><th>      </th><th>
        <a href="/adm/createuser?action=$action&sortby=section">$lt{'sec'}</a>         <a href="/adm/createuser?action=$action&sortby=section">$lt{'sec'}</a>
     </th><th>      </th><th>
Line 2774  END Line 3493  END
     }      }
     #      #
     # Sort the students      # Sort the students
     my %index;      my $index  = $indexhash->{$sortby};
     my $i;      my $second = $indexhash->{'username'};
     foreach (@$keylist) {      my $third  = $indexhash->{'domain'};
         $index{$_} = $i++;  
     }  
     $index{'groups'} = scalar(@$keylist);  
     my $index  = $index{$sortby};  
     my $second = $index{'username'};  
     my $third  = $index{'domain'};  
     my @Sorted_Students = sort {      my @Sorted_Students = sort {
         lc($classlist->{$a}->[$index])  cmp lc($classlist->{$b}->[$index])          lc($classlist->{$a}->[$index])  cmp lc($classlist->{$b}->[$index])
             ||              ||
         lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])          lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])
             ||              ||
         lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])          lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
         } (keys(%$classlist));          } (keys(%{$classlist}));
     foreach my $student (@Sorted_Students) {      foreach my $student (@Sorted_Students) {
         my $error;          my $error;
         my $sdata = $classlist->{$student};          my $sdata = $classlist->{$student};
         my $username = $sdata->[$index{'username'}];          my $username = $sdata->[$indexhash->{'username'}];
         my $domain   = $sdata->[$index{'domain'}];          my $domain   = $sdata->[$indexhash->{'domain'}];
         my $section  = $sdata->[$index{'section'}];          my $section  = $sdata->[$indexhash->{'section'}];
         my $name     = $sdata->[$index{'fullname'}];          my $name     = $sdata->[$indexhash->{'fullname'}];
         my $id       = $sdata->[$index{'id'}];          my $id       = $sdata->[$indexhash->{'id'}];
         my $start    = $sdata->[$index{'start'}];          my $start    = $sdata->[$indexhash->{'start'}];
         my $end      = $sdata->[$index{'end'}];          my $end      = $sdata->[$indexhash->{'end'}];
         my $groups = $classgroups->{$student};          my $groups = $classgroups->{$student};
         my $active_groups;          my $active_groups;
         if (ref($groups->{active}) eq 'HASH') {          if (ref($groups->{active}) eq 'HASH') {
Line 2815  END Line 3528  END
         } else {          } else {
             $end = &Apache::lonlocal::locallocaltime($end);              $end = &Apache::lonlocal::locallocaltime($end);
         }          }
         my $status   = $sdata->[$index{'status'}];  
         next if ($status ne 'Active');  
         if ($env{'request.course.sec'} ne '') {  
             if ($section ne $env{'request.course.sec'}) {  
                 next;  
             }  
         }  
         my $studentkey = $student.':'.$section;          my $studentkey = $student.':'.$section;
         my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$index{'start'}].'" />';          my $startitem = '<input type="hidden" name="'.$studentkey.'_start" value="'.$sdata->[$indexhash->{'start'}].'" />';
         #          #
         $r->print(&Apache::loncommon::start_data_table_row());          $r->print(&Apache::loncommon::start_data_table_row());
         $r->print(<<"END");          $r->print(<<"END");
     <td><input type="checkbox" name="droplist" value="$student"></td>      <td><input type="checkbox" name="droplist" value="$studentkey" /></td>
     <td>$username</td>      <td>$username</td>
     <td>$domain</td>      <td>$domain</td>
     <td>$id</td>      <td>$id</td>
     <td>$name</td>      <td>$name</td>
     <td>$section</td>      <td>$section</td>
     <td>$start</td>      <td>$start $startitem</td>
     <td>$end</td>      <td>$end</td>
     <td>$active_groups</td>      <td>$active_groups</td>
 END  END
Line 2841  END Line 3547  END
     }      }
     $r->print(&Apache::loncommon::end_data_table().'<br />');      $r->print(&Apache::loncommon::end_data_table().'<br />');
     %lt=&Apache::lonlocal::texthash(      %lt=&Apache::lonlocal::texthash(
                        'dp'   => "Expire Users' Roles",                         'dp'   => "Drop Students",
                          'dm'   => "Drop Members",
                        'ca'   => "check all",                         'ca'   => "check all",
                        'ua'   => "uncheck all",                         'ua'   => "uncheck all",
                                        );                                         );
       my $btn = $lt{'dp'};
       if ($crstype eq 'Community') {
           $btn = $lt{'dm'}; 
       }
     $r->print(<<"END");      $r->print(<<"END");
 </p><p>  </p>
 <input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.droplist)"> &nbsp;  <p>
 <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.droplist)">  <input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.droplist)" /> &nbsp;
 <p><input type=submit value="$lt{'dp'}"></p>  <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.droplist)" />
   </p>
   <p>
   <input type="submit" value="$btn" />
   </p>
 END  END
     return;      return;
 }  }
Line 2860  END Line 3575  END
 sub print_first_users_upload_form {  sub print_first_users_upload_form {
     my ($r,$context) = @_;      my ($r,$context) = @_;
     my $str;      my $str;
     $str  = '<input type="hidden" name="phase" value="two">';      $str  = '<input type="hidden" name="phase" value="two" />';
     $str .= '<input type="hidden" name="action" value="upload" />';      $str .= '<input type="hidden" name="action" value="upload" />';
     $str .= '<input type="hidden"   name="state"  value="got_file" />';      $str .= '<input type="hidden" name="state"  value="got_file" />';
     $str .= "<h3>".&mt('Upload a file containing information about users')."</h3>\n";  
     $str .= &Apache::loncommon::upfile_select_html();  
     $str .= "<p>\n";      $str .= '<h2>'.&mt('Upload a file containing information about users').'</h2>'."\n";
     $str .= '<input type="submit" name="fileupload" value="'.  
         &mt('Upload file of users').'">'."\n";      # Excel and CSV Help
     $str .= '<label><input type="checkbox" name="noFirstLine" /> '.      $str .= '<p>'
         &mt('Ignore First Line')."</label></p>\n";             .&Apache::loncommon::help_open_topic("Course_Create_Class_List",
     $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",                  &mt("How do I create a users list from a spreadsheet"))
                          &mt("How do I create a users list from a spreadsheet")).             ."<br />\n"
                              "<br />\n";             .&Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
     $str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",                  &mt("How do I create a CSV file from a spreadsheet"))
                            &mt("How do I create a CSV file from a spreadsheet")).             ."</p>\n";
                                "<br />\n";  
       $str .= &Apache::lonhtmlcommon::start_pick_box()
              .&Apache::lonhtmlcommon::row_title(&mt('File'))
              .'<p class="LC_info">'."\n"
              .&mt('Please upload an UTF8 encoded file to ensure a correct character encoding in your classlist.')."\n"
              .'</p>'."\n"
              .&Apache::loncommon::upfile_select_html()
              .&Apache::lonhtmlcommon::row_closure()
              .&Apache::lonhtmlcommon::row_title(
                   '<label for="noFirstLine">'
                  .&mt('Ignore First Line')
                  .'</label>')
              .'<input type="checkbox" name="noFirstLine" id="noFirstLine" />'
              .&Apache::lonhtmlcommon::row_closure(1)
              .&Apache::lonhtmlcommon::end_pick_box();
   
       $str .= '<p>'
              .'<input type="submit" name="fileupload" value="'.&mt('Next').'" />'
              .'</p>';
   
     $str .= &Apache::loncommon::end_page();      $str .= &Apache::loncommon::end_page();
   
     $r->print($str);      $r->print($str);
     return;      return;
 }  }
   
 # ================================================= Drop/Add from uploaded file  # ================================================= Drop/Add from uploaded file
 sub upfile_drop_add {  sub upfile_drop_add {
     my ($r,$context) = @_;      my ($r,$context,$permission) = @_;
     &Apache::loncommon::load_tmp_file($r);      &Apache::loncommon::load_tmp_file($r);
     my @userdata=&Apache::loncommon::upfile_record_sep();      my @userdata=&Apache::loncommon::upfile_record_sep();
     if($env{'form.noFirstLine'}){shift(@userdata);}      if($env{'form.noFirstLine'}){shift(@userdata);}
Line 2898  sub upfile_drop_add { Line 3633  sub upfile_drop_add {
             $fields{$env{'form.f'.$i}}=$keyfields[$i];              $fields{$env{'form.f'.$i}}=$keyfields[$i];
         }          }
     }      }
       if ($env{'form.fullup'} ne 'yes') {
           $r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n".
                     '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />');
       }
     #      #
     # Store the field choices away      # Store the field choices away
     foreach my $field (qw/username names      foreach my $field (qw/username names
                        fname mname lname gen id sec ipwd email role/) {                         fname mname lname gen id sec ipwd email role domain/) {
         $env{'form.'.$field.'_choice'}=$fields{$field};          $env{'form.'.$field.'_choice'}=$fields{$field};
     }      }
     &Apache::loncommon::store_course_settings('enrollment_upload',      &Apache::loncommon::store_course_settings('enrollment_upload',
Line 2915  sub upfile_drop_add { Line 3654  sub upfile_drop_add {
                                                 'sec_choice' => 'scalar',                                                  'sec_choice' => 'scalar',
                                                 'ipwd_choice' => 'scalar',                                                  'ipwd_choice' => 'scalar',
                                                 'email_choice' => 'scalar',                                                  'email_choice' => 'scalar',
                                                 'role_choice'  => 'scalar' });                                                  'role_choice'  => 'scalar',
                                                   'domain_choice' => 'scalar',
                                                   'inststatus_choice' => 'scalar'});
     #      #
       my ($cid,$crstype,$setting);
       if ($context eq 'domain') {
           $setting = $env{'form.roleaction'};
       }
       if ($env{'request.course.id'} ne '') {
           $cid = $env{'request.course.id'};
           $crstype = &Apache::loncommon::course_type();
       } elsif ($setting eq 'course') {
           if (&Apache::lonnet::is_course($env{'form.dcdomain'},$env{'form.dccourse'})) {
               $cid = $env{'form.dcdomain'}.'_'.$env{'form.dccourse'};
               $crstype = &Apache::loncommon::course_type($cid);
           }
       }
     my ($startdate,$enddate) = &get_dates_from_form();      my ($startdate,$enddate) = &get_dates_from_form();
     if ($env{'form.makedatesdefault'}) {      if ($env{'form.makedatesdefault'}) {
         $r->print(&make_dates_default($startdate,$enddate));          $r->print(&make_dates_default($startdate,$enddate,$context,$crstype);
     }      }
     # Determine domain and desired host (home server)      # Determine domain and desired host (home server)
     my $domain=$env{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
       my $domain;
       if ($env{'form.defaultdomain'} ne '') {
           $domain = $env{'form.defaultdomain'};
       } else {
           $domain = $defdom;
       }
     my $desiredhost = $env{'form.lcserver'};      my $desiredhost = $env{'form.lcserver'};
     if (lc($desiredhost) eq 'default') {      if (lc($desiredhost) eq 'default') {
         $desiredhost = undef;          $desiredhost = undef;
     } else {      } else {
         my %home_servers = &Apache::lonnet::get_servers($domain,'library');          my %home_servers = &Apache::lonnet::get_servers($defdom,'library');
         if (! exists($home_servers{$desiredhost})) {          if (! exists($home_servers{$desiredhost})) {
             $r->print('<span class="LC_error">'.&mt('Error').              $r->print('<span class="LC_error">'.&mt('Error').
                       &mt('Invalid home server specified').'</span>');                        &mt('Invalid home server specified').'</span>');
Line 2965  sub upfile_drop_add { Line 3725  sub upfile_drop_add {
             $amode = ''; # This causes the loop below to be skipped              $amode = ''; # This causes the loop below to be skipped
         }          }
     }      }
     my ($cid,$defaultsec,$defaultrole,$setting);      my ($defaultsec,$defaultrole);
     if ($context eq 'domain') {      if ($context eq 'domain') {
         $setting = $env{'form.roleaction'};  
         if ($setting eq 'domain') {          if ($setting eq 'domain') {
             $defaultrole = $env{'form.defaultrole'};              $defaultrole = $env{'form.defaultrole'};
         } elsif ($setting eq 'course') {          } elsif ($setting eq 'course') {
             $defaultrole = $env{'form.courserole'};              $defaultrole = $env{'form.courserole'};
         }                $defaultsec = $env{'form.sections'};
           }
     } elsif ($context eq 'author') {      } elsif ($context eq 'author') {
         $defaultrole = $env{'form.defaultrole'};          $defaultrole = $env{'form.defaultrole'};
       } elsif ($context eq 'course') {
           $defaultrole = $env{'form.defaultrole'};
           $defaultsec = $env{'form.sections'};
     }      }
     if ($context eq 'domain' && $setting eq 'course') {       # Check to see if user information can be changed
         if ($env{'form.newsec'} ne '') {      my @userinfo = ('firstname','middlename','lastname','generation',
             $defaultsec = $env{'form.newsec'};                      'permanentemail','id');
         } elsif ($env{'form.defaultsec'} ne '') {      my %canmodify;
             $defaultsec = $env{'form.defaultsec'}      if (&Apache::lonnet::allowed('mau',$domain)) {
           push(@userinfo,'inststatus');
           foreach my $field (@userinfo) {
               $canmodify{$field} = 1;
           }
       }
       my (%userlist,%modifiable_fields,@poss_roles);
       my $secidx = &Apache::loncoursedata::CL_SECTION();
       my @courseroles = &roles_by_context('course',1,'',$crstype);
       if (!&Apache::lonnet::allowed('mau',$domain)) {
           if ($context eq 'course' || $context eq 'author') {
               @poss_roles =  &curr_role_permissions($context,'','',$crstype);
               my @statuses = ('active','future');
               my ($indexhash,$keylist) = &make_keylist_array();
               my %info;
               foreach my $role (@poss_roles) {
                   %{$modifiable_fields{$role}} = &can_modify_userinfo($context,$domain,
                                                           \@userinfo,[$role]);
               }
               if ($context eq 'course') {
                   my ($cnum,$cdom) = &get_course_identity();
                   my $roster = &Apache::loncoursedata::get_classlist();
                   if (ref($roster) eq 'HASH') {
                       %userlist = %{$roster};
                   }
                   my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
                                                            \@statuses,\@poss_roles);
                   &gather_userinfo($context,'view',\%userlist,$indexhash,\%info,
                                   \%advrolehash,$permission);
               } elsif ($context eq 'author') {
                   my %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef,
                                                     \@statuses,\@poss_roles);
                   &gather_userinfo($context,'view',\%userlist,$indexhash,\%info,
                                \%cstr_roles,$permission);
   
               }
         }          }
     }      }
     if ($env{'request.course.id'} ne '') {  
         $cid = $env{'request.course.id'};  
     } elsif ($env{'form.defaultdomain'} ne '' && $env{'form.defaultcourse'} ne '') {  
         $cid = $env{'form.defaultdomain'}.'_'.  
                $env{'form.defaultcourse'};  
     }  
     if ( $domain eq &LONCAPA::clean_domain($domain)      if ( $domain eq &LONCAPA::clean_domain($domain)
         && ($amode ne '')) {          && ($amode ne '')) {
         #######################################          #######################################
Line 3001  sub upfile_drop_add { Line 3793  sub upfile_drop_add {
         } else {          } else {
             $r->print('<h3>'.&mt('Adding/Modifying Users')."</h3>\n<p>\n");              $r->print('<h3>'.&mt('Adding/Modifying Users')."</h3>\n<p>\n");
         }          }
           $r->rflush;
   
         my %counts = (          my %counts = (
                        user => 0,                         user => 0,
                        auth => 0,                         auth => 0,
Line 3008  sub upfile_drop_add { Line 3802  sub upfile_drop_add {
                      );                       );
         my $flushc=0;          my $flushc=0;
         my %student=();          my %student=();
         my %curr_groups;          my (%curr_groups,@sections,@cleansec,$defaultwarn,$groupwarn);
         my %userchg;          my %userchg;
         if ($context eq 'course') {          if ($context eq 'course' || $setting eq 'course') {
             # Get information about course groups              if ($context eq 'course') {
             %curr_groups = &Apache::longroup::coursegroups();                  # Get information about course groups
                   %curr_groups = &Apache::longroup::coursegroups();
               } elsif ($setting eq 'course') {
                   if ($cid) {
                       %curr_groups =
                           &Apache::longroup::coursegroups($env{'form.dcdomain'},
                                                           $env{'form.dccourse'});
                   }
               }
               # determine section number
               if ($defaultsec =~ /,/) {
                   push(@sections,split(/,/,$defaultsec));
               } else {
                   push(@sections,$defaultsec);
               }
               # remove non alphanumeric values from section
               foreach my $item (@sections) {
                   $item =~ s/\W//g;
                   if ($item eq "none" || $item eq 'all') {
                       $defaultwarn = &mt('Default section name [_1] could not be used as it is a reserved word.',$item);
                   } elsif ($item ne ''  && exists($curr_groups{$item})) {
                       $groupwarn = &mt('Default section name "[_1]" is the name of a course group. Section names and group names must be distinct.',$item);
                   } elsif ($item ne '') {
                       push(@cleansec,$item);
                   }
               }
               if ($defaultwarn) {
                   $r->print($defaultwarn.'<br />');
               }
               if ($groupwarn) {
                   $r->print($groupwarn.'<br />');
               }
         }          }
         my (%curr_rules,%got_rules,%alerts);          my (%curr_rules,%got_rules,%alerts);
           my %customroles = &my_custom_roles();
           my @permitted_roles = 
               &roles_on_upload($context,$setting,$crstype,%customroles); 
         # Get new users list          # Get new users list
         foreach (@userdata) {          foreach my $line (@userdata) {
             my %entries=&Apache::loncommon::record_sep($_);              my @secs;
               my %entries=&Apache::loncommon::record_sep($line);
             # Determine user name              # Determine user name
             unless (($entries{$fields{'username'}} eq '') ||              unless (($entries{$fields{'username'}} eq '') ||
                     (!defined($entries{$fields{'username'}}))) {                      (!defined($entries{$fields{'username'}}))) {
Line 3042  sub upfile_drop_add { Line 3871  sub upfile_drop_add {
                 if ($entries{$fields{'username'}}                  if ($entries{$fields{'username'}}
                     ne &LONCAPA::clean_username($entries{$fields{'username'}})) {                      ne &LONCAPA::clean_username($entries{$fields{'username'}})) {
                     $r->print('<br />'.                      $r->print('<br />'.
       &mt('<b>[_1]</b>: Unacceptable username for user [_2] [_3] [_4] [_5]',        &mt('[_1]: Unacceptable username for user [_2] [_3] [_4] [_5]',
           $entries{$fields{'username'}},$fname,$mname,$lname,$gen).            '<b>'.$entries{$fields{'username'}}.'</b>',$fname,$mname,$lname,$gen));
                               '</b>');                      next;
                 } else {                  } else {
                       if ($entries{$fields{'domain'}} 
                           ne &LONCAPA::clean_domain($entries{$fields{'domain'}})) {
                           $r->print('<br />'. '<b>'.$entries{$fields{'domain'}}.
                                     '</b>: '.&mt('Unacceptable domain for user [_2] [_3] [_4] [_5]',$fname,$mname,$lname,$gen));
                           next;
                       }
                     my $username = $entries{$fields{'username'}};                      my $username = $entries{$fields{'username'}};
                     my $sec;                      my $userdomain = $entries{$fields{'domain'}};
                     if ($context eq 'course' || $setting eq 'course') {                      if ($userdomain eq '') {
                         # determine section number                          $userdomain = $domain;
                         if (defined($fields{'sec'})) {                      }
                             if (defined($entries{$fields{'sec'}})) {                      if (defined($fields{'sec'})) {
                                 $sec=$entries{$fields{'sec'}};                          if (defined($entries{$fields{'sec'}})) {
                               $entries{$fields{'sec'}} =~ s/\W//g;
                               my $item = $entries{$fields{'sec'}};
                               if ($item eq "none" || $item eq 'all') {
                                   $r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a reserved word.','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$item));
                                   next;
                               } elsif (exists($curr_groups{$item})) {
                                   $r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]" - this is a course group.','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$item).' '.&mt('Section names and group names must be distinct.'));
                                   next;
                               } else {
                                   push(@secs,$item);
                             }                              }
                         } else {  
                             $sec = $defaultsec;  
                         }                          }
                         # remove non alphanumeric values from section                      }
                         $sec =~ s/\W//g;                      if ($env{'request.course.sec'} ne '') {
                         if ($sec eq "none" || $sec eq 'all') {                          @secs = ($env{'request.course.sec'});
                             $r->print('<br />'.                          if (ref($userlist{$username.':'.$userdomain}) eq 'ARRAY') {
       &mt('<b>[_1]</b>: Unable to enroll: section name "[_2]" for user [_3] [_4] [_5] [_6] is a reserved word.',                              my $currsec = $userlist{$username.':'.$userdomain}[$secidx];
                                       $username,$sec,$fname,$mname,$lname,$gen));                              if ($currsec ne $env{'request.course.sec'}) {
                             next;                                  $r->print('<br />'.&mt('[_1]: Unable to enroll user [_2] [_3] [_4] [_5] in a section named "[_6]".','<b>'.$username.'</b>',$fname,$mname,$lname,$gen,$secs[0]).'<br />');
                         } elsif (($sec ne '') && (exists($curr_groups{$sec}))) {                                  if ($currsec eq '') {
                             $r->print('<br />'.                                      $r->print(&mt('This user already has an active/future student role in the course, unaffiliated to any section.'));
       &mt('<b>[_1]</b>: Unable to enroll: section name "[_2]" for user [_3] [_4] [_5] [_6] is a course group. Section names and group names must be distinct.',  
                                       $username,$sec,$fname,$mname,$lname,$gen));                                  } else {
                             next;                                      $r->print(&mt('This user already has an active/future role in section "[_1]" of the course.',$currsec));
                                   }
                                   $r->print('<br />'.&mt('Although your current role has privileges to add students to section "[_1]", you do not have privileges to modify existing enrollments in other sections.',$secs[0]).'<br />');
                                   next;
                               }
                           }
                       } elsif ($context eq 'course' || $setting eq 'course') {
                           if (@secs == 0) {
                               @secs = @cleansec;
                         }                          }
                     }                      }
                     # determine id number                      # determine id number
Line 3084  sub upfile_drop_add { Line 3935  sub upfile_drop_add {
                     if (defined($fields{'email'})) {                      if (defined($fields{'email'})) {
                         if (defined($entries{$fields{'email'}})) {                          if (defined($entries{$fields{'email'}})) {
                             $email=$entries{$fields{'email'}};                              $email=$entries{$fields{'email'}};
                             unless ($email=~/^[^\@]+\@[^\@]+$/) { $email=''; }                        }                              unless ($email=~/^[^\@]+\@[^\@]+$/) { $email=''; }
                           }
                       }
                       # determine affiliation
                       my $inststatus='';
                       if (defined($fields{'inststatus'})) {
                           if (defined($entries{$fields{'inststatus'}})) {
                               $inststatus=$entries{$fields{'inststatus'}};
                           }
                     }                      }
                     # determine user password                      # determine user password
                     my $password = $genpwd;                      my $password = $genpwd;
Line 3097  sub upfile_drop_add { Line 3956  sub upfile_drop_add {
                     my $role = '';                      my $role = '';
                     if (defined($fields{'role'})) {                      if (defined($fields{'role'})) {
                         if ($entries{$fields{'role'}}) {                          if ($entries{$fields{'role'}}) {
                             my @poss_roles =                               $entries{$fields{'role'}}  =~ s/(\s+$|^\s+)//g;
                                  &curr_role_permissions($context,$setting);                              if ($entries{$fields{'role'}} ne '') {
                             if (grep(/^\Q$entries{$fields{'role'}}\E/,@poss_roles)) {                                  if (grep(/^\Q$entries{$fields{'role'}}\E$/,@permitted_roles)) {
                                 $role=$entries{$fields{'role'}};                                      $role = $entries{$fields{'role'}};
                             } else {                                  }
                                 my $rolestr = join(', ',@poss_roles);                              }
                                 $r->print('<br />'.                              if ($role eq '') {
       &mt('<b>[_1]</b>: You do not have permission to add the requested role [_2] for the user.',$entries{$fields{'username'}},$entries{$fields{'role'}}).'<br />'.&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n");                                  my $rolestr = join(', ',@permitted_roles);
                                   $r->print('<br />'
                                            .&mt('[_1]: You do not have permission to add the requested role [_2] for the user.'
                                                ,'<b>'.$entries{$fields{'username'}}.'</b>'
                                                ,$entries{$fields{'role'}})
                                            .'<br />'
                                            .&mt('Allowable role(s) is/are: [_1].',$rolestr)."\n"
                                   );
                                 next;                                  next;
                             }                              }
                         }                          }
Line 3113  sub upfile_drop_add { Line 3979  sub upfile_drop_add {
                         $role = $defaultrole;                          $role = $defaultrole;
                     }                      }
                     # Clean up whitespace                      # Clean up whitespace
                     foreach (\$domain,\$username,\$id,\$fname,\$mname,                      foreach (\$id,\$fname,\$mname,\$lname,\$gen) {
                              \$lname,\$gen,\$sec,\$role) {  
                         $$_ =~ s/(\s+$|^\s+)//g;                          $$_ =~ s/(\s+$|^\s+)//g;
                     }                      }
                     # check against rules                      # check against rules
                     my $checkid = 0;                      my $checkid = 0;
                     my $newuser = 0;                      my $newuser = 0;
                     my (%rulematch,%inst_results,%idinst_results);                      my (%rulematch,%inst_results,%idinst_results);
                     my $uhome=&Apache::lonnet::homeserver($username,$domain);                      my $uhome=&Apache::lonnet::homeserver($username,$userdomain);
                     if ($uhome eq 'no_host') {                      if ($uhome eq 'no_host') {
                           next if ($userdomain ne $domain);
                         $checkid = 1;                          $checkid = 1;
                         $newuser = 1;                          $newuser = 1;
                         my $checkhash;                          my $checkhash;
Line 3137  sub upfile_drop_add { Line 4003  sub upfile_drop_add {
                             }                              }
                         }                          }
                     } else {                      } else {
 # FIXME check if user info can be updated.                             if ($context eq 'course' || $context eq 'author') {
                               if ($userdomain eq $domain ) {
                                   if ($role eq '') {
                                       my @checkroles;
                                       foreach my $role (@poss_roles) {
                                           my $endkey;
                                           if ($role ne 'st') {
                                               $endkey = ':'.$role;
                                           }
                                           if (exists($userlist{$username.':'.$userdomain.$endkey})) {
                                               if (!grep(/^\Q$role\E$/,@checkroles)) {
                                                   push(@checkroles,$role);
                                               }
                                           }
                                       }
                                       if (@checkroles > 0) {
                                           %canmodify = &can_modify_userinfo($context,$domain,\@userinfo,\@checkroles);
                                       }
                                   } elsif (ref($modifiable_fields{$role}) eq 'HASH') {
                                       %canmodify = %{$modifiable_fields{$role}};
                                   }
                               }
                               my @newinfo = (\$fname,\$mname,\$lname,\$gen,\$email,\$id);
                               for (my $i=0; $i<@newinfo; $i++) {
                                   if (${$newinfo[$i]} ne '') {
                                       if (!$canmodify{$userinfo[$i]}) {
                                           ${$newinfo[$i]} = '';
                                       }
                                   }
                               }
                           }
                     }                      }
                     if ($id ne '') {                      if ($id ne '') {
                         if (!$newuser) {                          if (!$newuser) {
                             my %idhash = &Apache::lonnet::idrget($domain,($username));                              my %idhash = &Apache::lonnet::idrget($userdomain,($username));
                             if ($idhash{$username} ne $id) {                              if ($idhash{$username} ne $id) {
                                 $checkid = 1;                                  $checkid = 1;
                             }                              }
Line 3149  sub upfile_drop_add { Line 4045  sub upfile_drop_add {
                         if ($checkid) {                          if ($checkid) {
                             my $checkhash;                              my $checkhash;
                             my $checks = { 'id' => 1 };                              my $checks = { 'id' => 1 };
                             $checkhash->{$username.':'.$domain} = { 'newuser' => $newuser,                              $checkhash->{$username.':'.$userdomain} = { 'newuser' => $newuser,
                                                                     'id'  => $id };                                                                      'id'  => $id };
                             &Apache::loncommon::user_rule_check($checkhash,$checks,                              &Apache::loncommon::user_rule_check($checkhash,$checks,
                                 \%alerts,\%rulematch,\%idinst_results,\%curr_rules,                                  \%alerts,\%rulematch,\%idinst_results,\%curr_rules,
                                 \%got_rules);                                  \%got_rules);
                             if (ref($alerts{'id'}) eq 'HASH') {                              if (ref($alerts{'id'}) eq 'HASH') {
                                 if (ref($alerts{'id'}{$domain}) eq 'HASH') {                                  if (ref($alerts{'id'}{$userdomain}) eq 'HASH') {
                                     next if ($alerts{'id'}{$domain}{$id});                                      next if ($alerts{'id'}{$userdomain}{$id});
                                 }                                  }
                             }                              }
                         }                          }
                     }                      }
                     if ($password || $env{'form.login'} eq 'loc') {                      if ($password || $env{'form.login'} eq 'loc') {
                         my ($userresult,$authresult,$roleresult);                          my $multiple = 0;
                           my ($userresult,$authresult,$roleresult,$idresult);
                           my (%userres,%authres,%roleres,%idres);
                           my $singlesec = '';
                         if ($role eq 'st') {                          if ($role eq 'st') {
                             &modifystudent($domain,$username,$cid,$sec,                              my $sec;
                                            $desiredhost);                              if (@secs > 0) {
                             $roleresult =                                   $sec = $secs[0];
                               }
                               &modifystudent($userdomain,$username,$cid,$sec,
                                              $desiredhost,$context);
                               $roleresult =
                                 &Apache::lonnet::modifystudent                                  &Apache::lonnet::modifystudent
                                     ($domain,$username,$id,$amode,$password,                                      ($userdomain,$username,$id,$amode,$password,
                                      $fname,$mname,$lname,$gen,$sec,$enddate,                                       $fname,$mname,$lname,$gen,$sec,$enddate,
                                      $startdate,$env{'form.forceid'},                                       $startdate,$env{'form.forceid'},
                                      $desiredhost,$email);                                       $desiredhost,$email,'manual','',$cid,
                                        '',$context,$inststatus);
                               $userresult = $roleresult;
                         } else {                          } else {
                             ($userresult,$authresult,$roleresult) =                               if ($role ne '') { 
                                 &modifyuserrole($context,$setting,                                  if ($context eq 'course' || $setting eq 'course') {
                                     $changeauth,$cid,$domain,$username,                                       if ($customroles{$role}) {
                                     $id,$amode,$password,$fname,                                          $role = 'cr_'.$env{'user.domain'}.'_'.
                                     $mname,$lname,$gen,$sec,                                                  $env{'user.name'}.'_'.$role;
                                     $env{'form.forceid'},$desiredhost,                                      }
                                     $email,$role,$enddate,$startdate,$checkid);                                      if ($role ne 'cc') { 
                         }                                          if (@secs > 1) {
                         $flushc =                                               $multiple = 1;
                             &user_change_result($r,$userresult,$authresult,                                              foreach my $sec (@secs) {
                                                 $roleresult,\%counts,$flushc,                                                  ($userres{$sec},$authres{$sec},$roleres{$sec},$idres{$sec}) =
                                                 $username,%userchg);                                                  &modifyuserrole($context,$setting,
                                                       $changeauth,$cid,$userdomain,$username,
                                                       $id,$amode,$password,$fname,
                                                       $mname,$lname,$gen,$sec,
                                                       $env{'form.forceid'},$desiredhost,
                                                       $email,$role,$enddate,
                                                       $startdate,$checkid,$inststatus);
                                               }
                                           } 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) {
                               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 {                      } else {
                         if ($context eq 'course') {                          if ($context eq 'course') {
                             $r->print('<br />'.                               $r->print('<br />'. 
       &mt('<b>[_1]</b>: Unable to enroll.  No password specified.',$username)        &mt('[_1]: Unable to enroll. No password specified.','<b>'.$username.'</b>')
                                      );                                       );
                         } elsif ($context eq 'author') {                          } elsif ($context eq 'author') {
                             $r->print('<br />'.                              $r->print('<br />'.
       &mt('<b>[_1]</b>: Unable to add co-author.  No password specified.',$username)        &mt('[_1]: Unable to add co-author. No password specified.','<b>'.$username.'</b>')
                                      );                                       );
                         } else {                          } else {
                             $r->print('<br />'.                              $r->print('<br />'.
       &mt('<b>[_1]</b>: Unable to add user.  No password specified.',$username)        &mt('[_1]: Unable to add user. No password specified.','<b>'.$username.'</b>')
                                      );                                       );
                         }                          }
                     }                      }
Line 3205  sub upfile_drop_add { Line 4148  sub upfile_drop_add {
         } # end of foreach (@userdata)          } # end of foreach (@userdata)
         # Flush the course logs so reverse user roles immediately updated          # Flush the course logs so reverse user roles immediately updated
         &Apache::lonnet::flushcourselogs();          &Apache::lonnet::flushcourselogs();
         $r->print("</p>\n<p>\n".&mt('Processed [_1] user(s).',$counts{'user'}).          $r->print("</p>\n<p>\n".&mt('Processed [quant,_1,user].',$counts{'user'}).
                   "</p>\n");                    "</p>\n");
         if ($counts{'role'} > 0) {          if ($counts{'role'} > 0) {
             $r->print("<p>\n".              $r->print("<p>\n".
                       &mt('Roles added for [_1] users. If user is active, the new role will be available when the user next logs in to LON-CAPA.',$counts{'role'})."</p>\n");                        &mt('Roles added for [quant,_1,user].',$counts{'role'}).' '.&mt('If a user is currently logged-in to LON-CAPA, any new roles which are active will be available when the user next logs in.')."</p>\n");
           } else {
               $r->print('<p>'.&mt('No roles added').'</p>');
         }          }
         if ($counts{'auth'} > 0) {          if ($counts{'auth'} > 0) {
             $r->print("<p>\n".              $r->print("<p>\n".
Line 3217  sub upfile_drop_add { Line 4162  sub upfile_drop_add {
                           $counts{'auth'})."</p>\n");                            $counts{'auth'})."</p>\n");
         }          }
         $r->print(&print_namespacing_alerts($domain,\%alerts,\%curr_rules));          $r->print(&print_namespacing_alerts($domain,\%alerts,\%curr_rules));
         $r->print('<form name="uploadresult" action="/adm/createuser">');  
         $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','prevphase','currstate']));  
         $r->print('</form>');  
         #####################################          #####################################
         #           Drop students           #          # Display list of students to drop  #
         #####################################          #####################################
         if ($env{'form.fullup'} eq 'yes') {          if ($env{'form.fullup'} eq 'yes') {
             $r->print('<h3>'.&mt('Dropping Students')."</h3>\n");              $r->print('<h3>'.&mt('Students to Drop')."</h3>\n");
             #  Get current classlist              #  Get current classlist
             my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();              my $classlist = &Apache::loncoursedata::get_classlist();
             if (! defined($classlist)) {              if (! defined($classlist)) {
                 $r->print(&mt('There are no students currently enrolled.').                  $r->print('<form name="studentform" method="post" action="/adm/createuser" />'.
                           "\n");                            '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
             } else {                            &mt('There are no students with current/future access to the course.').
                             '</form>'."\n");
               } elsif (ref($classlist) eq 'HASH') {
                 # Remove the students we just added from the list of students.                  # Remove the students we just added from the list of students.
                 foreach (@userdata) {                  foreach my $line (@userdata) {
                     my %entries=&Apache::loncommon::record_sep($_);                      my %entries=&Apache::loncommon::record_sep($line);
                     unless (($entries{$fields{'username'}} eq '') ||                      unless (($entries{$fields{'username'}} eq '') ||
                             (!defined($entries{$fields{'username'}}))) {                              (!defined($entries{$fields{'username'}}))) {
                         delete($classlist->{$entries{$fields{'username'}}.                          delete($classlist->{$entries{$fields{'username'}}.
Line 3241  sub upfile_drop_add { Line 4185  sub upfile_drop_add {
                     }                      }
                 }                  }
                 # Print out list of dropped students.                  # Print out list of dropped students.
                 &show_drop_list($r,$classlist,$keylist,'nosort');                  &show_drop_list($r,$classlist,'nosort',$permission);
             }              }
         }          }
     } # end of unless      } # end of unless
       if ($env{'form.fullup'} ne 'yes') {
           $r->print('</form>');
       }
 }  }
   
 sub print_namespacing_alerts {  sub print_namespacing_alerts {
Line 3288  sub print_namespacing_alerts { Line 4235  sub print_namespacing_alerts {
 }  }
   
 sub user_change_result {  sub user_change_result {
     my ($r,$userresult,$authresult,$roleresult,$counts,$flushc,$username,      my ($r,$userresult,$authresult,$roleresult,$idresult,$counts,$flushc,
         $userchg) = @_;          $username,$userdomain,$userchg) = @_;
     my $okresult = 0;      my $okresult = 0;
     if ($userresult ne 'ok') {      if ($userresult ne 'ok') {
         if ($userresult =~ /^error:(.+)$/) {          if ($userresult =~ /^error:(.+)$/) {
             my $error = $1;              my $error = $1;
             $r->print('<br />'.              $r->print('<br />'.
                   &mt('<b>[_1]</b>:  Unable to add/modify: [_2]',$username,$error));                    &mt('[_1]: Unable to add/modify: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
         }          }
     } else {      } else {
         $counts->{'user'} ++;          $counts->{'user'} ++;
Line 3305  sub user_change_result { Line 4252  sub user_change_result {
         if ($authresult =~ /^error:(.+)$/) {          if ($authresult =~ /^error:(.+)$/) {
             my $error = $1;              my $error = $1;
             $r->print('<br />'.              $r->print('<br />'.
                   &mt('<b>[_1]</b>:  Unable to modify authentication: [_2]',$username,$error));                    &mt('[_1]: Unable to modify authentication: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
         }           } 
     } else {      } else {
         $counts->{'auth'} ++;          $counts->{'auth'} ++;
Line 3315  sub user_change_result { Line 4262  sub user_change_result {
         if ($roleresult =~ /^error:(.+)$/) {          if ($roleresult =~ /^error:(.+)$/) {
             my $error = $1;              my $error = $1;
             $r->print('<br />'.              $r->print('<br />'.
                   &mt('<b>[_1]</b>:  Unable to add role: [_2]',$username,$error));                    &mt('[_1]: Unable to add role: [_2]','<b>'.$username.':'.$userdomain.'</b>',$error));
         }          }
     } else {      } else {
         $counts->{'role'} ++;          $counts->{'role'} ++;
Line 3323  sub user_change_result { Line 4270  sub user_change_result {
     }      }
     if ($okresult) {      if ($okresult) {
         $flushc++;          $flushc++;
         $userchg->{$username}=1;          $userchg->{$username.':'.$userdomain}=1;
         $r->print('. ');          $r->print('. ');
         if ($flushc>15) {          if ($flushc>15) {
             $r->rflush;              $r->rflush;
             $flushc=0;              $flushc=0;
         }          }
     }      }
       if ($idresult) {
           $r->print($idresult);
       }
     return $flushc;      return $flushc;
 }  }
   
 # ========================================================= Menu Phase Two Drop  # ========================================================= Menu Phase Two Drop
 sub print_drop_menu {  sub print_drop_menu {
     my ($r,$context,$permission) = @_;      my ($r,$context,$permission,$crstype) = @_;
     $r->print('<h3>'.&mt("Drop Students").'</h3>'."\n".      my $heading;
       if ($crstype eq 'Community') {
           $heading = &mt("Drop Members");
       } else {
           $heading = &mt("Drop Students");
       }
       $r->print('<h3>'.$heading.'</h3>'."\n".
               '<form name="studentform" method="post">'."\n");                '<form name="studentform" method="post">'."\n");
     my $cid=$env{'request.course.id'};      my $classlist = &Apache::loncoursedata::get_classlist();
     my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();  
     if (! defined($classlist)) {      if (! defined($classlist)) {
         $r->print(&mt('There are no students currently enrolled.')."\n");          if ($crstype eq 'Community') {
         return;              $r->print(&mt('There are no members currently enrolled.')."\n");
           } else {
               $r->print(&mt('There are no students currently enrolled.')."\n");
           }
       } else {
           &show_drop_list($r,$classlist,'nosort',$permission,$crstype);
     }      }
     # Print out the available choices  
     &show_drop_list($r,$classlist,$keylist,$permission);  
     $r->print('</form>'. &Apache::loncommon::end_page());      $r->print('</form>'. &Apache::loncommon::end_page());
     return;      return;
 }  }
Line 3356  sub update_user_list { Line 4314  sub update_user_list {
     my ($r,$context,$setting,$choice) = @_;      my ($r,$context,$setting,$choice) = @_;
     my $now = time;      my $now = time;
     my $count=0;      my $count=0;
       my $crstype;
       if ($context eq 'course') {
           $crstype = &Apache::loncommon::course_type();
       }
     my @changelist;      my @changelist;
     if ($choice ne '') {      if ($choice eq 'drop') {
         @changelist = &Apache::loncommon::get_env_multiple('form.actionlist');  
     } else {  
         @changelist = &Apache::loncommon::get_env_multiple('form.droplist');          @changelist = &Apache::loncommon::get_env_multiple('form.droplist');
       } else {
           @changelist = &Apache::loncommon::get_env_multiple('form.actionlist');
     }      }
     my %result_text = ( ok    => { 'revoke'   => 'Revoked',      my %result_text = ( ok    => { 'revoke'   => 'Revoked',
                                    'delete'   => 'Deleted',                                     'delete'   => 'Deleted',
Line 3426  sub update_user_list { Line 4388  sub update_user_list {
                 }                  }
             }              }
         }          }
         my $plrole = &Apache::lonnet::plaintext($role);          my $plrole = &Apache::lonnet::plaintext($role,$crstype);
         my ($uid,$first,$middle,$last,$gene,$sec);  
         my $start = $env{'form.'.$item.'_start'};          my $start = $env{'form.'.$item.'_start'};
         my $end = $env{'form.'.$item.'_end'};          my $end = $env{'form.'.$item.'_end'};
         if ($choice eq 'drop') {          if ($choice eq 'drop') {
Line 3435  sub update_user_list { Line 4396  sub update_user_list {
             $end = $now;              $end = $now;
             $type = 'manual';              $type = 'manual';
             $result =              $result =
                 &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);                  &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
         } elsif ($choice eq 'revoke') {          } elsif ($choice eq 'revoke') {
             # revoke or delete user role              # revoke or delete user role
             $end = $now;               $end = $now; 
             if ($role eq 'st') {              if ($role eq 'st') {
                 $result =                   $result = 
                     &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);                      &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
             } else {              } else {
                 $result =                   $result = 
                     &Apache::lonnet::revokerole($udom,$uname,$scope,$role);                      &Apache::lonnet::revokerole($udom,$uname,$scope,$role,
                                                   '','',$context);
             }              }
         } elsif ($choice eq 'delete') {          } elsif ($choice eq 'delete') {
             $start = -1;  
             $end = -1;  
             if ($role eq 'st') {              if ($role eq 'st') {
 # FIXME - how does role deletion affect classlist?                  &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,$end,$start,$type,$locktype,$cid);              }
             } else {              $result =
                 $result =                  &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now,
                     &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$now,                                              $start,1,'',$context);
                                                 0,1);  
              }  
         } else {          } else {
             #reenable, activate, change access dates or change section              #reenable, activate, change access dates or change section
             if ($choice ne 'chgsec') {              if ($choice ne 'chgsec') {
Line 3465  sub update_user_list { Line 4423  sub update_user_list {
             }              }
             if ($choice eq 'reenable') {              if ($choice eq 'reenable') {
                 if ($role eq 'st') {                  if ($role eq 'st') {
                     $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);                      $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
                 } else {                  } else {
                     $result =                       $result = 
                         &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,                          &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
                                                     $now);                                                      $now,'','',$context);
                 }                  }
             } elsif ($choice eq 'activate') {              } elsif ($choice eq 'activate') {
                 if ($role eq 'st') {                  if ($role eq 'st') {
                     $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);                      $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
                 } else {                  } else {
                     $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,                      $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
                                             $now);                                              $now,'','',$context);
                 }                  }
             } elsif ($choice eq 'chgdates') {              } elsif ($choice eq 'chgdates') {
                 if ($role eq 'st') {                  if ($role eq 'st') {
                     $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid);                      $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,$type,$locktype,$cid,'',$context);
                 } else {                  } else {
                     $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,                      $result = &Apache::lonnet::assignrole($udom,$uname,$scope,$role,$end,
                                                 $start);                                                  $start,'','',$context);
                 }                  }
             } elsif ($choice eq 'chgsec') {              } elsif ($choice eq 'chgsec') {
                 my (@newsecs,$revresult,$nochg,@retained);                  my (@newsecs,$revresult,$nochg,@retained);
Line 3496  sub update_user_list { Line 4454  sub update_user_list {
                         if (@newsecs == 0) {                          if (@newsecs == 0) {
                             $result = &mt('No change in section assignment (none)');                              $result = &mt('No change in section assignment (none)');
                             $nochg = 1;                              $nochg = 1;
                         }                          } else {
                     } else {  
                         if (!grep(/^\Q$sec\E$/,@newsecs)) {  
                             $revresult =                              $revresult =
                                &Apache::lonnet::revokerole($udom,$uname,$scope,$role);                                  &Apache::lonnet::revokerole($udom,$uname,
                                                               $scope,$role,
                                                               '','',$context);
                           } 
                       } else {
                           if (@newsecs > 0) {
                               if (grep(/^\Q$sec\E$/,@newsecs)) {
                                   push(@retained,$sec);
                               } else {
                                   $revresult =
                                       &Apache::lonnet::revokerole($udom,$uname,
                                                                   $scope,$role,
                                                                   '','',$context);
                               }
                         } else {                          } else {
                             push(@retained,$sec);                              $revresult =
                                   &Apache::lonnet::revokerole($udom,$uname,
                                                               $scope,$role,
                                                               '','',$context);
                         }                          }
                     }                      }
                 } else {                  } else {
                     push(@retained,$sec);                      if ($sec eq '') {
                           $nochg = 1;
                       } else { 
                           push(@retained,$sec);
                       }
                 }                  }
                 # add new sections                  # add new sections
                 if (@newsecs == 0) {                  if (@newsecs == 0) {
                     if (!$nochg) {                      if (!$nochg) {
                         if ($sec ne '') {                          if ($role eq 'st') {
                             if ($role eq 'st') {                              $result = 
                                 $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);                          } else {
                             } else {                              my $newscope = $scopestem;
                                 my $newscope = $scopestem;                              $result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start,'','',$context);
                                 $result = &Apache::lonnet::assignrole($udom,$uname,$newscope,$role,$end,$start);  
                             }  
                         }                          }
                     }                      }
                 } else {                  } else {
                     foreach my $newsec (@newsecs) {                       foreach my $newsec (@newsecs) { 
                         if (!grep(/^\Q$newsec\E$/,@retained)) {                          if (!grep(/^\Q$newsec\E$/,@retained)) {
                             if ($role eq 'st') {                              if ($role eq 'st') {
                                 $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid);                                  $result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$newsec,$end,$start,$type,$locktype,$cid,'',$context);
                             } else {                              } else {
                                 my $newscope = $scopestem;                                  my $newscope = $scopestem;
                                 if ($newsec ne '') {                                  if ($newsec ne '') {
Line 3552  sub update_user_list { Line 4526  sub update_user_list {
             $count++;              $count++;
         } else {          } else {
             $r->print(              $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,$uname.':'.$udom,$result).'<br />');
         }          }
     }      }
     $r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,users].",$count).'</b></p>');      $r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n");
       if ($choice eq 'drop') {
           $r->print('<input type="hidden" name="action" value="listusers" />'."\n".
                     '<input type="hidden" name="Status" value="Active" />'."\n".
                     '<input type="hidden" name="showrole" value="st" />'."\n");
       } else {
           foreach my $item ('action','sortby','roletype','showrole','Status','secfilter','grpfilter') {
               if ($env{'form.'.$item} ne '') {
                   $r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.
                             '" />'."\n");
               }
           }
       }
       $r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>');
     if ($count > 0) {      if ($count > 0) {
         if ($choice eq 'revoke' || $choice eq 'drop') {          if ($choice eq 'revoke' || $choice eq 'drop') {
             $r->print('<p>'.&mt('Re-enabling will re-activate data for the role.</p>'));              $r->print('<p>'.&mt('Re-enabling will re-activate data for the role.').'</p>');
         }          }
         # Flush the course logs so reverse user roles immediately updated          # Flush the course logs so reverse user roles immediately updated
         &Apache::lonnet::flushcourselogs();          &Apache::lonnet::flushcourselogs();
     }      }
     if ($env{'form.makedatesdefault'}) {      if ($env{'form.makedatesdefault'}) {
         if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') {          if ($choice eq 'chgdates' || $choice eq 'reenable' || $choice eq 'activate') {
             $r->print(&make_dates_default($startdate,$enddate));              $r->print(&make_dates_default($startdate,$enddate,$context,$crstype));
         }          }
     }      }
       my $linktext = &mt('Display User Lists');
       if ($choice eq 'drop') {
           $linktext = &mt('Display current class roster');
       }
       $r->print('<a href="javascript:document.studentform.submit()">'.$linktext.'</a></form>'."\n");
 }  }
   
 sub classlist_drop {  sub classlist_drop {
     my ($scope,$uname,$udom,$now,$action) = @_;      my ($scope,$uname,$udom,$now) = @_;
     my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)});      my ($cdom,$cnum) = ($scope=~m{^/($match_domain)/($match_courseid)});
     my $cid=$cdom.'_'.$cnum;      if (&Apache::lonnet::is_course($cdom,$cnum)) {
     my $user = $uname.':'.$udom;  
     if ($action eq 'drop') {  
         if (!&active_student_roles($cnum,$cdom,$uname,$udom)) {          if (!&active_student_roles($cnum,$cdom,$uname,$udom)) {
             my $result =              my %user;
                 &Apache::lonnet::cput('classlist',              my $result = &update_classlist($cdom,$cnum,$udom,$uname,\%user,$now);
                                       { $user => $now },  
                                       $env{'course.'.$cid.'.domain'},  
                                       $env{'course.'.$cid.'.num'});  
             return &mt('Drop from classlist: [_1]',              return &mt('Drop from classlist: [_1]',
                        '<b>'.$result.'</b>').'<br />';                         '<b>'.$result.'</b>').'<br />';
         }          }
Line 3649  sub set_login { Line 4636  sub set_login {
 }  }
   
 sub course_sections {  sub course_sections {
     my ($sections_count,$role) = @_;      my ($sections_count,$role,$current_sec) = @_;
     my $output = '';      my $output = '';
     my @sections = (sort {$a <=> $b} keys %{$sections_count});      my @sections = (sort {$a <=> $b} keys %{$sections_count});
     if (scalar(@sections) == 1) {      my $numsec = scalar(@sections);
       my $is_selected = ' selected="selected"';
       if ($numsec <= 1) {
         $output = '<select name="currsec_'.$role.'" >'."\n".          $output = '<select name="currsec_'.$role.'" >'."\n".
                   '  <option value="">Select</option>'."\n".                    '  <option value="">'.&mt('Select').'</option>'."\n";
                   '  <option value="">No section</option>'."\n".          if ($current_sec eq 'none') {
               $output .=       
                     '  <option value=""'.$is_selected.'>'.&mt('No section').'</option>'."\n";
           } else {
               $output .=
                     '  <option value="">'.&mt('No section').'</option>'."\n";
           }
           if ($numsec == 1) {
               if ($current_sec eq $sections[0]) {
                   $output .=
                     '  <option value="'.$sections[0].'"'.$is_selected.'>'.$sections[0].'</option>'."\n";
               } else {
                   $output .=  
                   '  <option value="'.$sections[0].'" >'.$sections[0].'</option>'."\n";                    '  <option value="'.$sections[0].'" >'.$sections[0].'</option>'."\n";
               }
           }
     } else {      } else {
         $output = '<select name="currsec_'.$role.'" ';          $output = '<select name="currsec_'.$role.'" ';
         my $multiple = 4;          my $multiple = 4;
         if (scalar(@sections) < 4) { $multiple = scalar(@sections); }          if (scalar(@sections) < 4) { $multiple = scalar(@sections); }
         $output .= 'multiple="multiple" size="'.$multiple.'">'."\n";          if ($role eq 'st') {
               $output .= '>'."\n".
                          '  <option value="">'.&mt('Select').'</option>'."\n";
               if ($current_sec eq 'none') {
                   $output .= 
                          '  <option value=""'.$is_selected.'>'.&mt('No section')."</option>\n";
               } else {
                   $output .=
                          '  <option value="">'.&mt('No section')."</option>\n";
               }
           } else {
               $output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
           }
         foreach my $sec (@sections) {          foreach my $sec (@sections) {
             $output .= '<option value="'.$sec.'">'.$sec."</option>\n";              if ($current_sec eq $sec) {
                   $output .= '<option value="'.$sec.'"'.$is_selected.'>'.$sec."</option>\n";
               } else {
                   $output .= '<option value="'.$sec.'">'.$sec."</option>\n";
               }
         }          }
     }      }
     $output .= '</select>';      $output .= '</select>';
Line 3681  sub get_groupslist { Line 4700  sub get_groupslist {
 }  }
   
 sub setsections_javascript {  sub setsections_javascript {
     my ($form,$groupslist) = @_;      my ($formname,$groupslist,$mode,$checkauth) = @_;
     my ($checkincluded,$finish,$roleplace,$setsection_js);      my ($checkincluded,$finish,$rolecode,$setsection_js);
     if ($form eq 'cu') {      if ($mode eq 'upload') {
           $checkincluded = 'formname.name == "'.$formname.'"';
           $finish = "return 'ok';";
           $rolecode = "var role = formname.defaultrole.options[formname.defaultrole.selectedIndex].value;\n";
       } elsif ($formname eq 'cu') {
         $checkincluded = 'formname.elements[i-1].checked == true';          $checkincluded = 'formname.elements[i-1].checked == true';
         $finish = 'formname.submit()';          if ($checkauth) {
         $roleplace = 3;              $finish = "var authcheck = auth_check();\n".
                         "   if (authcheck == 'ok') {\n".
                         "       formname.submit();\n".
                         "   }\n";
           } else {
               $finish = 'formname.submit()';
           }
           $rolecode = "var match = str.split('_');
                   var role = match[3];\n";
       } elsif ($formname eq 'enrollstudent') {
           $checkincluded = 'formname.name == "'.$formname.'"';
           if ($checkauth) {
               $finish = "var authcheck = auth_check();\n".
                         "   if (authcheck == 'ok') {\n".
                         "       formname.submit();\n".
                         "   }\n";
           } else {
               $finish = 'formname.submit()';
           }
           $rolecode = "var match = str.split('_');
                   var role = match[1];\n";
     } else {      } else {
         $checkincluded = 'formname.name == "'.$form.'"';           $checkincluded = 'formname.name == "'.$formname.'"'; 
         $finish = "seccheck = 'ok';";          $finish = "seccheck = 'ok';";
         $roleplace = 1;          $rolecode = "var match = str.split('_');
                   var role = match[1];\n";
         $setsection_js = "var seccheck = 'alert';";           $setsection_js = "var seccheck = 'alert';"; 
     }      }
     my %alerts = &Apache::lonlocal::texthash(      my %alerts = &Apache::lonlocal::texthash(
Line 3715  function setSections(formname) { Line 4759  function setSections(formname) {
         var checkcurr = str.match(re1);          var checkcurr = str.match(re1);
         if (checkcurr != null) {          if (checkcurr != null) {
             if ($checkincluded) {              if ($checkincluded) {
                 var match = str.split('_');                  $rolecode
                 var role = match[$roleplace];  
                 if (role == 'cc') {                  if (role == 'cc') {
                     alert("$alerts{'secd'}\\n$alerts{'accr'}");                      alert("$alerts{'secd'}\\n$alerts{'accr'}");
                 }                  }
Line 3791  sub can_create_user { Line 4834  sub can_create_user {
     my ($dom,$context,$usertype) = @_;      my ($dom,$context,$usertype) = @_;
     my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);      my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
     my $cancreate = 1;      my $cancreate = 1;
       if (&Apache::lonnet::allowed('mau',$dom)) {
           return $cancreate;
       }
     if (ref($domconf{'usercreation'}) eq 'HASH') {      if (ref($domconf{'usercreation'}) eq 'HASH') {
         if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') {          if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') {
             if ($context eq 'course' || $context eq 'author') {              if ($context eq 'course' || $context eq 'author' || $context eq 'requestcrs') {
                 my $creation = $domconf{'usercreation'}{'cancreate'}{$context};                  my $creation = $domconf{'usercreation'}{'cancreate'}{$context};
                 if ($creation eq 'none') {                  if ($creation eq 'none') {
                     $cancreate = 0;                      $cancreate = 0;
Line 3810  sub can_create_user { Line 4856  sub can_create_user {
     return $cancreate;      return $cancreate;
 }  }
   
   sub can_modify_userinfo {
       my ($context,$dom,$fields,$userroles) = @_;
       my %domconfig =
          &Apache::lonnet::get_dom('configuration',['usermodification'],
                                   $dom);
       my %canmodify;
       if (ref($fields) eq 'ARRAY') {
           foreach my $field (@{$fields}) {
               $canmodify{$field}  = 0;
               if (&Apache::lonnet::allowed('mau',$dom)) {
                   $canmodify{$field} = 1;
               } else {
                   if (ref($domconfig{'usermodification'}) eq 'HASH') {
                       if (ref($domconfig{'usermodification'}{$context}) eq 'HASH') {
                           if (ref($userroles) eq 'ARRAY') {
                               foreach my $role (@{$userroles}) {
                                   my $testrole;
                                   if ($context eq 'selfcreate') {
                                       $testrole = $role;
                                   } else {
                                       if ($role =~ /^cr\//) {
                                           $testrole = 'cr';
                                       } else {
                                           $testrole = $role;
                                       }
                                   }
                                   if (ref($domconfig{'usermodification'}{$context}{$testrole}) eq 'HASH') {
                                       if ($domconfig{'usermodification'}{$context}{$testrole}{$field}) {
                                           $canmodify{$field} = 1;
                                           last;
                                       }
                                   }
                               }
                           } else {
                               foreach my $key (keys(%{$domconfig{'usermodification'}{$context}})) {
                                   if (ref($domconfig{'usermodification'}{$context}{$key}) eq 'HASH') {
                                       if ($domconfig{'usermodification'}{$context}{$key}{$field}) {
                                           $canmodify{$field} = 1;
                                           last;
                                       }
                                   }
                               }
                           }
                       }
                   } elsif ($context eq 'course') {
                       if (ref($userroles) eq 'ARRAY') {
                           if (grep(/^st$/,@{$userroles})) {
                               $canmodify{$field} = 1;
                           }
                       } else {
                           $canmodify{$field} = 1;
                       }
                   }
               }
           }
       }
       return %canmodify;
   }
   
   sub check_usertype {
       my ($dom,$uname,$rules) = @_;
       my $usertype;
       if (ref($rules) eq 'HASH') {
           my @user_rules = keys(%{$rules});
           if (@user_rules > 0) {
               my %rule_check = &Apache::lonnet::inst_rulecheck($dom,$uname,undef,'username',\@user_rules);
               if (keys(%rule_check) > 0) {
                   $usertype = 'unofficial';
                   foreach my $item (keys(%rule_check)) {
                       if ($rule_check{$item}) {
                           $usertype = 'official';
                           last;
                       }
                   }
               }
           }
       }
       return $usertype;
   }
   
 sub roles_by_context {  sub roles_by_context {
     my ($context,$custom) = @_;      my ($context,$custom,$crstype) = @_;
     my @allroles;      my @allroles;
     if ($context eq 'course') {      if ($context eq 'course') {
         @allroles = ('st','ad','ta','ep','in','cc');          @allroles = ('st');
           if ($env{'request.role'} =~ m{^dc\./}) {
               push(@allroles,'ad');
           }
           push(@allroles,('ta','ep','in'));
           if ($crstype eq 'Community') {
               push(@allroles,'co');
           } else {
               push(@allroles,'cc');
           }
         if ($custom) {          if ($custom) {
             push(@allroles,'cr');              push(@allroles,'cr');
         }          }
     } elsif ($context eq 'author') {      } elsif ($context eq 'author') {
         @allroles = ('ca','aa');          @allroles = ('ca','aa');
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         @allroles = ('li','dg','sc','au','dc');          @allroles = ('li','ad','dg','sc','au','dc');
     }      }
     return @allroles;      return @allroles;
 }  }
   
 sub get_permission {  sub get_permission {
     my ($context,$roles) = @_;      my ($context,$crstype) = @_;
     my %permission;      my %permission;
     if ($context eq 'course') {      if ($context eq 'course') {
         my $custom = 1;          my $custom = 1;
         my @allroles = &roles_by_context($context,$custom);          my @allroles = &roles_by_context($context,$custom,$crstype);
         foreach my $role (@allroles) {          foreach my $role (@allroles) {
             if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {              if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
                 $permission{'cusr'} = 1;                  $permission{'cusr'} = 1;
Line 3869  sub get_permission { Line 5004  sub get_permission {
     } else {      } else {
         my @allroles = &roles_by_context($context);          my @allroles = &roles_by_context($context);
         foreach my $role (@allroles) {          foreach my $role (@allroles) {
             if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) {                $permission{'cusr'} = 1;              if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) {
                   $permission{'cusr'} = 1;
                 last;                  last;
             }              }
         }          }
Line 3898  sub authorpriv { Line 5034  sub authorpriv {
          || (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; }    return 1;           || (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; }    return 1;
 }  }
   
   sub roles_on_upload {
       my ($context,$setting,$crstype,%customroles) = @_;
       my (@possible_roles,@permitted_roles);
       @possible_roles = &curr_role_permissions($context,$setting,1,$crstype);
       foreach my $role (@possible_roles) {
           if ($role eq 'cr') {
               push(@permitted_roles,keys(%customroles));
           } else {
               push(@permitted_roles,$role);
           }
       }
       return @permitted_roles;
   }
   
 sub get_course_identity {  sub get_course_identity {
     my ($cid) = @_;      my ($cid) = @_;
     my ($cnum,$cdom,$cdesc);      my ($cnum,$cdom,$cdesc);
Line 3919  sub get_course_identity { Line 5069  sub get_course_identity {
     return ($cnum,$cdom,$cdesc);      return ($cnum,$cdom,$cdesc);
 }  }
   
   sub dc_setcourse_js {
       my ($formname,$mode,$context) = @_;
       my ($dc_setcourse_code,$authen_check);
       my $cctext = &Apache::lonnet::plaintext('cc');
       my %alerts = &sectioncheck_alerts();
       my $role = 'role';
       if ($mode eq 'upload') {
           $role = 'courserole';
       } else {
           $authen_check = &verify_authen($formname,$context);
       }
       $dc_setcourse_code = (<<"SCRIPTTOP");
   $authen_check
   
   function setCourse() {
       var course = document.$formname.dccourse.value;
       if (course != "") {
           if (document.$formname.dcdomain.value != document.$formname.origdom.value) {
               alert("$alerts{'curd'}");
               return;
           }
           var userrole = document.$formname.$role.options[document.$formname.$role.selectedIndex].value
           var section="";
           var numsections = 0;
           var newsecs = new Array();
           for (var i=0; i<document.$formname.currsec.length; i++) {
               if (document.$formname.currsec.options[i].selected == true ) {
                   if (document.$formname.currsec.options[i].value != "" && document.$formname.currsec.options[i].value != null) {
                       if (numsections == 0) {
                           section = document.$formname.currsec.options[i].value
                           numsections = 1;
                       }
                       else {
                           section = section + "," +  document.$formname.currsec.options[i].value
                           numsections ++;
                       }
                   }
               }
           }
           if (document.$formname.newsec.value != "" && document.$formname.newsec.value != null) {
               if (numsections == 0) {
                   section = document.$formname.newsec.value
               }
               else {
                   section = section + "," +  document.$formname.newsec.value
               }
               newsecs = document.$formname.newsec.value.split(/,/g);
               numsections = numsections + newsecs.length;
           }
           if ((userrole == 'st') && (numsections > 1)) {
               alert("$alerts{'inea'}. $alerts{'youh'} "+numsections+" $alerts{'sect'}.\\n$alerts{'plsm'}.")
               return;
           }
           for (var j=0; j<newsecs.length; j++) {
               if ((newsecs[j] == 'all') || (newsecs[j] == 'none')) {
                   alert("'"+newsecs[j]+"' $alerts{'mayn'}.\\n$alerts{'plsc'}.");
                   return;
               }
               if (document.$formname.groups.value != '') {
                   var groups = document.$formname.groups.value.split(/,/g);
                   for (var k=0; k<groups.length; k++) {
                       if (newsecs[j] == groups[k]) {
                           alert("'"+newsecs[j]+"' $alerts{'mayt'}.\\n$alerts{'secn'}. $alerts{'plsc'}.");
                           return;
                       }
                   }
               }
           }
           if ((userrole == 'cc') && (numsections > 0)) {
               alert("$alerts{'secd'} $cctext $alerts{'role'}.\\n$alerts{'accr'}.");
               section = "";
           }
   SCRIPTTOP
       if ($mode ne 'upload') {
           $dc_setcourse_code .= (<<"ENDSCRIPT");
           var coursename = "_$env{'request.role.domain'}"+"_"+course+"_"+userrole
           var numcourse = getIndex(document.$formname.dccourse);
           if (numcourse == "-1") {
               alert("$alerts{'thwa'}");
               return;
           }
           else {
               document.$formname.elements[numcourse].name = "act"+coursename;
               var numnewsec = getIndex(document.$formname.newsec);
               if (numnewsec != "-1") {
                   document.$formname.elements[numnewsec].name = "sec"+coursename;
                   document.$formname.elements[numnewsec].value = section;
               }
               var numstart = getIndex(document.$formname.start);
               if (numstart != "-1") {
                   document.$formname.elements[numstart].name = "start"+coursename;
               }
               var numend = getIndex(document.$formname.end);
               if (numend != "-1") {
                   document.$formname.elements[numend].name = "end"+coursename
               }
           }
       }
       var authcheck = auth_check();
       if (authcheck == 'ok') {
           document.$formname.submit();
       }
   }
   ENDSCRIPT
       } else {
           $dc_setcourse_code .=  "
           document.$formname.sections.value = section;
       }
       return 'ok';
   }
   ";
       }
       $dc_setcourse_code .= (<<"ENDSCRIPT");
   
       function getIndex(caller) {
           for (var i=0;i<document.$formname.elements.length;i++) {
               if (document.$formname.elements[i] == caller) {
                   return i;
               }
           }
           return -1;
       }
   ENDSCRIPT
       return $dc_setcourse_code;
   }
   
   sub verify_authen {
       my ($formname,$context) = @_;
       my %alerts = &authcheck_alerts();
       my $finish = "return 'ok';";
       if ($context eq 'author') {
           $finish = "document.$formname.submit();";
       }
       my $outcome = <<"ENDSCRIPT";
   
   function auth_check() {
       var logintype;
       if (document.$formname.login.length) {
           if (document.$formname.login.length > 0) {
               var loginpicked = 0;
               for (var i=0; i<document.$formname.login.length; i++) {
                   if (document.$formname.login[i].checked == true) {
                       loginpicked = 1;
                       logintype = document.$formname.login[i].value;
                   }
               }
               if (loginpicked == 0) {
                   alert("$alerts{'authen'}");
                   return;
               }
           }
       } else {
           logintype = document.$formname.login.value;
       }
       if (logintype == 'nochange') {
           return 'ok';
       }
       var argpicked = document.$formname.elements[logintype+'arg'].value;
       if ((argpicked == null) || (argpicked == '') || (typeof argpicked == 'undefined')) {
           var alertmsg = '';
           switch (logintype) {
               case 'krb':
                   alertmsg = '$alerts{'krb'}';
                   break;
               case 'int':
                   alertmsg = '$alerts{'ipass'}';
               case 'fsys':
                   alertmsg = '$alerts{'ipass'}';
                   break;
               case 'loc':
                   alertmsg = '';
                   break;
               default:
                   alertmsg = '';
           }
           if (alertmsg != '') {
               alert(alertmsg);
               return;
           }
       }
       $finish
   }
   ENDSCRIPT
   }
   
   sub sectioncheck_alerts {
       my %alerts = &Apache::lonlocal::texthash(
                       curd => 'You must select a course in the current domain',
                       inea => 'In each course, each user may only have one student role at a time',
                       youh => 'You had selected',
                       sect => 'sections',
                       plsm => 'Please modify your selections so they include no more than one section',
                       mayn => 'may not be used as the name for a section, as it is a reserved word',
                       plsc => 'Please choose a different section name',
                       mayt => 'may not be used as the name for a section, as it is the name of a course group',
                       secn => 'Section names and group names must be distinct',
                       secd => 'Section designations do not apply to ',
                       role => 'roles',
                       accr => 'role will be added with access to all sections',
                       thwa => 'There was a problem with your course selection'
                    );
       return %alerts;
   }
   
   sub authcheck_alerts {
       my %alerts = 
           &Apache::lonlocal::texthash(
                       authen => 'You must choose an authentication type.',
                       krb    => 'You need to specify the Kerberos domain.',
                       ipass  => 'You need to specify the initial password.',
           );
       return %alerts;
   }
   
 1;  1;
   

Removed from v.1.17  
changed lines
  Added in v.1.97.2.4


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.