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

Diff for /loncom/interface/loncreateuser.pm between versions 1.295.2.3 and 1.329.2.7

version 1.295.2.3, 2009/08/13 20:20:12 version 1.329.2.7, 2010/12/05 21:58:11
Line 51  In LON-CAPA, roles are actually collecti Line 51  In LON-CAPA, roles are actually collecti
 Assistant", "Course Coordinator", and other such roles are really just  Assistant", "Course Coordinator", and other such roles are really just
 collection of privileges that are useful in many circumstances.  collection of privileges that are useful in many circumstances.
   
 Creating custom roles can be done by the Domain Coordinator through  Custom roles can be defined by a Domain Coordinator, Course Coordinator
 the Create User functionality. That screen will show all privileges  or Community Coordinator via the Manage User functionality.
 that can be assigned to users. For a complete list of privileges,  The custom role editor screen will show all privileges which can be
 please see C</home/httpd/lonTabs/rolesplain.tab>.  assigned to users. For a complete list of privileges, please see 
   C</home/httpd/lonTabs/rolesplain.tab>.
   
 Custom role definitions are stored in the C<roles.db> file of the role  Custom role definitions are stored in the C<roles.db> file of the creator
 author.  of the role.
   
 =cut  =cut
   
Line 68  use Apache::loncommon; Line 69  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::longroup;  use Apache::longroup;
 use Apache::lonuserutils;  use Apache::lonuserutils;
 use Apache::selfenroll();  use Apache::loncoursequeueadmin;
   use Apache::lonrequestcourse;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
 my $loginscript; # piece of javascript used in two separate instances  my $loginscript; # piece of javascript used in two separate instances
Line 110  sub initialize_authen_forms { Line 112  sub initialize_authen_forms {
   
 sub auth_abbrev {  sub auth_abbrev {
     my %abv_auth = (      my %abv_auth = (
                        krb5     => 'krb',
                      krb4     => 'krb',                       krb4     => 'krb',
                      internal => 'int',                       internal => 'int',
                      localuth => 'loc',                       localuth => 'loc',
Line 143  sub portfolio_quota { Line 146  sub portfolio_quota {
     $custom_off = ' checked="checked" ';      $custom_off = ' checked="checked" ';
     my $quota_javascript = <<"END_SCRIPT";      my $quota_javascript = <<"END_SCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function quota_changes(caller) {  function quota_changes(caller) {
     if (caller == "custom") {      if (caller == "custom") {
         if (document.cu.customquota[0].checked) {          if (document.cu.customquota[0].checked) {
Line 153  function quota_changes(caller) { Line 157  function quota_changes(caller) {
         document.cu.customquota[1].checked = true;          document.cu.customquota[1].checked = true;
     }      }
 }  }
   // ]]>
 </script>  </script>
 END_SCRIPT  END_SCRIPT
     if ($quotatype eq 'custom') {      if ($quotatype eq 'custom') {
Line 214  END_SCRIPT Line 219  END_SCRIPT
   
 sub build_tools_display {  sub build_tools_display {
     my ($ccuname,$ccdomain,$context) = @_;      my ($ccuname,$ccdomain,$context) = @_;
     my (@usertools,%userenv,$output);      my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay,
           $colspan);
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                    'blog'       => "Personal User Blog",                     'blog'       => "Personal User Blog",
                    'aboutme'    => "Personal Information Page",                     'aboutme'    => "Personal Information Page",
Line 225  sub build_tools_display { Line 231  sub build_tools_display {
                    'usde'       => "Use default",                     'usde'       => "Use default",
                    'uscu'       => "Use custom",                     'uscu'       => "Use custom",
                    'official'   => 'Can request creation of official courses',                     'official'   => 'Can request creation of official courses',
                    'unofficial' => 'Can request creation of unofficial courses',                       'unofficial' => 'Can request creation of unofficial courses',
                      'community'  => 'Can request creation of communities',
     );      );
     if ($context eq 'requestcourses') {      if ($context eq 'requestcourses') {
         %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,          %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
                       'requestcourses.official','requestcourses.unofficial');                        'requestcourses.official','requestcourses.unofficial',
         @usertools = ('official','unofficial');                        'requestcourses.community');
           @usertools = ('official','unofficial','community');
           @options =('norequest','approval','autolimit','validate');
           %validations = &Apache::lonnet::auto_courserequest_checks($ccdomain);
           %reqtitles = &courserequest_titles();
           %reqdisplay = &courserequest_display();
           $colspan = ' colspan="2"';
     } else {      } else {
         %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,          %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
                           'tools.aboutme','tools.portfolio','tools.blog');                            'tools.aboutme','tools.portfolio','tools.blog');
         @usertools = ('aboutme','blog','portfolio');          @usertools = ('aboutme','blog','portfolio');
     }      }
     foreach my $item (@usertools) {      foreach my $item (@usertools) {
         my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off);          my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off,
               $currdisp,$custdisp,$custradio);
         $cust_off = 'checked="checked" ';          $cust_off = 'checked="checked" ';
         $tool_on = 'checked="checked" ';          $tool_on = 'checked="checked" ';
         $curr_access =            $curr_access =  
             &Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef,              &Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef,
                                               $context);                                                $context);
         if ($userenv{$context.'.'.$item} eq '') {          if ($userenv{$context.'.'.$item} ne '') {
             $custom_access = 'default';  
             if (!$curr_access) {  
                 $tool_off = 'checked="checked" ';  
                 $tool_on = '';  
             }  
         } else {  
             $custom_access = 'custom';  
             $cust_on = ' checked="checked" ';              $cust_on = ' checked="checked" ';
             $cust_off = '';              $cust_off = '';
             if ($userenv{$context.'.'.$item} == 0) {          }
                 $tool_off = 'checked="checked" ';          if ($context eq 'requestcourses') {
                 $tool_on = '';              if ($userenv{$context.'.'.$item} eq '') {
                   $custom_access = &mt('Currently from default setting.');
               } else {
                   $custom_access = &mt('Currently from custom setting.');
               }
           } else {
               if ($userenv{$context.'.'.$item} eq '') {
                   $custom_access =
                       &mt('Availability determined currently from default setting.');
                   if (!$curr_access) {
                       $tool_off = 'checked="checked" ';
                       $tool_on = '';
                   }
               } else {
                   $custom_access =
                       &mt('Availability determined currently from custom setting.');
                   if ($userenv{$context.'.'.$item} == 0) {
                       $tool_off = 'checked="checked" ';
                       $tool_on = '';
                   }
             }              }
         }          }
         $output .= '  <tr class="LC_info_row">'."\n".          $output .= '  <tr class="LC_info_row">'."\n".
                    '   <td>'.$lt{$item}.'</td>'."\n".                     '   <td'.$colspan.'>'.$lt{$item}.'</td>'."\n".
                    '  </tr>'."\n".                     '  </tr>'."\n".
                    &Apache::loncommon::start_data_table_row()."\n".                     &Apache::loncommon::start_data_table_row()."\n";
                    '  <td>'.&mt('Availability determined currently from [_1] setting.',$custom_access).          if ($context eq 'requestcourses') {
                    '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$lt{'avai'}.': '.              my ($curroption,$currlimit);
                    ($curr_access?&mt('Yes'):&mt('No')).'</td>'."\n".              $curroption = $userenv{$context.'.'.$item};
               if (!$curroption) {
                   $curroption = 'norequest';
               }
               if ($curroption =~ /^autolimit=(\d*)$/) {
                   $currlimit = $1;
                   if ($currlimit eq '') {
                       $currdisp = &mt('Yes, automatic creation');
                   } else {
                       $currdisp = &mt('Yes, up to [quant,_1,request]/user',$currlimit);
                   }
               } else {
                   $currdisp = $reqdisplay{$curroption};
               }
               $custdisp = '<table>';
               foreach my $option (@options) {
                   my $val = $option;
                   if ($option eq 'norequest') {
                       $val = 0;
                   }
                   if ($option eq 'validate') {
                       my $canvalidate = 0;
                       if (ref($validations{$item}) eq 'HASH') {
                           if ($validations{$item}{'_custom_'}) {
                               $canvalidate = 1;
                           }
                       }
                       next if (!$canvalidate);
                   }
                   my $checked = '';
                   if ($option eq $curroption) {
                       $checked = ' checked="checked"';
                   } elsif ($option eq 'autolimit') {
                       if ($curroption =~ /^autolimit/) {
                           $checked = ' checked="checked"';
                       }
                   }
                   $custdisp .= '<tr><td><span class="LC_nobreak"><label>'.
                                '<input type="radio" name="crsreq_'.$item.
                                '" value="'.$val.'"'.$checked.' />'.
                                $reqtitles{$option}.'</label>&nbsp;';
                   if ($option eq 'autolimit') {
                       $custdisp .= '<input type="text" name="crsreq_'.
                                    $item.'_limit" size="1" '.
                                    'value="'.$currlimit.'" /></span><br />'.
                                    $reqtitles{'unlimited'};
                    } else {
                        $custdisp .= '</span>';
                    }
                    $custdisp .= '</td></tr>';
               }
               $custdisp .= '</table>';
               $custradio = '</span></td><td>'.&mt('Custom setting').'<br />'.$custdisp;
           } else {
               $currdisp = ($curr_access?&mt('Yes'):&mt('No'));
               $custdisp = '<span class="LC_nobreak"><label>'.
                           '<input type="radio" name="'.$context.'_'.$item.'"'.
                           ' value="1"'. $tool_on.'/>'.&mt('On').'</label>&nbsp;<label>'.
                           '<input type="radio" name="'.$context.'_'.$item.'" value="0" '.
                           $tool_off.'/>'.&mt('Off').'</label></span>';
               $custradio = ('&nbsp;'x2).'--'.$lt{'cusa'}.':&nbsp;'.$custdisp.
                             '</span>';
           }
           $output .= '  <td'.$colspan.'>'.$custom_access.('&nbsp;'x4).
                      $lt{'avai'}.': '.$currdisp.'</td>'."\n".
                    &Apache::loncommon::end_data_table_row()."\n".                     &Apache::loncommon::end_data_table_row()."\n".
                    &Apache::loncommon::start_data_table_row()."\n".                     &Apache::loncommon::start_data_table_row()."\n".
                    '  <td><span class="LC_nobreak">'.$lt{'chse'}.': <label>'.                     '  <td style="vertical-align:top;"><span class="LC_nobreak">'.
                      $lt{'chse'}.': <label>'.
                    '<input type="radio" name="custom'.$item.'" value="0" '.                     '<input type="radio" name="custom'.$item.'" value="0" '.
                    $cust_off.'/>'.$lt{'usde'}.'</label>&nbsp;&nbsp;&nbsp;'.                     $cust_off.'/>'.$lt{'usde'}.'</label>'.('&nbsp;' x3).
                     '<label><input type="radio" name="custom'.$item.'" value="1" '.                     '<label><input type="radio" name="custom'.$item.'" value="1" '.
                    $cust_on.'/>'.$lt{'uscu'}.'</label>&nbsp;&nbsp;--&nbsp;&nbsp;'.                     $cust_on.'/>'.$lt{'uscu'}.'</label>'.$custradio.'</td>'.
                    $lt{'cusa'}.':&nbsp;<label>'.  
                    '<input type="radio" name="'.$context.'_'.$item.'" value="1" '.  
                    $tool_on.'/>'.&mt('On').'</label>&nbsp;<label>'.  
                    '<input type="radio" name="'.$context.'_'.$item.'" value="0" '.  
                    $tool_off.'/>'.&mt('Off').'</label></span></td>'."\n".  
                    &Apache::loncommon::end_data_table_row()."\n";                     &Apache::loncommon::end_data_table_row()."\n";
     }      }
     return $output;      return $output;
Line 295  sub coursereq_externaluser { Line 381  sub coursereq_externaluser {
                       'reqcrsotherdom.official','reqcrsotherdom.unofficial',                        'reqcrsotherdom.official','reqcrsotherdom.unofficial',
                       'reqcrsotherdom.community');                        'reqcrsotherdom.community');
     @usertools = ('official','unofficial','community');      @usertools = ('official','unofficial','community');
     @options = ('approve','validate','autolimit');      @options = ('approval','validate','autolimit');
     %validations = &Apache::lonnet::auto_courserequest_checks($cdom);      %validations = &Apache::lonnet::auto_courserequest_checks($cdom);
     my $optregex = join('|',@options);      my $optregex = join('|',@options);
     my %reqtitles = &courserequest_titles();      my %reqtitles = &courserequest_titles();
Line 303  sub coursereq_externaluser { Line 389  sub coursereq_externaluser {
         my ($curroption,$currlimit,$tooloff);          my ($curroption,$currlimit,$tooloff);
         if ($userenv{'reqcrsotherdom.'.$item} ne '') {          if ($userenv{'reqcrsotherdom.'.$item} ne '') {
             my @curr = split(',',$userenv{'reqcrsotherdom.'.$item});              my @curr = split(',',$userenv{'reqcrsotherdom.'.$item});
             if (grep(/^\Q$cdom\E:($optregex)=?(\d*)$/,@curr)) {              foreach my $req (@curr) {
                 $curroption = $1;                  if ($req =~ /^\Q$cdom\E\:($optregex)=?(\d*)$/) {
                 $currlimit = $2;                      $curroption = $1;
                 if (!$curroption) {                      $currlimit = $2;
                     $curroption = 'norequest';                      last;
                 }                  }
             }              }
               if (!$curroption) {
                   $curroption = 'norequest';
                   $tooloff = ' checked="checked"';
               }
         } else {          } else {
             $curroption = 'norequest';              $curroption = 'norequest';
             $tooloff = ' checked="checked"';              $tooloff = ' checked="checked"';
         }          }
         $output.= &Apache::loncommon::start_data_table_row()."\n".          $output.= &Apache::loncommon::start_data_table_row()."\n".
                   '  <td><span class="LC_nobreak">'.$lt{$item}.': '.                    '  <td><span class="LC_nobreak">'.$lt{$item}.': </span></td><td>'.
                     '<table><tr><td valign="top">'."\n".
                   '<label><input type="radio" name="reqcrsotherdom_'.$item.                    '<label><input type="radio" name="reqcrsotherdom_'.$item.
                   '" value="0"'.$tooloff.' />'.$reqtitles{'norequest'}.                    '" value=""'.$tooloff.' />'.$reqtitles{'norequest'}.
                   '</label>&nbsp;';                    '</label></td>';
         foreach my $option (@options) {          foreach my $option (@options) {
             if ($option eq 'validate') {              if ($option eq 'validate') {
                 my $canvalidate = 0;                  my $canvalidate = 0;
Line 333  sub coursereq_externaluser { Line 424  sub coursereq_externaluser {
             if ($option eq $curroption) {              if ($option eq $curroption) {
                 $checked = ' checked="checked"';                  $checked = ' checked="checked"';
             }              }
             $output .= '<span class="LC_nobreak"><label>'.              $output .= '<td valign="top"><span class="LC_nobreak"><label>'.
                        '<input type="radio" name="reqcrsotherdom_'.$item.                         '<input type="radio" name="reqcrsotherdom_'.$item.
                        '" value="'.$option.'"'.$checked.' />'.                         '" value="'.$option.'"'.$checked.' />'.
                        $reqtitles{$option}.'</label>&nbsp;';                         $reqtitles{$option}.'</label>';
             if ($option eq 'autolimit') {              if ($option eq 'autolimit') {
                 $output .= '<input type="text" name="reqcrsotherdom_'.                  $output .= '&nbsp;<input type="text" name="reqcrsotherdom_'.
                            $item.'_limit" size="1" '.                             $item.'_limit" size="1" '.
                            'value="'.$currlimit.'" />';                             'value="'.$currlimit.'" /></span>'.
                              '<br />'.$reqtitles{'unlimited'};
               } else {
                   $output .= '</span>';
             }              }
             $output .= '&nbsp;'              $output .= '</td>';
         }          }
         $output .= '</span></td>'."\n".          $output .= '</td></tr></table></td>'."\n".
                    &Apache::loncommon::end_data_table_row()."\n";                     &Apache::loncommon::end_data_table_row()."\n";
     }      }
     return $output;      return $output;
Line 352  sub coursereq_externaluser { Line 446  sub coursereq_externaluser {
   
 sub courserequest_titles {  sub courserequest_titles {
     my %titles = &Apache::lonlocal::texthash (      my %titles = &Apache::lonlocal::texthash (
                                    official   => 'Official',                                   unofficial => 'Unofficial',                                     official   => 'Official',
                                    community  => 'Communities',                                   norequest  => 'Not allowed',                                     unofficial => 'Unofficial',
                                    approve    => 'Approval by Dom. Coord.',                                     community  => 'Communities',
                                      norequest  => 'Not allowed',
                                      approval   => 'Approval by Dom. Coord.',
                                    validate   => 'With validation',                                     validate   => 'With validation',
                                    autolimit  => 'Numerical limit',                                     autolimit  => 'Numerical limit',
                                      unlimited  => '(blank for unlimited)',
                  );                   );
     return %titles;         return %titles;
 }                       }
       
 sub courserequest_display {  sub courserequest_display {
     my %titles = &Apache::lonlocal::texthash (      my %titles = &Apache::lonlocal::texthash (
                                    approve    => 'Yes, need approval',                                     approval   => 'Yes, need approval',
                                    validate   => 'Yes, with validation',                                     validate   => 'Yes, with validation',
                                    norequest  => 'No',                                     norequest  => 'No',
    );        );
    return %titles;     return %titles;
 }  }
   
 # =================================================================== Phase one  # =================================================================== Phase one
   
 sub print_username_entry_form {  sub print_username_entry_form {
     my ($r,$context,$response,$srch,$forcenewuser) = @_;      my ($r,$context,$response,$srch,$forcenewuser,$crstype,$brcrum) = @_;
     my $defdom=$env{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
     my $formtoset = 'crtuser';      my $formtoset = 'crtuser';
       my $is_custom = &Apache::loncommon::needs_gci_custom();
     if (exists($env{'form.startrolename'})) {      if (exists($env{'form.startrolename'})) {
         $formtoset = 'docustom';          $formtoset = 'docustom';
         $env{'form.rolename'} = $env{'form.startrolename'};          $env{'form.rolename'} = $env{'form.startrolename'};
Line 387  sub print_username_entry_form { Line 485  sub print_username_entry_form {
   
     my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n".      my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n".
         '<script type="text/javascript">'."\n".          '<script type="text/javascript">'."\n".
         &Apache::lonhtmlcommon::set_form_elements($elements->{$formtoset}).          '// <![CDATA['."\n".
           &Apache::lonhtmlcommon::set_form_elements($elements->{$formtoset})."\n".
           '// ]]>'."\n".
         '</script>'."\n";          '</script>'."\n";
   
     my %loaditems = (      my %existingroles=&Apache::lonuserutils::my_custom_roles($crstype);
                 'onload' => "javascript:setFormElements(document.$formtoset)",      if (($env{'form.action'} eq 'custom') && (keys(%existingroles) > 0)
                     );          && (&Apache::lonnet::allowed('mcr','/'))) {
     my %breadcrumb_text = &singleuser_breadcrumb();          $jscript .= &customrole_javascript();
     my $start_page =      }
  &Apache::loncommon::start_page('User Management',      my $title = 'User Management';
        $jscript,{'add_entries' => \%loaditems,});      if ($context eq 'course') {
     if ($env{'form.action'} eq 'custom') {          if ($is_custom) {
         &Apache::lonhtmlcommon::add_breadcrumb              $title = 'Enrollment and Student Activity';
           ({href=>"javascript:backPage(document.crtuser)",          }
             text=>"Pick custom role",});  
     } else {  
         &Apache::lonhtmlcommon::add_breadcrumb  
           ({href=>"javascript:backPage(document.crtuser)",  
             text=>$breadcrumb_text{'search'},  
             faq=>282,bug=>'Instructor Interface',});  
     }      }
     my $helpitem = 'Course_Change_Privileges';      my $helpitem = 'Course_Change_Privileges';
     if ($env{'form.action'} eq 'custom') {      if ($env{'form.action'} eq 'custom') {
Line 413  sub print_username_entry_form { Line 507  sub print_username_entry_form {
     } elsif ($env{'form.action'} eq 'singlestudent') {      } elsif ($env{'form.action'} eq 'singlestudent') {
         $helpitem = 'Course_Add_Student';          $helpitem = 'Course_Add_Student';
     }      }
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',      my %breadcrumb_text = &singleuser_breadcrumb($crstype);
                                                      $helpitem);      if ($env{'form.action'} eq 'custom') {
     my %existingroles=&Apache::lonuserutils::my_custom_roles();          push(@{$brcrum},
     my $choice=&Apache::loncommon::select_form('make new role','rolename',                   {href=>"javascript:backPage(document.crtuser)",       
  ('make new role' => 'Generate new role ...',%existingroles));                    text=>"Pick custom role",
                     help => $helpitem,}
                    );
       } else {
           push (@{$brcrum},
                     {href => "javascript:backPage(document.crtuser)",
                      text => $breadcrumb_text{'search'},
                      help => $helpitem,
                      faq  => 282,
                      bug  => 'Instructor Interface',}
                     );
       }
       my %loaditems = (
                   'onload' => "javascript:setFormElements(document.$formtoset)",
                       );
       my $args = {bread_crumbs           => $brcrum,
                   bread_crumbs_component => 'User Management',
                   add_entries            => \%loaditems,};
       $r->print(&Apache::loncommon::start_page($title,$jscript,$args));
   
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                     'srst' => 'Search for a user and enroll as a student',                      'srst' => 'Search for a user and enroll as a student',
                       'srme' => 'Search for a user and enroll as a member',
                     'srad' => 'Search for a user and modify/add user information or roles',                      'srad' => 'Search for a user and modify/add user information or roles',
     'usr'  => "Username",      'usr'  => "Username",
                     'dom'  => "Domain",                      'dom'  => "Domain",
                     'ecrp' => "Edit Custom Role Privileges",                      'ecrp' => "Define or Edit Custom Role",
                     'nr'   => "Name of Role",                      'nr'   => "role name",
                     'cre'  => "Next",                      'cre'  => "Next",
        );         );
     $r->print($start_page."\n".$crumbs);  
     if ($env{'form.action'} eq 'custom') {      if ($env{'form.action'} eq 'custom') {
         if (&Apache::lonnet::allowed('mcr','/')) {          if (&Apache::lonnet::allowed('mcr','/')) {
             $r->print(<<ENDCUSTOM);              my $newroletext = &mt('Define new custom role:');
 <form action="/adm/createuser" method="post" name="docustom">              $r->print('<form action="/adm/createuser" method="post" name="docustom">'.
 <input type="hidden" name="action" value="$env{'form.action'}" />                        '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
 <input type="hidden" name="phase" value="selected_custom_edit" />                        '<input type="hidden" name="phase" value="selected_custom_edit" />'.
 <h3>$lt{'ecrp'}</h3>                        '<h3>'.$lt{'ecrp'}.'</h3>'.
 $choice $lt{'nr'}: <input type="text" size="15" name="newrolename" /><br />                        &Apache::loncommon::start_data_table().
 <input name="customeditor" type="submit" value="$lt{'cre'}" />                        &Apache::loncommon::start_data_table_row().
 </form>                        '<td>');
 ENDCUSTOM              if (keys(%existingroles) > 0) {
                   $r->print('<br /><label><input type="radio" name="customroleaction" value="new" checked="checked" onclick="setCustomFields();" /><b>'.$newroletext.'</b></label>');
               } else {
                   $r->print('<br /><input type="hidden" name="customroleaction" value="new" /><b>'.$newroletext.'</b>');
               }
               $r->print('</td><td align="center">'.$lt{'nr'}.'<br /><input type="text" size="15" name="newrolename" onfocus="setCustomAction('."'new'".');" /></td>'.
                         &Apache::loncommon::end_data_table_row());
               if (keys(%existingroles) > 0) {
                   $r->print(&Apache::loncommon::start_data_table_row().'<td><br />'.
                             '<label><input type="radio" name="customroleaction" value="edit" onclick="setCustomFields();"/><b>'.
                             &mt('View/Modify existing role:').'</b></label></td>'.
                             '<td align="center"><br />'.
                             '<select name="rolename" onchange="setCustomAction('."'edit'".');">'.
                             '<option value="" selected="selected">'.
                             &mt('Select'));
                   foreach my $role (sort(keys(%existingroles))) {
                       $r->print('<option value="'.$role.'">'.$role.'</option>');
                   }
                   $r->print('</select>'.
                             '</td>'.
                             &Apache::loncommon::end_data_table_row());
               }
               $r->print(&Apache::loncommon::end_data_table().'<p>'.
                         '<input name="customeditor" type="submit" value="'.
                         $lt{'cre'}.'" /></p>'.
                         '</form>');
         }          }
     } else {      } else {
         my $actiontext = $lt{'srad'};          my $actiontext = $lt{'srad'};
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             $actiontext = $lt{'srst'};              if ($crstype eq 'Community') {
                   $actiontext = $lt{'srme'};
               } else {
                   $actiontext = $lt{'srst'};
               }
         }          }
         $r->print("          $r->print("<h3>$actiontext</h3>");
 <h3>$actiontext</h3>");  
         if ($env{'form.origform'} ne 'crtusername') {          if ($env{'form.origform'} ne 'crtusername') {
             $r->print("\n".$response);              $r->print("\n".$response);
         }          }
         $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response));          $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype));
     }      }
     $r->print(&Apache::loncommon::end_page());  }
   
   sub customrole_javascript {
       my $js = <<"END";
   <script type="text/javascript">
   // <![CDATA[
   
   function setCustomFields() {
       if (document.docustom.customroleaction.length > 0) {
           for (var i=0; i<document.docustom.customroleaction.length; i++) {
               if (document.docustom.customroleaction[i].checked) {
                   if (document.docustom.customroleaction[i].value == 'new') {
                       document.docustom.rolename.selectedIndex = 0;
                   } else {
                       document.docustom.newrolename.value = '';
                   }
               }
           }
       }
       return;
   }
   
   function setCustomAction(caller) {
       if (document.docustom.customroleaction.length > 0) {
           for (var i=0; i<document.docustom.customroleaction.length; i++) {
               if (document.docustom.customroleaction[i].value == caller) {
                   document.docustom.customroleaction[i].checked = true;
               }
           }
       }
       setCustomFields();
       return;
   }
   
   // ]]>
   </script>
   END
       return $js;
 }  }
   
 sub entry_form {  sub entry_form {
     my ($dom,$srch,$forcenewuser,$context,$responsemsg) = @_;      my ($dom,$srch,$forcenewuser,$context,$responsemsg,$crstype) = @_;
     my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);      my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
     my ($usertype,$inexact);      my ($usertype,$inexact);
     if (ref($srch) eq 'HASH') {      if (ref($srch) eq 'HASH') {
Line 493  $userpicker Line 671  $userpicker
 ENDBLOCK  ENDBLOCK
     if ($env{'form.phase'} eq '') {      if ($env{'form.phase'} eq '') {
         my $defdom=$env{'request.role.domain'};          my $defdom=$env{'request.role.domain'};
         my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain');          my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain','',1);
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                   'enro' => 'Enroll one student',                    'enro' => 'Enroll one student',
                     'enrm' => 'Enroll one member',
                   'admo' => 'Add/modify a single user',                    'admo' => 'Add/modify a single user',
                   'crea' => 'create new user if required',                    'crea' => 'create new user if required',
                   'uskn' => "username is known",                    'uskn' => "username is known",
Line 507  ENDBLOCK Line 686  ENDBLOCK
         );          );
         my $sellink=&Apache::loncommon::selectstudent_link('crtusername','srchterm','srchdomain');          my $sellink=&Apache::loncommon::selectstudent_link('crtusername','srchterm','srchdomain');
         my ($title,$buttontext,$showresponse);          my ($title,$buttontext,$showresponse);
         if ($env{'form.action'} eq 'singlestudent') {             if ($env{'form.action'} eq 'singlestudent') {
             $title = $lt{'enro'};              if ($crstype eq 'Community') {
                   $title = $lt{'enrm'};
               } else {
                   $title = $lt{'enro'};
               }
             $buttontext = $lt{'enrl'};              $buttontext = $lt{'enrl'};
         } else {          } else {
             $title = $lt{'admo'};              $title = $lt{'admo'};
Line 537  $showresponse Line 720  $showresponse
 <table>  <table>
  <tr>   <tr>
   <td>$lt{'usr'}:</td>    <td>$lt{'usr'}:</td>
   <td><input type="text" size="15" name="srchterm" /></td>    <td><input type="text" size="25" name="srchterm" /></td>
   <td>&nbsp;$lt{'dom'}:</td><td>$domform</td>    <td>&nbsp;$lt{'dom'}:</td><td>$domform</td>
   <td>&nbsp;$sellink&nbsp;</td>    <td>&nbsp;$sellink&nbsp;</td>
   <td>&nbsp;<input name="userrole" type="submit" value="$buttontext" /></td>    <td>&nbsp;<input name="userrole" type="submit" value="$buttontext" /></td>
Line 554  sub user_modification_js { Line 737  sub user_modification_js {
           
     return <<END;      return <<END;
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
   // <![CDATA[
   
     function pclose() {      function pclose() {
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",          parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
Line 571  sub user_modification_js { Line 755  sub user_modification_js {
     }      }
   
     $nondc_setsection_code      $nondc_setsection_code
   // ]]>
 </script>  </script>
 END  END
 }  }
   
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_selection_page {  sub print_user_selection_page {
     my ($r,$response,$srch,$srch_results,$srcharray,$context) = @_;      my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements,$crstype,$brcrum) = @_;
     my @fields = ('username','domain','lastname','firstname','permanentemail');      my @fields = ('username','domain','lastname','firstname','permanentemail');
     my $sortby = $env{'form.sortby'};      my $sortby = $env{'form.sortby'};
       my $is_custom = &Apache::loncommon::needs_gci_custom();
   
     if (!grep(/^\Q$sortby\E$/,@fields)) {      if (!grep(/^\Q$sortby\E$/,@fields)) {
         $sortby = 'lastname';          $sortby = 'lastname';
Line 590  sub print_user_selection_page { Line 775  sub print_user_selection_page {
   
     my $jscript = (<<ENDSCRIPT);      my $jscript = (<<ENDSCRIPT);
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function pickuser(uname,udom) {  function pickuser(uname,udom) {
     document.usersrchform.seluname.value=uname;      document.usersrchform.seluname.value=uname;
     document.usersrchform.seludom.value=udom;      document.usersrchform.seludom.value=udom;
Line 598  function pickuser(uname,udom) { Line 784  function pickuser(uname,udom) {
 }  }
   
 $jsback  $jsback
   // ]]>
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
   
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                                        'usrch'          => "User Search to add/modify roles",                                         'usrch'          => "User Search to add/modify roles",
                                        'stusrch'        => "User Search to enroll student",                                         'stusrch'        => "User Search to enroll student",
                                          'memsrch'        => "User Search to enroll member",
                                        'usel'           => "Select a user to add/modify roles",                                         'usel'           => "Select a user to add/modify roles",
                                        'stusel'         => "Select a user to enroll as a student",                                          'stusel'         => "Select a user to enroll as a student",
                                          'memsel'         => "Select a user to enroll as a member",
                                        'username'       => "username",                                         'username'       => "username",
                                        'domain'         => "domain",                                         'domain'         => "domain",
                                        'lastname'       => "last name",                                         'lastname'       => "last name",
                                        'firstname'      => "first name",                                         'firstname'      => "first name",
                                        'permanentemail' => "permanent e-mail",                                         'permanentemail' => "permanent e-mail",
                                       );                                        );
     $r->print(&Apache::loncommon::start_page('User Management',$jscript));      if ($context eq 'requestcrs') {
           $r->print('<div>');
     my %breadcrumb_text = &singleuser_breadcrumb();      } else {
     &Apache::lonhtmlcommon::add_breadcrumb          my $title = 'User Management';
         ({href=>"javascript:backPage(document.usersrchform,'','')",          if ($context eq 'course') {
           text=>$breadcrumb_text{'search'},              if ($is_custom) {
           faq=>282,bug=>'Instructor Interface',},                  $title = 'Enrollment and Student Activity';
          {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",              }
           text=>$breadcrumb_text{'userpicked'},          }
           faq=>282,bug=>'Instructor Interface',});          my %breadcrumb_text = &singleuser_breadcrumb($crstype);
     if ($env{'form.action'} eq 'singleuser') {          my $helpitem;
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',          if ($env{'form.action'} eq 'singleuser') {
                                                       'Course_Change_Privileges'));              $helpitem = 'Course_Change_Privileges';
         $r->print("<b>$lt{'usrch'}</b><br />");          } elsif ($env{'form.action'} eq 'singlestudent') {
         $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));              $helpitem = 'Course_Add_Student';
         $r->print('<h3>'.$lt{'usel'}.'</h3>');          }
     } elsif ($env{'form.action'} eq 'singlestudent') {          push (@{$brcrum},
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',                    {href => "javascript:backPage(document.usersrchform,'','')",
                                                       'Course_Add_Student'));                     text => $breadcrumb_text{'search'},
         $r->print($jscript."<b>$lt{'stusrch'}</b><br />");                     faq  => 282,
         $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));                     bug  => 'Instructor Interface',},
         $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');                    {href => "javascript:backPage(document.usersrchform,'get_user_info','select')",
                      text => $breadcrumb_text{'userpicked'},
                      faq  => 282,
                      bug  => 'Instructor Interface',
                      help => $helpitem}
                     );
           $r->print(&Apache::loncommon::start_page($title,$jscript,{bread_crumbs => $brcrum}));
           if ($env{'form.action'} eq 'singleuser') {
               $r->print("<b>$lt{'usrch'}</b><br />");
               $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype));
               $r->print('<h3>'.$lt{'usel'}.'</h3>');
           } elsif ($env{'form.action'} eq 'singlestudent') {
               $r->print($jscript."<b>");
               if ($crstype eq 'Community') {
                   $r->print($lt{'memsrch'});
               } else {
                   $r->print($lt{'stusrch'});
               }
               $r->print("</b><br />");
               $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype));
               $r->print('</form><h3>');
               if ($crstype eq 'Community') {
                   $r->print($lt{'memsel'});
               } else {
                   $r->print($lt{'stusel'});
               }
               $r->print('</h3>');
           }
     }      }
     $r->print('<form name="usersrchform" method="post">'.      $r->print('<form name="usersrchform" method="post">'.
               &Apache::loncommon::start_data_table()."\n".                &Apache::loncommon::start_data_table()."\n".
Line 658  ENDSCRIPT Line 874  ENDSCRIPT
   
     foreach my $user (@sorted_users) {      foreach my $user (@sorted_users) {
         my ($uname,$udom) = split(/:/,$user);          my ($uname,$udom) = split(/:/,$user);
           my $onclick;
           if ($context eq 'requestcrs') {
               $onclick =
                   'onclick="javascript:gochoose('."'$uname','$udom',".
                                                  "'$srch_results->{$user}->{firstname}',".
                                                  "'$srch_results->{$user}->{lastname}',".
                                                  "'$srch_results->{$user}->{permanentemail}'".');"';
           } else {
               $onclick =
                   ' onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".');"';
           }
         $r->print(&Apache::loncommon::start_data_table_row().          $r->print(&Apache::loncommon::start_data_table_row().
                   '<td><input type="button" name="seluser" value="'.&mt('Select').'" onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".')" /></td>'.                    '<td><input type="button" name="seluser" value="'.&mt('Select').'" '.
                     $onclick.' /></td>'.
                   '<td><tt>'.$uname.'</tt></td>'.                    '<td><tt>'.$uname.'</tt></td>'.
                   '<td><tt>'.$udom.'</tt></td>');                    '<td><tt>'.$udom.'</tt></td>');
         foreach my $field ('lastname','firstname','permanentemail') {          foreach my $field ('lastname','firstname','permanentemail') {
Line 679  ENDSCRIPT Line 907  ENDSCRIPT
               ' <input type="hidden" name="currstate" value="select" />'."\n".                ' <input type="hidden" name="currstate" value="select" />'."\n".
               ' <input type="hidden" name="phase" value="get_user_info" />'."\n".                ' <input type="hidden" name="phase" value="get_user_info" />'."\n".
               ' <input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n");                ' <input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n");
     $r->print($response.'</form>'.&Apache::loncommon::end_page());      if ($context eq 'requestcrs') {
           $r->print($opener_elements.'</form></div>');
       } else {
           $r->print($response.'</form>'.&Apache::loncommon::end_page());
       }
 }  }
   
 sub print_user_query_page {  sub print_user_query_page {
     my ($r,$caller) = @_;      my ($r,$caller,$brcrum) = @_;
 # FIXME - this is for a network-wide name search (similar to catalog search)  # FIXME - this is for a network-wide name search (similar to catalog search)
 # To use frames with similar behavior to catalog/portfolio search.  # To use frames with similar behavior to catalog/portfolio search.
 # To be implemented.   # To be implemented. 
Line 691  sub print_user_query_page { Line 923  sub print_user_query_page {
 }  }
   
 sub print_user_modification_page {  sub print_user_modification_page {
     my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission) = @_;      my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission,$crstype,$brcrum) = @_;
     if (($ccuname eq '') || ($ccdomain eq '')) {      if (($ccuname eq '') || ($ccdomain eq '')) {
         my $usermsg = &mt('No username and/or domain provided.');          my $usermsg = &mt('No username and/or domain provided.');
         $env{'form.phase'} = '';          $env{'form.phase'} = '';
  &print_username_entry_form($r,$context,$usermsg);   &print_username_entry_form($r,$context,$usermsg,'','',$crstype,$brcrum);
         return;          return;
     }      }
     my ($form,$formname);      my ($form,$formname);
Line 709  sub print_user_modification_page { Line 941  sub print_user_modification_page {
     my %abv_auth = &auth_abbrev();      my %abv_auth = &auth_abbrev();
     my (%rulematch,%inst_results,$newuser,%alerts,%curr_rules,%got_rules);      my (%rulematch,%inst_results,$newuser,%alerts,%curr_rules,%got_rules);
     my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);      my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
       my $is_custom = &Apache::loncommon::needs_gci_custom();
       if ($is_custom) {
           if ($uhome eq 'no_host') {
               my $lc_ccuname = lc($ccuname);
               if ($lc_ccuname ne $ccuname) {
                   $uhome = &Apache::lonnet::homeserver($lc_ccuname,$ccdomain);
                   $ccuname = $lc_ccuname;
               }
           }
       }
     if ($uhome eq 'no_host') {      if ($uhome eq 'no_host') {
         my $usertype;  
         my ($rules,$ruleorder) =          my ($rules,$ruleorder) =
             &Apache::lonnet::inst_userrules($ccdomain,'username');              &Apache::lonnet::inst_userrules($ccdomain,'username');
             $usertype =          my $usertype =
                 &Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules);              &Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules);
         my $cancreate =          my $cancreate =
             &Apache::lonuserutils::can_create_user($ccdomain,$context,              &Apache::lonuserutils::can_create_user($ccdomain,$context,
                                                    $usertype);                                                     $usertype);
Line 724  sub print_user_modification_page { Line 965  sub print_user_modification_page {
                 official   => 'institutional',                  official   => 'institutional',
                 unofficial => 'non-institutional',                  unofficial => 'non-institutional',
             );              );
               if ($ccdomain eq 'gci') {
                   $usertypetext{'unofficial'} = 'institutional',
               }
             my $response;              my $response;
             if ($env{'form.origform'} eq 'crtusername') {              if ($env{'form.origform'} eq 'crtusername') {
                 $response =  '<span class="LC_warning">'.&mt('No match was found for the username ([_1]) in LON-CAPA domain: [_2]',$ccuname,$ccdomain).                  if ($is_custom) {
                             '</span><br />';                      $response = '<span class="LC_warning">'.&mt('Invalid format for username for new user: [_1]','<b>'.$ccuname.'</b>').
                                   '</span><br />';
                   } else {
                       $response =  '<span class="LC_warning">'.&mt('No match was found for the username ([_1]) in LON-CAPA domain: [_2]',$ccuname,$ccdomain).'</span><br />';
                   }
             }              }
             $response .= '<p class="LC_warning">'              $response .= '<p class="LC_warning">'
                         .&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.")                          .&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.")
                         .' '                          .'<br />';
                         .&mt('Please contact the [_1]helpdesk[_2] for assistance.'              if ($ccdomain =~ /^\w+citest$/) {
                             ,'<a href="'.$helplink.'">','</a>')                  $response .= &mt('Enter a valid e-mail address as the username for the new user.').' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.'
                         .'</p><br />';                               ,'<a href="'.$helplink.'">','</a>')
                                .'</p><br />';
               }
             $env{'form.phase'} = '';              $env{'form.phase'} = '';
             &print_username_entry_form($r,$context,$response);              &print_username_entry_form($r,$context,$response,undef,undef,$crstype,$brcrum);
             return;              return;
         }          }
         $newuser = 1;          $newuser = 1;
Line 760  sub print_user_modification_page { Line 1010  sub print_user_modification_page {
                             'username');                              'username');
                     }                      }
                     $env{'form.phase'} = '';                      $env{'form.phase'} = '';
                     &print_username_entry_form($r,$context,$userchkmsg);                      &print_username_entry_form($r,$context,$userchkmsg,undef,undef,$crstype,$brcrum);
                     return;                      return;
                 }                  }
             }              }
Line 781  sub print_user_modification_page { Line 1031  sub print_user_modification_page {
   
     my $js = &validation_javascript($context,$ccdomain,$pjump_def,      my $js = &validation_javascript($context,$ccdomain,$pjump_def,
                                $groupslist,$newuser,$formname,\%loaditem);                                 $groupslist,$newuser,$formname,\%loaditem);
     my $args = {'add_entries' => \%loaditem};        my $title = 'User Management';
     if ($env{'form.popup'}) {      if ($context eq 'course') {
        $args->{'no_nav_bar'} = 1;           if ($is_custom) {
               $title = 'Enrollment and Student Activity';
           }
     }      }
     my $start_page =       my %breadcrumb_text = &singleuser_breadcrumb($crstype);
  &Apache::loncommon::start_page('User Management',$js,$args);  
     my %breadcrumb_text = &singleuser_breadcrumb();  
     &Apache::lonhtmlcommon::add_breadcrumb  
      ({href=>"javascript:backPage($form)",  
        text=>$breadcrumb_text{'search'},  
        faq=>282,bug=>'Instructor Interface',});  
   
     if ($env{'form.phase'} eq 'userpicked') {  
         &Apache::lonhtmlcommon::add_breadcrumb  
      ({href=>"javascript:backPage($form,'get_user_info','select')",  
        text=>$breadcrumb_text{'userpicked'},  
        faq=>282,bug=>'Instructor Interface',});  
     }  
     &Apache::lonhtmlcommon::add_breadcrumb  
       ({href=>"javascript:backPage($form,'$env{'form.phase'}','modify')",  
         text=>$breadcrumb_text{'modify'},  
         faq=>282,bug=>'Instructor Interface',});  
     my $helpitem = 'Course_Change_Privileges';      my $helpitem = 'Course_Change_Privileges';
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         $helpitem = 'Course_Add_Student';          $helpitem = 'Course_Add_Student';
     }      }
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',      push (@{$brcrum},
                                                      $helpitem);          {href => "javascript:backPage($form)",
            text => $breadcrumb_text{'search'},
            faq  => 282,
            bug  => 'Instructor Interface',});
       if ($env{'form.phase'} eq 'userpicked') {
          push(@{$brcrum},
                 {href => "javascript:backPage($form,'get_user_info','select')",
                  text => $breadcrumb_text{'userpicked'},
                  faq  => 282,
                  bug  => 'Instructor Interface',});
       }
       push(@{$brcrum},
               {href => "javascript:backPage($form,'$env{'form.phase'}','modify')",
                text => $breadcrumb_text{'modify'},
                faq  => 282,
                bug  => 'Instructor Interface',
                help => $helpitem});
       my $args = {'add_entries'           => \%loaditem,
                   'bread_crumbs'          => $brcrum,
                   'bread_crumbs_component' => 'User Management'};
       if ($env{'form.popup'}) {
           $args->{'no_nav_bar'} = 1;
       }
       my $start_page =
           &Apache::loncommon::start_page($title,$js,$args);
   
     my $forminfo =<<"ENDFORMINFO";      my $forminfo =<<"ENDFORMINFO";
 <form action="/adm/createuser" method="post" name="$formname">  <form action="/adm/createuser" method="post" name="$formname">
Line 819  sub print_user_modification_page { Line 1078  sub print_user_modification_page {
 <input type="hidden" name="pres_type"   value="" />  <input type="hidden" name="pres_type"   value="" />
 <input type="hidden" name="pres_marker" value="" />  <input type="hidden" name="pres_marker" value="" />
 ENDFORMINFO  ENDFORMINFO
     my %inccourses;      my (%inccourses,$roledom);
     foreach my $key (keys(%env)) {      if ($context eq 'course') {
  if ($key=~/^user\.priv\.cm\.\/($match_domain)\/($match_username)/) {          $inccourses{$env{'request.course.id'}}=1;
     $inccourses{$1.'_'.$2}=1;          $roledom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       } elsif ($context eq 'author') {
           $roledom = $env{'request.role.domain'};
       } elsif ($context eq 'domain') {
           foreach my $key (keys(%env)) {
               $roledom = $env{'request.role.domain'};
               if ($key=~/^user\.priv\.cm\.\/($roledom)\/($match_username)/) {
                   $inccourses{$1.'_'.$2}=1;
               }
           }
       } else {
           foreach my $key (keys(%env)) {
       if ($key=~/^user\.priv\.cm\.\/($match_domain)\/($match_username)/) {
           $inccourses{$1.'_'.$2}=1;
               }
         }          }
     }      }
     if ($newuser) {      if ($newuser) {
Line 836  ENDFORMINFO Line 1109  ENDFORMINFO
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                 'cnu'            => 'Create New User',                  'cnu'            => 'Create New User',
                 'ast'            => 'as a student',                  'ast'            => 'as a student',
                   'ame'            => 'as a member',
                 'ind'            => 'in domain',                  'ind'            => 'in domain',
                 'lg'             => 'Login Data',                  'lg'             => 'Login Data',
                 'hs'             => "Home Server",                  'hs'             => "Home Server",
         );          );
  $r->print(<<ENDTITLE);   $r->print(<<ENDTITLE);
 $start_page  $start_page
 $crumbs  
 $response  $response
 $forminfo  $forminfo
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
   // <![CDATA[
 $loginscript  $loginscript
   // ]]>
 </script>  </script>
 <input type='hidden' name='makeuser' value='1' />  <input type='hidden' name='makeuser' value='1' />
 <h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain  <h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain
 ENDTITLE  ENDTITLE
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             $r->print(' ('.$lt{'ast'}.')');              if ($crstype eq 'Community') {
                   $r->print(' ('.$lt{'ame'}.')');
               } else {
                   $r->print(' ('.$lt{'ast'}.')');
               }
         }          }
         $r->print('</h2>'."\n".'<div class="LC_left_float">');          $r->print('</h2>'."\n".'<div class="LC_left_float">');
         my $personal_table =           my $personal_table = 
Line 870  $lt{'hs'}: $home_server_pick Line 1149  $lt{'hs'}: $home_server_pick
         } else {          } else {
             $r->print($home_server_pick);              $r->print($home_server_pick);
         }          }
           if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
               $r->print('<br /><h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'.
                         &Apache::loncommon::start_data_table().
                         &build_tools_display($ccuname,$ccdomain,
                                              'requestcourses').
                         &Apache::loncommon::end_data_table());
           }
         $r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.          $r->print('</div>'."\n".'<div class="LC_left_float"><h3>'.
                   $lt{'lg'}.'</h3>');                    $lt{'lg'}.'</h3>');
         my ($fixedauth,$varauth,$authmsg);           my ($fixedauth,$varauth,$authmsg); 
Line 903  KERB Line 1189  KERB
                             } else {                              } else {
                                 if ($authtype eq 'int') {                                  if ($authtype eq 'int') {
                                     $varauth = '<br />'.                                      $varauth = '<br />'.
 &mt('[_1] Internally authenticated (with initial password [_2])','','<input type="password" size="10" name="intarg" value="" />')."<label><input type=\"checkbox\" name=\"visible\" onClick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';  &mt('[_1] Internally authenticated (with initial password [_2])','','<input type="password" size="10" name="intarg" value="" />')."<label><input type=\"checkbox\" name=\"visible\" onclick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';
                                 } elsif ($authtype eq 'loc') {                                  } elsif ($authtype eq 'loc') {
                                     $varauth = '<br />'.                                      $varauth = '<br />'.
 &mt('[_1] Local Authentication with argument [_2]','','<input type="text" name="'.$authtype.'arg" value="" />')."\n";  &mt('[_1] Local Authentication with argument [_2]','','<input type="text" name="'.$authtype.'arg" value="" />')."\n";
Line 938  ENDAUTH Line 1224  ENDAUTH
  my %lt=&Apache::lonlocal::texthash(   my %lt=&Apache::lonlocal::texthash(
                     'cup'  => "Modify existing user: ",                      'cup'  => "Modify existing user: ",
                     'ens'  => "Enroll one student: ",                      'ens'  => "Enroll one student: ",
                       'enm'  => "Enroll one member: ",
                     'id'   => "in domain",                      'id'   => "in domain",
        );         );
  $r->print(<<ENDCHANGEUSER);   $r->print(<<ENDCHANGEUSER);
 $start_page  $start_page
 $crumbs  
 $forminfo  $forminfo
 <h2>  <h2>
 ENDCHANGEUSER  ENDCHANGEUSER
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             $r->print($lt{'ens'});              if ($crstype eq 'Community') {
                   $r->print($lt{'enm'});
               } else {
                   $r->print($lt{'ens'});
               }
         } else {          } else {
             $r->print($lt{'cup'});              $r->print($lt{'cup'});
         }          }
Line 961  ENDCHANGEUSER Line 1251  ENDCHANGEUSER
             $r->print(&Apache::lonuserutils::forceid_change($context));              $r->print(&Apache::lonuserutils::forceid_change($context));
         }          }
         if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {          if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
             $r->print('<h3>'.&mt('User Can Request Creation of Courses?').'</h3>'.              $r->print('<h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'.
                       &Apache::loncommon::start_data_table()).                        &Apache::loncommon::start_data_table());
             if ($env{'request.role.domain'} eq $ccdomain) {              if ($env{'request.role.domain'} eq $ccdomain) {
                 $r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses'));                  $r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses'));
             } else {              } else {
Line 1040  ENDNOTOOLSPRIV Line 1330  ENDNOTOOLSPRIV
         }          }
         $r->print('</div><div class="LC_clear_float_footer"></div>');          $r->print('</div><div class="LC_clear_float_footer"></div>');
         if ($env{'form.action'} ne 'singlestudent') {          if ($env{'form.action'} ne 'singlestudent') {
             &display_existing_roles($r,$ccuname,$ccdomain,\%inccourses);              &display_existing_roles($r,$ccuname,$ccdomain,\%inccourses,$context,
                                       $roledom,$crstype);
         }          }
     } ## End of new user/old user logic      } ## End of new user/old user logic
   
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         $r->print('<br /><input type="button" value="'.&mt('Enroll Student').'" onClick="setSections(this.form)" />'."\n");          my $btntxt;
           if ($crstype eq 'Community') {
               $btntxt = &mt('Enroll Member');
           } else {
               $btntxt = &mt('Enroll Student');
           }
           $r->print('<br /><input type="button" value="'.$btntxt.'" onclick="setSections(this.form)" />'."\n");
     } else {      } else {
         $r->print('<h3>'.&mt('Add Roles').'</h3>');          $r->print('<h3>'.&mt('Add Roles').'</h3>');
         my $addrolesdisplay = 0;          my $addrolesdisplay = 0;
Line 1058  ENDNOTOOLSPRIV Line 1354  ENDNOTOOLSPRIV
                 $addrolesdisplay = $add_domainroles;                  $addrolesdisplay = $add_domainroles;
             }              }
             $r->print(&course_level_dc($env{'request.role.domain'},'Course'));              $r->print(&course_level_dc($env{'request.role.domain'},'Course'));
             $r->print('<br /><input type="button" value="'.&mt('Save').'" onClick="setCourse()" />'."\n");              $r->print('<br /><input type="button" value="'.&mt('Save').'" onclick="setCourse()" />'."\n");
         } elsif ($context eq 'author') {          } elsif ($context eq 'author') {
             if ($addrolesdisplay) {              if ($addrolesdisplay) {
                 $r->print('<br /><input type="button" value="'.&mt('Save').'"');                  $r->print('<br /><input type="button" value="'.&mt('Save').'"');
                 if ($newuser) {                  if ($newuser) {
                     $r->print(' onClick="auth_check()" \>'."\n");                      $r->print(' onclick="auth_check()" \>'."\n");
                 } else {                  } else {
                     $r->print('onClick="this.form.submit()" \>'."\n");                      $r->print('onclick="this.form.submit()" \>'."\n");
                 }                  }
             } else {              } else {
                 $r->print('<br /><a href="javascript:backPage(document.cu)">'.                  $r->print('<br /><a href="javascript:backPage(document.cu)">'.
Line 1073  ENDNOTOOLSPRIV Line 1369  ENDNOTOOLSPRIV
             }              }
         } else {          } else {
             $r->print(&course_level_table(%inccourses));              $r->print(&course_level_table(%inccourses));
             $r->print('<br /><input type="button" value="'.&mt('Save').'" onClick="setSections(this.form)" />'."\n");              $r->print('<br /><input type="button" value="'.&mt('Save').'" onclick="setSections(this.form)" />'."\n");
         }          }
     }      }
     $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));      $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));
     $r->print('<input type="hidden" name="currstate" value="" />');      $r->print('<input type="hidden" name="currstate" value="" />');
     $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />');      $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" /></form>');
     $r->print("</form>".&Apache::loncommon::end_page());  
     return;      return;
 }  }
   
 sub singleuser_breadcrumb {  sub singleuser_breadcrumb {
       my ($crstype) = @_;
     my %breadcrumb_text;      my %breadcrumb_text;
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         $breadcrumb_text{'search'} = 'Enroll a student';          if ($crstype eq 'Community') {
               $breadcrumb_text{'search'} = 'Enroll a member';
           } else {
               $breadcrumb_text{'search'} = 'Enroll a student';
           }
         $breadcrumb_text{'userpicked'} = 'Select a user',          $breadcrumb_text{'userpicked'} = 'Select a user',
         $breadcrumb_text{'modify'} = 'Set section/dates',          $breadcrumb_text{'modify'} = 'Set section/dates',
     } else {      } else {
Line 1141  sub validation_javascript { Line 1441  sub validation_javascript {
                                    $nondc_setsection_code,$groupslist);                                     $nondc_setsection_code,$groupslist);
     my ($jsback,$elements) = &crumb_utilities();      my ($jsback,$elements) = &crumb_utilities();
     $js .= "\n".      $js .= "\n".
            '<script type="text/javascript">'."\n".$jsback."\n".'</script>';             '<script type="text/javascript">'."\n".
              '// <![CDATA['."\n".
              $jsback."\n".
              '// ]]>'."\n".
              '</script>'."\n";
     return $js;      return $js;
 }  }
   
 sub display_existing_roles {  sub display_existing_roles {
     my ($r,$ccuname,$ccdomain,$inccourses) = @_;      my ($r,$ccuname,$ccdomain,$inccourses,$context,$roledom,$crstype) = @_;
     my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);      my $now=time;
     # Build up table of user roles to allow revocation and re-enabling of roles.      my %lt=&Apache::lonlocal::texthash(
     my ($tmp) = keys(%rolesdump);  
     if ($tmp !~ /^(con_lost|error)/i) {  
         my $now=time;  
         my %lt=&Apache::lonlocal::texthash(  
                     'rer'  => "Existing Roles",                      'rer'  => "Existing Roles",
                     'rev'  => "Revoke",                      'rev'  => "Revoke",
                     'del'  => "Delete",                      'del'  => "Delete",
Line 1162  sub display_existing_roles { Line 1462  sub display_existing_roles {
                     'sta'  => "Start",                      'sta'  => "Start",
                     'end'  => "End",                      'end'  => "End",
                                        );                                         );
         my (%roletext,%sortrole,%roleclass,%rolepriv);      my (%rolesdump,%roletext,%sortrole,%roleclass,%rolepriv);
         foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);      if ($context eq 'course' || $context eq 'author') {
                                     my $b1=join('_',(split('_',$b))[1,0]);          my @roles = &Apache::lonuserutils::roles_by_context($context,1,$crstype);
                                     return $a1 cmp $b1;          my %roleshash = 
                                 } keys(%rolesdump)) {              &Apache::lonnet::get_my_roles($ccuname,$ccdomain,'userroles',
             next if ($area =~ /^rolesdef/);                                ['active','previous','future'],\@roles,$roledom,1);
             my $envkey=$area;          foreach my $key (keys(%roleshash)) {
             my $role = $rolesdump{$area};              my ($start,$end) = split(':',$roleshash{$key});
             my $thisrole=$area;              next if ($start eq '-1' || $end eq '-1');
             $area =~ s/\_\w\w$//;              my ($rnum,$rdom,$role,$sec) = split(':',$key);
             my ($role_code,$role_end_time,$role_start_time) =              if ($context eq 'course') {
                 split(/_/,$role);                  next unless (($rnum eq $env{'course.'.$env{'request.course.id'}.'.num'})
                                && ($rdom eq $env{'course.'.$env{'request.course.id'}.'.domain'}));
               } elsif ($context eq 'author') {
                   next unless (($rnum eq $env{'user.name'}) && ($rdom eq $env{'request.role.domain'}));
               }
               my ($newkey,$newvalue,$newrole);
               $newkey = '/'.$rdom.'/'.$rnum;
               if ($sec ne '') {
                   $newkey .= '/'.$sec;
               }
               $newvalue = $role;
               if ($role =~ /^cr/) {
                   $newrole = 'cr';
               } else {
                   $newrole = $role;
               }
               $newkey .= '_'.$newrole;
               if ($start ne '' && $end ne '') {
                   $newvalue .= '_'.$end.'_'.$start;
               }
               $rolesdump{$newkey} = $newvalue;
           }
       } else {
           %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
       }
       # Build up table of user roles to allow revocation and re-enabling of roles.
       my ($tmp) = keys(%rolesdump);
       return if ($tmp =~ /^(con_lost|error)/i);
       foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
                                   my $b1=join('_',(split('_',$b))[1,0]);
                                   return $a1 cmp $b1;
                               } keys(%rolesdump)) {
           next if ($area =~ /^rolesdef/);
           my $envkey=$area;
           my $role = $rolesdump{$area};
           my $thisrole=$area;
           $area =~ s/\_\w\w$//;
           my ($role_code,$role_end_time,$role_start_time) =
               split(/_/,$role);
 # Is this a custom role? Get role owner and title.  # Is this a custom role? Get role owner and title.
             my ($croleudom,$croleuname,$croletitle)=          my ($croleudom,$croleuname,$croletitle)=
                 ($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});              ($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});
             my $allowed=0;          my $allowed=0;
             my $delallowed=0;          my $delallowed=0;
             my $sortkey=$role_code;          my $sortkey=$role_code;
             my $class='Unknown';          my $class='Unknown';
             if ($area =~ m{^/($match_domain)/($match_courseid)} ) {          if ($area =~ m{^/($match_domain)/($match_courseid)} ) {
                 $class='Course';              $class='Course';
                 my ($coursedom,$coursedir) = ($1,$2);              my ($coursedom,$coursedir) = ($1,$2);
                 $sortkey.="\0$coursedom";              my $cid = $1.'_'.$2;
                 # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).              # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
                 my %coursedata=              my %coursedata=
                     &Apache::lonnet::coursedescription($1.'_'.$2);                  &Apache::lonnet::coursedescription($cid);
                 my $carea;              if ($coursedir =~ /^$match_community$/) {
                 if (defined($coursedata{'description'})) {                  $class='Community';
                     $carea=$coursedata{'description'}.              }
                         '<br />'.&mt('Domain').': '.$coursedom.('&nbsp;'x8).              $sortkey.="\0$coursedom";
      &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$coursedir,$coursedom);              my $carea;
                     $sortkey.="\0".$coursedata{'description'};              if (defined($coursedata{'description'})) {
                     $class=$coursedata{'type'};                  $carea=$coursedata{'description'}.
                       '<br />'.&mt('Domain').': '.$coursedom.('&nbsp;'x8).
       &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$coursedir,$coursedom);
                   $sortkey.="\0".$coursedata{'description'};
               } else {
                   if ($class eq 'Community') {
                       $carea=&mt('Unavailable community').': '.$area;
                       $sortkey.="\0".&mt('Unavailable community').': '.$area;
                 } else {                  } else {
                     $carea=&mt('Unavailable course').': '.$area;                      $carea=&mt('Unavailable course').': '.$area;
                     $sortkey.="\0".&mt('Unavailable course').': '.$area;                      $sortkey.="\0".&mt('Unavailable course').': '.$area;
                 }                  }
                 $sortkey.="\0$coursedir";              }
                 $inccourses->{$1.'_'.$2}=1;              $sortkey.="\0$coursedir";
                 if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||              $inccourses->{$cid}=1;
                     (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {              if ((&Apache::lonnet::allowed('c'.$role_code,$coursedom.'/'.$coursedir)) ||
                     $allowed=1;                  (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                 }                  $allowed=1;
                 if ((&Apache::lonnet::allowed('dro',$1)) ||              }
                     (&Apache::lonnet::allowed('dro',$ccdomain))) {              unless ($allowed) {
                     $delallowed=1;                  my $isowner = &is_courseowner($cid,$coursedata{'internal.courseowner'});
                   if ($isowner) {
                       if (($role_code eq 'co') && ($class eq 'Community')) {
                           $allowed = 1;
                       } elsif (($role_code eq 'cc') && ($class eq 'Course')) {
                           $allowed = 1;
                       }
                 }                  }
               } 
               if ((&Apache::lonnet::allowed('dro',$coursedom)) ||
                   (&Apache::lonnet::allowed('dro',$ccdomain))) {
                   $delallowed=1;
               }
 # - custom role. Needs more info, too  # - custom role. Needs more info, too
                 if ($croletitle) {              if ($croletitle) {
                     if (&Apache::lonnet::allowed('ccr',$1.'/'.$2)) {                  if (&Apache::lonnet::allowed('ccr',$coursedom.'/'.$coursedir)) {
                         $allowed=1;                      $allowed=1;
                         $thisrole.='.'.$role_code;                      $thisrole.='.'.$role_code;
                     }  
                 }                  }
                 # Compute the background color based on $area              }
                 if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {              if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {
                     $carea.='<br />Section: '.$3;                  $carea.='<br />Section: '.$3;
                     $sortkey.="\0$3";                  $sortkey.="\0$3";
                     if (!$allowed) {                  if (!$allowed) {
                         if ($env{'request.course.sec'} eq $3) {                      if ($env{'request.course.sec'} eq $3) {
                             if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2.'/'.$3)) {                          if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2.'/'.$3)) {
                                 $allowed = 1;                              $allowed = 1;
                             }  
                         }                          }
                     }                      }
                 }                  }
                 $area=$carea;              }
             } else {              $area=$carea;
                 $sortkey.="\0".$area;          } else {
                 # Determine if current user is able to revoke privileges              $sortkey.="\0".$area;
                 if ($area=~m{^/($match_domain)/}) {              # Determine if current user is able to revoke privileges
                     if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||              if ($area=~m{^/($match_domain)/}) {
                        (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {                  if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||
                         $allowed=1;                     (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                     }                     $allowed=1;
                     if (((&Apache::lonnet::allowed('dro',$1))  ||  
                          (&Apache::lonnet::allowed('dro',$ccdomain))) &&  
                         ($role_code ne 'dc')) {  
                         $delallowed=1;  
                     }  
                 } else {  
                     if (&Apache::lonnet::allowed('c'.$role_code,'/')) {  
                         $allowed=1;  
                     }  
                 }                  }
                 if ($role_code eq 'ca' || $role_code eq 'au') {                  if (((&Apache::lonnet::allowed('dro',$1))  ||
                     $class='Construction Space';                      (&Apache::lonnet::allowed('dro',$ccdomain))) &&
                 } elsif ($role_code eq 'su') {                      ($role_code ne 'dc')) {
                     $class='System';                      $delallowed=1;
                 } else {  
                     $class='Domain';  
                 }                  }
             }              } else {
             if (($role_code eq 'ca') || ($role_code eq 'aa')) {                  if (&Apache::lonnet::allowed('c'.$role_code,'/')) {
                 $area=~m{/($match_domain)/($match_username)};  
                 if (&Apache::lonuserutils::authorpriv($2,$1)) {  
                     $allowed=1;                      $allowed=1;
                 } else {  
                     $allowed=0;  
                 }                  }
             }              }
             my $row = '';              if ($role_code eq 'ca' || $role_code eq 'au') {
             $row.= '<td>';                  $class='Construction Space';
             my $active=1;              } elsif ($role_code eq 'su') {
             $active=0 if (($role_end_time) && ($now>$role_end_time));                  $class='System';
             if (($active) && ($allowed)) {  
                 $row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';  
             } else {              } else {
                 if ($active) {                  $class='Domain';
                    $row.='&nbsp;';  
                 } else {  
                    $row.=&mt('expired or revoked');  
                 }  
             }              }
             $row.='</td><td>';          }
             if ($allowed && !$active) {          if (($role_code eq 'ca') || ($role_code eq 'aa')) {
                 $row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';              $area=~m{/($match_domain)/($match_username)};
               if (&Apache::lonuserutils::authorpriv($2,$1)) {
                   $allowed=1;
             } else {              } else {
                 $row.='&nbsp;';                  $allowed=0;
             }              }
             $row.='</td><td>';          }
             if ($delallowed) {          my $row = '';
                 $row.= '<input type="checkbox" name="del:'.$thisrole.'" />';          $row.= '<td>';
           my $active=1;
           $active=0 if (($role_end_time) && ($now>$role_end_time));
           if (($active) && ($allowed)) {
               $row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';
           } else {
               if ($active) {
                  $row.='&nbsp;';
             } else {              } else {
                 $row.='&nbsp;';                 $row.=&mt('expired or revoked');
             }              }
             my $plaintext='';          }
             if (!$croletitle) {          $row.='</td><td>';
                 $plaintext=&Apache::lonnet::plaintext($role_code,$class)          if ($allowed && !$active) {
             } else {              $row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';
                 $plaintext=          } else {
               $row.='&nbsp;';
           }
           $row.='</td><td>';
           if ($delallowed) {
               $row.= '<input type="checkbox" name="del:'.$thisrole.'" />';
           } else {
               $row.='&nbsp;';
           }
           my $plaintext='';
           if (!$croletitle) {
               $plaintext=&Apache::lonnet::plaintext($role_code,$class)
           } else {
               $plaintext=
         "Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";          "Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";
             }          }
             $row.= '</td><td>'.$plaintext.          $row.= '</td><td>'.$plaintext.
                    '</td><td>'.$area.                 '</td><td>'.$area.
                    '</td><td>'.($role_start_time?localtime($role_start_time)                 '</td><td>'.($role_start_time?&Apache::lonlocal::locallocaltime($role_start_time)
                                                 : '&nbsp;' ).                                              : '&nbsp;' ).
                    '</td><td>'.($role_end_time  ?localtime($role_end_time)                 '</td><td>'.($role_end_time  ?&Apache::lonlocal::locallocaltime($role_end_time)
                                                 : '&nbsp;' )                                              : '&nbsp;' )
                    ."</td>";                 ."</td>";
             $sortrole{$sortkey}=$envkey;          $sortrole{$sortkey}=$envkey;
             $roletext{$envkey}=$row;          $roletext{$envkey}=$row;
             $roleclass{$envkey}=$class;          $roleclass{$envkey}=$class;
             $rolepriv{$envkey}=$allowed;          $rolepriv{$envkey}=$allowed;
             #$r->print($row);      } # end of foreach        (table building loop)
         } # end of foreach        (table building loop)  
         my $rolesdisplay = 0;      my $rolesdisplay = 0;
         my %output = ();      my %output = ();
         foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {      foreach my $type ('Construction Space','Course','Community','Domain','System','Unknown') {
             $output{$type} = '';          $output{$type} = '';
             foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {          foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
                 if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {              if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {
                     $output{$type}.=                   $output{$type}.=
                           &Apache::loncommon::start_data_table_row().                        &Apache::loncommon::start_data_table_row().
                           $roletext{$sortrole{$which}}.                        $roletext{$sortrole{$which}}.
                           &Apache::loncommon::end_data_table_row();                        &Apache::loncommon::end_data_table_row();
                 }              }
             }          }
             unless($output{$type} eq '') {          unless($output{$type} eq '') {
                 $output{$type} = '<tr class="LC_info_row">'.              $output{$type} = '<tr class="LC_info_row">'.
                           "<td align='center' colspan='7'>".&mt($type)."</td></tr>".                        "<td align='center' colspan='7'>".&mt($type)."</td></tr>".
                            $output{$type};                        $output{$type};
                 $rolesdisplay = 1;              $rolesdisplay = 1;
             }          }
         }      }
         if ($rolesdisplay == 1) {      if ($rolesdisplay == 1) {
             my $contextrole='';          my $contextrole='';
             if ($env{'request.course.id'}) {          if ($env{'request.course.id'}) {
                 $contextrole = 'Existing Roles in this Course';              if (&Apache::loncommon::course_type() eq 'Community') {
             } elsif ($env{'request.role'} =~ /^au\./) {                  $contextrole = &mt('Existing Roles in this Community');
                 $contextrole = 'Existing Co-Author Roles in your Construction Space';  
             } else {              } else {
                 $contextrole = 'Existing Roles in this Domain';                  $contextrole = &mt('Existing Roles in this Course');
             }              }
             $r->print('          } elsif ($env{'request.role'} =~ /^au\./) {
               $contextrole = &mt('Existing Co-Author Roles in your Construction Space');
           } else {
               $contextrole = &mt('Existing Roles in this Domain');
           }
           $r->print('
 <h3>'.$lt{'rer'}.'</h3>'.  <h3>'.$lt{'rer'}.'</h3>'.
 '<div>'.&mt($contextrole).'</div>'.  '<div>'.$contextrole.'</div>'.
 &Apache::loncommon::start_data_table("LC_createuser").  &Apache::loncommon::start_data_table("LC_createuser").
 &Apache::loncommon::start_data_table_header_row().  &Apache::loncommon::start_data_table_header_row().
 '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.  '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.
 '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.  '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.
 '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.  '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
 &Apache::loncommon::end_data_table_header_row());  &Apache::loncommon::end_data_table_header_row());
            foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {          foreach my $type ('Construction Space','Course','Community','Domain','System','Unknown') {
                 if ($output{$type}) {              if ($output{$type}) {
                     $r->print($output{$type}."\n");                  $r->print($output{$type}."\n");
                 }  
             }              }
             $r->print(&Apache::loncommon::end_data_table());  
         }          }
     }  # End of check for keys in rolesdump          $r->print(&Apache::loncommon::end_data_table());
       }
     return;      return;
 }  }
   
Line 1442  sub new_domain_roles { Line 1800  sub new_domain_roles {
     &mt('Extent').'</th>'.      &mt('Extent').'</th>'.
     '<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.      '<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.
     &Apache::loncommon::end_data_table_header_row();      &Apache::loncommon::end_data_table_header_row();
       my @allroles = &Apache::lonuserutils::roles_by_context('domain');
     foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {      foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
         foreach my $role ('dc','li','dg','au','sc') {          foreach my $role (@allroles) {
               next if ($role eq 'ad');
             if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {              if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
                my $plrole=&Apache::lonnet::plaintext($role);                 my $plrole=&Apache::lonnet::plaintext($role);
                my %lt=&Apache::lonlocal::texthash(                 my %lt=&Apache::lonlocal::texthash(
Line 1494  sub user_authentication { Line 1854  sub user_authentication {
             my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc);              my $choices = &Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc);
             $outcome = <<ENDBADAUTH;              $outcome = <<ENDBADAUTH;
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
   // <![CDATA[
 $loginscript  $loginscript
   // ]]>
 </script>  </script>
 <span class="LC_error">$lt{'err'}:  <span class="LC_error">$lt{'err'}:
 $lt{'uuas'} ($currentauth). $lt{'sldb'}.</span>  $lt{'uuas'} ($currentauth). $lt{'sldb'}.</span>
Line 1523  ENDBADAUTH Line 1885  ENDBADAUTH
                                                );                                                 );
             $outcome =              $outcome =
                        '<script type="text/javascript" language="Javascript">'."\n".                         '<script type="text/javascript" language="Javascript">'."\n".
                          '// <![CDATA['."\n".
                        $loginscript."\n".                         $loginscript."\n".
                          '// ]]>'."\n".
                        '</script>'."\n".                         '</script>'."\n".
                        '<h3>'.$lt{'ld'}.'</h3>'.                         '<h3>'.$lt{'ld'}.'</h3>'.
                        &Apache::loncommon::start_data_table().                         &Apache::loncommon::start_data_table().
Line 1834  sub get_inststatuses { Line 2198  sub get_inststatuses {
   
 # ================================================================= Phase Three  # ================================================================= Phase Three
 sub update_user_data {  sub update_user_data {
     my ($r,$context) = @_;       my ($r,$context,$crstype,$brcrum) = @_;
       my $is_custom = &Apache::loncommon::needs_gci_custom();
     my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'},      my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'},
                                           $env{'form.ccdomain'});                                            $env{'form.ccdomain'});
     # Error messages      # Error messages
Line 1854  sub update_user_data { Line 2219  sub update_user_data {
     my $newuser = 0;      my $newuser = 0;
     my ($jsback,$elements) = &crumb_utilities();      my ($jsback,$elements) = &crumb_utilities();
     my $jscript = '<script type="text/javascript">'."\n".      my $jscript = '<script type="text/javascript">'."\n".
                   $jsback."\n".'</script>'."\n";                    '// <![CDATA['."\n".
     my %breadcrumb_text = &singleuser_breadcrumb();                    $jsback."\n".
     my $args;                    '// ]]>'."\n".
     if ($env{'form.popup'}) {                    '</script>'."\n";
         $args->{'no_nav_bar'} = 1;      my %breadcrumb_text = &singleuser_breadcrumb($crstype);
     } else {  
         $args = undef;  
     }  
     $r->print(&Apache::loncommon::start_page($title,$jscript,$args));  
     &Apache::lonhtmlcommon::add_breadcrumb  
        ({href=>"javascript:backPage(document.userupdate)",  
          text=>$breadcrumb_text{'search'},  
          faq=>282,bug=>'Instructor Interface',});  
     if ($env{'form.prevphase'} eq 'userpicked') {  
         &Apache::lonhtmlcommon::add_breadcrumb  
            ({href=>"javascript:backPage(document.userupdate,'get_user_info','select')",  
              text=>$breadcrumb_text{'userpicked'},  
              faq=>282,bug=>'Instructor Interface',});  
     }  
     &Apache::lonhtmlcommon::add_breadcrumb  
        ({href=>"javascript:backPage(document.userupdate,'$env{'form.prevphase'}','modify')",  
          text=>$breadcrumb_text{'modify'},  
          faq=>282,bug=>'Instructor Interface',},  
         {href=>"/adm/createuser",  
          text=>"Result",  
          faq=>282,bug=>'Instructor Interface',});  
     my $helpitem = 'Course_Change_Privileges';      my $helpitem = 'Course_Change_Privileges';
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         $helpitem = 'Course_Add_Student';          $helpitem = 'Course_Add_Student';
     }      }
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',      my $bread_crumbs_component = 'User Management';
                                                  $helpitem));      if ($context eq 'course') {
           if ($is_custom) {
               $bread_crumbs_component = 'Enrollment and Student Activity';
           }
       }
       push(@{$brcrum}, 
               {href => "javascript:backPage(document.userupdate,'$env{'form.prevphase'}','modify')",
                text => $breadcrumb_text{'modify'},
                faq  => 282,
                bug  => 'Instructor Interface',},
               {href => "/adm/createuser",
                text => "Result",
                faq  => 282,
                bug  => 'Instructor Interface',
                help => $helpitem});
       my $args = {bread_crumbs           => $brcrum,
                   bread_crumbs_component => $bread_crumbs_component};
       if ($env{'form.popup'}) {
           $args->{'no_nav_bar'} = 1;
       }
       $r->print(&Apache::loncommon::start_page($title,$jscript,$args));
   
     $r->print(&update_result_form($uhome));      $r->print(&update_result_form($uhome));
     # Check Inputs      # Check Inputs
     if (! $env{'form.ccuname'} ) {      if (! $env{'form.ccuname'} ) {
Line 1954  sub update_user_data { Line 2319  sub update_user_data {
  $env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');   $env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');
     my (%alerts,%rulematch,%inst_results,%curr_rules);      my (%alerts,%rulematch,%inst_results,%curr_rules);
     my @usertools = ('aboutme','blog','portfolio');      my @usertools = ('aboutme','blog','portfolio');
     my @requestcourses = ('official','unofficial');      my @requestcourses = ('official','unofficial','community');
     my ($othertitle,$usertypes,$types) =       my ($othertitle,$usertypes,$types) = 
         &Apache::loncommon::sorted_inst_types($env{'form.ccdomain'});          &Apache::loncommon::sorted_inst_types($env{'form.ccdomain'});
     if ($env{'form.makeuser'}) {      if ($env{'form.makeuser'}) {
Line 2035  sub update_user_data { Line 2400  sub update_user_data {
                 }                  }
             }              }
             foreach my $item (@requestcourses) {              foreach my $item (@requestcourses) {
                 $newcustom{$item} = $env{'form.requestcourses_'.$item};                  $newcustom{$item} = $env{'form.crsreq_'.$item};
                   if ($env{'form.crsreq_'.$item} eq 'autolimit') {
                       $newcustom{$item} .= '=';
                       unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {
                           $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};
                       }
                   }
                 $changed{$item} = &tool_admin($item,$newcustom{$item},                  $changed{$item} = &tool_admin($item,$newcustom{$item},
                                               \%changeHash,'requestcourses');                                                \%changeHash,'requestcourses');
             }              }
Line 2081  sub update_user_data { Line 2452  sub update_user_data {
  }   }
     }      }
     ##      ##
     my (@userroles,%userupdate,$cnum,$cdom,$namechanged);      my (@userroles,%userupdate,$cnum,$cdom,$crstype,$namechanged);
     if ($context eq 'course') {      if ($context eq 'course') {
         ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();          ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
           $crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
     }      }
     if (! $env{'form.makeuser'} ) {      if (! $env{'form.makeuser'} ) {
         # Check for need to change          # Check for need to change
Line 2167  sub update_user_data { Line 2539  sub update_user_data {
             if ($role eq 'cr') {              if ($role eq 'cr') {
                 push(@longroles,'Custom');                  push(@longroles,'Custom');
             } else {              } else {
                 push(@longroles,&Apache::lonnet::plaintext($role));                   push(@longroles,&Apache::lonnet::plaintext($role,$crstype)); 
             }              }
         }          }
         my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');          my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');
Line 2316  sub update_user_data { Line 2688  sub update_user_data {
         }          }
         &tool_changes('tools',\@usertools,\%oldaccess,\%oldaccesstext,\%userenv,          &tool_changes('tools',\@usertools,\%oldaccess,\%oldaccesstext,\%userenv,
                       \%changeHash,\%changed,\%newaccess,\%newaccesstext);                        \%changeHash,\%changed,\%newaccess,\%newaccesstext);
   
         if ($env{'form.ccdomain'} eq $env{'request.role.domain'}) {          if ($env{'form.ccdomain'} eq $env{'request.role.domain'}) {
             &tool_changes('requestcourses',\@requestcourses,\%oldaccess,\%oldaccesstext,              &tool_changes('requestcourses',\@requestcourses,\%oldaccess,\%oldaccesstext,
                           \%userenv,\%changeHash,\%changed,\%newaccess,\%newaccesstext);                            \%userenv,\%changeHash,\%changed,\%newaccess,\%newaccesstext);
Line 2349  sub update_user_data { Line 2720  sub update_user_data {
                         ($env{'user.domain'} eq $env{'form.ccdomain'})) {                          ($env{'user.domain'} eq $env{'form.ccdomain'})) {
                         my %newenvhash;                          my %newenvhash;
                         foreach my $key (keys(%changed)) {                          foreach my $key (keys(%changed)) {
                             if (($key eq 'official') || ($key eq 'unofficial')) {                              if (($key eq 'official') || ($key eq 'unofficial')
                                   || ($key eq 'community')) {
                                 $newenvhash{'environment.requestcourses.'.$key} =                                  $newenvhash{'environment.requestcourses.'.$key} =
                                     $changeHash{'requestcourses.'.$key};                                      $changeHash{'requestcourses.'.$key};
                                 if ($changeHash{'requestcourses.'.$key} ne '') {                                  if ($changeHash{'requestcourses.'.$key} ne '') {
Line 2368  sub update_user_data { Line 2740  sub update_user_data {
                                         $changeHash{'tools.'.$key};                                          $changeHash{'tools.'.$key};
                                 } else {                                  } else {
                                     $newenvhash{'environment.availabletools.'.$key} =                                      $newenvhash{'environment.availabletools.'.$key} =
           &Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},                                            $key,'reload','tools');            &Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},
                                               $key,'reload','tools');
                                 }                                  }
                             }                              }
                         }                          }
Line 2411  sub update_user_data { Line 2784  sub update_user_data {
                              'portfolio'  => 'Portfolio Availability',                               'portfolio'  => 'Portfolio Availability',
                              'official'   => 'Can Request Official Courses',                               'official'   => 'Can Request Official Courses',
                              'unofficial' => 'Can Request Unofficial Courses',                               'unofficial' => 'Can Request Unofficial Courses',
                                'community'  => 'Can Request Communities',
                              'inststatus' => "Affiliation",                               'inststatus' => "Affiliation",
                              'prvs'       => 'Previous Value:',                               'prvs'       => 'Previous Value:',
                              'chto'       => 'Changed To:'                               'chto'       => 'Changed To:'
Line 2563  END Line 2937  END
                            'aboutme'    => "Personal Information Page Availability",                             'aboutme'    => "Personal Information Page Availability",
                            'portfolio'  => "Portfolio Availability",                             'portfolio'  => "Portfolio Availability",
                            'official'   => "Can Request Official Courses",                             'official'   => "Can Request Official Courses",
                            'unofficial' => "Can Request Unofficial Course",                             'unofficial' => "Can Request Unofficial Courses",
                              'community'  => "Can Request Communities",
                            'inststatus' => "Affiliation",                             'inststatus' => "Affiliation",
        );         );
             $r->print(<<"END");              $r->print(<<"END");
Line 2634  END Line 3009  END
                   .'</span>');                    .'</span>');
     }      }
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         &enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context);          &enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context,$crstype);
         $r->print('<p><a href="javascript:backPage(document.userupdate)">'.          $r->print('<p><a href="javascript:backPage(document.userupdate)">');
                   &mt('Enroll Another Student').'</a></p>');          if ($crstype eq 'Community') {
               $r->print(&mt('Enroll Another Member'));
           } else {
               $r->print(&mt('Enroll Another Student'));
           }
           $r->print('</a></p>');
     } else {      } else {
         my @rolechanges = &update_roles($r,$context);          my @rolechanges = &update_roles($r,$context);
         if ($namechanged) {          if ($namechanged) {
Line 2665  END Line 3045  END
                      .&mt('Create/Modify Another User').'</a></p>');                       .&mt('Create/Modify Another User').'</a></p>');
         }          }
     }      }
     $r->print(&Apache::loncommon::end_page());  
 }  }
   
 sub tool_changes {  sub tool_changes {
Line 2678  sub tool_changes { Line 3057  sub tool_changes {
         return;          return;
     }      }
     if ($context eq 'reqcrsotherdom') {      if ($context eq 'reqcrsotherdom') {
         my @options = ('approve','validate','autolimit');          my @options = ('approval','validate','autolimit');
         my $optregex = join('|',@options);          my $optregex = join('|',@options);
         my %reqdisplay = &courserequest_display();          my %reqdisplay = &courserequest_display();
         my $cdom = $env{'request.role.domain'};          my $cdom = $env{'request.role.domain'};
         foreach my $tool (@{$usertools}) {          foreach my $tool (@{$usertools}) {
             $oldaccesstext->{$tool} = &mt('no');              $oldaccesstext->{$tool} = &mt('No');
             $changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool              $newaccesstext->{$tool} = $oldaccesstext->{$tool};
 };              $changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};
               my $newop;
               if ($env{'form.'.$context.'_'.$tool}) {
                   $newop = $env{'form.'.$context.'_'.$tool};
                   if ($newop eq 'autolimit') {
                       my $limit = $env{'form.'.$context.'_'.$tool.'_limit'};
                       $limit =~ s/\D+//g;
                       $newop .= '='.$limit;
                   }
               }
             if ($userenv->{$context.'.'.$tool} eq '') {              if ($userenv->{$context.'.'.$tool} eq '') {
                 if ($env{'form.'.$context.'_'.$tool}) {                  if ($newop) {
                     $changed->{$tool}=&tool_admin($tool,$cdom,                      $changed->{$tool}=&tool_admin($tool,$cdom.':'.$newop,
                                                   $changeHash,$context);                                                    $changeHash,$context);
                     if ($changed->{$tool}) {                      if ($changed->{$tool}) {
                         $newaccesstext->{$tool} = &mt('yes');                          $newaccesstext->{$tool} = &mt('Yes');
                     } else {                      } else {
                         $newaccesstext->{$tool} = $oldaccesstext->{$tool};                    }                          $newaccesstext->{$tool} = $oldaccesstext->{$tool};
                       }
                 }                  }
             } else {              } else {
                 my @curr = split(',',$userenv->{$context.'.'.$tool});                  my @curr = split(',',$userenv->{$context.'.'.$tool});
                 my @new;                  my @new;
                 my $changedoms;                  my $changedoms;
                 my $newop = $env{'form.'.$context.'_'.$tool};                  foreach my $req (@curr) {
                 if ($newop eq 'autolimit') {                      if ($req =~ /^\Q$cdom\E\:($optregex\=?\d*)$/) {
                     $newop .= '=';                          $oldaccesstext->{$tool} = &mt('Yes');
                     unless ($env{'form.'.$context.'_'.$tool.'_limit'} =~ /\D/                          my $oldop = $1;
 ) {                          if ($oldop ne $newop) {
                         $newop .= $env{'form.'.$context.'_'.$tool.'_limit'};                              $changedoms = 1;
                     }                              foreach my $item (@curr) {
                 }                                  my ($reqdom,$option) = split(':',$item);
                 if (grep(/^\Q$cdom:($optregex\=?\d*)\E$/,@curr)) {                                  unless ($reqdom eq $cdom) {
                     $oldaccesstext->{$tool} = &mt('yes');                                      push(@new,$item);
                     my $oldop = $1;                                  }
                     if ($oldop ne $newop) {  
                         $changedoms = 1;  
                         foreach my $dom (@curr) {  
                             unless ($dom eq $cdom) {  
                                 push(@new,$dom);  
                             }                              }
                               if ($newop) {
                                   push(@new,$cdom.':'.$newop);
                               }
                               @new = sort(@new);
                         }                          }
                         if ($newop) {                          last;
                             push(@new,$cdom.':'.$newop);  
                         }  
                         @new = sort(@new);  
                     }                      }
                 } elsif ($env{'form.'.$context.'_'.$tool}) {                  }
                     $changedoms = 1;                  if ((!$changedoms) && ($newop)) {
                     $changedoms = 1;                      $changedoms = 1;
                     @new = sort(@curr,$cdom.':'.$newop);                      @new = sort(@curr,$cdom.':'.$newop);
                 }                  }
                 $newaccesstext->{$tool} = $oldaccesstext->{$tool};  
                 if ($changedoms) {                  if ($changedoms) {
                     my $newdomstr;                      my $newdomstr;
                     if (@new) {                      if (@new) {
Line 2738  sub tool_changes { Line 3122  sub tool_changes {
                     if ($changed->{$tool}) {                      if ($changed->{$tool}) {
                         if ($env{'form.'.$context.'_'.$tool}) {                          if ($env{'form.'.$context.'_'.$tool}) {
                             if ($env{'form.'.$context.'_'.$tool} eq 'autolimit') {                              if ($env{'form.'.$context.'_'.$tool} eq 'autolimit') {
                                 if ($env{'form.'.$context.'_'.$tool.'_limit'} =~ /\D/) {                                  my $limit = $env{'form.'.$context.'_'.$tool.'_limit'};
                                     $newaccesstext->{$tool} = &mt('Yes, processed automatically');                                  $limit =~ s/\D+//g;
                                   if ($limit) {
                                       $newaccesstext->{$tool} = &mt('Yes, up to limit of [quant,_1,request] per user.',$limit);
                                 } else {                                  } else {
                                     $newaccesstext->{$tool} = &mt('Yes, up to limit of [quant,_1,request] per user).',$env{'form.'.$context.'_'.$tool.'_limit'});                                      $newaccesstext->{$tool} = &mt('Yes, processed automatically');
                                 }                                  }
                             } else {                              } else {
                                 $newaccesstext->{$tool} = $reqdisplay{$env{'form.'.$context.'_'.$tool}};                                  $newaccesstext->{$tool} = $reqdisplay{$env{'form.'.$context.'_'.$tool}};
Line 2756  sub tool_changes { Line 3142  sub tool_changes {
         return;          return;
     }      }
     foreach my $tool (@{$usertools}) {      foreach my $tool (@{$usertools}) {
           my $newval;
           if ($context eq 'requestcourses') {
               $newval = $env{'form.crsreq_'.$tool};
               if ($newval eq 'autolimit') {
                   $newval .= '='.$env{'form.crsreq_'.$tool.'_limit'};
               }
           } else {
               $newval = $env{'form.'.$context.'_'.$tool};
           }
         if ($userenv->{$context.'.'.$tool} ne '') {          if ($userenv->{$context.'.'.$tool} ne '') {
             $oldaccess->{$tool} = &mt('custom');              $oldaccess->{$tool} = &mt('custom');
             if ($userenv->{$context.'.'.$tool}) {              if ($userenv->{$context.'.'.$tool}) {
Line 2765  sub tool_changes { Line 3160  sub tool_changes {
             }              }
             $changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};              $changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};
             if ($env{'form.custom'.$tool} == 1) {              if ($env{'form.custom'.$tool} == 1) {
                 if ($env{'form.'.$context.'_'.$tool} ne $userenv->{$context.'.'.$tool}) {                  if ($newval ne $userenv->{$context.'.'.$tool}) {
                     $changed->{$tool} = &tool_admin($tool,$env{'form.'.$context.'_'.$tool},                      $changed->{$tool} = &tool_admin($tool,$newval,$changeHash,
                                                   $changeHash,$context);                                                      $context);
                     if ($changed->{$tool}) {                      if ($changed->{$tool}) {
                         $newaccess->{$tool} = &mt('custom');                          $newaccess->{$tool} = &mt('custom');
                         if ($env{'form.'.$context.'_'.$tool}) {                          if ($newval) {
                             $newaccesstext->{$tool} = &mt("availability set to 'on'");                              $newaccesstext->{$tool} = &mt("availability set to 'on'");
                         } else {                          } else {
                             $newaccesstext->{$tool} = &mt("availability set to 'off'");                              $newaccesstext->{$tool} = &mt("availability set to 'off'");
Line 2794  sub tool_changes { Line 3189  sub tool_changes {
                 } else {                  } else {
                     $newaccess->{$tool} = $oldaccess->{$tool};                      $newaccess->{$tool} = $oldaccess->{$tool};
                     if ($userenv->{$context.'.'.$tool}) {                      if ($userenv->{$context.'.'.$tool}) {
                          $newaccesstext->{$tool} = &mt("availability set to 'on'");                          $newaccesstext->{$tool} = &mt("availability set to 'on'");
                     } else {                      } else {
                          $newaccesstext->{$tool} = &mt("availability set to 'off'");                          $newaccesstext->{$tool} = &mt("availability set to 'off'");
                     }                      }
                 }                  }
             }              }
         } else {          } else {
             $oldaccess->{$tool} = &mt('default');              $oldaccess->{$tool} = &mt('default');
             if ($env{'form.custom'.$tool} == 1) {              if ($env{'form.custom'.$tool} == 1) {
                 $changed->{$tool} = &tool_admin($tool,$env{'form.'.$context.'_'.$tool},                  $changed->{$tool} = &tool_admin($tool,$newval,$changeHash,
                                                 $changeHash,$context);                                                  $context);
                 if ($changed->{$tool}) {                  if ($changed->{$tool}) {
                     $newaccess->{$tool} = &mt('custom');                      $newaccess->{$tool} = &mt('custom');
                     if ($env{'form.'.$context.'_'.$tool}) {                      if ($newval) {
                         $newaccesstext->{$tool} = &mt("availability set to 'on'");                          $newaccesstext->{$tool} = &mt("availability set to 'on'");
                     } else {                      } else {
                         $newaccesstext->{$tool} = &mt("availability set to 'off'");                          $newaccesstext->{$tool} = &mt("availability set to 'off'");
Line 3089  sub update_roles { Line 3484  sub update_roles {
 }  }
   
 sub enroll_single_student {  sub enroll_single_student {
     my ($r,$uhome,$amode,$genpwd,$now,$newuser,$context) = @_;      my ($r,$uhome,$amode,$genpwd,$now,$newuser,$context,$crstype) = @_;
     $r->print('<h3>'.&mt('Enrolling Student').'</h3>');      $r->print('<h3>');
       if ($crstype eq 'Community') {
           $r->print(&mt('Enrolling Member'));
       } else {
           $r->print(&mt('Enrolling Student'));
       }
       $r->print('</h3>');
   
     # Remove non alphanumeric values from section      # Remove non alphanumeric values from section
     $env{'form.sections'}=~s/\W//g;      $env{'form.sections'}=~s/\W//g;
Line 3123  sub enroll_single_student { Line 3524  sub enroll_single_student {
         }          }
         $r->print('.<br />'.$showstart.'; '.$showend);          $r->print('.<br />'.$showstart.'; '.$showend);
         if ($startdate <= $now && !$newuser) {          if ($startdate <= $now && !$newuser) {
             $r->print("<p> ".&mt('If the student is currently logged-in to LON-CAPA, the new role will be available when the student next logs in.')."</p>");              $r->print('<p> ');
               if ($crstype eq 'Community') {
                   $r->print(&mt('If the member is currently logged-in to LON-CAPA, the new role will be available when the member next logs in.'));
               } else {
                   $r->print(&mt('If the student is currently logged-in to LON-CAPA, the new role will be available when the student next logs in.'));
              }
              $r->print('</p>');
         }          }
     } else {      } else {
         $r->print(&mt('unable to enroll').": ".$enroll_result);          $r->print(&mt('unable to enroll').": ".$enroll_result);
Line 3247  sub build_roles { Line 3654  sub build_roles {
 # ========================================================== Custom Role Editor  # ========================================================== Custom Role Editor
   
 sub custom_role_editor {  sub custom_role_editor {
     my ($r) = @_;      my ($r,$brcrum) = @_;
     my $rolename=$env{'form.rolename'};      my $action = $env{'form.customroleaction'};
       my $rolename; 
       if ($action eq 'new') {
           $rolename=$env{'form.newrolename'};
       } else {
           $rolename=$env{'form.rolename'};
       }
   
     if ($rolename eq 'make new role') {      my ($crstype,$context);
  $rolename=$env{'form.newrolename'};      if ($env{'request.course.id'}) {
           $crstype = &Apache::loncommon::course_type();
           $context = 'course';
       } else {
           $context = 'domain';
           $crstype = $env{'form.templatecrstype'};
     }      }
   
     $rolename=~s/[^A-Za-z0-9]//gs;      $rolename=~s/[^A-Za-z0-9]//gs;
   
     if (!$rolename || $env{'form.phase'} eq 'pickrole') {      if (!$rolename || $env{'form.phase'} eq 'pickrole') {
  &print_username_entry_form($r);   &print_username_entry_form($r,undef,undef,undef,undef,$crstype,$brcrum);
         return;          return;
     }      }
       my $is_custom = &Apache::loncommon::needs_gci_custom();
       my $title = 'User Management';
       if ($context eq 'course') {
           if ($is_custom) {
               $title = 'Enrollment and Student Activity';
           }
       }
 # ------------------------------------------------------- What can be assigned?  # ------------------------------------------------------- What can be assigned?
     my %full=();      my %full=();
     my %courselevel=();      my %courselevel=();
Line 3268  sub custom_role_editor { Line 3692  sub custom_role_editor {
     my $dompriv='';      my $dompriv='';
     my $coursepriv='';      my $coursepriv='';
     my $body_top;      my $body_top;
     my ($disp_dummy,$disp_roles) = &Apache::lonnet::get('roles',["st"]);  
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
 # ------------------------------------------------------- Does this role exist?  # ------------------------------------------------------- Does this role exist?
Line 3277  sub custom_role_editor { Line 3700  sub custom_role_editor {
  $body_top .= &mt('Existing Role').' "';   $body_top .= &mt('Existing Role').' "';
 # ------------------------------------------------- Get current role privileges  # ------------------------------------------------- Get current role privileges
  ($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);   ($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);
           if ($crstype eq 'Community') {
               $syspriv =~ s/bre\&S//;   
           }
     } else {      } else {
  $body_top .= &mt('New Role').' "';   $body_top .= &mt('New Role').' "';
  $roledef='';   $roledef='';
Line 3316  sub custom_role_editor { Line 3742  sub custom_role_editor {
     my ($jsback,$elements) = &crumb_utilities();      my ($jsback,$elements) = &crumb_utilities();
     my $button_code = "\n";      my $button_code = "\n";
     my $head_script = "\n";      my $head_script = "\n";
     $head_script .= '<script type="text/javascript">'."\n";      $head_script .= '<script type="text/javascript">'."\n"
     my @template_roles = ("cc","in","ta","ep","st");                     .'// <![CDATA['."\n";
       my @template_roles = ("in","ta","ep");
       if ($context eq 'domain') {
           push(@template_roles,"ad");
       }
       push(@template_roles,"st");
       if ($crstype eq 'Community') {
           unshift(@template_roles,'co');
       } else {
           unshift(@template_roles,'cc');
       }
     foreach my $role (@template_roles) {      foreach my $role (@template_roles) {
         $head_script .= &make_script_template($role);          $head_script .= &make_script_template($role,$crstype);
         $button_code .= &make_button_code($role).' ';          $button_code .= &make_button_code($role,$crstype).' ';
     }      }
     $head_script .= "\n".$jsback."\n".'</script>'."\n";      my $context_code;
     $r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));      if ($context eq 'domain') {
    &Apache::lonhtmlcommon::add_breadcrumb          my $checkedCommunity = '';
      ({href=>"javascript:backPage(document.form1,'pickrole','')",          my $checkedCourse = ' checked="checked"';
        text=>"Pick custom role",          if ($env{'form.templatecrstype'} eq 'Community') {
        faq=>282,bug=>'Instructor Interface',},              $checkedCommunity = $checkedCourse;
       {href=>"javascript:backPage(document.form1,'','')",              $checkedCourse = '';
          text=>"Edit custom role",          }
          faq=>282,bug=>'Instructor Interface',});          $context_code = '<label>'.
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',                          '<input type="radio" name="templatecrstype" value="Course"'.$checkedCourse.' onclick="this.form.submit();">'.
                                                   'Course_Editing_Custom_Roles'));                          &mt('Course').
                           '</label>'.('&nbsp;' x2).
     $r->print($body_top);                          '<label>'.
                           '<input type="radio" name="templatecrstype" value="Community"'.$checkedCommunity.' onclick="this.form.submit();">'.
                           &mt('Community').
                           '</label>'.
                           '</fieldset>'.
                           '<input type="hidden" name="customroleaction" value="'.
                           $action.'" />';
           if ($env{'form.customroleaction'} eq 'new') {
               $context_code .= '<input type="hidden" name="newrolename" value="'.
                                $rolename.'" />';
           } else {
               $context_code .= '<input type="hidden" name="rolename" value="'.
                                $rolename.'" />';
           }
           $context_code .= '<input type="hidden" name="action" value="custom" />'.
                            '<input type="hidden" name="phase" value="selected_custom_edit" />';
       }
   
       $head_script .= "\n".$jsback."\n"
                      .'// ]]>'."\n"
                      .'</script>'."\n";
       push (@{$brcrum},
                 {href => "javascript:backPage(document.form1,'pickrole','')",
                  text => "Pick custom role",
                  faq  => 282,bug=>'Instructor Interface',},
                 {href => "javascript:backPage(document.form1,'','')",
                  text => "Edit custom role",
                  faq  => 282,
                  bug  => 'Instructor Interface',
                  help => 'Course_Editing_Custom_Roles'}
                 );
       my $args = { bread_crumbs          => $brcrum,
                    bread_crumbs_component => 'User Management'};
    
       $r->print(&Apache::loncommon::start_page('Custom Role Editor',
                                                $head_script,$args).
                 $body_top);
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
     'prv'  => "Privilege",      'prv'  => "Privilege",
     'crl'  => "Course Level",      'crl'  => "Course Level",
                     'dml'  => "Domain Level",                      'dml'  => "Domain Level",
                     'ssl'  => "System Level");                      'ssl'  => "System Level");
   
     $r->print('<div>'      $r->print('<div class="LC_left_float">'
              .'<form action=""><fieldset>'               .'<form action=""><fieldset>'
              .'<legend>'.&mt('Select a Template').'</legend>'               .'<legend>'.&mt('Select a Template').'</legend>'
              .$button_code               .$button_code
              .'</fieldset></form>'               .'</fieldset></form></div>');
              .'</div>'      if ($context_code) {
     );          $r->print('<div class="LC_left_float">'
                    .'<form action="/adm/createuser" method="post"><fieldset>'
                    .'<legend>'.&mt('Context').'</legend>'
                    .$context_code
                    .'</form>'
                    .'</div>'
           );
       }
       $r->print('<br clear="all" />');
   
     $r->print(<<ENDCCF);      $r->print(<<ENDCCF);
 <form name="form1" method="post">  <form name="form1" method="post">
Line 3359  ENDCCF Line 3839  ENDCCF
 '<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.  '<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.
 '</th><th>'.$lt{'ssl'}.'</th>'.  '</th><th>'.$lt{'ssl'}.'</th>'.
               &Apache::loncommon::end_data_table_header_row());                &Apache::loncommon::end_data_table_header_row());
     foreach my $priv (sort keys %full) {      foreach my $priv (sort(keys(%full))) {
         my $privtext = &Apache::lonnet::plaintext($priv);          my $privtext = &Apache::lonnet::plaintext($priv,$crstype);
         $r->print(&Apache::loncommon::start_data_table_row().          $r->print(&Apache::loncommon::start_data_table_row().
           '<td>'.$privtext.'</td><td>'.            '<td>'.$privtext.'</td><td>'.
     ($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c"'.      ($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c"'.
Line 3368  ENDCCF Line 3848  ENDCCF
     '</td><td>'.      '</td><td>'.
     ($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d"'.      ($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d"'.
     ($domainlevelcurrent{$priv}?' checked="checked"':'').' />':'&nbsp;').      ($domainlevelcurrent{$priv}?' checked="checked"':'').' />':'&nbsp;').
     '</td><td>'.      '</td><td>');
     ($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s"'.          if ($priv eq 'bre' && $crstype eq 'Community') {
     ($systemlevelcurrent{$priv}?' checked="checked"':'').' />':'&nbsp;').              $r->print('&nbsp;');  
     '</td>'.          } else {
              &Apache::loncommon::end_data_table_row());              $r->print($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s"'.
                         ($systemlevelcurrent{$priv}?' checked="checked"':'').' />':'&nbsp;');
           }
           $r->print('</td>'.
                     &Apache::loncommon::end_data_table_row());
     }      }
     $r->print(&Apache::loncommon::end_data_table().      $r->print(&Apache::loncommon::end_data_table().
    '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.     '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
    '<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.     '<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.
    '" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".        '" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".   
    '<input type="reset" value="'.&mt("Reset").'" />'."\n".     '<input type="reset" value="'.&mt("Reset").'" />'."\n".
    '<input type="submit" value="'.&mt('Save').'" /></form>'.     '<input type="submit" value="'.&mt('Save').'" /></form>');
       &Apache::loncommon::end_page());  
 }  }
 # --------------------------------------------------------  # --------------------------------------------------------
 sub make_script_template {  sub make_script_template {
     my ($role) = @_;      my ($role,$crstype) = @_;
     my %full_c=();      my %full_c=();
     my %full_d=();      my %full_d=();
     my %full_s=();      my %full_s=();
Line 3398  sub make_script_template { Line 3881  sub make_script_template {
         $full_d{$priv}=1;          $full_d{$priv}=1;
     }      }
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {      foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
           next if (($crstype eq 'Community') && ($item eq 'bre&S'));
         my ($priv,$restrict)=split(/\&/,$item);          my ($priv,$restrict)=split(/\&/,$item);
         $full_s{$priv}=1;          $full_s{$priv}=1;
     }      }
Line 3450  sub make_script_template { Line 3934  sub make_script_template {
 }  }
 # ----------------------------------------------------------  # ----------------------------------------------------------
 sub make_button_code {  sub make_button_code {
     my ($role) = @_;      my ($role,$crstype) = @_;
     my $label = &Apache::lonnet::plaintext($role);      my $label = &Apache::lonnet::plaintext($role,$crstype);
     my $button_code = '<input type="button" onClick="set_'.$role.'()" value="'.$label.'" />';      my $button_code = '<input type="button" onclick="set_'.$role.'()" value="'.$label.'" />';
     return ($button_code);      return ($button_code);
 }  }
 # ---------------------------------------------------------- Call to definerole  # ---------------------------------------------------------- Call to definerole
 sub set_custom_role {  sub set_custom_role {
     my ($r,$context) = @_;      my ($r,$context,$brcrum) = @_;
     my $rolename=$env{'form.rolename'};      my $rolename=$env{'form.rolename'};
     $rolename=~s/[^A-Za-z0-9]//gs;      $rolename=~s/[^A-Za-z0-9]//gs;
     if (!$rolename) {      if (!$rolename) {
  &custom_role_editor($r);   &custom_role_editor($r,$brcrum);
         return;          return;
     }      }
     my ($jsback,$elements) = &crumb_utilities();      my ($jsback,$elements) = &crumb_utilities();
     my $jscript = '<script type="text/javascript">'.$jsback."\n".'</script>';      my $jscript = '<script type="text/javascript">'
                    .'// <![CDATA['."\n"
                    .$jsback."\n"
                    .'// ]]>'."\n"
                    .'</script>'."\n";
       my $bread_crumbs_component = 'User Management';
       my $is_custom = &Apache::loncommon::needs_gci_custom();
       if ($context eq 'course') {
           if ($is_custom) {
               $bread_crumbs_component = 'Enrollment and Student Activity';
           }
       }
   
     $r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);      push(@{$brcrum},
     &Apache::lonhtmlcommon::add_breadcrumb          {href => "javascript:backPage(document.customresult,'pickrole','')",
         ({href=>"javascript:backPage(document.customresult,'pickrole','')",           text => "Pick custom role",
           text=>"Pick custom role",           faq  => 282,
           faq=>282,bug=>'Instructor Interface',},           bug  => 'Instructor Interface',},
          {href=>"javascript:backPage(document.customresult,'selected_custom_edit','')",          {href => "javascript:backPage(document.customresult,'selected_custom_edit','')",
           text=>"Edit custom role",           text => "Edit custom role",
           faq=>282,bug=>'Instructor Interface',},           faq  => 282,
          {href=>"javascript:backPage(document.customresult,'set_custom_roles','')",           bug  => 'Instructor Interface',},
           text=>"Result",          {href => "javascript:backPage(document.customresult,'set_custom_roles','')",
           faq=>282,bug=>'Instructor Interface',});           text => "Result",
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',           faq  => 282,
                                                   'Course_Editing_Custom_Roles'));           bug  => 'Instructor Interface',
            help => 'Course_Editing_Custom_Roles'},
           );
       my $args = { bread_crumbs           => $brcrum,
                    bread_crumbs_component => $bread_crumbs_component };
       $r->print(&Apache::loncommon::start_page('Save Custom Role',$jscript,$args));
   
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
Line 3536  sub set_custom_role { Line 4036  sub set_custom_role {
     }      }
     $r->print('<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'.&mt('Create or edit another custom role').'</a></p><form name="customresult" method="post">');      $r->print('<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'.&mt('Create or edit another custom role').'</a></p><form name="customresult" method="post">');
     $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');      $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');
     $r->print(&Apache::loncommon::end_page());  
 }  }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
Line 3547  sub handler { Line 4046  sub handler {
        $r->send_http_header;         $r->send_http_header;
        return OK;         return OK;
     }      }
     my $context;      my ($context,$crstype);
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $context = 'course';          $context = 'course';
           $crstype = &Apache::loncommon::course_type();
     } elsif ($env{'request.role'} =~ /^au\./) {      } elsif ($env{'request.role'} =~ /^au\./) {
         $context = 'author';          $context = 'author';
     } else {      } else {
         $context = 'domain';          $context = 'domain';
     }      }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      my ($permission,$allowed) =
         ['action','state','callingform','roletype','showrole','bulkaction','popup','phase',          &Apache::lonuserutils::get_permission($context,$crstype);
          'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);  
     &Apache::lonhtmlcommon::clear_breadcrumbs();  
     if ($env{'form.action'} ne 'dateselect') {  
         &Apache::lonhtmlcommon::add_breadcrumb  
             ({href=>"/adm/createuser",  
               text=>"User Management",  
               help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'});  
     }  
     #SD Following files not added to help, because the corresponding .tex-files seem to  
     #be missing: Course_Approve_Selfenroll,Course_User_Logs,  
     my ($permission,$allowed) =   
         &Apache::lonuserutils::get_permission($context);  
     if (!$allowed) {      if (!$allowed) {
         $env{'user.error.msg'}=          $env{'user.error.msg'}=
             "/adm/createuser:cst:0:0:Cannot create/modify user data ".              "/adm/createuser:cst:0:0:Cannot create/modify user data ".
Line 3579  sub handler { Line 4067  sub handler {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
   
       my $title = 'User Management';
       my $is_custom = &Apache::loncommon::needs_gci_custom();
       if ($context eq 'course') {
           if ($is_custom) {
               $title = 'Enrollment and Student Activity';
           }
       }
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
           ['action','state','callingform','roletype','showrole','bulkaction','popup','phase',
            'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       my $args;
       my $brcrum = [];
       my $bread_crumbs_component = $title;
       if ($env{'form.context'} eq 'requestcrs') {
           my $reqstate = 'uploadroster';
           if ($env{'form.state'} eq 'enrolling') {
               $reqstate = 'enrolling';
           }
           unless (&Apache::lonrequestcourse::generate_page($r,'new',$reqstate)) {
               return OK;
           }
       } elsif ($env{'form.action'} ne 'dateselect') {
           $brcrum = [{href=>"/adm/createuser",
                       text=>$title,
                       help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'}
                     ];
       }
       #SD Following files not added to help, because the corresponding .tex-files seem to
       #be missing: Course_Approve_Selfenroll,Course_User_Logs,
   
     # Main switch on form.action and form.state, as appropriate      # Main switch on form.action and form.state, as appropriate
     if (! exists($env{'form.action'})) {      if (! exists($env{'form.action'})) {
         $r->print(&header());          $args = {bread_crumbs => $brcrum,
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));                   bread_crumbs_component => $bread_crumbs_component};
         $r->print(&print_main_menu($permission,$context));          $r->print(&header(undef,$args));
         $r->print(&Apache::loncommon::end_page());          $r->print(&print_main_menu($permission,$context,$crstype));
     } elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {      } elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {
         $r->print(&header());          unless ($env{'form.context'} eq 'requestcrs') {
         &Apache::lonhtmlcommon::add_breadcrumb              push(@{$brcrum},
             ({href=>'/adm/createuser?action=upload&state=',                    { href => '/adm/createuser?action=upload&state=',
               text=>"Upload Users List"});                      text => 'Upload Users List',
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',                      help => 'Course_Create_Class_List',
                                                    'Course_Create_Class_List'));                    });
         $r->print('<form name="studentform" method="post" '.              $bread_crumbs_component = 'Upload Users List';
                   'enctype="multipart/form-data" '.              $args = {bread_crumbs           => $brcrum,
                   ' action="/adm/createuser">'."\n");                       bread_crumbs_component => $bread_crumbs_component};
               $r->print(&header(undef,$args));
           }
           unless (($env{'form.context'} eq 'requestcrs') && ($env{'form.state'} eq 'enrolling')) {
               $r->print('<form name="studentform" method="post" '.
                         'enctype="multipart/form-data" '.
                         ' action="/adm/createuser">'."\n");
           }
         if (! exists($env{'form.state'})) {          if (! exists($env{'form.state'})) {
             &Apache::lonuserutils::print_first_users_upload_form($r,$context);              &Apache::lonuserutils::print_first_users_upload_form($r,$context);
         } elsif ($env{'form.state'} eq 'got_file') {          } elsif ($env{'form.state'} eq 'got_file') {
               my $formname;
               if ($env{'form.context'} eq 'requestcrs') {
                   $formname = 'studentform';
               }
             &Apache::lonuserutils::print_upload_manager_form($r,$context,              &Apache::lonuserutils::print_upload_manager_form($r,$context,
                                                              $permission);                                                               $permission,$crstype,$formname);
               if ($env{'form.context'} eq 'requestcrs') {
                   $r->print('<input type="hidden" name="concepttest" value="'.$env{'form.concepttest'}.'" />');
               }
         } elsif ($env{'form.state'} eq 'enrolling') {          } elsif ($env{'form.state'} eq 'enrolling') {
             if ($env{'form.datatoken'}) {              if ($env{'form.datatoken'}) {
                 &Apache::lonuserutils::upfile_drop_add($r,$context,$permission);                  &Apache::lonuserutils::upfile_drop_add($r,$context,$permission);
                   if ($env{'form.context'} eq 'requestcrs') {
                       $r->print('<br /><hr />'.
                                 '<form name="requestcrs" method="post" action="/adm/requestcourse">'.
                                 '<input type="hidden" name="context" value="'.$env{'form.context'}.'" />'.
                                 '<input type="hidden" name="concepttest" value="'.$env{'form.concepttest'}.'" />'.
                                 '<input type="hidden" name="reqaction" value="new" />'.
                                 '<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'.
                                 &Apache::lonrequestcourse::done_display());
                   }
             }              }
         } else {          } else {
             &Apache::lonuserutils::print_first_users_upload_form($r,$context);              &Apache::lonuserutils::print_first_users_upload_form($r,$context);
         }          }
         $r->print('</form>'.&Apache::loncommon::end_page());          $r->print('</form>');
     } elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'}      } elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'}
              eq 'singlestudent')) && ($permission->{'cusr'})) {               eq 'singlestudent')) && ($permission->{'cusr'})) {
         my $phase = $env{'form.phase'};          my $phase = $env{'form.phase'};
Line 3622  sub handler { Line 4164  sub handler {
             if ($env{'form.phase'} eq 'createnewuser') {              if ($env{'form.phase'} eq 'createnewuser') {
                 my $response;                  my $response;
                 if ($env{'form.srchterm'} !~ /^$match_username$/) {                  if ($env{'form.srchterm'} !~ /^$match_username$/) {
                     my $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');                      my $response = '<p class="LC_warning">'.&mt('You must specify a valid username. Only the following are allowed: letters numbers - . @').'</p>';
                     $env{'form.phase'} = '';                      $env{'form.phase'} = '';
                     &print_username_entry_form($r,$context,$response,$srch);                      &print_username_entry_form($r,$context,$response,$srch,undef,$crstype,$brcrum);
                 } else {                  } else {
                     my $ccuname =&LONCAPA::clean_username($srch->{'srchterm'});                      my $ccuname =&LONCAPA::clean_username($srch->{'srchterm'});
                     my $ccdomain=&LONCAPA::clean_domain($srch->{'srchdomain'});                      my $ccdomain=&LONCAPA::clean_domain($srch->{'srchdomain'});
                     &print_user_modification_page($r,$ccuname,$ccdomain,                      &print_user_modification_page($r,$ccuname,$ccdomain,
                                                   $srch,$response,$context,                                                    $srch,$response,$context,
                                                   $permission);                                                    $permission,$crstype);
                 }                  }
             } elsif ($env{'form.phase'} eq 'get_user_info') {              } elsif ($env{'form.phase'} eq 'get_user_info') {
                 my ($currstate,$response,$forcenewuser,$results) =                   my ($currstate,$response,$forcenewuser,$results) = 
Line 3640  sub handler { Line 4182  sub handler {
                 }                  }
                 if ($currstate eq 'select') {                  if ($currstate eq 'select') {
                     &print_user_selection_page($r,$response,$srch,$results,                      &print_user_selection_page($r,$response,$srch,$results,
                                                \@search,$context);                                                 \@search,$context,undef,$crstype);
                 } elsif ($currstate eq 'modify') {                  } elsif ($currstate eq 'modify') {
                     my ($ccuname,$ccdomain);                      my ($ccuname,$ccdomain);
                     if (($srch->{'srchby'} eq 'uname') &&                       if (($srch->{'srchby'} eq 'uname') && 
Line 3658  sub handler { Line 4200  sub handler {
                     }                      }
                     &print_user_modification_page($r,$ccuname,$ccdomain,                      &print_user_modification_page($r,$ccuname,$ccdomain,
                                                   $srch,$response,$context,                                                    $srch,$response,$context,
                                                   $permission);                                                    $permission,$crstype,$brcrum);
                 } elsif ($currstate eq 'query') {                  } elsif ($currstate eq 'query') {
                     &print_user_query_page($r,'createuser');                      &print_user_query_page($r,'createuser',$brcrum);
                 } else {                  } else {
                     $env{'form.phase'} = '';                      $env{'form.phase'} = '';
                     &print_username_entry_form($r,$context,$response,$srch,                      &print_username_entry_form($r,$context,$response,$srch,
                                                $forcenewuser);                                                 $forcenewuser,$crstype,$brcrum);
                 }                  }
             } elsif ($env{'form.phase'} eq 'userpicked') {              } elsif ($env{'form.phase'} eq 'userpicked') {
                 my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});                  my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});
                 my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});                  my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});
                 &print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',                  &print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',
                                               $context,$permission);                                                $context,$permission,$crstype,$brcrum);
             }              }
         } elsif ($env{'form.phase'} eq 'update_user_data') {          } elsif ($env{'form.phase'} eq 'update_user_data') {
             &update_user_data($r,$context);              &update_user_data($r,$context,$crstype,$brcrum);
         } else {          } else {
             &print_username_entry_form($r,$context,undef,$srch);              &print_username_entry_form($r,$context,undef,$srch,undef,$crstype,$brcrum);
         }          }
     } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {      } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {
         if ($env{'form.phase'} eq 'set_custom_roles') {          if ($env{'form.phase'} eq 'set_custom_roles') {
             &set_custom_role($r,$context);              &set_custom_role($r,$context,$brcrum);
         } else {          } else {
             &custom_role_editor($r);              &custom_role_editor($r,$brcrum);
         }          }
     } elsif (($env{'form.action'} eq 'listusers') &&       } elsif (($env{'form.action'} eq 'listusers') && 
              ($permission->{'view'} || $permission->{'cusr'})) {               ($permission->{'view'} || $permission->{'cusr'})) {
         if ($env{'form.phase'} eq 'bulkchange') {          if ($env{'form.phase'} eq 'bulkchange') {
             &Apache::lonhtmlcommon::add_breadcrumb              push(@{$brcrum},
                 ({href=>'/adm/createuser?action=listusers',                      {href => '/adm/createuser?action=listusers',
                   text=>"List Users"},                       text => "List Users"},
                 {href=>"/adm/createuser",                      {href => "/adm/createuser",
                   text=>"Result"});                       text => "Result",
                        help => 'Course_View_Class_List'});
               $bread_crumbs_component = 'Update Users';
               $args = {bread_crumbs           => $brcrum,
                        bread_crumbs_component => $bread_crumbs_component};
               $r->print(&header(undef,$args));
             my $setting = $env{'form.roletype'};              my $setting = $env{'form.roletype'};
             my $choice = $env{'form.bulkaction'};              my $choice = $env{'form.bulkaction'};
             $r->print(&header());  
             $r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users",              $r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users",
                                                           'Course_View_Class_List'));                                                            'Course_View_Class_List'));
             if ($permission->{'cusr'}) {              if ($permission->{'cusr'}) {
Line 3702  sub handler { Line 4248  sub handler {
             } else {              } else {
                 $r->print(&mt('You are not authorized to make bulk changes to user roles'));                  $r->print(&mt('You are not authorized to make bulk changes to user roles'));
                 $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');                  $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');
                 $r->print(&Apache::loncommon::end_page());  
             }              }
         } else {          } else {
             &Apache::lonhtmlcommon::add_breadcrumb              push(@{$brcrum},
                 ({href=>'/adm/createuser?action=listusers',                      {href => '/adm/createuser?action=listusers',
                   text=>"List Users"});                       text => "List Users",
                        help => 'Course_View_Class_List'});
               $bread_crumbs_component = 'List Users';
               $args = {bread_crumbs           => $brcrum,
                        bread_crumbs_component => $bread_crumbs_component};
             my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);              my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);
             my $formname = 'studentform';              my $formname = 'studentform';
             if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {              if (($context eq 'domain') && (($env{'form.roletype'} eq 'course') ||
                 ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) =                   ($env{'form.roletype'} eq 'community'))) {
                     &Apache::lonuserutils::courses_selector($env{'request.role.domain'},                  if ($env{'form.roletype'} eq 'course') {
                                                             $formname);                      ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) = 
                           &Apache::lonuserutils::courses_selector($env{'request.role.domain'},
                                                                   $formname);
                   } elsif ($env{'form.roletype'} eq 'community') {
                       $cb_jscript = 
                           &Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'});
                       my %elements = (
                                         coursepick => 'radio',
                                         coursetotal => 'text',
                                         courselist => 'text',
                                      );
                       $jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements);
                   }
                 $jscript .= &verify_user_display();                  $jscript .= &verify_user_display();
                 my $js = &add_script($jscript).$cb_jscript;                  my $js = &add_script($jscript).$cb_jscript;
                 my $loadcode =                   my $loadcode =
                     &Apache::lonuserutils::course_selector_loadcode($formname);                      &Apache::lonuserutils::course_selector_loadcode($formname);
                 if ($loadcode ne '') {                  if ($loadcode ne '') {
                     $r->print(&header($js,{'onload' => $loadcode,}));                      $args->{add_entries} = {onload => $loadcode};
                 } else {  
                     $r->print(&header($js));  
                 }                  }
                   $r->print(&header($js,$args));
             } else {              } else {
                 $r->print(&header(&add_script(&verify_user_display())));                  $r->print(&header(&add_script(&verify_user_display()),$args));
             }              }
             $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users",  
                                                           'Course_View_Class_List'));  
             &Apache::lonuserutils::print_userlist($r,undef,$permission,$context,              &Apache::lonuserutils::print_userlist($r,undef,$permission,$context,
                          $formname,$totcodes,$codetitles,$idlist,$idlist_titles);                           $formname,$totcodes,$codetitles,$idlist,$idlist_titles);
             $r->print(&Apache::loncommon::end_page());  
         }          }
     } elsif ($env{'form.action'} eq 'drop' && $permission->{'cusr'}) {      } elsif ($env{'form.action'} eq 'drop' && $permission->{'cusr'}) {
         $r->print(&header());          my $brtext;
         &Apache::lonhtmlcommon::add_breadcrumb          if ($crstype eq 'Community') {
             ({href=>'/adm/createuser?action=drop',              $brtext = 'Drop Members';
               text=>"Drop Students"});          } else {
               $brtext = 'Drop Students';
           }
           push(@{$brcrum},
                   {href => '/adm/createuser?action=drop',
                    text => $brtext,
                    help => 'Course_Drop_Student'});
           if ($env{'form.state'} eq 'done') {
               push(@{$brcrum},
                        {href=>'/adm/createuser?action=drop',
                         text=>"Result"});
           }
           $bread_crumbs_component = $brtext;
           $args = {bread_crumbs           => $brcrum,
                    bread_crumbs_component => $bread_crumbs_component};
           $r->print(&header(undef,$args));
         if (!exists($env{'form.state'})) {          if (!exists($env{'form.state'})) {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students',              &Apache::lonuserutils::print_drop_menu($r,$context,$permission,$crstype);
                                                           'Course_Drop_Student'));  
   
             &Apache::lonuserutils::print_drop_menu($r,$context,$permission);  
         } elsif ($env{'form.state'} eq 'done') {          } elsif ($env{'form.state'} eq 'done') {
             &Apache::lonhtmlcommon::add_breadcrumb  
             ({href=>'/adm/createuser?action=drop',  
               text=>"Result"});  
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Drop Students',  
                                                           'Course_Drop_Student'));  
             &Apache::lonuserutils::update_user_list($r,$context,undef,              &Apache::lonuserutils::update_user_list($r,$context,undef,
                                                     $env{'form.action'});                                                      $env{'form.action'});
         }          }
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'dateselect') {      } elsif ($env{'form.action'} eq 'dateselect') {
         if ($permission->{'cusr'}) {          if ($permission->{'cusr'}) {
             $r->print(&header(undef,undef,{'no_nav_bar' => 1}).              $r->print(&header(undef,undef,{'no_nav_bar' => 1}).
                       &Apache::lonuserutils::date_section_selector($context,                        &Apache::lonuserutils::date_section_selector($context,
                                                                    $permission).                                                                     $permission,$crstype));
                       &Apache::loncommon::end_page());  
         } else {          } else {
             $r->print(&header().              $r->print(&header().
                      '<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'.                        '<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>');
                      &Apache::loncommon::end_page());  
         }          }
     } elsif ($env{'form.action'} eq 'selfenroll') {      } elsif ($env{'form.action'} eq 'selfenroll') {
         $r->print(&header());          push(@{$brcrum},
         &Apache::lonhtmlcommon::add_breadcrumb                  {href => '/adm/createuser?action=selfenroll',
             ({href=>'/adm/createuser?action=selfenroll',                   text => "Configure Self-enrollment",
               text=>"Configure Self-enrollment"});                   help => 'Course_Self_Enrollment'});
         if (!exists($env{'form.state'})) {          if (!exists($env{'form.state'})) {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Configure Self-enrollment',              $args = { bread_crumbs           => $brcrum,
                                                           'Course_Self_Enrollment'));                        bread_crumbs_component => 'Configure Self-enrollment'};
               $r->print(&header(undef,$args));
             $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");              $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");
             &print_selfenroll_menu($r,$context,$permission);              &print_selfenroll_menu($r,$context,$permission);
         } elsif ($env{'form.state'} eq 'done') {          } elsif ($env{'form.state'} eq 'done') {
             &Apache::lonhtmlcommon::add_breadcrumb              push (@{$brcrum},
             ({href=>'/adm/createuser?action=selfenroll',                        {href=>'/adm/createuser?action=selfenroll',
               text=>"Result"});                         text=>"Result"});
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Self-enrollment result',              $args = { bread_crumbs           => $brcrum,
                                                           'Course_Self_Enrollment'));                        bread_crumbs_component => 'Self-enrollment result'};
               $r->print(&header(undef,$args));
             $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");              $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");
             &update_selfenroll_config($r,$context,$permission);              &update_selfenroll_config($r,$context,$permission);
         }          }
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'selfenrollqueue') {      } elsif ($env{'form.action'} eq 'selfenrollqueue') {
         $r->print(&header());          push(@{$brcrum},
         &Apache::lonhtmlcommon::add_breadcrumb                   {href => '/adm/createuser?action=selfenrollqueue',
             ({href=>'/adm/createuser?action=selfenrollqueue',                    text => 'Enrollment requests',
               text=>"Enrollment requests"});                    help => 'Course_Self_Enrollment'});
           $bread_crumbs_component = 'Enrollment requests';
           if ($env{'form.state'} eq 'done') {
               push(@{$brcrum},
                        {href => '/adm/createuser?action=selfenrollqueue',
                         text => 'Result',
                         help => 'Course_Self_Enrollment'});
               $bread_crumbs_component = 'Enrollment result';
           }
           $args = { bread_crumbs           => $brcrum,
                     bread_crumbs_component => $bread_crumbs_component};
           $r->print(&header(undef,$args));
         my $cid = $env{'request.course.id'};          my $cid = $env{'request.course.id'};
         my $cdom = $env{'course.'.$cid.'.domain'};          my $cdom = $env{'course.'.$cid.'.domain'};
         my $cnum = $env{'course.'.$cid.'.num'};          my $cnum = $env{'course.'.$cid.'.num'};
           my $coursedesc = $env{'course.'.$cid.'.description'};
         if (!exists($env{'form.state'})) {          if (!exists($env{'form.state'})) {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment requests',  
                                                           'Course_SelfEnrollment_Approval'));  
             $r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");              $r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");
             &display_selfenroll_queue($r,$context,$permission,$cnum,$cdom);              $r->print(&Apache::loncoursequeueadmin::display_queued_requests($context,
                                                                          $cdom,$cnum));
         } elsif ($env{'form.state'} eq 'done') {          } elsif ($env{'form.state'} eq 'done') {
             &Apache::lonhtmlcommon::add_breadcrumb  
             ({href=>'/adm/createuser?action=selfenrollqueue',  
               text=>"Result"});  
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment result',  
                                                           'Course_Self_Enrollment'));  
             $r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");              $r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");
             &update_selfenroll_queue($r,$context,$permission,$cid,$cnum,$cdom);              $r->print(&Apache::loncoursequeueadmin::update_request_queue($context,
                             $cdom,$cnum,$coursedesc));
         }          }
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'changelogs') {      } elsif ($env{'form.action'} eq 'changelogs') {
         $r->print(&header());          push (@{$brcrum},
         &Apache::lonhtmlcommon::add_breadcrumb                   {href => '/adm/createuser?action=changelogs',
             ({href=>'/adm/createuser?action=changelogs',                    text => 'User Management Logs',
               text=>"User Management Logs"});                    help => 'Course_User_Logs'});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Changes',          $bread_crumbs_component = 'User Changes';
                                                       'Course_User_Logs'));          $args = { bread_crumbs           => $brcrum,
             &print_userchangelogs_display($r,$context,$permission);                    bread_crumbs_component => $bread_crumbs_component};
         $r->print(&Apache::loncommon::end_page());                  $r->print(&header(undef,$args));
           &print_userchangelogs_display($r,$context,$permission);
     } else {      } else {
         $r->print(&header());          $args = { bread_crumbs           => $brcrum,
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));                    bread_crumbs_component => $bread_crumbs_component};
         $r->print(&print_main_menu($permission,$context));          $r->print(&header(undef,$args));
         $r->print(&Apache::loncommon::end_page());          $r->print(&print_main_menu($permission,$context,$crstype));
     }      }
       $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   
 sub header {  sub header {
     my ($jscript,$loaditems,$args) = @_;      my ($jscript,$args) = @_;
       my $title = 'User Management';
       my $is_custom = &Apache::loncommon::needs_gci_custom();
       if ($env{'request.course.id'}) {
           if ($is_custom) {
               $title = 'Enrollment and Student Activity';
           }
       }
     my $start_page;      my $start_page;
     if (ref($loaditems) eq 'HASH') {      if (ref($args) eq 'HASH') {
         $start_page=&Apache::loncommon::start_page('User Management',$jscript,{'add_entries' => $loaditems});          $start_page=&Apache::loncommon::start_page($title,$jscript,$args);
     } else {      } else {
         $start_page=&Apache::loncommon::start_page('User Management',$jscript,$args);          $start_page=&Apache::loncommon::start_page($title,$jscript);
     }      }
     return $start_page;      return $start_page;
 }  }
   
 sub add_script {  sub add_script {
     my ($js) = @_;      my ($js) = @_;
     return '<script type="text/javascript">'."\n".$js."\n".'</script>';      return '<script type="text/javascript">'."\n"
             .'// <![CDATA['."\n"
             .$js."\n"
             .'// ]]>'."\n"
             .'</script>'."\n";
 }  }
   
 sub verify_user_display {  sub verify_user_display {
Line 3858  END Line 4439  END
 ###############################################################  ###############################################################
 #  Menu Phase One  #  Menu Phase One
 sub print_main_menu {  sub print_main_menu {
     my ($permission,$context) = @_;      my ($permission,$context,$crstype) = @_;
       my $is_custom = &Apache::loncommon::needs_gci_custom();
       if (($context eq 'course') && ($is_custom)) {
           return &print_gci_main_menu($permission,$context,$crstype)
       }
       my $linkcontext = $context;
       my $stuterm = lc(&Apache::lonnet::plaintext('st',$crstype));
       if (($context eq 'course') && ($crstype eq 'Community')) {
           $linkcontext = lc($crstype);
           $stuterm = 'Members';
       }
     my %links = (      my %links = (
                        domain => {                  domain => {
                                    upload => 'Upload a File of Users',                              upload     => 'Upload a File of Users',
                                    singleuser => 'Add/Modify a Single User',                              singleuser => 'Add/Modify a User',
                                    listusers => 'Manage Multiple Users',                              listusers  => 'Manage Users',
                                  },                              },
                        author => {                  author => {
                                    upload => 'Upload a File of Co-authors',                              upload     => 'Upload a File of Co-authors',
                                    singleuser => 'Add/Modify a Single Co-author',                              singleuser => 'Add/Modify a Co-author',
                                    listusers => 'Display Co-authors and Manage Multiple Users',                              listusers  => 'Manage Co-authors',
                                  },                              },
                        course => {                  course => {
                                    upload => 'Upload a File of Course Users',                              upload     => 'Upload a File of Course Users',
                                    singleuser => 'Add/Modify a Single Course User',                              singleuser => 'Add/Modify a Course User',
                                    listusers => 'Display Class Lists and Manage Multiple Users',                              listusers  => 'Manage Course Users',
                                  },                              },
                   community => {
                               upload     => 'Upload a File of Community Users',
                               singleuser => 'Add/Modify a Community User',
                               listusers  => 'Manage Community Users',
                              },
                   );
        my %linktitles = (
                   domain => {
                               singleuser => 'Add a user to the domain, and/or a course or community in the domain.',
                               listusers  => 'Show and manage users in this domain.',
                               },
                   author => {
                               singleuser => 'Add a user with a co- or assistant author role.',
                               listusers  => 'Show and manage co- or assistant authors.',
                               },
                   course => {
                               singleuser => 'Add a user with a certain role to this course.',
                               listusers  => 'Show and manage users in this course.',
                               },
                   community => {
                               singleuser => 'Add a user with a certain role to this community.',
                               listusers  => 'Show and manage users in this community.',
                              },
                 );                  );
     my @menu = ( {categorytitle => 'Single Users', 
            items =>
            [
               {
                linktext => $links{$linkcontext}{'singleuser'},
                icon => 'edit-redo.png',
                #help => 'Course_Change_Privileges',
                url => '/adm/createuser?action=singleuser',
                permission => $permission->{'cusr'},
                linktitle => $linktitles{$linkcontext}{'singleuser'},
               },
            ]},
   
     my @menu =           {categorytitle => 'Multiple Users',
         (           items => 
           { text => $links{$context}{'upload'},           [
             help => 'Course_Create_Class_List',              {
             action => 'upload',               linktext => $links{$linkcontext}{'upload'},
             permission => $permission->{'cusr'},               icon => 'sctr.png',
                #help => 'Course_Create_Class_List',
                url => '/adm/createuser?action=upload',
                permission => $permission->{'cusr'},
                linktitle => 'Upload a CSV or a text file containing users.',
             },              },
           { text => $links{$context}{'singleuser'},              {
             help => 'Course_Change_Privileges',               linktext => $links{$linkcontext}{'listusers'},
             action => 'singleuser',               icon => 'edit-find.png',
             permission => $permission->{'cusr'},               #help => 'Course_View_Class_List',
                url => '/adm/createuser?action=listusers',
                permission => ($permission->{'view'} || $permission->{'cusr'}),
                linktitle => $linktitles{$linkcontext}{'listusers'}, 
               },
   
            ]},
   
            {categorytitle => 'Administration',
            items => [ ]},
          );
               
       if ($context eq 'domain'){
           
           push(@{ $menu[2]->{items} }, #Category: Administration
               {
                linktext => 'Custom Roles',
                icon => 'emblem-photos.png',
                #help => 'Course_Editing_Custom_Roles',
                url => '/adm/createuser?action=custom',
                permission => $permission->{'custom'},
                linktitle => 'Configure a custom role.',
             },              },
           { text => $links{$context}{'listusers'},  
             help => 'Course_View_Class_List',  
             action => 'listusers',  
             permission => ($permission->{'view'} || $permission->{'cusr'}),  
           },  
         );          );
     if ($context eq 'domain' || $context eq 'course') {          
         my $customlink =  { text => 'Edit Custom Roles',      }elsif ($context eq 'course'){
                             help => 'Course_Editing_Custom_Roles',  
                             action => 'custom',  
                             permission => $permission->{'custom'},  
                           };  
         push(@menu,$customlink);  
     }  
     if ($context eq 'course') {  
         my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();          my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
         my @courselinks =  
             (          my %linktext = (
               { text => 'Enroll a Single Student',                           'Course'    => {
                  help => 'Course_Add_Student',                                            single => 'Add/Modify a Student', 
                  action => 'singlestudent',                                            drop   => 'Drop Students',
                  permission => $permission->{'cusr'},                                            groups => 'Course Groups',
                  },                                          },
               { text => 'Drop Students',                           'Community' => {
                 help => 'Course_Drop_Student',                                            single => 'Add/Modify a Member', 
                 action => 'drop',                                            drop   => 'Drop Members',
                 permission => $permission->{'cusr'},                                            groups => 'Community Groups',
               });                                          },
         if (!exists($permission->{'cusr_section'})) {                         );
             push(@courselinks,  
                { text => 'Automated Enrollment Manager',          my %linktitle = (
                  help => 'Course_Automated_Enrollment',              'Course' => {
                  permission => (&Apache::lonnet::auto_run($cnum,$cdom)                    single => 'Add a user with the role of student to this course',
                                 && $permission->{'cusr'}),                    drop   => 'Remove a student from this course.',
                  url  => '/adm/populate',                    groups => 'Manage course groups',
                  },                          },
                { text => 'Configure User Self-enrollment',              'Community' => {
                  help => 'Course_Self_Enrollment',                    single => 'Add a user with the role of member to this community',
                  action => 'selfenroll',                    drop   => 'Remove a member from this community.',
                  permission => $permission->{'cusr'},                    groups => 'Manage community groups',
                });                             },
         }          );
   
           push(@{ $menu[0]->{items} }, #Category: Single Users
               {   
                linktext => $linktext{$crstype}{'single'},
                #help => 'Course_Add_Student',
                icon => 'list-add.png',
                url => '/adm/createuser?action=singlestudent',
                permission => $permission->{'cusr'},
                linktitle => $linktitle{$crstype}{'single'},
               },
           );
           
           push(@{ $menu[1]->{items} }, #Category: Multiple Users 
               {
                linktext => $linktext{$crstype}{'drop'},
                icon => 'edit-undo.png',
                #help => 'Course_Drop_Student',
                url => '/adm/createuser?action=drop',
                permission => $permission->{'cusr'},
                linktitle => $linktitle{$crstype}{'drop'},
               },
           );
           push(@{ $menu[2]->{items} }, #Category: Administration
               {    
                linktext => 'Custom Roles',
                icon => 'emblem-photos.png',
                #help => 'Course_Editing_Custom_Roles',
                url => '/adm/createuser?action=custom',
                permission => $permission->{'custom'},
                linktitle => 'Configure a custom role.',
               },
               {
                linktext => $linktext{$crstype}{'groups'},
                icon => 'conf.png',
                #help => 'Course_Manage_Group',
                url => '/adm/coursegroups?refpage=cusr',
                permission => $permission->{'grp_manage'},
                linktitle => $linktitle{$crstype}{'groups'},
               },
               {
                linktext => 'Change Log',
                icon => 'document-properties.png',
                #help => 'Course_User_Logs',
                url => '/adm/createuser?action=changelogs',
                permission => $permission->{'cusr'},
                linktitle => 'View change log.',
               },
           );
         if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'}) {          if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'}) {
             push(@courselinks,              push(@{ $menu[2]->{items} },
                     {   text => 'Enrollment Requests',                      {   
                         help => 'Course_Approve_Selfenroll',                       linktext => 'Enrollment Requests',
                         action => 'selfenrollqueue',                       icon => 'selfenrl-queue.png',
                         permission => $permission->{'cusr'},                       #help => 'Course_Approve_Selfenroll',
                     });                       url => '/adm/createuser?action=selfenrollqueue',
         }                       permission => $permission->{'cusr'},
         push(@courselinks,                       linktitle =>'Approve or reject enrollment requests.',
                { text => 'Manage Course Groups',                      },
                  help => 'Course_Manage_Group',              );
                  permission => $permission->{'grp_manage'},          }
                  url => '/adm/coursegroups?refpage=cusr',          
                },          if (!exists($permission->{'cusr_section'})){
                { text => 'View Change Logs',              if ($crstype ne 'Community') {
                  help => 'Course_User_Logs',                  push(@{ $menu[2]->{items} },
                  action => 'changelogs',                      {
                        linktext => 'Automated Enrollment',
                        icon => 'roles.png',
                        #help => 'Course_Automated_Enrollment',
                        permission => (&Apache::lonnet::auto_run($cnum,$cdom)
                                            && $permission->{'cusr'}),
                        url  => '/adm/populate',
                        linktitle => 'Automated enrollment manager.',
                       }
                   );
               }
               push(@{ $menu[2]->{items} }, 
                   {
                    linktext => 'User Self-Enrollment',
                    icon => 'cstr.png',
                    #help => 'Course_Self_Enrollment',
                    url => '/adm/createuser?action=selfenroll',
                  permission => $permission->{'cusr'},                   permission => $permission->{'cusr'},
                },);                   linktitle => 'Configure user self-enrollment.',
                   },
               );
           }
       };
   return Apache::lonhtmlcommon::generate_menu(@menu);
 #               { text => 'View Log-in History',  #               { text => 'View Log-in History',
 #                 help => 'Course_User_Logins',  #                 help => 'Course_User_Logins',
 #                 action => 'logins',  #                 action => 'logins',
 #                 permission => $permission->{'cusr'},  #                 permission => $permission->{'cusr'},
 #               });  #               });
         push(@menu,@courselinks);  }
     }  
     my $menu_html = '';  sub print_gci_main_menu {
     foreach my $menu_item (@menu) {      my ($permission,$context,$crstype) = @_;
         next if (! $menu_item->{'permission'});      my $stuterm = lc(&Apache::lonnet::plaintext('st',$crstype));
         $menu_html.='<p>';      my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
         if (exists($menu_item->{'help'})) {      my %links = (
             $menu_html.=          course => {
                 &Apache::loncommon::help_open_topic($menu_item->{'help'});                      single     => 'Add/Modify a Student',
         }                      drop       => 'Drop Students',
         $menu_html.='<font size="+1">';                      upload     => 'Upload a File of Course Users',
         if (exists($menu_item->{'url'})) {                      singleuser => 'Add/Modify a Course User',
             $menu_html.=qq{<a href="$menu_item->{'url'}">};                      listusers  => 'Concept Test Roster and Student Activity',
         } else {                    },
             $menu_html.=       );
                 qq{<a href="/adm/createuser?action=$menu_item->{'action'}">};      }       my %linktitles = (
         $menu_html.= &mt($menu_item->{'text'}).'</a></font>';          course => {
         $menu_html.='</p>';                      singleuser => 'Add a user with a certain role to this course.',
     }                      listusers  => 'Show and manage users in this course.',
     return $menu_html;                      single     => 'Add a user with the role of student to this course',
                       drop       => 'Remove a student from this course.',
                       upload     => 'Upload a CSV or a text file containing users.', 
                     },
       );
       my @menu = ( {categorytitle => 'Manage Users',
            items =>
            [
               {
                linktext => $links{$context}{'single'},
                #help => 'Course_Add_Student',
                icon => 'list-add.png',
                url => '/adm/createuser?action=singlestudent',
                permission => $permission->{'cusr'},
                linktitle => $linktitles{$context}{'single'},
   
               },
               {
                linktext => $links{$context}{'drop'},
                icon => 'edit-undo.png',
                #help => 'Course_Drop_Student',
                url => '/adm/createuser?action=drop',
                permission => $permission->{'cusr'},
                linktitle => $linktitles{$context}{'drop'},
               },
               {
                linktext => $links{$context}{'upload'},
                icon => 'sctr.png',
                #help => 'Course_Create_Class_List',
                url => '/adm/createuser?action=upload',
                permission => $permission->{'cusr'},
                linktitle => $linktitles{$context}{'upload'},
               },
               {
                linktext => $links{$context}{'listusers'},
                icon => 'edit-find.png',
                #help => 'Course_View_Class_List',
                url => '/adm/createuser?action=listusers',
                permission => ($permission->{'view'} || $permission->{'cusr'}),
                linktitle => $linktitles{$context}{'listusers'},
               },
            ]},
            {categorytitle => 'Administration',
            items => [ ]},
       );
   
       push(@{ $menu[1]->{items} }, #Category: Administration
           {
              linktext => 'Change Log',
              icon => 'document-properties.png',
              #help => 'Course_User_Logs',
              url => '/adm/createuser?action=changelogs',
              permission => $permission->{'cusr'},
              linktitle => 'View change log.',
            },
       );
       return Apache::lonhtmlcommon::generate_menu(@menu);
 }  }
   
 sub restore_prev_selections {  sub restore_prev_selections {
Line 3990  sub restore_prev_selections { Line 4754  sub restore_prev_selections {
   
 sub print_selfenroll_menu {  sub print_selfenroll_menu {
     my ($r,$context,$permission) = @_;      my ($r,$context,$permission) = @_;
       my $crstype = &Apache::loncommon::course_type();
     my $formname = 'enrollstudent';      my $formname = 'enrollstudent';
     my $nolink = 1;      my $nolink = 1;
     my ($row,$lt) = &get_selfenroll_titles();      my ($row,$lt) = &get_selfenroll_titles();
Line 4171  ENDSCRIPT Line 4936  ENDSCRIPT
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
   
     my $output = '<script type="text/javascript">'."\n".      my $output = '<script type="text/javascript">'."\n".
                    '// <![CDATA['."\n".
                  $setsec_js."\n".$selfenroll_js."\n".                   $setsec_js."\n".$selfenroll_js."\n".
                    '// ]]>'."\n".
                  '</script>'."\n".                   '</script>'."\n".
                  '<h3>'.$lt->{'selfenroll'}.'</h3>'."\n";                   '<h3>'.$lt->{'selfenroll'}.'</h3>'."\n";
     my ($visible,$cansetvis,$vismsgs,$visactions) = &visible_in_cat($cdom,$cnum);      my ($visible,$cansetvis,$vismsgs,$visactions) = &visible_in_cat($cdom,$cnum);
Line 4200  ENDSCRIPT Line 4967  ENDSCRIPT
             if (ref($lt) eq 'HASH') {              if (ref($lt) eq 'HASH') {
                 $title = $lt->{$item};                  $title = $lt->{$item};
             }              }
             $output .=               $output .= &Apache::lonhtmlcommon::row_title($title);
                 &Apache::lonhtmlcommon::row_title($title,  
                              'LC_selfenroll_pick_box_title','LC_oddrow_value')."\n";  
             if ($item eq 'types') {              if ($item eq 'types') {
                 my $curr_types = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_types'};                  my $curr_types = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_types'};
                 my $showdomdesc = 1;                  my $showdomdesc = 1;
Line 4351  ENDSCRIPT Line 5116  ENDSCRIPT
                            &mt('No').'</label>';                             &mt('No').'</label>';
                 my %advhash = &Apache::lonnet::get_course_adv_roles($cid,1);                  my %advhash = &Apache::lonnet::get_course_adv_roles($cid,1);
                 my (@ccs,%notified);                  my (@ccs,%notified);
                 if ($advhash{'cc'}) {                  my $ccrole = 'cc';
                     @ccs = split(/,/,$advhash{'cc'});                  if ($crstype eq 'Community') {
                       $ccrole = 'co';
                   }
                   if ($advhash{$ccrole}) {
                       @ccs = split(/,/,$advhash{$ccrole});
                 }                  }
                 if ($currnotified) {                  if ($currnotified) {
                     foreach my $current (split(/,/,$currnotified)) {                      foreach my $current (split(/,/,$currnotified)) {
Line 4434  ENDSCRIPT Line 5203  ENDSCRIPT
     return;      return;
 }  }
   
 sub display_selfenroll_queue {  
     my ($r,$context,$permission,$cnum,$cdom) = @_;  
     my $namespace = 'selfenrollrequests';  
     my ($output,%queue_by_date);  
     my %requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum);  
     if (keys(%requesthash) > 0) {  
         $r->print('<form method="post" name="changequeue" action="/adm/createuser" />'.  
                   '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.  
                   '<input type="hidden" name="state" value="done" />'.  
                   &Apache::loncommon::start_data_table().  
                   &Apache::loncommon::start_data_table_header_row().  
                   '<th>'.&mt('Action').'</th>'.  
                   '<th>'.&mt('Requestor').'</th>'.  
                   '<th>'.&mt('Section').'</th>'.  
                   '<th>'.&mt('Date requested').'</th>'.  
                   &Apache::loncommon::end_data_table_header_row());  
         foreach my $item (keys(%requesthash)) {  
             my ($timestamp,$usec) = split(/:/,$requesthash{$item});  
             if (exists($queue_by_date{$timestamp})) {  
                 if (ref($queue_by_date{$timestamp}) eq 'ARRAY') {  
                     push(@{$queue_by_date{$timestamp}},$item.':'.$usec);  
                 }  
             } else {  
                 @{$queue_by_date{$timestamp}} = ($item.':'.$usec);  
             }  
         }  
         my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));  
         my $count = 0;  
         foreach my $item (@sortedtimes) {  
             if (ref($queue_by_date{$item}) eq 'ARRAY') {  
                 foreach my $request (sort(@{$queue_by_date{$item}})) {  
                     my ($puname,$pudom,$pusec) = split(/:/,$request);  
                     my $showsec = $pusec;  
                     if ($showsec eq '') {  
                         $showsec = &mt('none');  
                     }  
                     my $namelink = &Apache::loncommon::aboutmewrapper(  
                                      &Apache::loncommon::plainname($puname,$pudom),  
                                      $puname,$pudom);  
                     $r->print(&Apache::loncommon::start_data_table_row().  
                               '<td><span class="LC_nobreak"><label>'.  
                               '<input type="checkbox" value="'.$count.':'.$puname.':'.$pudom.':'.$pusec.'" name="approvereq" />'.&mt('Approve').'</label></span><br />'.  
                               '<span class="LC_nobreak"><label>'.  
                               '<input type="checkbox" value="'.$puname.':'.$pudom.'" name="rejectreq" />'.&mt('Reject').'</label></span><br /></td>'.  
                               '<td>'.$namelink.'</td>'.  
                               '<td>'.$showsec.'</td>'.  
                               '<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'.  
                               &Apache::loncommon::end_data_table_row());  
                     $count ++;  
                 }  
             }  
         }  
         $r->print(&Apache::loncommon::end_data_table().  
                   '<input type="submit" name="processqueue" value="'.&mt('Save').'" /></form>');  
     } else {  
         $r->print(&mt('There are currently no enrollment requests.'));    
     }  
     return;  
 }  
   
 sub update_selfenroll_queue {  
     my ($r,$context,$permission,$cid,$cnum,$cdom) = @_;  
     my @approvals = &Apache::loncommon::get_env_multiple('form.approvereq');  
     my @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');  
     my $access_start =  $env{'course.'.$cid.'.internal.selfenroll_start_access'};  
     my $access_end =  $env{'course.'.$cid.'.internal.selfenroll_end_access'};  
     my $limit = $env{'course.'.$cid.'.internal.selfenroll_limit'};   
     my $cap = $env{'course.'.$cid.'.internal.selfenroll_cap'};  
     my $notifylist = $env{'course.'.$cid.'.internal.selfenroll_notifylist'};  
     my $namespace = 'selfenrollrequests';  
     my ($stucounts,$idx,$classlist) = &get_student_counts($cdom,$cnum);  
     my %requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum);  
     my $coursedesc = $env{'course.'.$cid.'.description'};  
     my $chome = &Apache::lonnet::homeserver($cnum,$cdom);  
     my $hostname = &Apache::lonnet::hostname($chome);  
     my $protocol = $Apache::lonnet::protocol{$chome};  
     $protocol = 'http' if ($protocol ne 'https');  
     my (@existing,@missingreq,@invalidusers,@limitexceeded,@enrolled,  
         @enrollerrors,@warn_approves,@warn_rejects);  
     my $now = time;  
     my $sender = $env{'user.name'}.':'.$env{'user.domain'};  
     my $approvedmsg = [{  
                         mt => 'Your request for enrollment has been approved.',  
                       },  
                       {  
                         mt => 'Visit [_1], to log-in and access the course',  
                         args => [$protocol.'://'.$hostname],  
                       }];  
                         
     my $rejectedmsg =  [{  
                          mt => 'Your request for enrollment has not been approved.',  
                        }];  
     foreach my $item (sort {$a <=> $b} @approvals) {  
         my ($num,$uname,$udom,$usec) = split(/:/,$item);  
         my $uhome = &Apache::lonnet::homeserver($uname,$udom);  
         if ($uhome ne 'no_host') {  
             if (exists($requesthash{$uname.':'.$udom})) {  
                  
                 if (exists($classlist->{$uname.':'.$udom})) {  
                     if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {  
                         if (($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Active') ||  
                             ($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Future')) {  
                             push(@existing,$uname.':'.$udom);  
                             next;  
                         }  
                     }  
                 }  
             } else {  
                 push(@missingreq,$uname.':'.$udom);  
                 next;  
             }  
             if (!grep(/^\Q$item\E$/,@rejections)) {  
                 if ($limit eq 'allstudents') {  
                     if ($stucounts->{$limit} >= $cap) {  
                         push(@limitexceeded,$uname.':'.$udom);  
                         last;  
                     }  
                 } elsif ($limit eq 'selfenrolled') {  
                     if ($stucounts->{$limit} >= $cap) {  
                         push(@limitexceeded,$uname.':'.$udom);  
                         last;  
                     }  
                 }  
                 my $result =   
                     &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$usec,$access_end,$access_start,'selfenroll',undef,$cdom.'_'.$cnum,1);  
                 if ($result eq 'ok') {  
                     push(@enrolled,$uname.':'.$udom);  
                     $stucounts->{'allstudents'} ++;  
                     $stucounts->{'selfenrolled'} ++;  
                     &Apache::selfenroll::send_notification($uname.':'.$udom,$approvedmsg,$cid,  
                                                $coursedesc,$now,'enroller',$sender);  
                     my %userrequest = (  
                         $cdom.'_'.$cnum => {  
                            timestamp   => $now,  
                            section     => $usec,  
                            adjudicator => $env{'user.name'}.':'.$env{'user.domain'},  
                            status      => 'approved',  
                        }  
                     );  
                     my $userresult =   
                         &Apache::lonnet::put($namespace,\%userrequest,$udom,$uname);  
                     if ($userresult ne 'ok') {  
                         push(@warn_approves,$uname.':'.$udom);  
                     }  
                 } else {  
                     push(@enrollerrors,$uname.':'.$udom);  
                 }  
             }  
         } else {  
             push(@invalidusers,$uname.':'.$udom);  
         }  
     }  
     my @changes = (@enrolled,@rejections);  
     if (@rejections) {  
         foreach my $user (@rejections) {  
             &Apache::selfenroll::send_notification($user,$rejectedmsg,$cid,  
                                                    $coursedesc,$now,'enroller',$sender);  
             my ($uname,$udom) = split(/:/,$user);  
             my %userrequest = (  
                 $cdom.'_'.$cnum => {  
                     timestamp   => $now,  
                     adjudicator => $env{'user.name'}.':'.$env{'user.domain'},   
                     status      => 'rejected',  
                 }  
             );  
             my $userresult =   
                 &Apache::lonnet::put($namespace,\%userrequest,$udom,$uname);  
             if ($userresult ne 'ok') {  
                 push(@warn_rejects,$user);  
             }  
         }  
     }  
     if (@changes) {  
         my $delresult = &Apache::lonnet::del($namespace,\@changes,$cdom,$cnum);  
         if ($delresult eq 'ok') {  
             my $namelink =   
                 &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}).' ('.$env{'user.name'}.':'.$env{'user.domain'}.')';  
             my $chgmsg = "'Action was taken on the following enrollment requests by [_1].',$namelink";  
             my ($approvedlist,$rejectedlist);  
             if (@enrolled) {  
                 $approvedlist = join("\n",@enrolled);  
                 $r->print('<p>'.&mt('The following were enrolled in the course:').'<ul>');  
                 foreach my $user (@enrolled) {  
                     my ($uname,$udom) = split(/:/,$user);   
                     my $userlink =   
                         &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom);  
                     $r->print('<li>'.$userlink.'</li>');  
                 }  
                 $r->print('</ul></p>');  
             }  
             if (@rejections) {  
                 $rejectedlist = join("\n",@rejections);  
                 $r->print('<p>'.&mt('The following enrollment requests were rejected:').'<ul>');  
                 foreach my $user (@rejections) {  
                     $r->print('<li>'.$user.'</li>');  
                 }  
                 $r->print('</ul></p>');  
             }  
             &Apache::selfenroll::send_notification($notifylist,$chgmsg,$cid,  
                                                    $coursedesc,$now,'managers',  
                                                    $sender,$approvedlist,$rejectedlist);  
         }  
     }  
     if (@existing) {  
         $r->print('<p>'.&mt('The following enrollment requests were deleted because the user is already enrolled in the course:').'<ul>');  
         foreach my $user (@existing) {  
             $r->print('<li>'.$user.'</li>');  
         }  
         $r->print('</ul></p>');  
     }  
     if (@missingreq) {  
         $r->print('<p>'.&mt('The following enrollment requests were ignored because the request is no longer in the enrollment queue:').'<ul>');  
         foreach my $user (@missingreq) {  
             $r->print('<li>'.$user.'</li>');  
         }  
         $r->print('</ul></p>');  
     }  
     if (@invalidusers) {  
         $r->print('<p>'.&mt('The following enrollment requests were deleted because the requestor does not have a LON-CAPA account:').'<ul>');  
         foreach my $user (@invalidusers) {  
             $r->print('<li>'.$user.'</li>');  
         }  
         $r->print('</ul></p>');  
     }  
     if (@limitexceeded) {  
         $r->print('<p>'.&mt('The following enrollment requests were skipped because the enrollment limit has been reached for the course:').'<ul>');  
         foreach my $user (@limitexceeded) {  
             $r->print('<li>'.$user.'</li>');  
         }  
         $r->print('</ul></p>');  
     }  
     if (@enrollerrors) {  
         $r->print('<p>'.&mt('The following enrollment requests could not be processed because an error occurred:').'<ul>');  
         foreach my $user (@enrollerrors) {  
             $r->print('<li>'.$user.'</li>');  
         }  
         $r->print('</ul></p>');  
     }  
     if (@warn_approves) {  
         $r->print('<p>'.&mt("For the following users, an error occurred when updating the user's own self-enroll requests record:").'<ul>');  
         foreach my $user (@warn_approves) {  
             $r->print('<li>'.$user.'</li>');  
         }  
         $r->print('</ul></p>');  
     }  
     if (@warn_rejects) {  
         $r->print('<p>'.&mt("For the following users, an error occurred when updating the user's own self-enroll requests record:").'<ul>');  
         foreach my $user (@warn_rejects) {  
             $r->print('<li>'.$user.'</li>');  
         }  
         $r->print('</ul></p>');  
     }  
     return;  
 }  
   
 sub get_student_counts {  
     my ($cdom,$cnum) = @_;  
     my (%idx,%stucounts);  
     my $classlist = &Apache::loncoursedata::get_classlist($cdom,$cnum);  
     $idx{'type'} = &Apache::loncoursedata::CL_TYPE();  
     $idx{'status'} = &Apache::loncoursedata::CL_STATUS();  
     while (my ($student,$data) = each(%$classlist)) {  
         if (($data->[$idx{'status'}] eq 'Active') ||  
             ($data->[$idx{'status'}] eq 'Future')) {  
             if ($data->[$idx{'type'}] eq 'selfenroll') {  
                 $stucounts{'selfenroll'} ++;  
             }  
             $stucounts{'allstudents'} ++;  
         }  
     }  
     return (\%stucounts,\%idx,$classlist);  
 }  
   
 sub visible_in_cat {  sub visible_in_cat {
     my ($cdom,$cnum) = @_;      my ($cdom,$cnum) = @_;
     my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);      my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);
     my ($cathash,%settable,@vismsgs,$cansetvis);      my ($cathash,%settable,@vismsgs,$cansetvis);
     my %visactions = &Apache::lonlocal::texthash(      my %visactions = &Apache::lonlocal::texthash(
                    vis => 'Your course currently appears in the Course Catalog for this domain.',                     vis => 'Your course/community currently appears in the Course/Community Catalog for this domain.',
                    gen => 'Courses can be both self-cataloging, based on an institutional code (e.g., fs08phy231), or can be assigned categories from a hierarchy defined for the domain.',                     gen => 'Courses can be both self-cataloging, based on an institutional code (e.g., fs08phy231), or can be assigned categories from a hierarchy defined for the domain.',
                    miss => 'Your course does not currently appear in the Course Catalog for this domain.',                     miss => 'Your course/community does not currently appear in the Course/Community Catalog for this domain.',
                    yous => 'You should remedy this if you plan to allow self-enrollment, otherwise students will have difficulty finding your course.',                     yous => 'You should remedy this if you plan to allow self-enrollment, otherwise students will have difficulty finding your course.',
                    coca => 'Courses can be absent from the Catalog, because they do not have an institutional code, have no assigned category, or have been specifically excluded.',                     coca => 'Courses can be absent from the Catalog, because they do not have an institutional code, have no assigned category, or have been specifically excluded.',
                    make => 'Make any changes to self-enrollment settings below, click "Save", then take action to include the course in the Catalog:',                     make => 'Make any changes to self-enrollment settings below, click "Save", then take action to include the course in the Catalog:',
Line 4930  sub print_userchangelogs_display { Line 5426  sub print_userchangelogs_display {
     my $formname = 'roleslog';      my $formname = 'roleslog';
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $crstype = &Apache::loncommon::course_type();
     my %roleslog=&Apache::lonnet::dump('nohist_rolelog',$cdom,$cnum);      my %roleslog=&Apache::lonnet::dump('nohist_rolelog',$cdom,$cnum);
     if ((keys(%roleslog))[0]=~/^error\:/) { undef(%roleslog); }      if ((keys(%roleslog))[0]=~/^error\:/) { undef(%roleslog); }
   
     $r->print('<form action="/adm/createuser" method="post" name="'.$formname.'">');  
     my %saveable_parameters = ('show' => 'scalar',);      my %saveable_parameters = ('show' => 'scalar',);
     &Apache::loncommon::store_course_settings('roles_log',      &Apache::loncommon::store_course_settings('roles_log',
                                               \%saveable_parameters);                                                \%saveable_parameters);
Line 4968  sub print_userchangelogs_display { Line 5464  sub print_userchangelogs_display {
     }      }
     my (%whodunit,%changed,$version);      my (%whodunit,%changed,$version);
     ($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);      ($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);
     $r->print(&role_display_filter($formname,$cdom,$cnum,\%curr,$version));  
     my $showntablehdr = 0;  
     my $tablehdr = &Apache::loncommon::start_data_table().  
                    &Apache::loncommon::start_data_table_header_row().  
                    '<th>&nbsp;</th><th>'.&mt('When').'</th><th>'.&mt('Who made the change').  
                    '</th><th>'.&mt('Changed User').'</th><th>'.&mt('Role').'</th><th>'.&mt('Section').'</th><th>'.  
                    &mt('Context').'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.  
                    &Apache::loncommon::end_data_table_header_row();  
     my ($minshown,$maxshown);      my ($minshown,$maxshown);
     $minshown = 1;      $minshown = 1;
     my $count = 0;      my $count = 0;
Line 4985  sub print_userchangelogs_display { Line 5473  sub print_userchangelogs_display {
             $minshown = 1 + ($curr{'page'} - 1) * $curr{'show'};              $minshown = 1 + ($curr{'page'} - 1) * $curr{'show'};
         }          }
     }      }
   
       # Form Header
       $r->print('<form action="/adm/createuser" method="post" name="'.$formname.'">'.
                 &role_display_filter($formname,$cdom,$cnum,\%curr,$version,$crstype));
   
       # Create navigation
       my ($nav_script,$nav_links) = &userlogdisplay_nav($formname,\%curr,$more_records);
       my $showntableheader = 0;
   
       # Table Header
       my $tableheader = 
           &Apache::loncommon::start_data_table_header_row()
          .'<th>&nbsp;</th>'
          .'<th>'.&mt('When').'</th>'
          .'<th>'.&mt('Who made the change').'</th>'
          .'<th>'.&mt('Changed User').'</th>'
          .'<th>'.&mt('Role').'</th>'
          .'<th>'.&mt('Section').'</th>'
          .'<th>'.&mt('Context').'</th>'
          .'<th>'.&mt('Start').'</th>'
          .'<th>'.&mt('End').'</th>'
          .&Apache::loncommon::end_data_table_header_row();
   
       # Display user change log data
     foreach my $id (sort { $roleslog{$b}{'exe_time'}<=>$roleslog{$a}{'exe_time'} } (keys(%roleslog))) {      foreach my $id (sort { $roleslog{$b}{'exe_time'}<=>$roleslog{$a}{'exe_time'} } (keys(%roleslog))) {
         next if (($roleslog{$id}{'exe_time'} < $curr{'rolelog_start_date'}) ||          next if (($roleslog{$id}{'exe_time'} < $curr{'rolelog_start_date'}) ||
                  ($roleslog{$id}{'exe_time'} > $curr{'rolelog_end_date'}));                   ($roleslog{$id}{'exe_time'} > $curr{'rolelog_end_date'}));
Line 5006  sub print_userchangelogs_display { Line 5518  sub print_userchangelogs_display {
         }          }
         $count ++;          $count ++;
         next if ($count < $minshown);          next if ($count < $minshown);
         if (!$showntablehdr) {          unless ($showntableheader) {
             $r->print($tablehdr);              $r->print($nav_script
             $showntablehdr = 1;                       .$nav_links
                        .&Apache::loncommon::start_data_table()
                        .$tableheader);
               $r->rflush();
               $showntableheader = 1;
         }          }
         if ($whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}} eq '') {          if ($whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}} eq '') {
             $whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}} =              $whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}} =
Line 5044  sub print_userchangelogs_display { Line 5560  sub print_userchangelogs_display {
         if ($roleslog{$id}{'logentry'}{'selfenroll'}) {          if ($roleslog{$id}{'logentry'}{'selfenroll'}) {
             $chgcontext = 'selfenroll';              $chgcontext = 'selfenroll';
         }          }
         my %lt = &rolechg_contexts();          my %lt = &rolechg_contexts($crstype);
         if ($chgcontext ne '' && $lt{$chgcontext} ne '') {          if ($chgcontext ne '' && $lt{$chgcontext} ne '') {
             $chgcontext = $lt{$chgcontext};              $chgcontext = $lt{$chgcontext};
         }          }
         $r->print(&Apache::loncommon::start_data_table_row().'<td>'.$count.'</td><td>'.&Apache::lonlocal::locallocaltime($roleslog{$id}{'exe_time'}).'</td><td>'.$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}}.'</td><td>'.$changed{$roleslog{$id}{'uname'}.':'.$roleslog{$id}{'udom'}}.'</td><td>'.&Apache::lonnet::plaintext($roleslog{$id}{'logentry'}{'role'}).'</td><td>'.$sec.'</td><td>'.$chgcontext.'</td><td>'.$rolestart.'</td><td>'.$roleend.'</td>'.&Apache::loncommon::end_data_table_row()."\n");          $r->print(
               &Apache::loncommon::start_data_table_row()
              .'<td>'.$count.'</td>'
              .'<td>'.&Apache::lonlocal::locallocaltime($roleslog{$id}{'exe_time'}).'</td>'
              .'<td>'.$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}}.'</td>'
              .'<td>'.$changed{$roleslog{$id}{'uname'}.':'.$roleslog{$id}{'udom'}}.'</td>'
              .'<td>'.&Apache::lonnet::plaintext($roleslog{$id}{'logentry'}{'role'},$crstype).'</td>'
              .'<td>'.$sec.'</td>'
              .'<td>'.$chgcontext.'</td>'
              .'<td>'.$rolestart.'</td>'
              .'<td>'.$roleend.'</td>'
              .&Apache::loncommon::end_data_table_row()."\n");
       }
   
       if ($showntableheader) { # Table footer, if content displayed above
           $r->print(&Apache::loncommon::end_data_table()
                    .$nav_links);
       } else { # No content displayed above
           $r->print('<p class="LC_info">'
                    .&mt('There are no records to display.')
                    .'</p>'
           );
     }      }
     if ($showntablehdr) {  
         $r->print(&Apache::loncommon::end_data_table().'<br />');      # Form Footer
         if (($curr{'page'} > 1) || ($more_records)) {      $r->print( 
             $r->print('<table><tr>');          '<input type="hidden" name="page" value="'.$curr{'page'}.'" />'
             if ($curr{'page'} > 1) {         .'<input type="hidden" name="action" value="changelogs" />'
                 $r->print('<td><a href="javascript:chgPage('."'previous'".');">'.&mt('Previous [_1] changes',$curr{'show'}).'</a></td>');         .'</form>');
             }      return;
             if ($more_records) {  }
                 $r->print('<td><a href="javascript:chgPage('."'next'".');">'.&mt('Next [_1] changes',$curr{'show'}).'</a></td>');  
             }  sub userlogdisplay_nav {
             $r->print('</tr></table>');      my ($formname,$curr,$more_records) = @_;
             $r->print(<<"ENDSCRIPT");      my ($nav_script,$nav_links);
       if (ref($curr) eq 'HASH') {
           # Create Navigation:
           # Navigation Script
           $nav_script = <<"ENDSCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function chgPage(caller) {  function chgPage(caller) {
     if (caller == 'previous') {      if (caller == 'previous') {
         document.$formname.page.value --;          document.$formname.page.value --;
Line 5070  function chgPage(caller) { Line 5612  function chgPage(caller) {
     if (caller == 'next') {      if (caller == 'next') {
         document.$formname.page.value ++;          document.$formname.page.value ++;
     }      }
     document.$formname.submit();       document.$formname.submit();
     return;      return;
 }  }
   // ]]>
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
           # Navigation Buttons
           $nav_links = '<p>';
           if (($curr->{'page'} > 1) || ($more_records)) {
               if ($curr->{'page'} > 1) {
                   $nav_links .= '<input type="button"'
                                .' onclick="javascript:chgPage('."'previous'".');"'
                                .' value="'.&mt('Previous [_1] changes',$curr->{'show'})
                                .'" /> ';
               }
               if ($more_records) {
                   $nav_links .= '<input type="button"'
                                .' onclick="javascript:chgPage('."'next'".');"'
                                .' value="'.&mt('Next [_1] changes',$curr->{'show'})
                                .'" />';
               }
         }          }
     } else {          $nav_links .= '</p>';
         $r->print(&mt('There are no records to display'));  
     }      }
     $r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'.      return ($nav_script,$nav_links);
               '<input type="hidden" name="action" value="changelogs" /></form>');  
     return;  
 }  }
   
 sub role_display_filter {  sub role_display_filter {
     my ($formname,$cdom,$cnum,$curr,$version) = @_;      my ($formname,$cdom,$cnum,$curr,$version,$crstype) = @_;
     my $context = 'course';      my $context = 'course';
       my $lctype = lc($crstype);
     my $nolink = 1;      my $nolink = 1;
     my $output = '<table><tr><td valign="top">'.      my $output = '<table><tr><td valign="top">'.
                  '<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b><br />'.                   '<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b></span><br />'.
                  &Apache::lonmeta::selectbox('show',$curr->{'show'},undef,                   &Apache::lonmeta::selectbox('show',$curr->{'show'},undef,
                                               (&mt('all'),5,10,20,50,100,1000,10000)).                                                (&mt('all'),5,10,20,50,100,1000,10000)).
                  '</td><td>&nbsp;&nbsp;</td>';                   '</td><td>&nbsp;&nbsp;</td>';
Line 5101  sub role_display_filter { Line 5657  sub role_display_filter {
         &Apache::lonhtmlcommon::date_setter($formname,'rolelog_end_date',          &Apache::lonhtmlcommon::date_setter($formname,'rolelog_end_date',
                                             $curr->{'rolelog_end_date'},undef,                                              $curr->{'rolelog_end_date'},undef,
                                             undef,undef,undef,undef,undef,undef,$nolink);                                              undef,undef,undef,undef,undef,undef,$nolink);
     my %lt = &rolechg_contexts();      my %lt = &rolechg_contexts($crstype);
     $output .= '<td valign="top"><b>'.&mt('Window during which changes occurred:').'</b><br /><table><tr><td>'.&mt('After:').      $output .= '<td valign="top"><b>'.&mt('Window during which changes occurred:').'</b><br />'.
                '</td><td>'.$startform.'</td></tr><tr><td>'.&mt('Before:').'</td><td>'.                 '<table><tr><td>'.&mt('After:').
                $endform.'</td></tr></table></td><td>&nbsp;&nbsp;</td>'.                 '</td><td>'.$startform.'</td></tr>'.
                  '<tr><td>'.&mt('Before:').'</td>'.
                  '<td>'.$endform.'</td></tr></table>'.
                  '</td>'.
                  '<td>&nbsp;&nbsp;</td>'.
                '<td valign="top"><b>'.&mt('Role:').'</b><br />'.                 '<td valign="top"><b>'.&mt('Role:').'</b><br />'.
                '<select name="role"><option value="any"';                 '<select name="role"><option value="any"';
     if ($curr->{'role'} eq 'any') {      if ($curr->{'role'} eq 'any') {
         $output .= ' selected="selected"';          $output .= ' selected="selected"';
     }      }
     $output .=  '>'.&mt('Any').'</option>'."\n";      $output .=  '>'.&mt('Any').'</option>'."\n";
     my @roles = &Apache::lonuserutils::course_roles($context,undef,1);      my @roles = &Apache::lonuserutils::course_roles($context,undef,1,$lctype);
     foreach my $role (@roles) {      foreach my $role (@roles) {
         my $plrole;          my $plrole;
         if ($role eq 'cr') {          if ($role eq 'cr') {
             $plrole = &mt('Custom Role');              $plrole = &mt('Custom Role');
         } else {          } else {
             $plrole=&Apache::lonnet::plaintext($role);              $plrole=&Apache::lonnet::plaintext($role,$crstype);
         }          }
         my $selstr = '';          my $selstr = '';
         if ($role eq $curr->{'role'}) {          if ($role eq $curr->{'role'}) {
Line 5125  sub role_display_filter { Line 5685  sub role_display_filter {
         }          }
         $output .= '  <option value="'.$role.'"'.$selstr.'>'.$plrole.'</option>';          $output .= '  <option value="'.$role.'"'.$selstr.'>'.$plrole.'</option>';
     }      }
     $output .= '</select></td><td>&nbsp;&nbsp;</td><td valign="top"><b>'.      $output .= '</select></td>'.
                  '<td>&nbsp;&nbsp;</td>'.
                  '<td valign="top"><b>'.
                &mt('Context:').'</b><br /><select name="chgcontext">';                 &mt('Context:').'</b><br /><select name="chgcontext">';
     foreach my $chgtype ('any','auto','updatenow','createcourse','course','domain','selfenroll') {      foreach my $chgtype ('any','auto','updatenow','createcourse','course','domain','selfenroll','requestcourses') {
         my $selstr = '';          my $selstr = '';
         if ($curr->{'chgcontext'} eq $chgtype) {          if ($curr->{'chgcontext'} eq $chgtype) {
             $output .= $selstr = ' selected="selected"';              $selstr = ' selected="selected"';
         }          }
         if (($chgtype eq 'auto') || ($chgtype eq 'updatenow')) {          if (($chgtype eq 'auto') || ($chgtype eq 'updatenow')) {
             next if (!&Apache::lonnet::auto_run($cnum,$cdom));              next if (!&Apache::lonnet::auto_run($cnum,$cdom));
         }          }
         $output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n";          $output .= '<option value="'.$chgtype.'"'.$selstr.'>'.$lt{$chgtype}.'</option>'."\n";
     }      }
     $output .= '</select></td><td>&nbsp;&nbsp;</td><td valign="middle"><input type="submit" value="'.      $output .= '</select></td>'
                &mt('Update Display').'" /></tr></table>'.                .'</tr></table>';
                '<span class="LC_roleslog_note">'.  
                &mt('[_1]Note:[_2] Only changes made from servers running LON-CAPA 2.6.99.0 or later are displayed.');      # Update Display button
     if ($version) {      $output .= '<p>'
         $output .= ' '.&mt('This server is version [_3].','<b>','</b>',$version);    }                .'<input type="submit" value="'.&mt('Update Display').'" />'
     $output .= '</span><hr /><br />';                .'</p><hr />';
     return $output;      return $output;
 }  }
   
 sub rolechg_contexts {  sub rolechg_contexts {
       my ($crstype) = @_;
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                                              any          => 'Any',                                               any          => 'Any',
                                              auto         => 'Automated enrollment',                                               auto         => 'Automated enrollment',
Line 5155  sub rolechg_contexts { Line 5718  sub rolechg_contexts {
                                              createcourse => 'Course Creation',                                               createcourse => 'Course Creation',
                                              course       => 'User Management in course',                                               course       => 'User Management in course',
                                              domain       => 'User Management in domain',                                               domain       => 'User Management in domain',
                                              selfenroll   => 'Self-enrolled',                                                selfenroll   => 'Self-enrolled',
                                                requestcourses => 'Course Request',
                                          );                                           );
       if ($crstype eq 'Community') {
           $lt{'createcourse'} = &mt('Community Creation');
           $lt{'course'} = &mt('User Management in community');
           $lt{'requestcourses'} = &mt('Community Request');
       }
     return %lt;      return %lt;
 }  }
   
Line 5186  sub user_search_result { Line 5755  sub user_search_result {
     if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'instd')) {      if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'instd')) {
         if (($srch->{'srchdomain'} eq '') ||           if (($srch->{'srchdomain'} eq '') || 
     ! (&Apache::lonnet::domain($srch->{'srchdomain'}))) {      ! (&Apache::lonnet::domain($srch->{'srchdomain'}))) {
             $response = &mt('You must specify a valid domain when searching in a domain or institutional directory.')              $response = '<p class="LC_warning">'.&mt('You must specify a valid domain when searching in a domain or institutional directory.').'</p>';
         }          }
     }      }
     if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') ||      if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') ||
Line 5199  sub user_search_result { Line 5768  sub user_search_result {
                 }                  }
             }              }
             if ($unamecheck !~ /^$match_username$/) {              if ($unamecheck !~ /^$match_username$/) {
                 $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');                  $response = '<p class="LC_warning">'.&mt('You must specify a valid username. Only the following are allowed: letters numbers - . @').'</p>';
             }              }
         }          }
     }      }
Line 5240  sub user_search_result { Line 5809  sub user_search_result {
                                 &build_search_response($context,$srch,%srch_results);                                  &build_search_response($context,$srch,%srch_results);
                         } else {                          } else {
                             $currstate = 'modify';                              $currstate = 'modify';
                               my $uname = $srch->{'srchterm'};
                               my $udom = $srch->{'srchdomain'};
                               $srch_results{$uname.':'.$udom} =
                                   { &Apache::lonnet::get('environment',
                                                          ['firstname',
                                                           'lastname',
                                                           'permanentemail'],
                                                            $udom,$uname)
                                   };
                         }                          }
                     } else {                      } else {
                         %srch_results = &Apache::lonnet::usersearch($srch);                          %srch_results = &Apache::lonnet::usersearch($srch);
Line 5365  sub user_search_result { Line 5943  sub user_search_result {
                 ($currstate,$response,$forcenewuser) =                   ($currstate,$response,$forcenewuser) = 
                     &build_search_response($context,$srch,%srch_results);                      &build_search_response($context,$srch,%srch_results);
             } else {              } else {
                 my $showdom = &display_domain_info($srch->{'srchdomain'});                $response = '<span class="LC_warning">'.                  my $showdom = &display_domain_info($srch->{'srchdomain'});
                   $response = '<span class="LC_warning">'.
                     &mt('Institutional directory search is not available in domain: [_1]',$showdom).                      &mt('Institutional directory search is not available in domain: [_1]',$showdom).
                     '</span><br />'.                      '</span><br />'.
                     &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.').                      &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.').
Line 5531  sub build_search_response { Line 6110  sub build_search_response {
                     $response .= '<br />'.&mt('You may want to broaden your search to the selected LON-CAPA domain.');                      $response .= '<br />'.&mt('You may want to broaden your search to the selected LON-CAPA domain.');
                 }                  }
             }              }
             if (!($srch->{'srchby'} eq 'uname' && $srch->{'srchin'} eq 'dom' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchdomain'} eq $env{'request.role.domain'})) {              my $createdom = $env{'request.role.domain'};
               if ($context eq 'requestcrs') {
                   if ($env{'form.coursedom'} ne '') {
                       $createdom = $env{'form.coursedom'};
                   }
               }
               if (!($srch->{'srchby'} eq 'uname' && $srch->{'srchin'} eq 'dom' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchdomain'} eq $createdom)) {
                 my $cancreate =                  my $cancreate =
                     &Apache::lonuserutils::can_create_user($env{'request.role.domain'},$context);                      &Apache::lonuserutils::can_create_user($createdom,$context);
                   my $targetdom = '<span class="LC_cusr_emph">'.$createdom.'</span>';
                 if ($cancreate) {                  if ($cancreate) {
                     my $showdom = &display_domain_info($env{'request.role.domain'});                       my $showdom = &display_domain_info($createdom); 
                     $response .= '<br /><br />'                      $response .= '<br /><br />'
                                 .'<b>'.&mt('To add a new user:').'</b>'                                  .'<b>'.&mt('To add a new user:').'</b>'
                                 .'<br />'                                  .'<br />';
                                 .&mt("(You can only create new users in your current role's domain - [_1])"                      if ($context eq 'requestcrs') {
                                     ,'<span class="LC_cusr_emph">'.$env{'request.role.domain'}.'</span>')                          $response .= &mt("(You can only define new users in the new course's domain - [_1])",$targetdom);
                                 .'<ul><li>'                      } else {
                           $response .= &mt("(You can only create new users in your current role's domain - [_1])",$targetdom);
                       }
                       $response .='<ul><li>'
                                 .&mt("Set 'Domain/institution to search' to: [_1]",'<span class="LC_cusr_emph">'.$showdom.'</span>')                                  .&mt("Set 'Domain/institution to search' to: [_1]",'<span class="LC_cusr_emph">'.$showdom.'</span>')
                                 .'</li><li>'                                  .'</li><li>'
                                 .&mt("Set 'Search criteria' to: [_1]username is ..... in selected LON-CAPA domain[_2]",'<span class="LC_cusr_emph">','</span>')                                  .&mt("Set 'Search criteria' to: [_1]username is ..... in selected LON-CAPA domain[_2]",'<span class="LC_cusr_emph">','</span>')
Line 5552  sub build_search_response { Line 6141  sub build_search_response {
                                 .'</li></ul><br />';                                  .'</li></ul><br />';
                 } else {                  } else {
                     my $helplink = ' href="javascript:helpMenu('."'display'".')"';                      my $helplink = ' href="javascript:helpMenu('."'display'".')"';
                     $response .= '<br /><br />'                      $response .= '<br /><br />';
                                 .&mt("You are not authorized to create new users in your current role's domain - [_1]."                      if ($context eq 'requestcrs') {
                                     ,'<span class="LC_cusr_emph">'.$env{'request.role.domain'}.'</span>')                          $response .= &mt("You are not authorized to define new users in the new course's domain - [_1].",$targetdom);
                                 .'<br />'                      } else {
                                 .&mt('Please contact the [_1]helpdesk[_2] if you need to create a new user.'                          $response .= &mt("You are not authorized to create new users in your current role's domain - [_1].",$targetdom);
                       }
                       $response .= '<br />'
                                    .&mt('Please contact the [_1]helpdesk[_2] if you need to create a new user.'
                                     ,' <a'.$helplink.'>'                                      ,' <a'.$helplink.'>'
                                     ,'</a>')                                      ,'</a>')
                                 .'<br /><br />';                                   .'<br /><br />';
                 }                  }
             }              }
         }          }
Line 5645  sub course_level_table { Line 6237  sub course_level_table {
             'end'  => "End"              'end'  => "End"
     );      );
   
     foreach my $protectedcourse (sort( keys(%inccourses))) {      foreach my $protectedcourse (sort(keys(%inccourses))) {
  my $thiscourse=$protectedcourse;   my $thiscourse=$protectedcourse;
  $thiscourse=~s:_:/:g;   $thiscourse=~s:_:/:g;
  my %coursedata=&Apache::lonnet::coursedescription($thiscourse);   my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
           my $isowner = &is_courseowner($protectedcourse,$coursedata{'internal.courseowner'});
  my $area=$coursedata{'description'};   my $area=$coursedata{'description'};
         my $type=$coursedata{'type'};          my $crstype=$coursedata{'type'};
  if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }   if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }
  my ($domain,$cnum)=split(/\//,$thiscourse);   my ($domain,$cnum)=split(/\//,$thiscourse);
         my %sections_count;          my %sections_count;
Line 5660  sub course_level_table { Line 6253  sub course_level_table {
     &Apache::loncommon::get_sections($domain,$cnum);      &Apache::loncommon::get_sections($domain,$cnum);
             }              }
         }          }
         my @roles = &Apache::lonuserutils::roles_by_context('course');          my @roles = &Apache::lonuserutils::roles_by_context('course','',$crstype);
  foreach my $role (@roles) {   foreach my $role (@roles) {
             my $plrole=&Apache::lonnet::plaintext($role);              my $plrole=&Apache::lonnet::plaintext($role,$crstype);
     if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {      if ((&Apache::lonnet::allowed('c'.$role,$thiscourse)) ||
                   ((($role eq 'cc') || ($role eq 'co')) && ($isowner))) {
                 $table .= &course_level_row($protectedcourse,$role,$area,$domain,                  $table .= &course_level_row($protectedcourse,$role,$area,$domain,
                                             $plrole,\%sections_count,\%lt);                                                  $plrole,\%sections_count,\%lt);
             } elsif ($env{'request.course.sec'} ne '') {              } elsif ($env{'request.course.sec'} ne '') {
                 if (&Apache::lonnet::allowed('c'.$role,$thiscourse.'/'.                  if (&Apache::lonnet::allowed('c'.$role,$thiscourse.'/'.
                                              $env{'request.course.sec'})) {                                               $env{'request.course.sec'})) {
Line 5675  sub course_level_table { Line 6269  sub course_level_table {
             }              }
         }          }
         if (&Apache::lonnet::allowed('ccr',$thiscourse)) {          if (&Apache::lonnet::allowed('ccr',$thiscourse)) {
             foreach my $cust (sort keys %customroles) {              foreach my $cust (sort(keys(%customroles))) {
                   next if ($crstype eq 'Community' && $customroles{$cust} =~ /bre\&S/);
                 my $role = 'cr_cr_'.$env{'user.domain'}.'_'.$env{'user.name'}.'_'.$cust;                  my $role = 'cr_cr_'.$env{'user.domain'}.'_'.$env{'user.name'}.'_'.$cust;
                 $table .= &course_level_row($protectedcourse,$role,$area,$domain,                  $table .= &course_level_row($protectedcourse,$role,$area,$domain,
                                             $cust,\%sections_count,\%lt);                                              $cust,\%sections_count,\%lt);
Line 5706  sub course_level_row { Line 6301  sub course_level_row {
               $protectedcourse.'_'.$role.'" /></td>'."\n".                $protectedcourse.'_'.$role.'" /></td>'."\n".
               ' <td>'.$plrole.'</td>'."\n".                ' <td>'.$plrole.'</td>'."\n".
               ' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";                ' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
     if ($role eq 'cc') {      if (($role eq 'cc') || ($role eq 'co')) {
         $row .= '<td>&nbsp;</td>';          $row .= '<td>&nbsp;</td>';
     } elsif ($env{'request.course.sec'} ne '') {      } elsif ($env{'request.course.sec'} ne '') {
         $row .= ' <td><input type="hidden" value="'.          $row .= ' <td><input type="hidden" value="'.
Line 5754  sub course_level_dc { Line 6349  sub course_level_dc {
                       '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.                        '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.
                       '<input type="hidden" name="dccourse" value="" />';                        '<input type="hidden" name="dccourse" value="" />';
     my $courseform='<b>'.&Apache::loncommon::selectcourse_link      my $courseform='<b>'.&Apache::loncommon::selectcourse_link
             ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';              ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course/Community','crstype').'</b>';
     my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu');      my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu','role','Course/Community Browser');
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                     'rol'  => "Role",                      'rol'  => "Role",
                     'grs'  => "Section",                      'grs'  => "Section",
Line 5766  sub course_level_dc { Line 6361  sub course_level_dc {
                     'ssd'  => "Set Start Date",                      'ssd'  => "Set Start Date",
                     'sed'  => "Set End Date"                      'sed'  => "Set End Date"
                   );                    );
     my $header = '<h4>'.&mt('Course Level').'</h4>'.      my $header = '<h4>'.&mt('Course/Community Level').'</h4>'.
                  &Apache::loncommon::start_data_table().                   &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>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.                   '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
                  &Apache::loncommon::end_data_table_header_row();                   &Apache::loncommon::end_data_table_header_row();
     my $otheritems = &Apache::loncommon::start_data_table_row()."\n".      my $otheritems = &Apache::loncommon::start_data_table_row()."\n".
                      '<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".                       '<td><br /><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc','','','','crstype'".')" /></td>'."\n".
                      '<td><select name="role">'."\n";                       '<td valign><br /><select name="role">'."\n";
     foreach my $role (@roles) {      foreach my $role (@roles) {
         my $plrole=&Apache::lonnet::plaintext($role);          my $plrole=&Apache::lonnet::plaintext($role);
         $otheritems .= '  <option value="'.$role.'">'.$plrole;          $otheritems .= '  <option value="'.$role.'">'.$plrole;
Line 5793  sub course_level_dc { Line 6388  sub course_level_dc {
                      '<td valign="top">&nbsp;<b>'.$lt{'new'}.'</b><br />'.                       '<td valign="top">&nbsp;<b>'.$lt{'new'}.'</b><br />'.
                      '<input type="text" name="newsec" value="" />'.                       '<input type="text" name="newsec" value="" />'.
                      '<input type="hidden" name="section" value="" />'.                       '<input type="hidden" name="section" value="" />'.
                      '<input type="hidden" name="groups" value="" /></td>'.                       '<input type="hidden" name="groups" value="" />'.
                        '<input type="hidden" name="crstype" value="" /></td>'.
                      '</tr></table></td>';                       '</tr></table></td>';
     $otheritems .= <<ENDTIMEENTRY;      $otheritems .= <<ENDTIMEENTRY;
 <td><input type="hidden" name="start" value='' />  <td><br /><input type="hidden" name="start" value='' />
 <a href=  <a href=
 "javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>  "javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>
 <td><input type="hidden" name="end" value='' />  <td><br /><input type="hidden" name="end" value='' />
 <a href=  <a href=
 "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>  "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDTIMEENTRY  ENDTIMEENTRY
Line 6063  sub update_selfenroll_config { Line 6659  sub update_selfenroll_config {
                                 if ($currlimit eq 'allstudents') {                                  if ($currlimit eq 'allstudents') {
                                     $newval = &mt('New self-enrollment no longer allowed when total (all students) reaches [_1].',$newcap);                                      $newval = &mt('New self-enrollment no longer allowed when total (all students) reaches [_1].',$newcap);
                                 } elsif ($changes{'internal.selfenroll_limit'} eq 'selfenrolled') {                                  } elsif ($changes{'internal.selfenroll_limit'} eq 'selfenrolled') {
                                     $newval =  &mt('New self-enrollment no longer allowed when total umber of self-enrolled students reaches [_1].',$newcap);                                      $newval =  &mt('New self-enrollment no longer allowed when total number of self-enrolled students reaches [_1].',$newcap);
                                 }                                  }
                             }                              }
                             $r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval).'</li>'."\n");                              $r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval).'</li>'."\n");
Line 6166  sub get_selfenroll_titles { Line 6762  sub get_selfenroll_titles {
     return (\@row,\%lt);      return (\@row,\%lt);
 }  }
   
   sub is_courseowner {
       my ($thiscourse,$courseowner) = @_;
       if ($courseowner eq '') {
           if ($env{'request.course.id'} eq $thiscourse) {
               $courseowner = $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'};
           }
       }
       if ($courseowner ne '') {
           if ($courseowner eq $env{'user.name'}.':'.$env{'user.domain'}) {
                   return 1;
           }
       }
       return;
   }
   
 #---------------------------------------------- end functions for &phase_two  #---------------------------------------------- end functions for &phase_two
   
 #--------------------------------- functions for &phase_two and &phase_three  #--------------------------------- functions for &phase_two and &phase_three
Removed from v.1.295.2.3  
changed lines
  Added in v.1.329.2.7

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