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

Diff for /loncom/interface/loncreateuser.pm between versions 1.313 and 1.406.2.18

version 1.313, 2009/09/05 20:17:35 version 1.406.2.18, 2020/05/02 20:57:12
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 110  sub initialize_authen_forms { Line 111  sub initialize_authen_forms {
   
 sub auth_abbrev {  sub auth_abbrev {
     my %abv_auth = (      my %abv_auth = (
                      krb5     => 'krb',                       krb5      => 'krb',
                      krb4     => 'krb',                       krb4      => 'krb',
                      internal => 'int',                       internal  => 'int',
                      localuth => 'loc',                       localauth => 'loc',
                      unix     => 'fsys',                       unix      => 'fsys',
                    );                     );
     return %abv_auth;      return %abv_auth;
 }  }
   
 # ====================================================  # ====================================================
   
 sub portfolio_quota {  sub user_quotas {
     my ($ccuname,$ccdomain) = @_;      my ($ccuname,$ccdomain) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                    'usrt'      => "User Tools",                     'usrt'      => "User Tools",
                    'disk'      => "Disk space allocated to user's portfolio files",  
                    'cuqu'      => "Current quota",  
                    'cust'      => "Custom quota",                     'cust'      => "Custom quota",
                    'defa'      => "Default",  
                    'chqu'      => "Change quota",                     'chqu'      => "Change quota",
     );      );
     my ($currquota,$quotatype,$inststatus,$defquota) =      
         &Apache::loncommon::get_user_quota($ccuname,$ccdomain);  
     my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain);  
     my ($longinsttype,$showquota,$custom_on,$custom_off,$defaultinfo);  
     if ($inststatus ne '') {  
         if ($usertypes->{$inststatus} ne '') {  
             $longinsttype = $usertypes->{$inststatus};  
         }  
     }  
     $custom_on = ' ';  
     $custom_off = ' checked="checked" ';  
     my $quota_javascript = <<"END_SCRIPT";      my $quota_javascript = <<"END_SCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 function quota_changes(caller) {  function quota_changes(caller,context) {
       var customoff = document.getElementById('custom_'+context+'quota_off');
       var customon = document.getElementById('custom_'+context+'quota_on');
       var number = document.getElementById(context+'quota');
     if (caller == "custom") {      if (caller == "custom") {
         if (document.cu.customquota[0].checked) {          if (customoff) {
             document.cu.portfolioquota.value = "";              if (customoff.checked) {
                   number.value = "";
               }
         }          }
     }      }
     if (caller == "quota") {      if (caller == "quota") {
         document.cu.customquota[1].checked = true;          if (customon) {
               customon.checked = true;
           }
     }      }
       return;
 }  }
 // ]]>  // ]]>
 </script>  </script>
 END_SCRIPT  END_SCRIPT
     if ($quotatype eq 'custom') {      my $longinsttype;
         $custom_on = $custom_off;      my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain);
         $custom_off = ' ';  
         $showquota = $currquota;  
         if ($longinsttype eq '') {  
             $defaultinfo = &mt('For this user, the default quota would be [_1]'  
                             .' Mb.',$defquota);  
         } else {  
             $defaultinfo = &mt("For this user, the default quota would be [_1]".  
                                " Mb, as determined by the user's institutional".  
                                " affiliation ([_2]).",$defquota,$longinsttype);  
         }  
     } else {  
         if ($longinsttype eq '') {  
             $defaultinfo = &mt('For this user, the default quota is [_1]'  
                             .' Mb.',$defquota);  
         } else {  
             $defaultinfo = &mt("For this user, the default quota of [_1]".  
                                " Mb, is determined by the user's institutional".  
                                " affiliation ([_2]).",$defquota,$longinsttype);  
         }  
     }  
   
     my $output = $quota_javascript."\n".      my $output = $quota_javascript."\n".
                  '<h3>'.$lt{'usrt'}.'</h3>'."\n".                   '<h3>'.$lt{'usrt'}.'</h3>'."\n".
                  &Apache::loncommon::start_data_table();                   &Apache::loncommon::start_data_table();
   
     if (&Apache::lonnet::allowed('mut',$ccdomain)) {      if ((&Apache::lonnet::allowed('mut',$ccdomain)) ||
           (&Apache::lonnet::allowed('udp',$ccdomain))) {
         $output .= &build_tools_display($ccuname,$ccdomain,'tools');          $output .= &build_tools_display($ccuname,$ccdomain,'tools');
     }      }
     if (&Apache::lonnet::allowed('mpq',$ccdomain)) {  
         $output .= '<tr class="LC_info_row">'."\n".      my %titles = &Apache::lonlocal::texthash (
                    '    <td>'.$lt{'disk'}.'</td>'."\n".                      portfolio => "Disk space allocated to user's portfolio files",
                    '  </tr>'."\n".                      author    => "Disk space allocated to user's Authoring Space (if role assigned)",
                    &Apache::loncommon::start_data_table_row()."\n".                   );
                    '  <td>'.$lt{'cuqu'}.': '.      foreach my $name ('portfolio','author') {
                    $currquota.'&nbsp;Mb.&nbsp;&nbsp;'.          my ($currquota,$quotatype,$inststatus,$defquota) =
                    $defaultinfo.'</td>'."\n".              &Apache::loncommon::get_user_quota($ccuname,$ccdomain,$name);
                    &Apache::loncommon::end_data_table_row()."\n".          if ($longinsttype eq '') { 
                    &Apache::loncommon::start_data_table_row()."\n".              if ($inststatus ne '') {
                    '  <td><span class="LC_nobreak">'.$lt{'chqu'}.                  if ($usertypes->{$inststatus} ne '') {
                    ': <label>'.                      $longinsttype = $usertypes->{$inststatus};
                    '<input type="radio" name="customquota" value="0" '.                  }
                    $custom_off.' onchange="javascript:quota_changes('."'custom'".')"'.              }
                    ' />'.$lt{'defa'}.'&nbsp;('.$defquota.' Mb).</label>&nbsp;'.          }
                    '&nbsp;<label><input type="radio" name="customquota" value="1" '.           my ($showquota,$custom_on,$custom_off,$defaultinfo);
                    $custom_on.'  onchange="javascript:quota_changes('."'custom'".')" />'.          $custom_on = ' ';
                    $lt{'cust'}.':</label>&nbsp;'.          $custom_off = ' checked="checked" ';
                    '<input type="text" name="portfolioquota" size ="5" value="'.          if ($quotatype eq 'custom') {
                    $showquota.'" onfocus="javascript:quota_changes('."'quota'".')" '.              $custom_on = $custom_off;
                    '/>&nbsp;Mb</span></td>'."\n".              $custom_off = ' ';
                    &Apache::loncommon::end_data_table_row()."\n";              $showquota = $currquota;
     }                if ($longinsttype eq '') {
                   $defaultinfo = &mt('For this user, the default quota would be [_1]'
                                 .' MB.',$defquota);
               } else {
                   $defaultinfo = &mt("For this user, the default quota would be [_1]".
                                      " MB, as determined by the user's institutional".
                                      " affiliation ([_2]).",$defquota,$longinsttype);
               }
           } else {
               if ($longinsttype eq '') {
                   $defaultinfo = &mt('For this user, the default quota is [_1]'
                                 .' MB.',$defquota);
               } else {
                   $defaultinfo = &mt("For this user, the default quota of [_1]".
                                      " MB, is determined by the user's institutional".
                                      " affiliation ([_2]).",$defquota,$longinsttype);
               }
           }
   
           if (&Apache::lonnet::allowed('mpq',$ccdomain)) {
               $output .= '<tr class="LC_info_row">'."\n".
                          '    <td>'.$titles{$name}.'</td>'."\n".
                          '  </tr>'."\n".
                          &Apache::loncommon::start_data_table_row()."\n".
                          '  <td><span class="LC_nobreak">'.
                          &mt('Current quota: [_1] MB',$currquota).'</span>&nbsp;&nbsp;'.
                          $defaultinfo.'</td>'."\n".
                          &Apache::loncommon::end_data_table_row()."\n".
                          &Apache::loncommon::start_data_table_row()."\n".
                          '  <td><span class="LC_nobreak">'.$lt{'chqu'}.
                          ': <label>'.
                          '<input type="radio" name="custom_'.$name.'quota" id="custom_'.$name.'quota_off" '.
                          'value="0" '.$custom_off.' onchange="javascript:quota_changes('."'custom','$name'".');"'.
                          ' /><span class="LC_nobreak">'.
                          &mt('Default ([_1] MB)',$defquota).'</span></label>&nbsp;'.
                          '&nbsp;<label><input type="radio" name="custom_'.$name.'quota" id="custom_'.$name.'quota_on" '.
                          'value="1" '.$custom_on.'  onchange="javascript:quota_changes('."'custom','$name'".');"'.
                          ' />'.$lt{'cust'}.':</label>&nbsp;'.
                          '<input type="text" name="'.$name.'quota" id="'.$name.'quota" size ="5" '.
                          'value="'.$showquota.'" onfocus="javascript:quota_changes('."'quota','$name'".');"'.
                          ' />&nbsp;'.&mt('MB').'</span></td>'."\n".
                          &Apache::loncommon::end_data_table_row()."\n";
           }
       }
     $output .= &Apache::loncommon::end_data_table();      $output .= &Apache::loncommon::end_data_table();
     return $output;      return $output;
 }  }
Line 218  END_SCRIPT Line 237  END_SCRIPT
 sub build_tools_display {  sub build_tools_display {
     my ($ccuname,$ccdomain,$context) = @_;      my ($ccuname,$ccdomain,$context) = @_;
     my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay,      my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay,
         $colspan);          $colspan,$isadv,%domconfig);
     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",
                      'webdav'     => "WebDAV access to Authoring Spaces (if SSL and author/co-author)",
                    'portfolio'  => "Personal User Portfolio",                     'portfolio'  => "Personal User Portfolio",
                    'avai'       => "Available",                     'avai'       => "Available",
                    'cusa'       => "availability",                     'cusa'       => "availability",
Line 231  sub build_tools_display { Line 251  sub build_tools_display {
                    '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',                     'community'  => 'Can request creation of communities',
                      'textbook'   => 'Can request creation of textbook courses',
                      'requestauthor'  => 'Can request author space',
     );      );
     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',
                       'requestcourses.community');                        'requestcourses.community','requestcourses.textbook');
         @usertools = ('official','unofficial','community');          @usertools = ('official','unofficial','community','textbook');
         @options =('norequest','approval','autolimit','validate');          @options =('norequest','approval','autolimit','validate');
         %validations = &Apache::lonnet::auto_courserequest_checks($ccdomain);          %validations = &Apache::lonnet::auto_courserequest_checks($ccdomain);
         %reqtitles = &courserequest_titles();          %reqtitles = &courserequest_titles();
         %reqdisplay = &courserequest_display();          %reqdisplay = &courserequest_display();
         $colspan = ' colspan="2"';          $colspan = ' colspan="2"';
           %domconfig =
               &Apache::lonnet::get_dom('configuration',['requestcourses'],$ccdomain);
           $isadv = &Apache::lonnet::is_advanced_user($ccdomain,$ccuname);
       } elsif ($context eq 'requestauthor') {
           %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
                                                       'requestauthor');
           @usertools = ('requestauthor');
           @options =('norequest','approval','automatic');
           %reqtitles = &requestauthor_titles();
           %reqdisplay = &requestauthor_display();
           $colspan = ' colspan="2"';
           %domconfig =
               &Apache::lonnet::get_dom('configuration',['requestauthor'],$ccdomain);
     } 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');                            'tools.webdav');
           @usertools = ('aboutme','blog','webdav','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,
Line 255  sub build_tools_display { Line 291  sub build_tools_display {
         $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} ne '') {          if ($context eq 'requestauthor') {
               if ($userenv{$context} ne '') {
                   $cust_on = ' checked="checked" ';
                   $cust_off = '';
               }  
           } elsif ($userenv{$context.'.'.$item} ne '') {
             $cust_on = ' checked="checked" ';              $cust_on = ' checked="checked" ';
             $cust_off = '';              $cust_off = '';
         }          }
         if ($context eq 'requestcourses') {          if ($context eq 'requestcourses') {
             if ($userenv{$context.'.'.$item} eq '') {              if ($userenv{$context.'.'.$item} eq '') {
                 $custom_access = &mt('Currently from default setting.');                   $custom_access = &mt('Currently from default setting.');
               } else {
                   $custom_access = &mt('Currently from custom setting.');
               }
           } elsif ($context eq 'requestauthor') {
               if ($userenv{$context} eq '') {
                   $custom_access = &mt('Currently from default setting.');
             } else {              } else {
                 $custom_access = &mt('Currently from custom setting.');                  $custom_access = &mt('Currently from custom setting.');
             }              }
         } else {          } else {
             if ($userenv{$context.'.'.$item} eq '') {              if ($userenv{$context.'.'.$item} eq '') {
                 $custom_access =                   $custom_access =
                     &mt('Availability determined currently from default setting.');                      &mt('Availability determined currently from default setting.');
                 if (!$curr_access) {                  if (!$curr_access) {
                     $tool_off = 'checked="checked" ';                      $tool_off = 'checked="checked" ';
                     $tool_on = '';                      $tool_on = '';
                 }                  }
             } else {              } else {
                 $custom_access =                   $custom_access =
                     &mt('Availability determined currently from custom setting.');                      &mt('Availability determined currently from custom setting.');
                 if ($userenv{$context.'.'.$item} == 0) {                  if ($userenv{$context.'.'.$item} == 0) {
                     $tool_off = 'checked="checked" ';                      $tool_off = 'checked="checked" ';
Line 286  sub build_tools_display { Line 333  sub build_tools_display {
                    '   <td'.$colspan.'>'.$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";
         if ($context eq 'requestcourses') {          if (($context eq 'requestcourses') || ($context eq 'requestauthor')) {
             my ($curroption,$currlimit);              my ($curroption,$currlimit);
             $curroption = $userenv{$context.'.'.$item};              my $envkey = $context.'.'.$item;
               if ($context eq 'requestauthor') {
                   $envkey = $context;
               }
               if ($userenv{$envkey} ne '') {
                   $curroption = $userenv{$envkey};
               } else {
                   my (@inststatuses);
                   if ($context eq 'requestcourses') {
                       $curroption =
                           &Apache::loncoursequeueadmin::get_processtype('course',$ccuname,$ccdomain,
                                                                         $isadv,$ccdomain,$item,
                                                                         \@inststatuses,\%domconfig);
                   } else {
                        $curroption = 
                            &Apache::loncoursequeueadmin::get_processtype('requestauthor',$ccuname,$ccdomain,
                                                                          $isadv,$ccdomain,undef,
                                                                          \@inststatuses,\%domconfig);
                   }
               }
             if (!$curroption) {              if (!$curroption) {
                 $curroption = 'norequest';                  $curroption = 'norequest';
             }              }
             if ($curroption =~ /^autolimit=(\d*)$/) {              if ($curroption =~ /^autolimit=(\d*)$/) {
                 $currlimit = $1;                  $currlimit = $1;
                 $currdisp = &mt('Yes, up to [quant,_1,request]/user',$currlimit);                   if ($currlimit eq '') {
                       $currdisp = &mt('Yes, automatic creation');
                   } else {
                       $currdisp = &mt('Yes, up to [quant,_1,request]/user',$currlimit);
                   }
             } else {              } else {
                 $currdisp = $reqdisplay{$curroption};                  $currdisp = $reqdisplay{$curroption};
             }              }
Line 321  sub build_tools_display { Line 391  sub build_tools_display {
                         $checked = ' checked="checked"';                          $checked = ' checked="checked"';
                     }                      }
                 }                  }
                   my $name = 'crsreq_'.$item;
                   if ($context eq 'requestauthor') {
                       $name = $item;
                   }
                 $custdisp .= '<tr><td><span class="LC_nobreak"><label>'.                  $custdisp .= '<tr><td><span class="LC_nobreak"><label>'.
                              '<input type="radio" name="crsreq_'.$item.                               '<input type="radio" name="'.$name.'" '.
                              '" value="'.$val.'"'.$checked.' />'.                               'value="'.$val.'"'.$checked.' />'.
                              $reqtitles{$option}.'</label>&nbsp;';                               $reqtitles{$option}.'</label>&nbsp;';
                 if ($option eq 'autolimit') {                  if ($option eq 'autolimit') {
                     $custdisp .= '<input type="text" name="crsreq_'.                      $custdisp .= '<input type="text" name="'.$name.
                                  $item.'_limit" size="1" '.                                   '_limit" size="1" '.
                                  'value="'.$currlimit.'" />';                                   'value="'.$currlimit.'" /></span><br />'.
                  }                                   $reqtitles{'unlimited'};
                  $custdisp .= '</span></td></tr>';                  } else {
                       $custdisp .= '</span>';
                   }
                   $custdisp .= '</td></tr>';
             }              }
             $custdisp .= '</table>';              $custdisp .= '</table>';
             $custradio = '</span></td><td>'.&mt('Custom setting').'<br />'.$custdisp;              $custradio = '</span></td><td>'.&mt('Custom setting').'<br />'.$custdisp;
         } else {          } else {
             $currdisp = ($curr_access?&mt('Yes'):&mt('No'));              $currdisp = ($curr_access?&mt('Yes'):&mt('No'));
               my $name = $context.'_'.$item;
               if ($context eq 'requestauthor') {
                   $name = $context;
               }
             $custdisp = '<span class="LC_nobreak"><label>'.              $custdisp = '<span class="LC_nobreak"><label>'.
                         '<input type="radio" name="'.$context.'_'.$item.'"'.                           '<input type="radio" name="'.$name.'"'.
                         ' value="1"'. $tool_on.'/>'.&mt('On').'</label>&nbsp;<label>'.                          ' value="1" '.$tool_on.'/>'.&mt('On').'</label>&nbsp;<label>'.
                         '<input type="radio" name="'.$context.'_'.$item.'" value="0" '.                          '<input type="radio" name="'.$name.'" value="0" '.
                         $tool_off.'/>'.&mt('Off').'</label></span>';                          $tool_off.'/>'.&mt('Off').'</label></span>';
             $custradio = ('&nbsp;'x2).'--'.$lt{'cusa'}.':&nbsp;'.$custdisp.              $custradio = ('&nbsp;'x2).'--'.$lt{'cusa'}.':&nbsp;'.$custdisp.
                           '</span>';                            '</span>';
         }          }
         $output .= '  <td'.$colspan.'>'.$custom_access.('&nbsp;'x4).          $output .= '  <td'.$colspan.'>'.$custom_access.('&nbsp;'x4).
                    $lt{'avai'}.': '.$currdisp.'</td>'."\n".                     $lt{'avai'}.': '.$currdisp.'</td>'."\n".
                    &Apache::loncommon::end_data_table_row()."\n".                     &Apache::loncommon::end_data_table_row()."\n";
           unless (&Apache::lonnet::allowed('udp',$ccdomain)) {
               $output .=
                    &Apache::loncommon::start_data_table_row()."\n".                     &Apache::loncommon::start_data_table_row()."\n".
                    '  <td style="vertical-align:top;"><span class="LC_nobreak">'.                     '  <td style="vertical-align:top;"><span class="LC_nobreak">'.
                    $lt{'chse'}.': <label>'.                     $lt{'chse'}.': <label>'.
Line 355  sub build_tools_display { Line 438  sub build_tools_display {
                    '<label><input type="radio" name="custom'.$item.'" value="1" '.                     '<label><input type="radio" name="custom'.$item.'" value="1" '.
                    $cust_on.'/>'.$lt{'uscu'}.'</label>'.$custradio.'</td>'.                     $cust_on.'/>'.$lt{'uscu'}.'</label>'.$custradio.'</td>'.
                    &Apache::loncommon::end_data_table_row()."\n";                     &Apache::loncommon::end_data_table_row()."\n";
           }
     }      }
     return $output;      return $output;
 }  }
Line 366  sub coursereq_externaluser { Line 450  sub coursereq_externaluser {
                    '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',                     'community'  => 'Can request creation of communities',
                      'textbook'   => 'Can request creation of textbook courses',
     );      );
   
     %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,      %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
                       'reqcrsotherdom.official','reqcrsotherdom.unofficial',                        'reqcrsotherdom.official','reqcrsotherdom.unofficial',
                       'reqcrsotherdom.community');                        'reqcrsotherdom.community','reqcrsotherdom.textbook');
     @usertools = ('official','unofficial','community');      @usertools = ('official','unofficial','community','textbook');
     @options = ('approval','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);
Line 380  sub coursereq_externaluser { Line 465  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 410  sub coursereq_externaluser { Line 500  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;
 }  }
   
   sub domainrole_req {
       my ($ccuname,$ccdomain) = @_;
       return '<br /><h3>'.
              &mt('User Can Request Assignment of Domain Roles?').
              '</h3>'."\n".
              &Apache::loncommon::start_data_table().
              &build_tools_display($ccuname,$ccdomain,
                                   'requestauthor').
              &Apache::loncommon::end_data_table();
   }
   
 sub courserequest_titles {  sub courserequest_titles {
     my %titles = &Apache::lonlocal::texthash (      my %titles = &Apache::lonlocal::texthash (
                                    official   => 'Official',                                     official   => 'Official',
                                    unofficial => 'Unofficial',                                     unofficial => 'Unofficial',
                                    community  => 'Communities',                                     community  => 'Communities',
                                      textbook   => 'Textbook',
                                    norequest  => 'Not allowed',                                     norequest  => 'Not allowed',
                                    approval   => 'Approval by Dom. Coord.',                                     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;
 }  }
Line 449  sub courserequest_display { Line 555  sub courserequest_display {
    return %titles;     return %titles;
 }  }
   
   sub requestauthor_titles {
       my %titles = &Apache::lonlocal::texthash (
                                      norequest  => 'Not allowed',
                                      approval   => 'Approval by Dom. Coord.',
                                      automatic  => 'Automatic approval',
                    );
       return %titles;
   
   }
   
   sub requestauthor_display {
       my %titles = &Apache::lonlocal::texthash (
                                      approval   => 'Yes, need approval',
                                      automatic  => 'Yes, automatic approval',
                                      norequest  => 'No',
      );
      return %titles;
   }
   
   sub requestchange_display {
       my %titles = &Apache::lonlocal::texthash (
                                      approval   => "availability set to 'on' (approval required)", 
                                      automatic  => "availability set to 'on' (automatic approval)",
                                      norequest  => "availability set to 'off'",
      );
      return %titles;
   }
   
   sub curr_requestauthor {
       my ($uname,$udom,$isadv,$inststatuses,$domconfig) = @_;
       return unless ((ref($inststatuses) eq 'ARRAY') && (ref($domconfig) eq 'HASH'));
       if ($uname eq '' || $udom eq '') {
           $uname = $env{'user.name'};
           $udom = $env{'user.domain'};
           $isadv = $env{'user.adv'};
       }
       my (%userenv,%settings,$val);
       my @options = ('automatic','approval');
       %userenv =
           &Apache::lonnet::userenvironment($udom,$uname,'requestauthor','inststatus');
       if ($userenv{'requestauthor'}) {
           $val = $userenv{'requestauthor'};
           @{$inststatuses} = ('_custom_');
       } else {
           my %alltasks;
           if (ref($domconfig->{'requestauthor'}) eq 'HASH') {
               %settings = %{$domconfig->{'requestauthor'}};
               if (($isadv) && ($settings{'_LC_adv'} ne '')) {
                   $val = $settings{'_LC_adv'};
                   @{$inststatuses} = ('_LC_adv_');
               } else {
                   if ($userenv{'inststatus'} ne '') {
                       @{$inststatuses} = split(',',$userenv{'inststatus'});
                   } else {
                       @{$inststatuses} = ('default');
                   }
                   foreach my $status (@{$inststatuses}) {
                       if (exists($settings{$status})) {
                           my $value = $settings{$status};
                           next unless ($value);
                           unless (exists($alltasks{$value})) {
                               if (ref($alltasks{$value}) eq 'ARRAY') {
                                   unless(grep(/^\Q$status\E$/,@{$alltasks{$value}})) {
                                       push(@{$alltasks{$value}},$status);
                                   }
                               } else {
                                   @{$alltasks{$value}} = ($status);
                               }
                           }
                       }
                   }
                   foreach my $option (@options) {
                       if ($alltasks{$option}) {
                           $val = $option;
                           last;
                       }
                   }
               }
           }
       }
       return $val;
   }
   
 # =================================================================== 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,
           $permission) = @_;
     my $defdom=$env{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
     my $formtoset = 'crtuser';      my $formtoset = 'crtuser';
     if (exists($env{'form.startrolename'})) {      if (exists($env{'form.startrolename'})) {
Line 471  sub print_username_entry_form { Line 661  sub print_username_entry_form {
         '// ]]>'."\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',  
        $jscript,{'add_entries' => \%loaditems,});  
     if ($env{'form.action'} eq 'custom') {  
         &Apache::lonhtmlcommon::add_breadcrumb  
           ({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') {
         $helpitem = 'Course_Editing_Custom_Roles';          if ($context eq 'course') {
               $helpitem = 'Course_Editing_Custom_Roles';
           } elsif ($context eq 'domain') {
               $helpitem = 'Domain_Editing_Custom_Roles';
           }
     } elsif ($env{'form.action'} eq 'singlestudent') {      } elsif ($env{'form.action'} eq 'singlestudent') {
         $helpitem = 'Course_Add_Student';          $helpitem = 'Course_Add_Student';
       } elsif ($env{'form.action'} eq 'accesslogs') {
           $helpitem = 'Domain_User_Access_Logs';
       } elsif ($context eq 'author') {
           $helpitem = 'Author_Change_Privileges';
       } elsif ($context eq 'domain') {
           if ($permission->{'cusr'}) {
               $helpitem = 'Domain_Change_Privileges';
           } elsif ($permission->{'view'}) {
               $helpitem = 'Domain_View_Privileges';
           } else {
               undef($helpitem);
           }
       }
       my %breadcrumb_text = &singleuser_breadcrumb($crstype,$context,$defdom);
       if ($env{'form.action'} eq 'custom') {
           push(@{$brcrum},
                    {href=>"javascript:backPage(document.crtuser)",       
                     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 $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',      my %loaditems = (
                                                      $helpitem);                  'onload' => "javascript:setFormElements(document.$formtoset)",
     my %existingroles=&Apache::lonuserutils::my_custom_roles();                      );
     my $choice=&Apache::loncommon::select_form('make new role','rolename',      my $args = {bread_crumbs           => $brcrum,
  ('make new role' => 'Generate new role ...',%existingroles));                  bread_crumbs_component => 'User Management',
                   add_entries            => \%loaditems,};
       $r->print(&Apache::loncommon::start_page('User Management',$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',
                       'srvu' => 'Search for a user and view user information and roles',
                       'srva' => 'Search for a user and view access log information',
     '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'};
           my $fixeddom;
         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'};
               }
           } elsif ($env{'form.action'} eq 'accesslogs') {
               $actiontext = $lt{'srva'};
               $fixeddom = 1;
           } elsif (($env{'form.action'} eq 'singleuser') &&
                    ($context eq 'domain') && (!&Apache::lonnet::allowed('mau',$defdom))) {
               $actiontext = $lt{'srvu'};
               $fixeddom = 1;
         }          }
         $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);              if ($response) {
                  $r->print("\n<div>$response</div>".
                            '<br clear="all" />');
               }
         }          }
         $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response));          $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype,$fixeddom));
     }      }
     $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,$fixeddom) = @_;
     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') {
         if (($srch->{'srchin'} eq 'dom') &&          if (($srch->{'srchin'} eq 'dom') &&
Line 546  sub entry_form { Line 837  sub entry_form {
             ($srch->{'srchtype'} eq 'exact') &&              ($srch->{'srchtype'} eq 'exact') &&
             ($srch->{'srchdomain'} ne '') &&              ($srch->{'srchdomain'} ne '') &&
             ($srch->{'srchterm'} ne '')) {              ($srch->{'srchterm'} ne '')) {
               my (%curr_rules,%got_rules);
             my ($rules,$ruleorder) =              my ($rules,$ruleorder) =
                 &Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username');                  &Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username');
             $usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules);              $usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules,\%curr_rules,\%got_rules);
         } else {          } else {
             $inexact = 1;              $inexact = 1;
         }          }
     }      }
     my $cancreate =      my ($cancreate,$noinstd);
         &Apache::lonuserutils::can_create_user($dom,$context,$usertype);      if ($env{'form.action'} eq 'accesslogs') {
     my $userpicker =           $noinstd = 1;
       } else {
           $cancreate =
               &Apache::lonuserutils::can_create_user($dom,$context,$usertype);
       }
       my ($userpicker,$cansearch) = 
        &Apache::loncommon::user_picker($dom,$srch,$forcenewuser,         &Apache::loncommon::user_picker($dom,$srch,$forcenewuser,
                                        'document.crtuser',$cancreate,$usertype);                                         'document.crtuser',$cancreate,$usertype,$context,$fixeddom,$noinstd);
     my $srchbutton = &mt('Search');      my $srchbutton = &mt('Search');
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         $srchbutton = &mt('Search and Enroll');          $srchbutton = &mt('Search and Enroll');
       } elsif ($env{'form.action'} eq 'accesslogs') {
           $srchbutton = &mt('Search');
     } elsif ($cancreate && $responsemsg ne '' && $inexact) {      } elsif ($cancreate && $responsemsg ne '' && $inexact) {
         $srchbutton = &mt('Search or Add New User');          $srchbutton = &mt('Search or Add New User');
     }      }
     my $output = <<"ENDBLOCK";      my $output;
       if ($cansearch) {
           $output = <<"ENDBLOCK";
 <form action="/adm/createuser" method="post" name="crtuser">  <form action="/adm/createuser" method="post" name="crtuser">
 <input type="hidden" name="action" value="$env{'form.action'}" />  <input type="hidden" name="action" value="$env{'form.action'}" />
 <input type="hidden" name="phase" value="get_user_info" />  <input type="hidden" name="phase" value="get_user_info" />
Line 572  $userpicker Line 873  $userpicker
 <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.crtuser)" />  <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry(document.crtuser)" />
 </form>  </form>
 ENDBLOCK  ENDBLOCK
     if ($env{'form.phase'} eq '') {      } else {
           $output = '<p>'.$userpicker.'</p>';
       }
       if (($env{'form.phase'} eq '') && ($env{'form.action'} ne 'accesslogs') &&
           (!(($env{'form.action'} eq 'singleuser') && ($context eq 'domain') &&
           (!&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))))) {
         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');
         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 588  ENDBLOCK Line 895  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 636  sub user_modification_js { Line 947  sub user_modification_js {
     return <<END;      return <<END;
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
 // <![CDATA[  // <![CDATA[
     function pclose() {  
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
         parmwin.close();  
     }  
   
     $pjump_def      $pjump_def
     $dc_setcourse_code      $dc_setcourse_code
Line 648  sub user_modification_js { Line 954  sub user_modification_js {
     function dateset() {      function dateset() {
         eval("document.cu."+document.cu.pres_marker.value+          eval("document.cu."+document.cu.pres_marker.value+
             ".value=document.cu.pres_value.value");              ".value=document.cu.pres_value.value");
         pclose();          modalWindow.close();
     }      }
   
     $nondc_setsection_code      $nondc_setsection_code
Line 659  END Line 965  END
   
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_selection_page {  sub print_user_selection_page {
     my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements) = @_;      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'};
   
Line 687  ENDSCRIPT Line 993  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",
                                          'srcva'          => "Search for a user and view access log information",
                                          'usrvu'          => "User Search to view user roles",
                                        '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",                                          'suvr'           => "Select a user to view roles",
                                          'stusel'         => "Select a user to enroll as a student",
                                          'memsel'         => "Select a user to enroll as a member",
                                          'vacsel'         => "Select a user to view access log",
                                        'username'       => "username",                                         'username'       => "username",
                                        'domain'         => "domain",                                         'domain'         => "domain",
                                        'lastname'       => "last name",                                         'lastname'       => "last name",
Line 698  ENDSCRIPT Line 1010  ENDSCRIPT
     if ($context eq 'requestcrs') {      if ($context eq 'requestcrs') {
         $r->print('<div>');          $r->print('<div>');
     } else {      } else {
         $r->print(&Apache::loncommon::start_page('User Management',$jscript));          my %breadcrumb_text = &singleuser_breadcrumb($crstype,$context,$srch->{'srchdomain'});
           my $helpitem;
         my %breadcrumb_text = &singleuser_breadcrumb();  
         &Apache::lonhtmlcommon::add_breadcrumb  
             ({href=>"javascript:backPage(document.usersrchform,'','')",  
               text=>$breadcrumb_text{'search'},  
               faq=>282,bug=>'Instructor Interface',},  
              {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",  
               text=>$breadcrumb_text{'userpicked'},  
               faq=>282,bug=>'Instructor Interface',});  
         if ($env{'form.action'} eq 'singleuser') {          if ($env{'form.action'} eq 'singleuser') {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',              $helpitem = 'Course_Change_Privileges';
                                                           'Course_Change_Privileges'));  
             $r->print("<b>$lt{'usrch'}</b><br />");  
             $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));  
             $r->print('<h3>'.$lt{'usel'}.'</h3>');  
         } elsif ($env{'form.action'} eq 'singlestudent') {          } elsif ($env{'form.action'} eq 'singlestudent') {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',              $helpitem = 'Course_Add_Student';
                                                           'Course_Add_Student'));          } elsif ($context eq 'author') {
             $r->print($jscript."<b>$lt{'stusrch'}</b><br />");              $helpitem = 'Author_Change_Privileges';
             $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));          } elsif ($context eq 'domain') {
             $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');              $helpitem = 'Domain_Change_Privileges';
           }
           push (@{$brcrum},
                     {href => "javascript:backPage(document.usersrchform,'','')",
                      text => $breadcrumb_text{'search'},
                      faq  => 282,
                      bug  => 'Instructor Interface',},
                     {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('User Management',$jscript,{bread_crumbs => $brcrum}));
           if ($env{'form.action'} eq 'singleuser') {
               my $readonly;
               if (($context eq 'domain') && (!&Apache::lonnet::allowed('mau',$srch->{'srchdomain'}))) {
                   $readonly = 1;
                   $r->print("<b>$lt{'usrvu'}</b><br />");
               } else {
                   $r->print("<b>$lt{'usrch'}</b><br />");
               }
               $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype));
               if ($readonly) {
                   $r->print('<h3>'.$lt{'suvr'}.'</h3>');
               } else {
                   $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>');
           } elsif ($env{'form.action'} eq 'accesslogs') {
               $r->print("<b>$lt{'srcva'}</b><br />");
               $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,undef,1));
               $r->print('<h3>'.$lt{'vacsel'}.'</h3>');
         }          }
     }      }
     $r->print('<form name="usersrchform" method="post">'.      $r->print('<form name="usersrchform" method="post" action="">'.
               &Apache::loncommon::start_data_table()."\n".                &Apache::loncommon::start_data_table()."\n".
               &Apache::loncommon::start_data_table_header_row()."\n".                &Apache::loncommon::start_data_table_header_row()."\n".
               ' <th> </th>'."\n");                ' <th> </th>'."\n");
Line 747  ENDSCRIPT Line 1094  ENDSCRIPT
         my ($uname,$udom) = split(/:/,$user);          my ($uname,$udom) = split(/:/,$user);
         my $onclick;          my $onclick;
         if ($context eq 'requestcrs') {          if ($context eq 'requestcrs') {
             $onclick =               $onclick =
                 'onclick="javascript:gochoose('."'$uname','$udom',".                  'onclick="javascript:gochoose('."'$uname','$udom',".
                                                "'$srch_results->{$user}->{firstname}',".                                                 "'$srch_results->{$user}->{firstname}',".
                                                "'$srch_results->{$user}->{lastname}',".                                                 "'$srch_results->{$user}->{lastname}',".
                                                "'$srch_results->{$user}->{permanentemail}'".');"';                                                 "'$srch_results->{$user}->{permanentemail}'".');"';
         } else {          } else {
             $onclick =               $onclick =
                 ' onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".');"';                  ' onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".');"';
         }          }
         $r->print(&Apache::loncommon::start_data_table_row().          $r->print(&Apache::loncommon::start_data_table_row().
Line 781  ENDSCRIPT Line 1128  ENDSCRIPT
     if ($context eq 'requestcrs') {      if ($context eq 'requestcrs') {
         $r->print($opener_elements.'</form></div>');          $r->print($opener_elements.'</form></div>');
     } else {      } else {
         $r->print($response.'</form>'.&Apache::loncommon::end_page());          $r->print($response.'</form>');
     }      }
 }  }
   
 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 794  sub print_user_query_page { Line 1141  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,$showcredits) = @_;
     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,
                                      $permission);
         return;          return;
     }      }
     my ($form,$formname);      my ($form,$formname);
Line 817  sub print_user_modification_page { Line 1166  sub print_user_modification_page {
         my ($rules,$ruleorder) =          my ($rules,$ruleorder) =
             &Apache::lonnet::inst_userrules($ccdomain,'username');              &Apache::lonnet::inst_userrules($ccdomain,'username');
             $usertype =              $usertype =
                 &Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules);                  &Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules,
                                                         \%curr_rules,\%got_rules);
         my $cancreate =          my $cancreate =
             &Apache::lonuserutils::can_create_user($ccdomain,$context,              &Apache::lonuserutils::can_create_user($ccdomain,$context,
                                                    $usertype);                                                     $usertype);
Line 829  sub print_user_modification_page { Line 1179  sub print_user_modification_page {
             );              );
             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).                  $response = '<span class="LC_warning">'.
                               &mt('No match found for the username [_1] in LON-CAPA domain: [_2]',
                                   '<b>'.$ccuname.'</b>',$ccdomain).
                             '</span><br />';                              '</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.")
                         .' '                          .' ';
                         .&mt('Please contact the [_1]helpdesk[_2] for assistance.'              if ($context eq 'domain') {
                             ,'<a href="'.$helplink.'">','</a>')                  $response .= &mt('Please contact a [_1] for assistance.',
                         .'</p><br />';                                   &Apache::lonnet::plaintext('dc'));
               } else {
                   $response .= &mt('Please contact the [_1]helpdesk[_2] for assistance.'
                                   ,'<a href="'.$helplink.'">','</a>');
               }
               $response .= '</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,
                                          $permission);
             return;              return;
         }          }
         $newuser = 1;          $newuser = 1;
Line 863  sub print_user_modification_page { Line 1221  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,
                                                  $permission);
                     return;                      return;
                 }                  }
             }              }
Line 882  sub print_user_modification_page { Line 1241  sub print_user_modification_page {
   
     my $groupslist = &Apache::lonuserutils::get_groupslist();      my $groupslist = &Apache::lonuserutils::get_groupslist();
   
     my $js = &validation_javascript($context,$ccdomain,$pjump_def,      my $js = &validation_javascript($context,$ccdomain,$pjump_def,$crstype,
                                $groupslist,$newuser,$formname,\%loaditem);                                 $groupslist,$newuser,$formname,\%loaditem);
     my $args = {'add_entries' => \%loaditem};        my %breadcrumb_text = &singleuser_breadcrumb($crstype,$context,$ccdomain);
     if ($env{'form.popup'}) {  
        $args->{'no_nav_bar'} = 1;   
     }  
     my $start_page =   
  &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';
       } elsif ($context eq 'author') {
           $helpitem = 'Author_Change_Privileges';
       } elsif ($context eq 'domain') {
           $helpitem = 'Domain_Change_Privileges';
       }
       push (@{$brcrum},
           {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 $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',      my $start_page =
                                                      $helpitem);          &Apache::loncommon::start_page('User Management',$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 922  sub print_user_modification_page { Line 1288  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,$defaultcredits);
     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'};
           if ($showcredits) {
               $defaultcredits = &Apache::lonuserutils::get_defaultcredits();
           }
       } 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;
               }
         }          }
     }      }
       my $title = '';
     if ($newuser) {      if ($newuser) {
         my $portfolioform;          my ($portfolioform,$domroleform);
         if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) ||          if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) ||
             (&Apache::lonnet::allowed('mut',$env{'request.role.domain'}))) {              (&Apache::lonnet::allowed('mut',$env{'request.role.domain'}))) {
             # Current user has quota or user tools modification privileges              # Current user has quota or user tools modification privileges
             $portfolioform = '<br />'.&portfolio_quota($ccuname,$ccdomain);              $portfolioform = '<br />'.&user_quotas($ccuname,$ccdomain);
           }
           if ((&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) &&
               ($ccdomain eq $env{'request.role.domain'})) {
               $domroleform = '<br />'.&domainrole_req($ccuname,$ccdomain);
         }          }
         &initialize_authen_forms($ccdomain,$formname);          &initialize_authen_forms($ccdomain,$formname);
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                 'cnu'            => 'Create New User',  
                 'ast'            => 'as a student',  
                 '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">
Line 954  $loginscript Line 1338  $loginscript
 // ]]>  // ]]>
 </script>  </script>
 <input type='hidden' name='makeuser' value='1' />  <input type='hidden' name='makeuser' value='1' />
 <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') {
                   $title = &mt('Create New User [_1] in domain [_2] as a member',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
               } else {
                   $title = &mt('Create New User [_1] in domain [_2] as a student',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
               }
           } else {
                   $title = &mt('Create New User [_1] in domain [_2]',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
         }          }
         $r->print('</h2>'."\n".'<div class="LC_left_float">');          $r->print('<h2>'.$title.'</h2>'."\n");
         my $personal_table =           $r->print('<div class="LC_left_float">');
             &personal_data_display($ccuname,$ccdomain,$newuser,$context,          $r->print(&personal_data_display($ccuname,$ccdomain,$newuser,$context,
                                    $inst_results{$ccuname.':'.$ccdomain});                                           $inst_results{$ccuname.':'.$ccdomain}));
         $r->print($personal_table);          # Option to disable student/employee ID conflict checking not offerred for new users.
 #FIXME  
         my ($home_server_pick,$numlib) =           my ($home_server_pick,$numlib) = 
             &Apache::loncommon::home_server_form_item($ccdomain,'hserver',              &Apache::loncommon::home_server_form_item($ccdomain,'hserver',
                                                       'default','hide');                                                        'default','hide');
Line 977  $lt{'hs'}: $home_server_pick Line 1368  $lt{'hs'}: $home_server_pick
             $r->print($home_server_pick);              $r->print($home_server_pick);
         }          }
         if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {          if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
             $r->print('<br /><h3>'.&mt('User Can Request Creation of Courses in this Domain?').'</h3>'.              $r->print('<br /><h3>'.
                         &mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'.
                       &Apache::loncommon::start_data_table().                        &Apache::loncommon::start_data_table().
                       &build_tools_display($ccuname,$ccdomain,                        &build_tools_display($ccuname,$ccdomain,
                                            'requestcourses').                                             'requestcourses').
Line 1041  ENDAUTH Line 1433  ENDAUTH
         } else {          } else {
             $r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc));               $r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc)); 
         }          }
         $r->print($portfolioform);          $r->print($portfolioform.$domroleform);
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             $r->print(&date_sections_select($context,$newuser,$formname,              $r->print(&date_sections_select($context,$newuser,$formname,
                                             $permission));                                              $permission,$crstype,$ccuname,
                                               $ccdomain,$showcredits));
         }          }
         $r->print('</div><div class="LC_clear_float_footer"></div>');          $r->print('</div><div class="LC_clear_float_footer"></div>');
     } else { # user already exists      } else { # user already exists
  my %lt=&Apache::lonlocal::texthash(   $r->print($start_page.$forminfo);
                     'cup'  => "Modify existing user: ",  
                     'ens'  => "Enroll one student: ",  
                     'id'   => "in domain",  
        );  
  $r->print(<<ENDCHANGEUSER);  
 $start_page  
 $crumbs  
 $forminfo  
 <h2>  
 ENDCHANGEUSER  
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             $r->print($lt{'ens'});              if ($crstype eq 'Community') {
                   $title = &mt('Enroll one member: [_1] in domain [_2]',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
               } else {
                   $title = &mt('Enroll one student: [_1] in domain [_2]',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
               }
         } else {          } else {
             $r->print($lt{'cup'});              if ($permission->{'cusr'}) {
         }                  $title = &mt('Modify existing user: [_1] in domain [_2]',
         $r->print(' "'.$ccuname.'" '.$lt{'id'}.' "'.$ccdomain.'"</h2>'.                               '"'.$ccuname.'"','"'.$ccdomain.'"');
                   "\n".'<div class="LC_left_float">');              } else {
         my ($personal_table,$showforceid) =                   $title = &mt('Existing user: [_1] in domain [_2]',
             &personal_data_display($ccuname,$ccdomain,$newuser,$context,                               '"'.$ccuname.'"','"'.$ccdomain.'"');
                                    $inst_results{$ccuname.':'.$ccdomain});              }
         $r->print($personal_table);  
         if ($showforceid) {  
             $r->print(&Apache::lonuserutils::forceid_change($context));  
         }          }
         if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {          $r->print('<h2>'.$title.'</h2>'."\n");
             $r->print('<h3>'.&mt('User Can Request Creation of Courses in this Domain?').'</h3>'.          $r->print('<div class="LC_left_float">');
           $r->print(&personal_data_display($ccuname,$ccdomain,$newuser,$context,
                                            $inst_results{$ccuname.':'.$ccdomain}));
           if ((&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) ||
               (&Apache::lonnet::allowed('udp',$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());                        &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 {
                 $r->print(&coursereq_externaluser($ccuname,$ccdomain,                  $r->print(&coursereq_externaluser($ccuname,$ccdomain,
Line 1085  ENDCHANGEUSER Line 1476  ENDCHANGEUSER
             $r->print(&Apache::loncommon::end_data_table());              $r->print(&Apache::loncommon::end_data_table());
         }          }
         $r->print('</div>');          $r->print('</div>');
         my $user_auth_text =  &user_authentication($ccuname,$ccdomain,$formname);          my @order = ('auth','quota','tools','requestauthor');
         my ($user_quota_text,$user_tools_text,$user_reqcrs_text);          my %user_text;
           my ($isadv,$isauthor) = 
               &Apache::lonnet::is_advanced_user($ccdomain,$ccuname);
           if ((!$isauthor) && 
               ((&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) ||
                (&Apache::lonnet::allowed('udp',$env{'request.role.domain'}))) &&
                ($env{'request.role.domain'} eq $ccdomain)) {
               $user_text{'requestauthor'} = &domainrole_req($ccuname,$ccdomain);
           }
           $user_text{'auth'} =  &user_authentication($ccuname,$ccdomain,$formname,$crstype,$permission);
         if ((&Apache::lonnet::allowed('mpq',$ccdomain)) ||          if ((&Apache::lonnet::allowed('mpq',$ccdomain)) ||
             (&Apache::lonnet::allowed('mut',$ccdomain))) {              (&Apache::lonnet::allowed('mut',$ccdomain)) ||
               (&Apache::lonnet::allowed('udp',$ccdomain))) {
             # Current user has quota modification privileges              # Current user has quota modification privileges
             $user_quota_text = &portfolio_quota($ccuname,$ccdomain);              $user_text{'quota'} = &user_quotas($ccuname,$ccdomain);
         }          }
         if (!&Apache::lonnet::allowed('mpq',$ccdomain)) {          if (!&Apache::lonnet::allowed('mpq',$ccdomain)) {
             if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {              if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
                 # Get the user's portfolio information  
                 my %portq = &Apache::lonnet::get('environment',['portfolioquota'],  
                                                  $ccdomain,$ccuname);  
                 my %lt=&Apache::lonlocal::texthash(                  my %lt=&Apache::lonlocal::texthash(
                     'dska'  => "Disk space allocated to user's portfolio files",                      'dska'  => "Disk quotas for user's portfolio and Authoring Space",
                     'youd'  => "You do not have privileges to modify the portfolio quota for this user.",                      'youd'  => "You do not have privileges to modify the portfolio and/or Authoring Space quotas for this user.",
                     'ichr'  => "If a change is required, contact a domain coordinator for the domain",                      'ichr'  => "If a change is required, contact a domain coordinator for the domain",
                 );                  );
                 $user_quota_text = <<ENDNOPORTPRIV;                  $user_text{'quota'} = <<ENDNOPORTPRIV;
 <h3>$lt{'dska'}</h3>  <h3>$lt{'dska'}</h3>
 $lt{'youd'} $lt{'ichr'}: $ccdomain  $lt{'youd'} $lt{'ichr'}: $ccdomain
 ENDNOPORTPRIV  ENDNOPORTPRIV
Line 1112  ENDNOPORTPRIV Line 1510  ENDNOPORTPRIV
             if (&Apache::lonnet::allowed('mut',$env{'request.role.domain'})) {              if (&Apache::lonnet::allowed('mut',$env{'request.role.domain'})) {
                 my %lt=&Apache::lonlocal::texthash(                  my %lt=&Apache::lonlocal::texthash(
                     'utav'  => "User Tools Availability",                      'utav'  => "User Tools Availability",
                     'yodo'  => "You do not have privileges to modify Portfolio, Blog or Personal Information Page settings for this user.",                      'yodo'  => "You do not have privileges to modify Portfolio, Blog, WebDAV, or Personal Information Page settings for this user.",
                     'ifch'  => "If a change is required, contact a domain coordinator for the domain",                      'ifch'  => "If a change is required, contact a domain coordinator for the domain",
                 );                  );
                 $user_tools_text = <<ENDNOTOOLSPRIV;                  $user_text{'tools'} = <<ENDNOTOOLSPRIV;
 <h3>$lt{'utav'}</h3>  <h3>$lt{'utav'}</h3>
 $lt{'yodo'} $lt{'ifch'}: $ccdomain  $lt{'yodo'} $lt{'ifch'}: $ccdomain
 ENDNOTOOLSPRIV  ENDNOTOOLSPRIV
             }              }
         }          }
         if ($user_auth_text ne '') {          my $gotdiv = 0; 
             $r->print('<div class="LC_left_float">'.$user_auth_text);          foreach my $item (@order) {
             if ($user_quota_text ne '') {              if ($user_text{$item} ne '') {
                 $r->print($user_quota_text);                  unless ($gotdiv) {
             }                      $r->print('<div class="LC_left_float">');
             if ($user_tools_text ne '') {                      $gotdiv = 1;
                 $r->print($user_tools_text);                  }
             }                  $r->print('<br />'.$user_text{$item});
             if ($env{'form.action'} eq 'singlestudent') {  
                 $r->print(&date_sections_select($context,$newuser,$formname));  
             }  
         } elsif ($user_quota_text ne '') {  
             $r->print('<div class="LC_left_float">'.$user_quota_text);  
             if ($user_tools_text ne '') {  
                 $r->print($user_tools_text);  
             }  
             if ($env{'form.action'} eq 'singlestudent') {  
                 $r->print(&date_sections_select($context,$newuser,$formname));  
             }  
         } elsif ($user_tools_text ne '') {  
             $r->print('<div class="LC_left_float">'.$user_tools_text);  
             if ($env{'form.action'} eq 'singlestudent') {  
                 $r->print(&date_sections_select($context,$newuser,$formname));  
             }  
         } else {  
             if ($env{'form.action'} eq 'singlestudent') {  
                 $r->print('<div class="LC_left_float">'.  
                           &date_sections_select($context,$newuser,$formname));  
             }              }
         }          }
         $r->print('</div><div class="LC_clear_float_footer"></div>');          if ($env{'form.action'} eq 'singlestudent') {
               unless ($gotdiv) {
                   $r->print('<div class="LC_left_float">');
               }
               my $credits;
               if ($showcredits) {
                   $credits = &get_user_credits($ccuname,$ccdomain,$defaultcredits);
                   if ($credits eq '') {
                       $credits = $defaultcredits;
                   }
               }
               $r->print(&date_sections_select($context,$newuser,$formname,
                                               $permission,$crstype,$ccuname,
                                               $ccdomain,$showcredits));
           }
           if ($gotdiv) {
               $r->print('</div><div class="LC_clear_float_footer"></div>');
           }
           my $statuses;
           if (($context eq 'domain') && (&Apache::lonnet::allowed('udp',$ccdomain)) &&
               (!&Apache::lonnet::allowed('mau',$ccdomain))) {
               $statuses = ['active'];
           } elsif (($context eq 'course') && ((&Apache::lonnet::allowed('vcl',$env{'request.course.id'})) ||
                    ($env{'request.course.sec'} &&
                     &Apache::lonnet::allowed('vcl',$env{'request.course.id'}.'/'.$env{'request.course.sec'})))) {
               $statuses = ['active'];
           }
         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,$showcredits,$statuses);
         }          }
     } ## 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;
     } else {          if ($crstype eq 'Community') {
         $r->print('<h3>'.&mt('Add Roles').'</h3>');              $btntxt = &mt('Enroll Member');
           } else {
               $btntxt = &mt('Enroll Student');
           }
           $r->print('<br /><input type="button" value="'.$btntxt.'" onclick="setSections(this.form)" />'."\n");
       } elsif ($permission->{'cusr'}) {
           $r->print('<div class="LC_left_float">'.
                     '<fieldset><legend>'.&mt('Add Roles').'</legend>');
         my $addrolesdisplay = 0;          my $addrolesdisplay = 0;
         if ($context eq 'domain' || $context eq 'author') {          if ($context eq 'domain' || $context eq 'author') {
             $addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain);              $addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain);
         }          }
         if ($context eq 'domain') {          if ($context eq 'domain') {
             my $add_domainroles = &new_domain_roles($r);              my $add_domainroles = &new_domain_roles($r,$ccdomain);
             if (!$addrolesdisplay) {              if (!$addrolesdisplay) {
                 $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'},$showcredits));
             $r->print('<br /><input type="button" value="'.&mt('Save').'" onclick="setCourse()" />'."\n");              $r->print('</fieldset></div><div class="LC_clear_float_footer"></div>'.
                         '<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('</fieldset></div><div class="LC_clear_float_footer"></div>'.
                             '<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('</fieldset></div>'.
                             '<div class="LC_clear_float_footer"></div>'.
                             '<br /><a href="javascript:backPage(document.cu)">'.
                           &mt('Back to previous page').'</a>');                            &mt('Back to previous page').'</a>');
             }              }
         } else {          } else {
             $r->print(&course_level_table(%inccourses));              $r->print(&course_level_table(\%inccourses,$showcredits,$defaultcredits));
             $r->print('<br /><input type="button" value="'.&mt('Save').'" onclick="setSections(this.form)" />'."\n");              $r->print('</fieldset></div><div class="LC_clear_float_footer"></div>'.
                         '<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><br /><br />');
     $r->print("</form>".&Apache::loncommon::end_page());  
     return;      return;
 }  }
   
 sub singleuser_breadcrumb {  sub singleuser_breadcrumb {
       my ($crstype,$context,$domain) = @_;
     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{'userpicked'} = 'Select a user',              $breadcrumb_text{'search'} = 'Enroll a member';
         $breadcrumb_text{'modify'} = 'Set section/dates',          } else {
               $breadcrumb_text{'search'} = 'Enroll a student';
           }
           $breadcrumb_text{'userpicked'} = 'Select a user';
           $breadcrumb_text{'modify'} = 'Set section/dates';
       } elsif ($env{'form.action'} eq 'accesslogs') {
           $breadcrumb_text{'search'} = 'View access logs for a user';
           $breadcrumb_text{'userpicked'} = 'Select a user';
           $breadcrumb_text{'activity'} = 'Activity';
       } elsif (($env{'form.action'} eq 'singleuser') && ($context eq 'domain') &&
                (!&Apache::lonnet::allowed('mau',$domain))) {
           $breadcrumb_text{'search'} = "View user's roles";
           $breadcrumb_text{'userpicked'} = 'Select a user';
           $breadcrumb_text{'modify'} = 'User roles';
     } else {      } else {
         $breadcrumb_text{'search'} = 'Create/modify a user';          $breadcrumb_text{'search'} = 'Create/modify a user';
         $breadcrumb_text{'userpicked'} = 'Select a user',          $breadcrumb_text{'userpicked'} = 'Select a user';
         $breadcrumb_text{'modify'} = 'Set user role',          $breadcrumb_text{'modify'} = 'Set user role';
     }      }
     return %breadcrumb_text;      return %breadcrumb_text;
 }  }
   
 sub date_sections_select {  sub date_sections_select {
     my ($context,$newuser,$formname,$permission) = @_;      my ($context,$newuser,$formname,$permission,$crstype,$ccuname,$ccdomain,
           $showcredits) = @_;
       my $credits;
       if ($showcredits) {
           my $defaultcredits = &Apache::lonuserutils::get_defaultcredits();
           $credits = &get_user_credits($ccuname,$ccdomain,$defaultcredits);
           if ($credits eq '') {
               $credits = $defaultcredits;
           }
       }
     my $cid = $env{'request.course.id'};      my $cid = $env{'request.course.id'};
     my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity($cid);      my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity($cid);
     my $date_table = '<h3>'.&mt('Starting and Ending Dates').'</h3>'."\n".      my $date_table = '<h3>'.&mt('Starting and Ending Dates').'</h3>'."\n".
         &Apache::lonuserutils::date_setting_table(undef,undef,$context,          &Apache::lonuserutils::date_setting_table(undef,undef,$context,
                                                   undef,$formname,$permission);                                                    undef,$formname,$permission);
     my $rowtitle = 'Section';      my $rowtitle = 'Section';
     my $secbox = '<h3>'.&mt('Section').'</h3>'."\n".      my $secbox = '<h3>'.&mt('Section and Credits').'</h3>'."\n".
         &Apache::lonuserutils::section_picker($cdom,$cnum,'st',$rowtitle,          &Apache::lonuserutils::section_picker($cdom,$cnum,'st',$rowtitle,
                                               $permission);                                                $permission,$context,'',$crstype,
                                                 $showcredits,$credits);
     my $output = $date_table.$secbox;      my $output = $date_table.$secbox;
     return $output;      return $output;
 }  }
   
 sub validation_javascript {  sub validation_javascript {
     my ($context,$ccdomain,$pjump_def,$groupslist,$newuser,$formname,      my ($context,$ccdomain,$pjump_def,$crstype,$groupslist,$newuser,$formname,
         $loaditem) = @_;          $loaditem) = @_;
     my $dc_setcourse_code = '';      my $dc_setcourse_code = '';
     my $nondc_setsection_code = '';      my $nondc_setsection_code = '';
Line 1243  sub validation_javascript { Line 1682  sub validation_javascript {
         if ($context eq 'course') {          if ($context eq 'course') {
             $nondc_setsection_code =              $nondc_setsection_code =
                 &Apache::lonuserutils::setsections_javascript($formname,$groupslist,                  &Apache::lonuserutils::setsections_javascript($formname,$groupslist,
                                                               undef,$checkauth);                                                                undef,$checkauth,
                                                                 $crstype);
         }          }
         if ($checkauth) {          if ($checkauth) {
             $nondc_setsection_code .=               $nondc_setsection_code .= 
Line 1263  sub validation_javascript { Line 1703  sub validation_javascript {
 }  }
   
 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);          $showcredits,$statuses) = @_;
     # Build up table of user roles to allow revocation and re-enabling of roles.      my $now=time;
     my ($tmp) = keys(%rolesdump);      my $showall = 1;
     if ($tmp !~ /^(con_lost|error)/i) {      my ($showexpired,$showactive);
         my $now=time;      if ((ref($statuses) eq 'ARRAY') && (@{$statuses} > 0)) {
         my %lt=&Apache::lonlocal::texthash(          $showall = 0;
           if (grep(/^expired$/,@{$statuses})) {
               $showexpired = 1;
           }
           if (grep(/^active$/,@{$statuses})) {
               $showactive = 1;
           }
           if ($showexpired && $showactive) {
               $showall = 1;
           }
       }
       my %lt=&Apache::lonlocal::texthash(
                     'rer'  => "Existing Roles",                      'rer'  => "Existing Roles",
                     'rev'  => "Revoke",                      'rev'  => "Revoke",
                     'del'  => "Delete",                      'del'  => "Delete",
                     'ren'  => "Re-Enable",                      'ren'  => "Re-Enable",
                     'rol'  => "Role",                      'rol'  => "Role",
                     'ext'  => "Extent",                      'ext'  => "Extent",
                       'crd'  => "Credits",
                     '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;
               } elsif ($end ne '') {
                   $newvalue .= '_'.$end;
               }
               $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);
           my $active=1;
           $active=0 if (($role_end_time) && ($now>$role_end_time));
           if ($active) {
               next unless($showall || $showactive);
           } else {
               next unless($showall || $showexpired);
           }
 # 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)} ) {          my $credits='';
                 $class='Course';          my $csec;
                 my ($coursedom,$coursedir) = ($1,$2);          if ($area =~ m{^/($match_domain)/($match_courseid)}) {
                 $sortkey.="\0$coursedom";              $class='Course';
                 # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).              my ($coursedom,$coursedir) = ($1,$2);
                 my %coursedata=              my $cid = $1.'_'.$2;
                     &Apache::lonnet::coursedescription($1.'_'.$2);              # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
                 my $carea;              next if ($envkey =~ m{^/$match_domain/$match_courseid/[A-Za-z0-9]+_gr$});
                 if (defined($coursedata{'description'})) {              my %coursedata=
                     $carea=$coursedata{'description'}.                  &Apache::lonnet::coursedescription($cid);
                         '<br />'.&mt('Domain').': '.$coursedom.('&nbsp;'x8).              if ($coursedir =~ /^$match_community$/) {
      &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$coursedir,$coursedom);                  $class='Community';
                     $sortkey.="\0".$coursedata{'description'};              }
                     $class=$coursedata{'type'};              $sortkey.="\0$coursedom";
               my $carea;
               if (defined($coursedata{'description'})) {
                   $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 (($showcredits) && ($class eq 'Course') && ($role_code eq 'st')) {
                     $allowed=1;                  my $defaultcredits = $coursedata{'internal.defaultcredits'};
                 }                  $credits =
                 if ((&Apache::lonnet::allowed('dro',$1)) ||                      &get_user_credits($ccuname,$ccdomain,$defaultcredits,
                     (&Apache::lonnet::allowed('dro',$ccdomain))) {                                        $coursedom,$coursedir);
                     $delallowed=1;                  if ($credits eq '') {
                       $credits = $defaultcredits;
                   }
               }
               if ((&Apache::lonnet::allowed('c'.$role_code,$coursedom.'/'.$coursedir)) ||
                   (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                   $allowed=1;
               }
               unless ($allowed) {
                   my $isowner = &Apache::lonuserutils::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;                  $csec = $2;
                     $sortkey.="\0$3";                  $carea.='<br />'.&mt('Section: [_1]',$csec);
                     if (!$allowed) {                  $sortkey.="\0$csec";
                         if ($env{'request.course.sec'} eq $3) {                  if (!$allowed) {
                             if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2.'/'.$3)) {                      if ($env{'request.course.sec'} eq $csec) {
                                 $allowed = 1;                          if (&Apache::lonnet::allowed('c'.$role_code,$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' || $role_code eq 'aa') {
                   $class='Authoring Space';
               } elsif ($role_code eq 'su') {
                   $class='System';
               } else {
                   $class='Domain';
               }
           }
           if (($role_code eq 'ca') || ($role_code eq 'aa')) {
               $area=~m{/($match_domain)/($match_username)};
               if (&Apache::lonuserutils::authorpriv($2,$1)) {
                   $allowed=1;
               } else {
                   $allowed=0;
               }
           }
           my $row = '';
           if ($showall) {
             $row.= '<td>';              $row.= '<td>';
             my $active=1;  
             $active=0 if (($role_end_time) && ($now>$role_end_time));  
             if (($active) && ($allowed)) {              if (($active) && ($allowed)) {
                 $row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';                  $row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';
             } else {              } else {
                 if ($active) {                  if ($active) {
                    $row.='&nbsp;';                      $row.='&nbsp;';
                 } else {                  } else {
                    $row.=&mt('expired or revoked');                      $row.=&mt('expired or revoked');
                 }                  }
             }              }
             $row.='</td><td>';              $row.='</td><td>';
Line 1405  sub display_existing_roles { Line 1933  sub display_existing_roles {
             } else {              } else {
                 $row.='&nbsp;';                  $row.='&nbsp;';
             }              }
             my $plaintext='';              $row.= '</td>';
             if (!$croletitle) {          }
                 $plaintext=&Apache::lonnet::plaintext($role_code,$class)          my $plaintext='';
             } else {          if (!$croletitle) {
                 $plaintext=              $plaintext=&Apache::lonnet::plaintext($role_code,$class);
         "Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";              if (($showcredits) && ($credits ne '')) {
             }                  $plaintext .= '<br/ ><span class="LC_nobreak">'.
             $row.= '</td><td>'.$plaintext.                                '<span class="LC_fontsize_small">'.
                    '</td><td>'.$area.                                &mt('Credits: [_1]',$credits).
                    '</td><td>'.($role_start_time?localtime($role_start_time)                                '</span></span>';
                                                 : '&nbsp;' ).              }
                    '</td><td>'.($role_end_time  ?localtime($role_end_time)          } else {
                                                 : '&nbsp;' )              $plaintext=
                    ."</td>";                  &mt('Custom role [_1][_2]defined by [_3]',
             $sortrole{$sortkey}=$envkey;                          '"'.$croletitle.'"',
             $roletext{$envkey}=$row;                          '<br />',
             $roleclass{$envkey}=$class;                          $croleuname.':'.$croleudom);
             $rolepriv{$envkey}=$allowed;          }
             #$r->print($row);          $row.= '<td>'.$plaintext.'</td>'.
         } # end of foreach        (table building loop)                 '<td>'.$area.'</td>'.
         my $rolesdisplay = 0;                 '<td>'.($role_start_time?&Apache::lonlocal::locallocaltime($role_start_time)
         my %output = ();                                              : '&nbsp;' ).'</td>'.
         foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {                 '<td>'.($role_end_time  ?&Apache::lonlocal::locallocaltime($role_end_time)
             $output{$type} = '';                                              : '&nbsp;' ).'</td>';
             foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {          $sortrole{$sortkey}=$envkey;
                 if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {          $roletext{$envkey}=$row;
                     $output{$type}.=          $roleclass{$envkey}=$class;
                           &Apache::loncommon::start_data_table_row().          if ($allowed) {
                           $roletext{$sortrole{$which}}.              $rolepriv{$envkey}='edit';
                           &Apache::loncommon::end_data_table_row();          } else {
                 }              if ($context eq 'domain') {
             }                  if ((&Apache::lonnet::allowed('vur',$ccdomain)) &&
             unless($output{$type} eq '') {                      ($envkey=~m{^/$ccdomain/})) {
                 $output{$type} = '<tr class="LC_info_row">'.                      $rolepriv{$envkey}='view';
                           "<td align='center' colspan='7'>".&mt($type)."</td></tr>".                  }
                            $output{$type};              } elsif ($context eq 'course') {
                 $rolesdisplay = 1;                  if ((&Apache::lonnet::allowed('vcl',$env{'request.course.id'})) ||
             }                      ($env{'request.course.sec'} && ($env{'request.course.sec'} eq $csec) &&
         }                       &Apache::lonnet::allowed('vcl',$env{'request.course.id'}.'/'.$env{'request.course.sec'}))) {
         if ($rolesdisplay == 1) {                      $rolepriv{$envkey}='view';
             my $contextrole='';                  }
             if ($env{'request.course.id'}) {              }
                 $contextrole = 'Existing Roles in this Course';          }
             } elsif ($env{'request.role'} =~ /^au\./) {      } # end of foreach        (table building loop)
                 $contextrole = 'Existing Co-Author Roles in your Construction Space';  
             } else {      my $rolesdisplay = 0;
                 $contextrole = 'Existing Roles in this Domain';      my %output = ();
             }      foreach my $type ('Authoring Space','Course','Community','Domain','System','Unknown') {
             $r->print('          $output{$type} = '';
 <h3>'.$lt{'rer'}.'</h3>'.          foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
 '<div>'.&mt($contextrole).'</div>'.              if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {
                    $output{$type}.=
                         &Apache::loncommon::start_data_table_row().
                         $roletext{$sortrole{$which}}.
                         &Apache::loncommon::end_data_table_row();
               }
           }
           unless($output{$type} eq '') {
               $output{$type} = '<tr class="LC_info_row">'.
                         "<td align='center' colspan='7'>".&mt($type)."</td></tr>".
                         $output{$type};
               $rolesdisplay = 1;
           }
       }
       if ($rolesdisplay == 1) {
           my $contextrole='';
           if ($env{'request.course.id'}) {
               if (&Apache::loncommon::course_type() eq 'Community') {
                   $contextrole = &mt('Existing Roles in this Community');
               } else {
                   $contextrole = &mt('Existing Roles in this Course');
               }
           } elsif ($env{'request.role'} =~ /^au\./) {
               $contextrole = &mt('Existing Co-Author Roles in your Authoring Space');
           } else {
               if ($showall) {
                   $contextrole = &mt('Existing Roles in this Domain');
               } elsif ($showactive) {
                   $contextrole = &mt('Unexpired Roles in this Domain');
               } elsif ($showexpired) {
                   $contextrole = &mt('Expired or Revoked Roles in this Domain');
               }
           }
           $r->print('<div class="LC_left_float">'.
   '<fieldset><legend>'.$contextrole.'</legend>'.
 &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'}.          if ($showall) {
 '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.              $r->print(
 '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.  '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.'</th>'
               );
           } elsif ($showexpired) {
               $r->print('<th>'.$lt{'rev'}.'</th>');
           }
           $r->print(
   '<th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</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 ('Authoring 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().
                     '</fieldset></div>');
       }
     return;      return;
 }  }
   
Line 1487  sub new_coauthor_roles { Line 2056  sub new_coauthor_roles {
         my $cuname=$env{'user.name'};          my $cuname=$env{'user.name'};
         my $cudom=$env{'request.role.domain'};          my $cudom=$env{'request.role.domain'};
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                     'cs'   => "Construction Space",                      'cs'   => "Authoring Space",
                     'act'  => "Activate",                      'act'  => "Activate",
                     'rol'  => "Role",                      'rol'  => "Role",
                     'ext'  => "Extent",                      'ext'  => "Extent",
Line 1538  sub new_coauthor_roles { Line 2107  sub new_coauthor_roles {
                       '</span>');                        '</span>');
         } elsif (($env{'user.name'} eq $ccuname) &&          } elsif (($env{'user.name'} eq $ccuname) &&
              ($env{'user.domain'} eq $ccdomain)) {               ($env{'user.domain'} eq $ccdomain)) {
             $r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Construction Space is not permitted'));              $r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Authoring Space is not permitted'));
         }          }
     }      }
     return $addrolesdisplay;;      return $addrolesdisplay;;
 }  }
   
 sub new_domain_roles {  sub new_domain_roles {
     my ($r) = @_;      my ($r,$ccdomain) = @_;
     my $addrolesdisplay = 0;      my $addrolesdisplay = 0;
     #      #
     # Domain level      # Domain level
Line 1563  sub new_domain_roles { Line 2132  sub new_domain_roles {
     foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {      foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
         foreach my $role (@allroles) {          foreach my $role (@allroles) {
             next if ($role eq 'ad');              next if ($role eq 'ad');
               next if (($role eq 'au') && ($ccdomain ne $thisdomain));
             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 1594  sub new_domain_roles { Line 2164  sub new_domain_roles {
 }  }
   
 sub user_authentication {  sub user_authentication {
     my ($ccuname,$ccdomain,$formname) = @_;      my ($ccuname,$ccdomain,$formname,$crstype,$permission) = @_;
     my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);      my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
     my $outcome;      my $outcome;
       my %lt=&Apache::lonlocal::texthash(
                      'err'   => "ERROR",
                      'uuas'  => "This user has an unrecognized authentication scheme",
                      'adcs'  => "Please alert a domain coordinator of this situation",
                      'sldb'  => "Please specify login data below",
                      'ld'    => "Login Data"
       );
     # Check for a bad authentication type      # Check for a bad authentication type
     if ($currentauth !~ /^(krb4|krb5|unix|internal|localauth):/) {      if ($currentauth !~ /^(krb4|krb5|unix|internal|localauth):/) {
         # bad authentication scheme          # bad authentication scheme
         my %lt=&Apache::lonlocal::texthash(  
                        'err'   => "ERROR",  
                        'uuas'  => "This user has an unrecognized authentication scheme",  
                        'adcs'  => "Please alert a domain coordinator of this situation",  
                        'sldb'  => "Please specify login data below",  
                        'ld'    => "Login Data"  
         );  
         if (&Apache::lonnet::allowed('mau',$ccdomain)) {          if (&Apache::lonnet::allowed('mau',$ccdomain)) {
             &initialize_authen_forms($ccdomain,$formname);              &initialize_authen_forms($ccdomain,$formname);
   
Line 1637  ENDBADAUTH Line 2207  ENDBADAUTH
             &modify_login_block($ccdomain,$currentauth);              &modify_login_block($ccdomain,$currentauth);
         if (&Apache::lonnet::allowed('mau',$ccdomain)) {          if (&Apache::lonnet::allowed('mau',$ccdomain)) {
             # Current user has login modification privileges              # Current user has login modification privileges
             my %lt=&Apache::lonlocal::texthash (  
                            'ld'    => "Login Data",  
                            'ccld'  => "Change Current Login Data",  
                            'enld'  => "Enter New Login Data"  
                                                );  
             $outcome =              $outcome =
                        '<script type="text/javascript" language="Javascript">'."\n".                         '<script type="text/javascript" language="Javascript">'."\n".
                        '// <![CDATA['."\n".                         '// <![CDATA['."\n".
Line 1652  ENDBADAUTH Line 2217  ENDBADAUTH
                        &Apache::loncommon::start_data_table().                         &Apache::loncommon::start_data_table().
                        &Apache::loncommon::start_data_table_row().                         &Apache::loncommon::start_data_table_row().
                        '<td>'.$authformnop;                         '<td>'.$authformnop;
             if ($can_modify) {              if (($can_modify) && (&Apache::lonnet::allowed('mau',$ccdomain))) {
                 $outcome .= '</td>'."\n".                  $outcome .= '</td>'."\n".
                             &Apache::loncommon::end_data_table_row().                              &Apache::loncommon::end_data_table_row().
                             &Apache::loncommon::start_data_table_row().                              &Apache::loncommon::start_data_table_row().
Line 1662  ENDBADAUTH Line 2227  ENDBADAUTH
                 $outcome .= '&nbsp;('.$authformcurrent.')</td>'.                  $outcome .= '&nbsp;('.$authformcurrent.')</td>'.
                             &Apache::loncommon::end_data_table_row()."\n";                              &Apache::loncommon::end_data_table_row()."\n";
             }              }
             foreach my $item (@authform_others) {               if (&Apache::lonnet::allowed('mau',$ccdomain)) {
                 $outcome .= &Apache::loncommon::start_data_table_row().                  foreach my $item (@authform_others) { 
                             '<td>'.$item.'</td>'.                      $outcome .= &Apache::loncommon::start_data_table_row().
                             &Apache::loncommon::end_data_table_row()."\n";                                  '<td>'.$item.'</td>'.
                                   &Apache::loncommon::end_data_table_row()."\n";
                   }
             }              }
             $outcome .= &Apache::loncommon::end_data_table();              $outcome .= &Apache::loncommon::end_data_table();
         } else {          } else {
             if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) {              if (($currentauth =~ /^internal:/) &&
                   (&Apache::lonuserutils::can_change_internalpass($ccuname,$ccdomain,$crstype,$permission))) {
                   $outcome = <<"ENDJS";
   <script type="text/javascript">
   // <![CDATA[
   function togglePwd(form) {
       if (form.newintpwd.length) {
           if (document.getElementById('LC_ownersetpwd')) {
               for (var i=0; i<form.newintpwd.length; i++) {
                   if (form.newintpwd[i].checked) {
                       if (form.newintpwd[i].value == 1) {
                           document.getElementById('LC_ownersetpwd').style.display = 'inline-block';
                       } else {
                           document.getElementById('LC_ownersetpwd').style.display = 'none';
                       }
                   }
               }
           }
       }
   }
   // ]]>
   </script>
   ENDJS
   
                   $outcome .= '<h3>'.$lt{'ld'}.'</h3>'.
                               &Apache::loncommon::start_data_table().
                               &Apache::loncommon::start_data_table_row().
                               '<td>'.&mt('Internally authenticated').'<br />'.&mt("Change user's password?").
                               '<label><input type="radio" name="newintpwd" value="0" checked="checked" onclick="togglePwd(this.form);" />'.
                               &mt('No').'</label>'.('&nbsp;'x2).
                               '<label><input type="radio" name="newintpwd" value="1" onclick="togglePwd(this.form);" />'.&mt('Yes').'</label>'.
                               '<div id="LC_ownersetpwd" style="display:none">'.
                               '&nbsp;&nbsp;'.&mt('Password').' <input type="password" size="15" 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></div></td>'.
                               &Apache::loncommon::end_data_table_row().
                               &Apache::loncommon::end_data_table();
               }
               if (&Apache::lonnet::allowed('udp',$ccdomain)) {
                   # Current user has rights to view domain preferences for user's domain
                   my $result;
                   if ($currentauth =~ /^krb(4|5):([^:]*)$/) {
                       my ($krbver,$krbrealm) = ($1,$2);
                       if ($krbrealm eq '') {
                           $result = &mt('Currently Kerberos authenticated, Version [_1].',$krbver);
                       } else {
                           $result = &mt('Currently Kerberos authenticated with domain [_1] Version [_2].',
                                         $krbrealm,$krbver);
                       }
                   } elsif ($currentauth =~ /^internal:/) {
                       $result = &mt('Currently internally authenticated.');
                   } elsif ($currentauth =~ /^localauth:/) {
                       $result = &mt('Currently using local (institutional) authentication.');
                   } elsif ($currentauth =~ /^unix:/) {
                       $result = &mt('Currently Filesystem Authenticated.');
                   }
                   $outcome = '<h3>'.$lt{'ld'}.'</h3>'.
                              &Apache::loncommon::start_data_table().
                              &Apache::loncommon::start_data_table_row().
                              '<td>'.$result.'</td>'.
                              &Apache::loncommon::end_data_table_row()."\n".
                              &Apache::loncommon::end_data_table();
               } elsif (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) {
                 my %lt=&Apache::lonlocal::texthash(                  my %lt=&Apache::lonlocal::texthash(
                            'ccld'  => "Change Current Login Data",                             'ccld'  => "Change Current Login Data",
                            'yodo'  => "You do not have privileges to modify the authentication configuration for this user.",                             'yodo'  => "You do not have privileges to modify the authentication configuration for this user.",
Line 1753  sub modify_login_block { Line 2381  sub modify_login_block {
 }  }
   
 sub personal_data_display {  sub personal_data_display {
     my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray) = @_;      my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray,
     my ($output,$showforceid,%userenv,%canmodify,%canmodify_status);          $now,$captchaform,$emailusername,$usertype,$usernameset,$condition,$excluded) = @_;
       my ($output,%userenv,%canmodify,%canmodify_status);
     my @userinfo = ('firstname','middlename','lastname','generation',      my @userinfo = ('firstname','middlename','lastname','generation',
                     'permanentemail','id');                      'permanentemail','id');
     my $rowcount = 0;      my $rowcount = 0;
     my $editable = 0;      my $editable = 0;
     %canmodify_status =       my %textboxsize = (
                          firstname      => '15',
                          middlename     => '15',
                          lastname       => '15',
                          generation     => '5',
                          permanentemail => '25',
                          id             => '15',
                         );
   
       my %lt=&Apache::lonlocal::texthash(
                   'pd'             => "Personal Data",
                   'firstname'      => "First Name",
                   'middlename'     => "Middle Name",
                   'lastname'       => "Last Name",
                   'generation'     => "Generation",
                   'permanentemail' => "Permanent e-mail address",
                   'id'             => "Student/Employee ID",
                   'lg'             => "Login Data",
                   'inststatus'     => "Affiliation",
                   'email'          => 'E-mail address',
                   'valid'          => 'Validation',
                   'username'       => 'Username',
       );
   
       %canmodify_status =
         &Apache::lonuserutils::can_modify_userinfo($context,$ccdomain,          &Apache::lonuserutils::can_modify_userinfo($context,$ccdomain,
                                                    ['inststatus'],$rolesarray);                                                     ['inststatus'],$rolesarray);
     if (!$newuser) {      if (!$newuser) {
Line 1771  sub personal_data_display { Line 2424  sub personal_data_display {
             &Apache::lonuserutils::can_modify_userinfo($context,$ccdomain,              &Apache::lonuserutils::can_modify_userinfo($context,$ccdomain,
                                                        \@userinfo,$rolesarray);                                                         \@userinfo,$rolesarray);
     } elsif ($context eq 'selfcreate') {      } elsif ($context eq 'selfcreate') {
         %canmodify = &selfcreate_canmodify($context,$ccdomain,\@userinfo,          if ($newuser eq 'email') {
                                            $inst_results,$rolesarray);              if (ref($emailusername) eq 'HASH') {
                   if (ref($emailusername->{$usertype}) eq 'HASH') {
                       my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
                       @userinfo = ();
                       if ((ref($infofields) eq 'ARRAY') && (ref($infotitles) eq 'HASH')) {
                           foreach my $field (@{$infofields}) { 
                               if ($emailusername->{$usertype}->{$field}) {
                                   push(@userinfo,$field);
                                   $canmodify{$field} = 1;
                                   unless ($textboxsize{$field}) {
                                       $textboxsize{$field} = 25;
                                   }
                                   unless ($lt{$field}) {
                                       $lt{$field} = $infotitles->{$field};
                                   }
                                   if ($emailusername->{$usertype}->{$field} eq 'required') {
                                       $lt{$field} .= '<b>*</b>';
                                   }
                               }
                           }
                       }
                   }
               }
           } else {
               %canmodify = &selfcreate_canmodify($context,$ccdomain,\@userinfo,
                                                  $inst_results,$rolesarray);
           }
     }      }
     my %lt=&Apache::lonlocal::texthash(  
                 'pd'             => "Personal Data",  
                 'firstname'      => "First Name",  
                 'middlename'     => "Middle Name",  
                 'lastname'       => "Last Name",  
                 'generation'     => "Generation",  
                 'permanentemail' => "Permanent e-mail address",  
                 'id'             => "Student/Employee ID",  
                 'lg'             => "Login Data",  
                 'inststatus'     => "Affiliation",  
     );  
     my %textboxsize = (  
                        firstname      => '15',  
                        middlename     => '15',  
                        lastname       => '15',  
                        generation     => '5',  
                        permanentemail => '25',  
                        id             => '15',  
                       );  
     my $genhelp=&Apache::loncommon::help_open_topic('Generation');      my $genhelp=&Apache::loncommon::help_open_topic('Generation');
     $output = '<h3>'.$lt{'pd'}.'</h3>'.      $output = '<h3>'.$lt{'pd'}.'</h3>'.
               &Apache::lonhtmlcommon::start_pick_box();                &Apache::lonhtmlcommon::start_pick_box();
       if (($context eq 'selfcreate') && ($newuser eq 'email')) {
           my $size = 25;
           if ($condition) {
               if ($condition =~ /^\@[^\@]+$/) {
                   $size = 10;
               } else {
                   undef($condition);
               }
           }
           if ($excluded) {
               unless ($excluded =~ /^\@[^\@]+$/) {
                   undef($condition);
               }
           }
           $output .= &Apache::lonhtmlcommon::row_title($lt{'email'}.'<b>*</b>',undef,
                                                        'LC_oddrow_value')."\n".
                      '<input type="text" name="uname" size="'.$size.'" value="" autocomplete="off" />';
           if ($condition) {
               $output .= $condition;
           } elsif ($excluded) {
               $output .= '<br /><span style="font-size: smaller">'.&mt('You must use an e-mail address that does not end with [_1]',
                                                                        $excluded).'</span>';
           }
           if ($usernameset eq 'first') {
               $output .= '<br /><span style="font-size: smaller">';
               if ($condition) {
                   $output .= &mt('Your username in LON-CAPA will be the part of your e-mail address before [_1]',
                                         $condition);
               } else {
                   $output .= &mt('Your username in LON-CAPA will be the part of your e-mail address before the @');
               }
               $output .= '</span>';
           }
           $rowcount ++;
           $output .= &Apache::lonhtmlcommon::row_closure(1);
           my $upassone = '<input type="password" name="upass'.$now.'" size="20" autocomplete="off" />';
           my $upasstwo = '<input type="password" name="upasscheck'.$now.'" size="20" autocomplete="off" />';
           $output .= &Apache::lonhtmlcommon::row_title(&mt('Password').'<b>*</b>',
                                                       'LC_pick_box_title',
                                                       'LC_oddrow_value')."\n".
                      $upassone."\n".
                      &Apache::lonhtmlcommon::row_closure(1)."\n".
                      &Apache::lonhtmlcommon::row_title(&mt('Confirm password').'<b>*</b>',
                                                        'LC_pick_box_title',
                                                        'LC_oddrow_value')."\n".
                      $upasstwo.
                      &Apache::lonhtmlcommon::row_closure()."\n";
           if ($usernameset eq 'free') {
               my $onclick = "toggleUsernameDisp(this,'selfcreateusername');";
               $output .= &Apache::lonhtmlcommon::row_title($lt{'username'},undef,'LC_oddrow_value')."\n".
                          &mt('Use e-mail address: ').
                          '<label><input type="radio" name="emailused" value="1" checked="checked" onclick="'.$onclick.'" />'.&mt('Yes').'</label>'."\n".
                          ('&nbsp;'x2).
                          '<label><input type="radio" name="emailused" value="0" onclick="'.$onclick.'" />'.&mt('No').'</label>'."\n".
                          '<div id="selfcreateusername" style="display: none; font-size: smaller">'.
                          '<br /><span class="LC_nobreak">'.&mt('Preferred username').
                          '&nbsp;<input type="text" name="username" value="" size="20" autocomplete="off"/>'.
                          '</span></div>'."\n".&Apache::lonhtmlcommon::row_closure(1);
               $rowcount ++;
           }
       }
     foreach my $item (@userinfo) {      foreach my $item (@userinfo) {
         my $rowtitle = $lt{$item};          my $rowtitle = $lt{$item};
         my $hiderow = 0;          my $hiderow = 0;
Line 1809  sub personal_data_display { Line 2531  sub personal_data_display {
                     $row .= '<input type="hidden" name="c'.$item.'" value="'.$inst_results->{$item}.'" />'.$inst_results->{$item};                      $row .= '<input type="hidden" name="c'.$item.'" value="'.$inst_results->{$item}.'" />'.$inst_results->{$item};
                 } else {                  } else {
                     if ($context eq 'selfcreate') {                      if ($context eq 'selfcreate') {
                         if ($canmodify{$item}) {                           if ($canmodify{$item}) {
                             $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';                              $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" autocomplete="off" />';
                             $editable ++;                              $editable ++;
                         } else {                          } else {
                             $hiderow = 1;                              $hiderow = 1;
Line 1821  sub personal_data_display { Line 2543  sub personal_data_display {
                 }                  }
             } else {              } else {
                 if ($context eq 'selfcreate') {                  if ($context eq 'selfcreate') {
                     if (($item eq 'permanentemail') && ($newuser eq 'email')) {                      if ($canmodify{$item}) {
                         $row .= $ccuname;                          if ($newuser eq 'email') {
                     } else {                              $row .= '<input type="text" name="'.$item.'" size="'.$textboxsize{$item}.'" value="" autocomplete="off" />';
                         if ($canmodify{$item}) {  
                             $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';  
                             $editable ++;  
                         } else {                          } else {
                             $hiderow = 1;                              $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" autocomplete="off" />';
                         }                          }
                           $editable ++;
                       } else {
                           $hiderow = 1;
                     }                      }
                 } else {                  } else {
                     $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';                      $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
Line 1838  sub personal_data_display { Line 2560  sub personal_data_display {
         } else {          } else {
             if ($canmodify{$item}) {              if ($canmodify{$item}) {
                 $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="'.$userenv{$item}.'" />';                  $row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="'.$userenv{$item}.'" />';
                   if (($item eq 'id') && (!$newuser)) {
                       $row .= '<br />'.&Apache::lonuserutils::forceid_change($context);
                   }
             } else {              } else {
                 $row .= $userenv{$item};                  $row .= $userenv{$item};
             }              }
             if ($item eq 'id') {  
                 $showforceid = $canmodify{$item};  
             }  
         }          }
         $row .= &Apache::lonhtmlcommon::row_closure(1);          $row .= &Apache::lonhtmlcommon::row_closure(1);
         if (!$hiderow) {          if (!$hiderow) {
Line 1859  sub personal_data_display { Line 2581  sub personal_data_display {
                 if ($canmodify_status{'inststatus'}) {                  if ($canmodify_status{'inststatus'}) {
                     $shown = &pick_inst_statuses($userenv{'inststatus'},$usertypes,$types);                      $shown = &pick_inst_statuses($userenv{'inststatus'},$usertypes,$types);
                 } else {                  } else {
                     $shown .= $userenv{'inststatus'};  
                     if ($userenv{'inststatus'} eq '') {                      if ($userenv{'inststatus'} eq '') {
                         $hiderow = 1;                          $hiderow = 1;
                       } else {
                           my @showitems;
                           foreach my $item ( map { &unescape($_); } split(':',$userenv{'inststatus'})) {
                               if (exists($usertypes->{$item})) {
                                   push(@showitems,$usertypes->{$item});
                               } else {
                                   push(@showitems,$item);
                               }
                           }
                           if (@showitems) {
                               $shown = join(', ',@showitems);
                           } else {
                               $hiderow = 1;
                           }
                     }                      }
                 }                  }
                 if (!$hiderow) {                  if (!$hiderow) {
                     my $row = &Apache::lonhtmlcommon::row_title(&mt('Affliations'),undef,'LC_oddrow_value')."\n".                      my $row = &Apache::lonhtmlcommon::row_title(&mt('Affiliations'),undef,'LC_oddrow_value')."\n".
                               $shown.&Apache::lonhtmlcommon::row_closure(1);                                 $shown.&Apache::lonhtmlcommon::row_closure(1); 
                     if ($context eq 'selfcreate') {                      if ($context eq 'selfcreate') {
                         $rowcount ++;                          $rowcount ++;
Line 1875  sub personal_data_display { Line 2610  sub personal_data_display {
             }              }
         }          }
     }      }
       if (($context eq 'selfcreate') && ($newuser eq 'email')) {
           if ($captchaform) {
               $output .= &Apache::lonhtmlcommon::row_title($lt{'valid'}.'*',
                                                            'LC_pick_box_title')."\n".
                          $captchaform."\n".'<br /><br />'.
                          &Apache::lonhtmlcommon::row_closure(1); 
               $rowcount ++;
           }
           my $submit_text = &mt('Create account');
           $output .= &Apache::lonhtmlcommon::row_title()."\n".
                      '<br /><input type="submit" name="createaccount" value="'.
                      $submit_text.'" />'.
                      '<input type="hidden" name="type" value="'.$usertype.'" />'.
                      &Apache::lonhtmlcommon::row_closure(1);
       }
     $output .= &Apache::lonhtmlcommon::end_pick_box();      $output .= &Apache::lonhtmlcommon::end_pick_box();
     if (wantarray) {      if (wantarray) {
         if ($context eq 'selfcreate') {          if ($context eq 'selfcreate') {
             return($output,$rowcount,$editable);              return($output,$rowcount,$editable);
         } else {          } else {
             return ($output,$showforceid);              return $output;
         }          }
     } else {      } else {
         return $output;          return $output;
Line 1957  sub get_inststatuses { Line 2707  sub get_inststatuses {
   
 # ================================================================= Phase Three  # ================================================================= Phase Three
 sub update_user_data {  sub update_user_data {
     my ($r,$context) = @_;       my ($r,$context,$crstype,$brcrum,$showcredits,$permission) = @_; 
     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 1981  sub update_user_data { Line 2731  sub update_user_data {
                   $jsback."\n".                    $jsback."\n".
                   '// ]]>'."\n".                    '// ]]>'."\n".
                   '</script>'."\n";                    '</script>'."\n";
     my %breadcrumb_text = &singleuser_breadcrumb();      my %breadcrumb_text = &singleuser_breadcrumb($crstype,$context,$env{'form.ccdomain'});
     my $args;      push (@{$brcrum},
     if ($env{'form.popup'}) {               {href => "javascript:backPage(document.userupdate)",
         $args->{'no_nav_bar'} = 1;                text => $breadcrumb_text{'search'},
     } else {                faq  => 282,
         $args = undef;                bug  => 'Instructor Interface',}
     }               );
     $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') {      if ($env{'form.prevphase'} eq 'userpicked') {
         &Apache::lonhtmlcommon::add_breadcrumb          push(@{$brcrum},
            ({href=>"javascript:backPage(document.userupdate,'get_user_info','select')",                 {href => "javascript:backPage(document.userupdate,'get_user_info','select')",
              text=>$breadcrumb_text{'userpicked'},                  text => $breadcrumb_text{'userpicked'},
              faq=>282,bug=>'Instructor Interface',});                  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';
       } elsif ($context eq 'author') {
           $helpitem = 'Author_Change_Privileges';
       } elsif ($context eq 'domain') {
           $helpitem = 'Domain_Change_Privileges';
       }
       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 => 'User Management'};
       if ($env{'form.popup'}) {
           $args->{'no_nav_bar'} = 1;
     }      }
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',      $r->print(&Apache::loncommon::start_page($title,$jscript,$args));
                                                  $helpitem));  
     $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 2042  sub update_user_data { Line 2799  sub update_user_data {
     if (! exists($env{'form.makeuser'})) {      if (! exists($env{'form.makeuser'})) {
         # Modifying an existing user, so check the validity of the name          # Modifying an existing user, so check the validity of the name
         if ($uhome eq 'no_host') {          if ($uhome eq 'no_host') {
             $r->print($error.&mt('Unable to determine home server for ').              $r->print(
                       $env{'form.ccuname'}.&mt(' in domain ').                  $error
                       $env{'form.ccdomain'}.'.');                 .'<p class="LC_error">'
                  .&mt('Unable to determine home server for [_1] in domain [_2].',
                           '"'.$env{'form.ccuname'}.'"','"'.$env{'form.ccdomain'}.'"')
                  .'</p>');
             return;              return;
         }          }
     }      }
Line 2072  sub update_user_data { Line 2832  sub update_user_data {
         # If they are creating a new user but have not specified login          # If they are creating a new user but have not specified login
         # information this will be caught below.          # information this will be caught below.
     } else {      } else {
     $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);                  $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);
     return;              return;
     }      }
   
     $r->print('<h3>'.&mt('User [_1] in domain [_2]',      $r->print('<h3>'.&mt('User [_1] in domain [_2]',
  $env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>');                          $env{'form.ccuname'}.' ('.&Apache::loncommon::plainname($env{'form.ccuname'},
                           $env{'form.ccdomain'}).')', $env{'form.ccdomain'}).'</h3>');
       my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,2);
   
     my (%alerts,%rulematch,%inst_results,%curr_rules);      my (%alerts,%rulematch,%inst_results,%curr_rules);
     my @usertools = ('aboutme','blog','portfolio');      my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');
     my @requestcourses = ('official','unofficial','community');      my @usertools = ('aboutme','blog','webdav','portfolio');
       my @requestcourses = ('official','unofficial','community','textbook');
       my @requestauthor = ('requestauthor');
     my ($othertitle,$usertypes,$types) =       my ($othertitle,$usertypes,$types) = 
         &Apache::loncommon::sorted_inst_types($env{'form.ccdomain'});          &Apache::loncommon::sorted_inst_types($env{'form.ccdomain'});
       my %canmodify_status =
           &Apache::lonuserutils::can_modify_userinfo($context,$env{'form.ccdomain'},
                                                      ['inststatus']);
     if ($env{'form.makeuser'}) {      if ($env{'form.makeuser'}) {
  $r->print('<h3>'.&mt('Creating new account.').'</h3>');   $r->print('<h3>'.&mt('Creating new account.').'</h3>');
         # Check for the authentication mode and password          # Check for the authentication mode and password
Line 2132  sub update_user_data { Line 2900  sub update_user_data {
                 }                  }
             }              }
         }          }
           &Apache::lonhtmlcommon::Increment_PrgWin($r, \%prog_state);
  # Call modifyuser   # Call modifyuser
  my $result = &Apache::lonnet::modifyuser   my $result = &Apache::lonnet::modifyuser
     ($env{'form.ccdomain'},$env{'form.ccuname'},$env{'form.cid'},      ($env{'form.ccdomain'},$env{'form.ccuname'},$env{'form.cid'},
Line 2142  sub update_user_data { Line 2911  sub update_user_data {
  $r->print(&mt('Generating user').': '.$result);   $r->print(&mt('Generating user').': '.$result);
         $uhome = &Apache::lonnet::homeserver($env{'form.ccuname'},          $uhome = &Apache::lonnet::homeserver($env{'form.ccuname'},
                                                $env{'form.ccdomain'});                                                 $env{'form.ccdomain'});
         my (%changeHash,%newcustom,%changed);          my (%changeHash,%newcustom,%changed,%changedinfo);
         if ($uhome ne 'no_host') {          if ($uhome ne 'no_host') {
             if ($env{'form.customquota'} == 1) {              if ($context eq 'domain') {
                 if ($env{'form.portfolioquota'} eq '') {                  foreach my $name ('portfolio','author') {
                     $newcustom{'quota'} = 0;                      if ($env{'form.custom_'.$name.'quota'} == 1) {
                 } else {                          if ($env{'form.'.$name.'quota'} eq '') {
                     $newcustom{'quota'} = $env{'form.portfolioquota'};                              $newcustom{$name.'quota'} = 0;
                     $newcustom{'quota'} =~ s/[^\d\.]//g;                          } else {
                               $newcustom{$name.'quota'} = $env{'form.'.$name.'quota'};
                               $newcustom{$name.'quota'} =~ s/[^\d\.]//g;
                           }
                           if (&quota_admin($newcustom{$name.'quota'},\%changeHash,$name)) {
                               $changed{$name.'quota'} = 1;
                           }
                       }
                 }                  }
                 $changed{'quota'} = &quota_admin($newcustom{'quota'},\%changeHash);                  foreach my $item (@usertools) {
             }                      if ($env{'form.custom'.$item} == 1) {
             foreach my $item (@usertools) {                          $newcustom{$item} = $env{'form.tools_'.$item};
                 if ($env{'form.custom'.$item} == 1) {                          $changed{$item} = &tool_admin($item,$newcustom{$item},
                     $newcustom{$item} = $env{'form.tools_'.$item};                                                       \%changeHash,'tools');
                     $changed{$item} = &tool_admin($item,$newcustom{$item},                      }
                                                  \%changeHash,'tools');  
                 }                  }
             }                  foreach my $item (@requestcourses) {
             foreach my $item (@requestcourses) {                      if ($env{'form.custom'.$item} == 1) {
                 $newcustom{$item} = $env{'form.crsreq_'.$item};                          $newcustom{$item} = $env{'form.crsreq_'.$item};
                 if ($env{'form.crsreq_'.$item} eq 'autolimit') {                          if ($env{'form.crsreq_'.$item} eq 'autolimit') {
                     $newcustom{$item} .= '=';                              $newcustom{$item} .= '=';
                     unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {                              $env{'form.crsreq_'.$item.'_limit'} =~ s/\D+//g;
                         $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};                              if ($env{'form.crsreq_'.$item.'_limit'}) {
                                   $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};
                               }
                           }
                           $changed{$item} = &tool_admin($item,$newcustom{$item},
                                                         \%changeHash,'requestcourses');
                     }                      }
                 }                  }
                 $changed{$item} = &tool_admin($item,$newcustom{$item},                  if ($env{'form.customrequestauthor'} == 1) {
                                               \%changeHash,'requestcourses');                      $newcustom{'requestauthor'} = $env{'form.requestauthor'};
             }                      $changed{'requestauthor'} = &tool_admin('requestauthor',
             if (exists($env{'form.inststatus'})) {                                                      $newcustom{'requestauthor'},
                 my @inststatuses = &Apache::loncommon::get_env_multiple('form.inststatus');                                                      \%changeHash,'requestauthor');
                 if (@inststatuses > 0) {                  }
                     $changeHash{'inststatus'} = join(',',@inststatuses);              }
                     $changed{'inststatus'} = $changeHash{'inststatus'};              if ($canmodify_status{'inststatus'}) {
                   if (exists($env{'form.inststatus'})) {
                       my @inststatuses = &Apache::loncommon::get_env_multiple('form.inststatus');
                       if (@inststatuses > 0) {
                           $changeHash{'inststatus'} = join(',',@inststatuses);
                           $changed{'inststatus'} = $changeHash{'inststatus'};
                       }
                 }                  }
             }              }
             if (keys(%changed)) {              if (keys(%changed)) {
                 $changeHash{'firstname'}  = $env{'form.cfirstname'};                  foreach my $item (@userinfo) {
                 $changeHash{'middlename'} = $env{'form.cmiddlename'};                      $changeHash{$item}  = $env{'form.c'.$item};
                 $changeHash{'lastname'}   = $env{'form.clastname'};                  }
                 $changeHash{'generation'} = $env{'form.cgeneration'};  
                 $changeHash{'id'}         = $env{'form.cid'};  
                 $changeHash{'permanentemail'} = $env{'form.cpermanentemail'};  
                 my $chgresult =                  my $chgresult =
                      &Apache::lonnet::put('environment',\%changeHash,                       &Apache::lonnet::put('environment',\%changeHash,
                                           $env{'form.ccdomain'},$env{'form.ccuname'});                                            $env{'form.ccdomain'},$env{'form.ccuname'});
Line 2199  sub update_user_data { Line 2982  sub update_user_data {
     $r->print($error.'Invalid login mode or password'.$end.$rtnlink);          $r->print($error.'Invalid login mode or password'.$end.$rtnlink);    
     return;      return;
  }   }
  # Only allow authentification modification if the person has authority   # Only allow authentication modification if the person has authority
  if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) {   if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) {
     $r->print('Modifying authentication: '.      $r->print('Modifying authentication: '.
                       &Apache::lonnet::modifyuserauth(                        &Apache::lonnet::modifyuserauth(
Line 2209  sub update_user_data { Line 2992  sub update_user_data {
   ($env{'form.ccuname'},$env{'form.ccdomain'}));    ($env{'form.ccuname'},$env{'form.ccdomain'}));
  } else {   } else {
     # Okay, this is a non-fatal error.      # Okay, this is a non-fatal error.
     $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end);          $r->print($error.&mt('You do not have privileges to modify the authentication configuration for this user.').$end);    
  }   }
       } elsif (($env{'form.intarg'} ne '') &&
                (&Apache::lonnet::queryauthenticate($env{'form.ccuname'},$env{'form.ccdomain'}) =~ /^internal:/) &&
                (&Apache::lonuserutils::can_change_internalpass($env{'form.ccuname'},$env{'form.ccdomain'},$crstype,$permission))) {
           $r->print('Modifying authentication: '.
                     &Apache::lonnet::modifyuserauth(
                     $env{'form.ccdomain'},$env{'form.ccuname'},
                     'internal',$env{'form.intarg'}));
     }      }
       $r->rflush(); # Finish display of header before time consuming actions start
       &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state);
     ##      ##
     my (@userroles,%userupdate,$cnum,$cdom,$namechanged);      my (@userroles,%userupdate,$cnum,$cdom,$defaultcredits,%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 ($showcredits) {
              $defaultcredits = &Apache::lonuserutils::get_defaultcredits($cdom,$cnum);
           }
     }      }
     if (! $env{'form.makeuser'} ) {      if (! $env{'form.makeuser'} ) {
         # Check for need to change          # Check for need to change
         my %userenv = &Apache::lonnet::get          my %userenv = &Apache::lonnet::get
             ('environment',['firstname','middlename','lastname','generation',              ('environment',['firstname','middlename','lastname','generation',
              'id','permanentemail','portfolioquota','inststatus','tools.aboutme',               'id','permanentemail','portfolioquota','authorquota','inststatus',
              'tools.blog','tools.portfolio','requestcourses.official',               'tools.aboutme','tools.blog','tools.webdav','tools.portfolio',
              'requestcourses.unofficial','requestcourses.community',               'requestcourses.official','requestcourses.unofficial',
                'requestcourses.community','requestcourses.textbook',
              'reqcrsotherdom.official','reqcrsotherdom.unofficial',               'reqcrsotherdom.official','reqcrsotherdom.unofficial',
              'reqcrsotherdom.community'],               'reqcrsotherdom.community','reqcrsotherdom.textbook',
                'requestauthor'],
               $env{'form.ccdomain'},$env{'form.ccuname'});                $env{'form.ccdomain'},$env{'form.ccuname'});
         my ($tmp) = keys(%userenv);          my ($tmp) = keys(%userenv);
         if ($tmp =~ /^(con_lost|error)/i) {           if ($tmp =~ /^(con_lost|error)/i) { 
Line 2299  sub update_user_data { Line 3098  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 %canmodify = &Apache::lonuserutils::can_modify_userinfo($context,$env{'form.ccdomain'},\@userinfo,\@userroles);          my %canmodify = &Apache::lonuserutils::can_modify_userinfo($context,$env{'form.ccdomain'},\@userinfo,\@userroles);
         foreach my $item (@userinfo) {          foreach my $item (@userinfo) {
             # Strip leading and trailing whitespace              # Strip leading and trailing whitespace
Line 2348  sub update_user_data { Line 3146  sub update_user_data {
                 }                  }
             }              }
         }          }
         my ($quotachanged,$oldportfolioquota,$newportfolioquota,$oldinststatus,          my (%quotachanged,%oldquota,%newquota,%olddefquota,%newdefquota, 
             $inststatus,$newinststatus,$oldisdefault,$newisdefault,$olddefquotatext,              $oldinststatus,$newinststatus,%oldisdefault,%newisdefault,%oldsettings,
             $newdefquotatext,%oldaccess,%oldaccesstext,%newaccess,%newaccesstext,              %oldsettingstext,%newsettings,%newsettingstext,@disporder,
             $oldinststatuses,$newinststatuses);              %oldsettingstatus,%newsettingstatus);
         my ($defquota,$settingstatus) =           @disporder = ('inststatus');
             &Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);          if ($env{'request.role.domain'} eq $env{'form.ccdomain'}) {
         my ($showquota,$showtools,$showrequestcourses,$showinststatus,$showreqotherdom);              push(@disporder,'requestcourses','requestauthor');
           } else {
               push(@disporder,'reqcrsotherdom');
           }
           push(@disporder,('quota','tools'));
           $oldinststatus = $userenv{'inststatus'};
           foreach my $name ('portfolio','author') {
               ($olddefquota{$name},$oldsettingstatus{$name}) = 
                   &Apache::loncommon::default_quota($env{'form.ccdomain'},$oldinststatus,$name);
               ($newdefquota{$name},$newsettingstatus{$name}) = ($olddefquota{$name},$oldsettingstatus{$name});
           }
           my %canshow;
         if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {          if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
             $showquota = 1;              $canshow{'quota'} = 1;
         }          }
         if (&Apache::lonnet::allowed('mut',$env{'form.ccdomain'})) {          if (&Apache::lonnet::allowed('mut',$env{'form.ccdomain'})) {
             $showtools = 1;              $canshow{'tools'} = 1;
         }          }
         if (&Apache::lonnet::allowed('ccc',$env{'form.ccdomain'})) {          if (&Apache::lonnet::allowed('ccc',$env{'form.ccdomain'})) {
             $showrequestcourses = 1;              $canshow{'requestcourses'} = 1;
         } elsif (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {          } elsif (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
             $showreqotherdom = 1;              $canshow{'reqcrsotherdom'} = 1;
         }          }
         if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) {          if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) {
             $showinststatus = 1;              $canshow{'inststatus'} = 1;
           }
           if (&Apache::lonnet::allowed('cau',$env{'form.ccdomain'})) {
               $canshow{'requestauthor'} = 1;
         }          }
         my (%changeHash,%changed);          my (%changeHash,%changed);
         $oldinststatus = $userenv{'inststatus'};  
         if ($oldinststatus eq '') {          if ($oldinststatus eq '') {
             $oldinststatuses = $othertitle;               $oldsettings{'inststatus'} = $othertitle; 
         } else {          } else {
             if (ref($usertypes) eq 'HASH') {              if (ref($usertypes) eq 'HASH') {
                 $oldinststatuses = join(', ',map{ $usertypes->{ &unescape($_) }; } (split(/:/,$userenv{'inststatus'})));                  $oldsettings{'inststatus'} = join(', ',map{ $usertypes->{ &unescape($_) }; } (split(/:/,$userenv{'inststatus'})));
             } else {              } else {
                 $oldinststatuses = join(', ',map{ &unescape($_); } (split(/:/,$userenv{'inststatus'})));                  $oldsettings{'inststatus'} = join(', ',map{ &unescape($_); } (split(/:/,$userenv{'inststatus'})));
             }              }
         }          }
         $changeHash{'inststatus'} = $userenv{'inststatus'};          $changeHash{'inststatus'} = $userenv{'inststatus'};
         my %canmodify_inststatus = &Apache::lonuserutils::can_modify_userinfo($context,$env{'form.ccdomain'},['inststatus'],\@userroles);          if ($canmodify_status{'inststatus'}) {
         if ($canmodify_inststatus{'inststatus'}) {              $canshow{'inststatus'} = 1;
             if (exists($env{'form.inststatus'})) {              if (exists($env{'form.inststatus'})) {
                 my @inststatuses = &Apache::loncommon::get_env_multiple('form.inststatus');                  my @inststatuses = &Apache::loncommon::get_env_multiple('form.inststatus');
                 if (@inststatuses > 0) {                  if (@inststatuses > 0) {
Line 2390  sub update_user_data { Line 3201  sub update_user_data {
                     $changeHash{'inststatus'} = $newinststatus;                      $changeHash{'inststatus'} = $newinststatus;
                     if ($newinststatus ne $oldinststatus) {                      if ($newinststatus ne $oldinststatus) {
                         $changed{'inststatus'} = $newinststatus;                          $changed{'inststatus'} = $newinststatus;
                           foreach my $name ('portfolio','author') {
                               ($newdefquota{$name},$newsettingstatus{$name}) =
                                   &Apache::loncommon::default_quota($env{'form.ccdomain'},$newinststatus,$name);
                           }
                     }                      }
                     if (ref($usertypes) eq 'HASH') {                      if (ref($usertypes) eq 'HASH') {
                         $newinststatuses = join(', ',map{ $usertypes->{$_}; } (@inststatuses));                           $newsettings{'inststatus'} = join(', ',map{ $usertypes->{$_}; } (@inststatuses)); 
                     } else {                      } else {
                         $newinststatuses = join(', ',map{ $usertypes->{$_}; } (@inststatuses));                          $newsettings{'inststatus'} = join(', ',@inststatuses);
                       }
                   }
               } else {
                   $newinststatus = '';
                   $changeHash{'inststatus'} = $newinststatus;
                   $newsettings{'inststatus'} = $othertitle;
                   if ($newinststatus ne $oldinststatus) {
                       $changed{'inststatus'} = $changeHash{'inststatus'};
                       foreach my $name ('portfolio','author') {
                           ($newdefquota{$name},$newsettingstatus{$name}) =
                               &Apache::loncommon::default_quota($env{'form.ccdomain'},$newinststatus,$name);
                       }
                   }
               }
           } elsif ($context ne 'selfcreate') {
               $canshow{'inststatus'} = 1;
               $newsettings{'inststatus'} = $oldsettings{'inststatus'};
           }
           foreach my $name ('portfolio','author') {
               $changeHash{$name.'quota'} = $userenv{$name.'quota'};
           }
           if ($context eq 'domain') {
               foreach my $name ('portfolio','author') {
                   if ($userenv{$name.'quota'} ne '') {
                       $oldquota{$name} = $userenv{$name.'quota'};
                       if ($env{'form.custom_'.$name.'quota'} == 1) {
                           if ($env{'form.'.$name.'quota'} eq '') {
                               $newquota{$name} = 0;
                           } else {
                               $newquota{$name} = $env{'form.'.$name.'quota'};
                               $newquota{$name} =~ s/[^\d\.]//g;
                           }
                           if ($newquota{$name} != $oldquota{$name}) {
                               if (&quota_admin($newquota{$name},\%changeHash,$name)) {
                                   $changed{$name.'quota'} = 1;
                               }
                           }
                       } else {
                           if (&quota_admin('',\%changeHash,$name)) {
                               $changed{$name.'quota'} = 1;
                               $newquota{$name} = $newdefquota{$name};
                               $newisdefault{$name} = 1;
                           }
                     }                      }
                 } else {                  } else {
                     $newinststatus = '';                      $oldisdefault{$name} = 1;
                     $changeHash{'inststatus'} = $newinststatus;                      $oldquota{$name} = $olddefquota{$name};
                     $newinststatuses = $othertitle;                      if ($env{'form.custom_'.$name.'quota'} == 1) {
                     if ($newinststatus ne $oldinststatus) {                          if ($env{'form.'.$name.'quota'} eq '') {
                         $changed{'inststatus'} = $changeHash{'inststatus'};                              $newquota{$name} = 0;
                           } else {
                               $newquota{$name} = $env{'form.'.$name.'quota'};
                               $newquota{$name} =~ s/[^\d\.]//g;
                           }
                           if (&quota_admin($newquota{$name},\%changeHash,$name)) {
                               $changed{$name.'quota'} = 1;
                           }
                       } else {
                           $newquota{$name} = $newdefquota{$name};
                           $newisdefault{$name} = 1;
                     }                      }
                 }                  }
                   if ($oldisdefault{$name}) {
                       $oldsettingstext{'quota'}{$name} = &get_defaultquota_text($oldsettingstatus{$name});
                   }  else {
                       $oldsettingstext{'quota'}{$name} = &mt('custom quota: [_1] MB',$oldquota{$name});
                   }
                   if ($newisdefault{$name}) {
                       $newsettingstext{'quota'}{$name} = &get_defaultquota_text($newsettingstatus{$name});
                   } else {
                       $newsettingstext{'quota'}{$name} = &mt('custom quota: [_1] MB',$newquota{$name});
                   }
               }
               &tool_changes('tools',\@usertools,\%oldsettings,\%oldsettingstext,\%userenv,
                             \%changeHash,\%changed,\%newsettings,\%newsettingstext);
               if ($env{'form.ccdomain'} eq $env{'request.role.domain'}) {
                   &tool_changes('requestcourses',\@requestcourses,\%oldsettings,\%oldsettingstext,
                                 \%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext);
                   &tool_changes('requestauthor',\@requestauthor,\%oldsettings,\%oldsettingstext,
                                 \%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext);
               } else {
                   &tool_changes('reqcrsotherdom',\@requestcourses,\%oldsettings,\%oldsettingstext,
                                 \%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext);
               }
           }
           foreach my $item (@userinfo) {
               if ($env{'form.c'.$item} ne $userenv{$item}) {
                   $namechanged{$item} = 1;
             }              }
         }          }
         $changeHash{'portfolioquota'} = $userenv{'portfolioquota'};          foreach my $name ('portfolio','author') {
         if ($userenv{'portfolioquota'} ne '') {              $oldsettings{'quota'}{$name} = &mt('[_1] MB',$oldquota{$name});
             $oldportfolioquota = $userenv{'portfolioquota'};              $newsettings{'quota'}{$name} = &mt('[_1] MB',$newquota{$name});
             if ($env{'form.customquota'} == 1) {          }
                 if ($env{'form.portfolioquota'} eq '') {          if ((keys(%namechanged) > 0) || (keys(%changed) > 0)) {
                     $newportfolioquota = 0;  
                 } else {  
                     $newportfolioquota = $env{'form.portfolioquota'};  
                     $newportfolioquota =~ s/[^\d\.]//g;  
                 }  
                 if ($newportfolioquota != $oldportfolioquota) {  
                     $changed{'quota'} = &quota_admin($newportfolioquota,\%changeHash);  
                 }  
             } else {  
                 $changed{'quota'} = &quota_admin('',\%changeHash);  
                 $newportfolioquota = $defquota;  
                 $newisdefault = 1;  
             }  
         } else {  
             $oldisdefault = 1;  
             $oldportfolioquota = $defquota;  
             if ($env{'form.customquota'} == 1) {  
                 if ($env{'form.portfolioquota'} eq '') {  
                     $newportfolioquota = 0;  
                 } else {  
                     $newportfolioquota = $env{'form.portfolioquota'};  
                     $newportfolioquota =~ s/[^\d\.]//g;  
                 }  
                 $changed{'quota'} = &quota_admin($newportfolioquota,\%changeHash);  
             } else {  
                 $newportfolioquota = $defquota;  
                 $newisdefault = 1;  
             }  
         }  
         if ($oldisdefault) {  
             $olddefquotatext = &get_defaultquota_text($settingstatus);  
         }  
         if ($newisdefault) {  
             $newdefquotatext = &get_defaultquota_text($settingstatus);  
         }  
         &tool_changes('tools',\@usertools,\%oldaccess,\%oldaccesstext,\%userenv,  
                       \%changeHash,\%changed,\%newaccess,\%newaccesstext);  
         if ($env{'form.ccdomain'} eq $env{'request.role.domain'}) {  
             &tool_changes('requestcourses',\@requestcourses,\%oldaccess,\%oldaccesstext,  
                           \%userenv,\%changeHash,\%changed,\%newaccess,\%newaccesstext);  
         } else {  
             &tool_changes('reqcrsotherdom',\@requestcourses,\%oldaccess,\%oldaccesstext,  
                           \%userenv,  
                                   \%changeHash,\%changed,\%newaccess,\%newaccesstext);  
         }  
         if ($env{'form.cfirstname'}  ne $userenv{'firstname'}  ||  
             $env{'form.cmiddlename'} ne $userenv{'middlename'} ||  
             $env{'form.clastname'}   ne $userenv{'lastname'}   ||  
             $env{'form.cgeneration'} ne $userenv{'generation'} ||  
             $env{'form.cid'} ne $userenv{'id'}                 ||  
             $env{'form.cpermanentemail'} ne $userenv{'permanentemail'} ) {  
             $namechanged = 1;  
         }  
         if (($namechanged) || (keys(%changed) > 0)) {  
             $changeHash{'firstname'}  = $env{'form.cfirstname'};  
             $changeHash{'middlename'} = $env{'form.cmiddlename'};  
             $changeHash{'lastname'}   = $env{'form.clastname'};  
             $changeHash{'generation'} = $env{'form.cgeneration'};  
             $changeHash{'id'}         = $env{'form.cid'};  
             $changeHash{'permanentemail'} = $env{'form.cpermanentemail'};  
             my ($chgresult,$namechgresult);              my ($chgresult,$namechgresult);
             if (keys(%changed) > 0) {              if (keys(%changed) > 0) {
                 $chgresult =                   $chgresult = 
Line 2482  sub update_user_data { Line 3316  sub update_user_data {
                         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')) {                                  || ($key eq 'community') || ($key eq 'textbook')) {
                                 $newenvhash{'environment.requestcourses.'.$key} =                                  $newenvhash{'environment.requestcourses.'.$key} =
                                     $changeHash{'requestcourses.'.$key};                                      $changeHash{'requestcourses.'.$key};
                                 if ($changeHash{'requestcourses.'.$key} ne '') {                                  if ($changeHash{'requestcourses.'.$key}) {
                                     $newenvhash{'environment.canrequest.'.$key} =                                      $newenvhash{'environment.canrequest.'.$key} = 1;
                                         $changeHash{'requestcourses.'.$key};  
                                 } else {                                  } else {
                                     $newenvhash{'environment.canrequest.'.$key} =                                      $newenvhash{'environment.canrequest.'.$key} =
           &Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},            &Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},
                                             $key,'reload','requestcourses');                                              $key,'reload','requestcourses');
                                 }                                  }
                               } elsif ($key eq 'requestauthor') {
                                   $newenvhash{'environment.'.$key} = $changeHash{$key};
                                   if ($changeHash{$key}) {
                                       $newenvhash{'environment.canrequest.author'} = 1;
                                   } else {
                                       $newenvhash{'environment.canrequest.author'} =
             &Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},
                                               $key,'reload','requestauthor');
                                   }
                             } elsif ($key ne 'quota') {                              } elsif ($key ne 'quota') {
                                 $newenvhash{'environment.tools.'.$key} =                                   $newenvhash{'environment.tools.'.$key} = 
                                     $changeHash{'tools.'.$key};                                      $changeHash{'tools.'.$key};
Line 2501  sub update_user_data { Line 3343  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 2511  sub update_user_data { Line 3354  sub update_user_data {
                     }                      }
                 }                  }
             }              }
             if ($namechanged) {              if (keys(%namechanged) > 0) {
             # Make the change                  foreach my $field (@userinfo) {
                       $changeHash{$field}  = $env{'form.c'.$field};
                   }
   # Make the change
                 $namechgresult =                  $namechgresult =
                     &Apache::lonnet::modifyuser($env{'form.ccdomain'},                      &Apache::lonnet::modifyuser($env{'form.ccdomain'},
                         $env{'form.ccuname'},$changeHash{'id'},undef,undef,                          $env{'form.ccuname'},$changeHash{'id'},undef,undef,
                         $changeHash{'firstname'},$changeHash{'middlename'},                          $changeHash{'firstname'},$changeHash{'middlename'},
                         $changeHash{'lastname'},$changeHash{'generation'},                          $changeHash{'lastname'},$changeHash{'generation'},
                         $changeHash{'id'},undef,$changeHash{'permanentemail'});                          $changeHash{'id'},undef,$changeHash{'permanentemail'},undef,\@userinfo);
                 %userupdate = (                  %userupdate = (
                                lastname   => $env{'form.clastname'},                                 lastname   => $env{'form.clastname'},
                                middlename => $env{'form.cmiddlename'},                                 middlename => $env{'form.cmiddlename'},
Line 2527  sub update_user_data { Line 3373  sub update_user_data {
                                id         => $env{'form.cid'},                                 id         => $env{'form.cid'},
                              );                               );
             }              }
             if (($namechanged && $namechgresult eq 'ok') ||               if (((keys(%namechanged) > 0) && $namechgresult eq 'ok') || 
                 ((keys(%changed) > 0) && $chgresult eq 'ok')) {                  ((keys(%changed) > 0) && $chgresult eq 'ok')) {
             # Tell the user we changed the name              # Tell the user we changed the name
  my %lt=&Apache::lonlocal::texthash(                  &display_userinfo($r,1,\@disporder,\%canshow,\@requestcourses,
                              'uic'        => 'User Information Changed',                                    \@usertools,\@requestauthor,\%userenv,\%changed,\%namechanged,
                              'frst'       => 'First Name',                                    \%oldsettings, \%oldsettingstext,\%newsettings,
                              'mddl'       => 'Middle Name',                                    \%newsettingstext);
                              'lst'        => 'Last Name',  
                              'gen'        => 'Generation',  
                              'id'         => 'Student/Employee ID',  
                              'mail'       => 'Permanent e-mail address',  
                              'disk'       => 'Disk space allocated to portfolio files',  
                              'blog'       => 'Blog Availability',  
                              'aboutme'    => 'Personal Information Page Availability',  
                              'portfolio'  => 'Portfolio Availability',  
                              'official'   => 'Can Request Official Courses',  
                              'unofficial' => 'Can Request Unofficial Courses',  
                              'community'  => 'Can Request Communities',  
                              'inststatus' => "Affiliation",  
                              'prvs'       => 'Previous Value:',  
                              'chto'       => 'Changed To:'  
    );  
                 $r->print('<h4>'.$lt{'uic'}.'</h4>'.  
                           &Apache::loncommon::start_data_table().  
                           &Apache::loncommon::start_data_table_header_row());  
                 $r->print(<<"END");  
     <th>&nbsp;</th>  
     <th>$lt{'frst'}</th>  
     <th>$lt{'mddl'}</th>  
     <th>$lt{'lst'}</th>  
     <th>$lt{'gen'}</th>  
     <th>$lt{'id'}</th>  
     <th>$lt{'mail'}</th>  
 END  
                 if ($showinststatus) {  
                     $r->print("  
     <th>$lt{'inststatus'}</th>\n");  
                 }  
                 if ($showrequestcourses) {  
                     foreach my $item (@requestcourses) {  
                         $r->print("  
     <th>$lt{$item}</th>\n");  
                     }  
                 } elsif ($showreqotherdom) {  
                     foreach my $item (@requestcourses) {  
                         $r->print("  
     <th>$lt{$item}</th>\n");  
                     }  
                 }  
                 if ($showquota) {  
                     $r->print("  
     <th>$lt{'disk'}</th>\n");  
                 }  
                 if ($showtools) {  
                     foreach my $item (@usertools) {  
                         $r->print("  
     <th>$lt{$item}</th>\n");  
                     }  
                 }  
                 $r->print(&Apache::loncommon::end_data_table_header_row().  
                           &Apache::loncommon::start_data_table_row());  
                 $r->print(<<"END");  
     <td><b>$lt{'prvs'}</b></td>  
     <td>$userenv{'firstname'}  </td>  
     <td>$userenv{'middlename'} </td>  
     <td>$userenv{'lastname'}   </td>  
     <td>$userenv{'generation'} </td>  
     <td>$userenv{'id'}</td>  
     <td>$userenv{'permanentemail'} </td>  
 END  
                 if ($showinststatus) {  
                     $r->print("  
     <td>$oldinststatuses</td>\n");  
                 }    
                 if ($showrequestcourses) {  
                     foreach my $item (@requestcourses) {  
                         $r->print("  
     <td>$oldaccess{$item} $oldaccesstext{$item}</td>\n");  
                     }  
                 } elsif ($showreqotherdom) {  
                     foreach my $item (@requestcourses) {  
                         $r->print("  
     <td>$oldaccess{$item} $oldaccesstext{$item}</td>\n");  
                     }  
                 }  
                 if ($showquota) {  
                     $r->print("  
     <td>$oldportfolioquota Mb $olddefquotatext </td>\n");  
                 }  
                 if ($showtools) {  
                     foreach my $item (@usertools) {  
                         $r->print("  
     <td>$oldaccess{$item} $oldaccesstext{$item} </td>\n");  
                     }  
                 }  
                 $r->print(&Apache::loncommon::end_data_table_row().  
                           &Apache::loncommon::start_data_table_row());  
                 $r->print(<<"END");  
     <td><span class="LC_nobreak"><b>$lt{'chto'}</b></span></td>  
     <td>$env{'form.cfirstname'}  </td>  
     <td>$env{'form.cmiddlename'} </td>  
     <td>$env{'form.clastname'}   </td>  
     <td>$env{'form.cgeneration'} </td>  
     <td>$env{'form.cid'} </td>  
     <td>$env{'form.cpermanentemail'} </td>  
 END  
                 if ($showinststatus) {  
                     $r->print("  
     <td>$newinststatuses</td>\n");  
                 }  
                 if ($showrequestcourses) {  
                     foreach my $item (@requestcourses) {  
                         $r->print("  
     <td>$newaccess{$item} $newaccesstext{$item} </td>\n");  
                     }  
                 } elsif ($showreqotherdom) {  
                     foreach my $item (@requestcourses) {  
                         $r->print("  
     <td>$newaccess{$item} $newaccesstext{$item} </td>\n");  
                     }  
                 }  
                 if ($showquota) {  
                     $r->print("  
     <td>$newportfolioquota Mb $newdefquotatext </td>\n");  
                 }  
                 if ($showtools) {  
                     foreach my $item (@usertools) {  
                         $r->print("  
     <td>$newaccess{$item} $newaccesstext{$item} </td>\n");  
                     }  
                 }  
                 $r->print(&Apache::loncommon::end_data_table_row().  
                           &Apache::loncommon::end_data_table().'<br />');  
                 if ($env{'form.cid'} ne $userenv{'id'}) {                  if ($env{'form.cid'} ne $userenv{'id'}) {
                     &Apache::lonnet::idput($env{'form.ccdomain'},                      &Apache::lonnet::idput($env{'form.ccdomain'},
                          ($env{'form.ccuname'} => $env{'form.cid'}));                           {$env{'form.ccuname'} => $env{'form.cid'}});
                     if (($recurseid) &&                      if (($recurseid) &&
                         (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) {                          (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) {
                         my $idresult =                           my $idresult = 
Line 2681  END Line 3401  END
                     &Apache::lonnet::appenv(\%newenvhash);                      &Apache::lonnet::appenv(\%newenvhash);
                 }                  }
             } else { # error occurred              } else { # error occurred
                 $r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '.                  $r->print(
                       $env{'form.ccuname'}.' '.&mt('in domain').' '.                      '<p class="LC_error">'
                       $env{'form.ccdomain'}.'</span><br />');                     .&mt('Unable to successfully change environment for [_1] in domain [_2].',
                               '"'.$env{'form.ccuname'}.'"',
                               '"'.$env{'form.ccdomain'}.'"')
                      .'</p>');
             }              }
         }  else { # End of if ($env ... ) logic          } else { # End of if ($env ... ) logic
             # They did not want to change the users name, quota, tool availability,              # They did not want to change the users name, quota, tool availability,
             # or ability to request creation of courses,               # or ability to request creation of courses, 
             # but we can still tell them what the name and quota and availabilities are                # but we can still tell them what the name and quota and availabilities are  
     my %lt=&Apache::lonlocal::texthash(              &display_userinfo($r,undef,\@disporder,\%canshow,\@requestcourses,
                            'id'         => "Student/Employee ID",                                \@usertools,\@requestauthor,\%userenv,\%changed,\%namechanged,\%oldsettings,
                            'mail'       => "Permanent e-mail address",                                \%oldsettingstext,\%newsettings,\%newsettingstext);
                            'disk'       => "Disk space allocated to user's portfolio files",  
                            'blog'       => "Blog Availability",  
                            'aboutme'    => "Personal Information Page Availability",  
                            'portfolio'  => "Portfolio Availability",  
                            'official'   => "Can Request Official Courses",  
                            'unofficial' => "Can Request Unofficial Courses",  
                            'community'  => "Can Request Communities",  
                            'inststatus' => "Affiliation",  
        );  
             $r->print(<<"END");  
 <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} $userenv{'generation'}  
 END  
             if ($userenv{'permanentemail'} ne '') {  
                 $r->print('<br />['.$lt{'mail'}.': '.  
                           $userenv{'permanentemail'}.']');  
             }  
             if ($showinststatus) {  
                 $r->print('<br />['.$lt{'inststatus'}.': '.$oldinststatuses.']');  
             }  
             if ($showrequestcourses) {  
                 foreach my $item (@requestcourses) {  
                     $r->print('<br />['.$lt{$item}.': '.$newaccess{$item}.' '.  
                               $newaccesstext{$item}.']'."\n");  
                 }  
             } elsif ($showreqotherdom) {  
                 foreach my $item (@requestcourses) {  
                     $r->print('<br />['.$lt{$item}.': '.$newaccess{$item}.' '.  
                               $newaccesstext{$item}.']'."\n");  
                 }  
             }  
             if ($showtools) {  
                 foreach my $item (@usertools) {  
                     $r->print('<br />['.$lt{$item}.': '.$newaccess{$item}.' '.  
                               $newaccesstext{$item}.']'."\n");  
                 }  
             }  
             if ($showquota) {  
                 $r->print('<br />['.$lt{'disk'}.': '.$oldportfolioquota.' Mb '.  
                           $olddefquotatext.']');  
             }  
             $r->print('</h4>');  
         }          }
         if (@mod_disallowed) {          if (@mod_disallowed) {
             my ($rolestr,$contextname);              my ($rolestr,$contextname);
Line 2742  END Line 3424  END
                 $rolestr = &mt('No roles');                  $rolestr = &mt('No roles');
             }              }
             if ($context eq 'course') {              if ($context eq 'course') {
                 $contextname = &mt('course');                  $contextname = 'course';
             } elsif ($context eq 'author') {              } elsif ($context eq 'author') {
                 $contextname = &mt('co-author');                  $contextname = 'co-author';
             }              }
             $r->print(&mt('The following fields were not updated: ').'<ul>');              $r->print(&mt('The following fields were not updated: ').'<ul>');
             my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();              my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
Line 2753  END Line 3435  END
             }              }
             $r->print('</ul>');              $r->print('</ul>');
             if (@mod_disallowed == 1) {              if (@mod_disallowed == 1) {
                 $r->print(&mt("You do not have the authority to change this field given the user's current set of active/future [_1] roles:",$contextname));                  $r->print(&mt("You do not have the authority to change this field given the user's current set of active/future $contextname roles:"));
             } else {              } else {
                 $r->print(&mt("You do not have the authority to change these fields given the user's current set of active/future [_1] roles:",$contextname));                  $r->print(&mt("You do not have the authority to change these fields given the user's current set of active/future $contextname roles:"));
             }              }
             my $helplink = 'javascript:helpMenu('."'display'".')';              my $helplink = 'javascript:helpMenu('."'display'".')';
             $r->print('<span class="LC_cusr_emph">'.$rolestr.'</span><br />'              $r->print('<span class="LC_cusr_emph">'.$rolestr.'</span><br />'
Line 2768  END Line 3450  END
                   .&Apache::lonuserutils::print_namespacing_alerts($env{'form.ccdomain'},\%alerts,\%curr_rules)                    .&Apache::lonuserutils::print_namespacing_alerts($env{'form.ccdomain'},\%alerts,\%curr_rules)
                   .'</span>');                    .'</span>');
     }      }
       &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
     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,
         $r->print('<p><a href="javascript:backPage(document.userupdate)">'.                                 $crstype,$showcredits,$defaultcredits);
                   &mt('Enroll Another Student').'</a></p>');          my $linktext = ($crstype eq 'Community' ?
               &mt('Enroll Another Member') : &mt('Enroll Another Student'));
           $r->print(
               &Apache::lonhtmlcommon::actionbox([
                   '<a href="javascript:backPage(document.userupdate)">'
                  .($crstype eq 'Community' ? 
                       &mt('Enroll Another Member') : &mt('Enroll Another Student'))
                  .'</a>']));
     } else {      } else {
         my @rolechanges = &update_roles($r,$context);          my @rolechanges = &update_roles($r,$context,$showcredits);
         if ($namechanged) {          if (keys(%namechanged) > 0) {
             if ($context eq 'course') {              if ($context eq 'course') {
                 if (@userroles > 0) {                  if (@userroles > 0) {
                     if ((@rolechanges == 0) ||                       if ((@rolechanges == 0) || 
Line 2794  END Line 3484  END
         if ($env{'form.popup'}) {          if ($env{'form.popup'}) {
             $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');              $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');
         } else {          } else {
             $r->print('<p><a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'              $r->print('<br />'.&Apache::lonhtmlcommon::actionbox(['<a href="javascript:backPage(document.userupdate,'."'$env{'form.prevphase'}','modify'".')">'
                      .&mt('Modify this user: [_1]','<span class="LC_cusr_emph">'.$env{'form.ccuname'}.':'.$env{'form.ccdomain'}.' ('.$userinfo.')</span>').'</a>'                       .&mt('Modify this user: [_1]','<span class="LC_cusr_emph">'.$env{'form.ccuname'}.':'.$env{'form.ccdomain'}.' ('.$userinfo.')</span>').'</a>',
                      .('&nbsp;'x5).'<a href="javascript:backPage(document.userupdate)">'                       '<a href="javascript:backPage(document.userupdate)">'.&mt('Create/Modify Another User').'</a>']));
                      .&mt('Create/Modify Another User').'</a></p>');  
         }          }
     }      }
     $r->print(&Apache::loncommon::end_page());  }
   
   sub display_userinfo {
       my ($r,$changed,$order,$canshow,$requestcourses,$usertools,$requestauthor,
           $userenv,$changedhash,$namechangedhash,$oldsetting,$oldsettingtext,
           $newsetting,$newsettingtext) = @_;
       return unless (ref($order) eq 'ARRAY' &&
                      ref($canshow) eq 'HASH' && 
                      ref($requestcourses) eq 'ARRAY' && 
                      ref($requestauthor) eq 'ARRAY' &&
                      ref($usertools) eq 'ARRAY' && 
                      ref($userenv) eq 'HASH' &&
                      ref($changedhash) eq 'HASH' &&
                      ref($oldsetting) eq 'HASH' &&
                      ref($oldsettingtext) eq 'HASH' &&
                      ref($newsetting) eq 'HASH' &&
                      ref($newsettingtext) eq 'HASH');
       my %lt=&Apache::lonlocal::texthash(
            'ui'             => 'User Information',
            'uic'            => 'User Information Changed',
            'firstname'      => 'First Name',
            'middlename'     => 'Middle Name',
            'lastname'       => 'Last Name',
            'generation'     => 'Generation',
            'id'             => 'Student/Employee ID',
            'permanentemail' => 'Permanent e-mail address',
            'portfolioquota' => 'Disk space allocated to portfolio files',
            'authorquota'    => 'Disk space allocated to Authoring Space',
            'blog'           => 'Blog Availability',
            'webdav'         => 'WebDAV Availability',
            'aboutme'        => 'Personal Information Page Availability',
            'portfolio'      => 'Portfolio Availability',
            'official'       => 'Can Request Official Courses',
            'unofficial'     => 'Can Request Unofficial Courses',
            'community'      => 'Can Request Communities',
            'textbook'       => 'Can Request Textbook Courses',
            'requestauthor'  => 'Can Request Author Role',
            'inststatus'     => "Affiliation",
            'prvs'           => 'Previous Value:',
            'chto'           => 'Changed To:'
       );
       if ($changed) {
           $r->print('<h3>'.$lt{'uic'}.'</h3>'.
                   &Apache::loncommon::start_data_table().
                   &Apache::loncommon::start_data_table_header_row());
           $r->print("<th>&nbsp;</th>\n");
           $r->print('<th><b>'.$lt{'prvs'}.'</b></th>');
           $r->print('<th><span class="LC_nobreak"><b>'.$lt{'chto'}.'</b></span></th>');
           $r->print(&Apache::loncommon::end_data_table_header_row());
           my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id');
   
           foreach my $item (@userinfo) {
               my $value = $env{'form.c'.$item};
               #show changes only:
               unless ($value eq $userenv->{$item}){
                   $r->print(&Apache::loncommon::start_data_table_row());
                   $r->print("<td>$lt{$item}</td>\n");
                   $r->print("<td>".$userenv->{$item}."</td>\n");
                   $r->print("<td>$value </td>\n");
                   $r->print(&Apache::loncommon::end_data_table_row());
               }
           }
           foreach my $entry (@{$order}) {
               if ($canshow->{$entry}) {
                   if (($entry eq 'requestcourses') || ($entry eq 'reqcrsotherdom') || ($entry eq 'requestauthor')) {
                       my @items;
                       if ($entry eq 'requestauthor') {
                           @items = ($entry);
                       } else {
                           @items = @{$requestcourses};
                       }
                       foreach my $item (@items) {
                           if (($newsetting->{$item} ne $oldsetting->{$item}) || 
                               ($newsettingtext->{$item} ne $oldsettingtext->{$item})) {
                               $r->print(&Apache::loncommon::start_data_table_row()."\n");  
                               $r->print("<td>$lt{$item}</td>\n");
                               $r->print("<td>".$oldsetting->{$item});
                               if ($oldsettingtext->{$item}) {
                                   if ($oldsetting->{$item}) {
                                       $r->print(' -- ');
                                   }
                                   $r->print($oldsettingtext->{$item});
                               }
                               $r->print("</td>\n");
                               $r->print("<td>".$newsetting->{$item});
                               if ($newsettingtext->{$item}) {
                                   if ($newsetting->{$item}) {
                                       $r->print(' -- ');
                                   }
                                   $r->print($newsettingtext->{$item});
                               }
                               $r->print("</td>\n");
                               $r->print(&Apache::loncommon::end_data_table_row()."\n");
                           }
                       }
                   } elsif ($entry eq 'tools') {
                       foreach my $item (@{$usertools}) {
                           if ($newsetting->{$item} ne $oldsetting->{$item}) {
                               $r->print(&Apache::loncommon::start_data_table_row()."\n");
                               $r->print("<td>$lt{$item}</td>\n");
                               $r->print("<td>".$oldsetting->{$item}.' '.$oldsettingtext->{$item}."</td>\n");
                               $r->print("<td>".$newsetting->{$item}.' '.$newsettingtext->{$item}."</td>\n");
                               $r->print(&Apache::loncommon::end_data_table_row()."\n");
                           }
                       }
                   } elsif ($entry eq 'quota') {
                       if ((ref($oldsetting->{$entry}) eq 'HASH') && (ref($oldsettingtext->{$entry}) eq 'HASH') &&
                           (ref($newsetting->{$entry}) eq 'HASH') && (ref($newsettingtext->{$entry}) eq 'HASH')) {
                           foreach my $name ('portfolio','author') {
                               if ($newsetting->{$entry}->{$name} ne $oldsetting->{$entry}->{$name}) {
                                   $r->print(&Apache::loncommon::start_data_table_row()."\n");
                                   $r->print("<td>$lt{$name.$entry}</td>\n");
                                   $r->print("<td>".$oldsettingtext->{$entry}->{$name}."</td>\n");
                                   $r->print("<td>".$newsettingtext->{$entry}->{$name}."</td>\n");
                                   $r->print(&Apache::loncommon::end_data_table_row()."\n");
                               }
                           }
                       }
                   } else {
                       if ($newsetting->{$entry} ne $oldsetting->{$entry}) {
                           $r->print(&Apache::loncommon::start_data_table_row()."\n");
                           $r->print("<td>$lt{$entry}</td>\n");
                           $r->print("<td>".$oldsetting->{$entry}.' '.$oldsettingtext->{$entry}."</td>\n");
                           $r->print("<td>".$newsetting->{$entry}.' '.$newsettingtext->{$entry}."</td>\n");
                           $r->print(&Apache::loncommon::end_data_table_row()."\n");
                       }
                   }
               }
           }
           $r->print(&Apache::loncommon::end_data_table().'<br />');
       } else {
           $r->print('<h3>'.$lt{'ui'}.'</h3>'.
                     '<p>'.&mt('No changes made to user information').'</p>');
       }
       return;
 }  }
   
 sub tool_changes {  sub tool_changes {
Line 2812  sub tool_changes { Line 3635  sub tool_changes {
           (ref($newaccess) eq 'HASH') && (ref($newaccesstext) eq 'HASH'))) {            (ref($newaccess) eq 'HASH') && (ref($newaccesstext) eq 'HASH'))) {
         return;          return;
     }      }
       my %reqdisplay = &requestchange_display();
     if ($context eq 'reqcrsotherdom') {      if ($context eq 'reqcrsotherdom') {
         my @options = ('approval','validate','autolimit');          my @options = ('approval','validate','autolimit');
         my $optregex = join('|',@options);          my $optregex = join('|',@options);
         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("availability set to 'off'");
               $newaccesstext->{$tool} = $oldaccesstext->{$tool};
             $changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};              $changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};
               my ($newop,$limit);
               if ($env{'form.'.$context.'_'.$tool}) {
                   $newop = $env{'form.'.$context.'_'.$tool};
                   if ($newop eq 'autolimit') {
                       $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');                          if ($newop =~ /^autolimit/) {
                               if ($limit) {
                                   $newaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$limit);
                               } else {
                                   $newaccesstext->{$tool} = &mt('available with automatic approval (unlimited)');
                               }
                           } else {
                               $newaccesstext->{$tool} = $reqdisplay{$newop};
                           }
                     } else {                      } else {
                         $newaccesstext->{$tool} = $oldaccesstext->{$tool};                          $newaccesstext->{$tool} = $oldaccesstext->{$tool};
                     }                      }
Line 2834  sub tool_changes { Line 3675  sub tool_changes {
                 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 .= '=';                          my $oldop = $1;
                     unless ($env{'form.'.$context.'_'.$tool.'_limit'} =~ /\D/) {                          if ($oldop =~ /^autolimit=(\d*)/) {
                         $newop .= $env{'form.'.$context.'_'.$tool.'_limit'};                              my $limit = $1;
                     }                              if ($limit) {
                 }                                    $oldaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$limit);
                 if (grep(/^\Q$cdom:($optregex\=?\d*)\E$/,@curr)) {                              } else {
                     $oldaccesstext->{$tool} = &mt('yes');                                  $oldaccesstext->{$tool} = &mt('available with automatic approval (unlimited)');
                     my $oldop = $1;  
                     if ($oldop ne $newop) {  
                         $changedoms = 1;  
                         foreach my $dom (@curr) {  
                             unless ($dom eq $cdom) {  
                                 push(@new,$dom);  
                             }                              }
                           } else {
                               $oldaccesstext->{$tool} = $reqdisplay{$oldop};
                         }                          }
                         if ($newop) {                          if ($oldop ne $newop) {
                             push(@new,$cdom.':'.$newop);                              $changedoms = 1;
                               foreach my $item (@curr) {
                                   my ($reqdom,$option) = split(':',$item);
                                   unless ($reqdom eq $cdom) {
                                       push(@new,$item);
                                   }
                               }
                               if ($newop) {
                                   push(@new,$cdom.':'.$newop);
                               }
                               @new = sort(@new);
                         }                          }
                         @new = sort(@new);                          last;
                     }                      }
                 } elsif ($env{'form.'.$context.'_'.$tool}) {                  }
                   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) {
                         $newdomstr = join(',',@new);                          $newdomstr = join(',',@new);
                     }                      }
Line 2871  sub tool_changes { Line 3718  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('available with automatic approval, 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('available with automatic approval (unlimited)');
                                 }                                  }
                             } else {                                } else {
                                 $newaccesstext->{$tool} = $reqdisplay{$env{'form.'.$context.'_'.$tool}};                                  $newaccesstext->{$tool} = $reqdisplay{$env{'form.'.$context.'_'.$tool}};
                             }                              }
                         } else {                          } else {
                             $newaccesstext->{$tool} = &mt('No');                              $newaccesstext->{$tool} = &mt("availability set to 'off'");
                         }                          }
                     }                      }
                 }                  }
Line 2889  sub tool_changes { Line 3738  sub tool_changes {
         return;          return;
     }      }
     foreach my $tool (@{$usertools}) {      foreach my $tool (@{$usertools}) {
         my $newval;          my ($newval,$limit,$envkey);
           $envkey = $context.'.'.$tool;
         if ($context eq 'requestcourses') {          if ($context eq 'requestcourses') {
             $newval = $env{'form.crsreq_'.$tool};              $newval = $env{'form.crsreq_'.$tool};
             if ($newval eq 'autolimit') {              if ($newval eq 'autolimit') {
                 $newval .= '='.$env{'form.crsreq_'.$tool.'_limit'};                  $limit = $env{'form.crsreq_'.$tool.'_limit'};
             }                  $limit =~ s/\D+//g;
         } else {                    $newval .= '='.$limit;
               }
           } elsif ($context eq 'requestauthor') {
               $newval = $env{'form.'.$context};
               $envkey = $context;
           } else {
             $newval = $env{'form.'.$context.'_'.$tool};              $newval = $env{'form.'.$context.'_'.$tool};
         }          }
         if ($userenv->{$context.'.'.$tool} ne '') {          if ($userenv->{$envkey} ne '') {
             $oldaccess->{$tool} = &mt('custom');              $oldaccess->{$tool} = &mt('custom');
             if ($userenv->{$context.'.'.$tool}) {              if (($context eq 'requestcourses') || ($context eq 'requestauthor')) {
                 $oldaccesstext->{$tool} = &mt("availability set to 'on'");                  if ($userenv->{$envkey} =~ /^autolimit=(\d*)$/) {
                       my $currlimit = $1;
                       if ($currlimit eq '') {
                           $oldaccesstext->{$tool} = &mt('available with automatic approval (unlimited)');
                       } else {
                           $oldaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$currlimit);
                       }
                   } elsif ($userenv->{$envkey}) {
                       $oldaccesstext->{$tool} = $reqdisplay{$userenv->{$envkey}};
                   } else {
                       $oldaccesstext->{$tool} = &mt("availability set to 'off'");
                   }
             } else {              } else {
                 $oldaccesstext->{$tool} = &mt("availability set to 'off'");                  if ($userenv->{$envkey}) {
                       $oldaccesstext->{$tool} = &mt("availability set to 'on'");
                   } else {
                       $oldaccesstext->{$tool} = &mt("availability set to 'off'");
                   }
             }              }
             $changeHash->{$context.'.'.$tool} = $userenv->{$context.'.'.$tool};              $changeHash->{$envkey} = $userenv->{$envkey};
             if ($env{'form.custom'.$tool} == 1) {              if ($env{'form.custom'.$tool} == 1) {
                 if ($newval ne $userenv->{$context.'.'.$tool}) {                  if ($newval ne $userenv->{$envkey}) {
                     $changed->{$tool} = &tool_admin($tool,$newval,$changeHash,                      $changed->{$tool} = &tool_admin($tool,$newval,$changeHash,
                                                     $context);                                                      $context);
                     if ($changed->{$tool}) {                      if ($changed->{$tool}) {
                         $newaccess->{$tool} = &mt('custom');                          $newaccess->{$tool} = &mt('custom');
                         if ($newval) {                          if (($context eq 'requestcourses') || ($context eq 'requestauthor')) {
                             $newaccesstext->{$tool} = &mt("availability set to 'on'");                              if ($newval =~ /^autolimit/) {
                                   if ($limit) {
                                       $newaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$limit);
                                   } else {
                                       $newaccesstext->{$tool} = &mt('available with automatic approval (unlimited)');
                                   }
                               } elsif ($newval) {
                                   $newaccesstext->{$tool} = $reqdisplay{$newval};
                               } else {
                                   $newaccesstext->{$tool} = &mt("availability set to 'off'");
                               }
                         } else {                          } else {
                             $newaccesstext->{$tool} = &mt("availability set to 'off'");                              if ($newval) {
                                   $newaccesstext->{$tool} = &mt("availability set to 'on'");
                               } else {
                                   $newaccesstext->{$tool} = &mt("availability set to 'off'");
                               }
                         }                          }
                     } else {                      } else {
                         $newaccess->{$tool} = $oldaccess->{$tool};                          $newaccess->{$tool} = $oldaccess->{$tool};
                         if ($userenv->{$context.'.'.$tool}) {                          if (($context eq 'requestcourses') || ($context eq 'requestauthor')) {
                             $newaccesstext->{$tool} = &mt("availability set to 'on'");                              if ($newval =~ /^autolimit/) {
                                   if ($limit) {
                                       $newaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$limit);
                                   } else {
                                       $newaccesstext->{$tool} = &mt('available with automatic approval (unlimited)');
                                   }
                               } elsif ($newval) {
                                   $newaccesstext->{$tool} = $reqdisplay{$newval};
                               } else {
                                   $newaccesstext->{$tool} = &mt("availability set to 'off'");
                               }
                         } else {                          } else {
                             $newaccesstext->{$tool} = &mt("availability set to 'off'");                              if ($userenv->{$context.'.'.$tool}) {
                                   $newaccesstext->{$tool} = &mt("availability set to 'on'");
                               } else {
                                   $newaccesstext->{$tool} = &mt("availability set to 'off'");
                               }
                         }                          }
                     }                      }
                 } else {                  } else {
Line 2935  sub tool_changes { Line 3833  sub tool_changes {
                     $newaccess->{$tool} = &mt('default');                      $newaccess->{$tool} = &mt('default');
                 } else {                  } else {
                     $newaccess->{$tool} = $oldaccess->{$tool};                      $newaccess->{$tool} = $oldaccess->{$tool};
                     if ($userenv->{$context.'.'.$tool}) {                      if (($context eq 'requestcourses') || ($context eq 'requestauthor')) {
                         $newaccesstext->{$tool} = &mt("availability set to 'on'");                          if ($newval =~ /^autolimit/) {
                               if ($limit) {
                                   $newaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$limit);
                               } else {
                                   $newaccesstext->{$tool} = &mt('available with automatic approval (unlimited)');
                               }
                           } elsif ($newval) {
                               $newaccesstext->{$tool} = $reqdisplay{$newval};
                           } else {
                               $newaccesstext->{$tool} = &mt("availability set to 'off'");
                           }
                     } else {                      } else {
                         $newaccesstext->{$tool} = &mt("availability set to 'off'");                          if ($userenv->{$context.'.'.$tool}) {
                               $newaccesstext->{$tool} = &mt("availability set to 'on'");
                           } else {
                               $newaccesstext->{$tool} = &mt("availability set to 'off'");
                           }
                     }                      }
                 }                  }
             }              }
Line 2949  sub tool_changes { Line 3861  sub tool_changes {
                                                 $context);                                                  $context);
                 if ($changed->{$tool}) {                  if ($changed->{$tool}) {
                     $newaccess->{$tool} = &mt('custom');                      $newaccess->{$tool} = &mt('custom');
                     if ($newval) {                      if (($context eq 'requestcourses') || ($context eq 'requestauthor')) {
                         $newaccesstext->{$tool} = &mt("availability set to 'on'");                          if ($newval =~ /^autolimit/) {
                               if ($limit) {
                                   $newaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$limit);
                               } else {
                                   $newaccesstext->{$tool} = &mt('available with automatic approval (unlimited)');
                               }
                           } elsif ($newval) {
                               $newaccesstext->{$tool} = $reqdisplay{$newval};
                           } else {
                               $newaccesstext->{$tool} = &mt("availability set to 'off'");
                           }
                     } else {                      } else {
                         $newaccesstext->{$tool} = &mt("availability set to 'off'");                          if ($newval) {
                               $newaccesstext->{$tool} = &mt("availability set to 'on'");
                           } else {
                               $newaccesstext->{$tool} = &mt("availability set to 'off'");
                           }
                     }                      }
                 } else {                  } else {
                     $newaccess->{$tool} = $oldaccess->{$tool};                      $newaccess->{$tool} = $oldaccess->{$tool};
Line 2966  sub tool_changes { Line 3892  sub tool_changes {
 }  }
   
 sub update_roles {  sub update_roles {
     my ($r,$context) = @_;      my ($r,$context,$showcredits) = @_;
     my $now=time;      my $now=time;
     my @rolechanges;      my @rolechanges;
     my %disallowed;      my %disallowed;
     $r->print('<h3>'.&mt('Modifying Roles').'</h3>');      $r->print('<h3>'.&mt('Modifying Roles').'</h3>');
     foreach my $key (keys (%env)) {      foreach my $key (keys(%env)) {
  next if (! $env{$key});   next if (! $env{$key});
         next if ($key eq 'form.action');          next if ($key eq 'form.action');
  # Revoke roles   # Revoke roles
Line 2983  sub update_roles { Line 3909  sub update_roles {
     &Apache::lonnet::revokerole($env{'form.ccdomain'},      &Apache::lonnet::revokerole($env{'form.ccdomain'},
  $env{'form.ccuname'},   $env{'form.ccuname'},
  $scope,$role,'','',$context);   $scope,$role,'','',$context);
         $r->print(&mt('Revoking [_1] in [_2]: [_3]',                  $r->print(&Apache::lonhtmlcommon::confirm_success(
       $role,$scope,'<b>'.$result.'</b>').'<br />');                              &mt('Revoking [_1] in [_2]',
                                   &Apache::lonnet::plaintext($role),
                                   &Apache::loncommon::show_role_extent($scope,$context,$role)),
                                   $result ne "ok").'<br />');
                   if ($result ne "ok") {
                       $r->print(&mt('Error: [_1]',$result).'<br />');
                   }
  if ($role eq 'st') {   if ($role eq 'st') {
     my $result =       my $result = 
                         &Apache::lonuserutils::classlist_drop($scope,                          &Apache::lonuserutils::classlist_drop($scope,
                             $env{'form.ccuname'},$env{'form.ccdomain'},                              $env{'form.ccuname'},$env{'form.ccdomain'},
     $now);      $now);
     $r->print($result);                      $r->print(&Apache::lonhtmlcommon::confirm_success($result));
  }   }
                 if (!grep(/^\Q$role\E$/,@rolechanges)) {                  if (!grep(/^\Q$role\E$/,@rolechanges)) {
                     push(@rolechanges,$role);                      push(@rolechanges,$role);
Line 2998  sub update_roles { Line 3930  sub update_roles {
     }      }
     if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}s) {      if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}s) {
 # Revoke custom role  # Revoke custom role
  $r->print(&mt('Revoking custom role:').                  my $result = &Apache::lonnet::revokecustomrole(
                       ' '.$4.' by '.$3.':'.$2.' in '.$1.': <b>'.                      $env{'form.ccdomain'},$env{'form.ccuname'},$1,$2,$3,$4,'','',$context);
                       &Apache::lonnet::revokecustomrole($env{'form.ccdomain'},                  $r->print(&Apache::lonhtmlcommon::confirm_success(
   $env{'form.ccuname'},$1,$2,$3,$4,'','',$context).                              &mt('Revoking custom role [_1] by [_2] in [_3]',
  '</b><br />');                                  $4,$3.':'.$2,&Apache::loncommon::show_role_extent($1,$context,'cr')),
                               $result ne 'ok').'<br />');
                   if ($result ne "ok") {
                       $r->print(&mt('Error: [_1]',$result).'<br />');
                   }
                 if (!grep(/^cr$/,@rolechanges)) {                  if (!grep(/^cr$/,@rolechanges)) {
                     push(@rolechanges,'cr');                      push(@rolechanges,'cr');
                 }                  }
Line 3016  sub update_roles { Line 3952  sub update_roles {
  $env{'form.ccuname'},   $env{'form.ccuname'},
  $scope,$role,$now,0,1,'',   $scope,$role,$now,0,1,'',
                                                 $context);                                                  $context);
         $r->print(&mt('Deleting [_1] in [_2]: [_3]',$role,$scope,                  $r->print(&Apache::lonhtmlcommon::confirm_success(
       '<b>'.$result.'</b>').'<br />');                              &mt('Deleting [_1] in [_2]',
                                   &Apache::lonnet::plaintext($role),
                                   &Apache::loncommon::show_role_extent($scope,$context,$role)),
                               $result ne 'ok').'<br />');
                   if ($result ne "ok") {
                       $r->print(&mt('Error: [_1]',$result).'<br />');
                   }
   
  if ($role eq 'st') {   if ($role eq 'st') {
     my $result =       my $result = 
                         &Apache::lonuserutils::classlist_drop($scope,                          &Apache::lonuserutils::classlist_drop($scope,
                             $env{'form.ccuname'},$env{'form.ccdomain'},                              $env{'form.ccuname'},$env{'form.ccdomain'},
     $now);      $now);
     $r->print($result);      $r->print(&Apache::lonhtmlcommon::confirm_success($result));
  }   }
                 if (!grep(/^\Q$role\E$/,@rolechanges)) {                  if (!grep(/^\Q$role\E$/,@rolechanges)) {
                     push(@rolechanges,$role);                      push(@rolechanges,$role);
Line 3032  sub update_roles { Line 3975  sub update_roles {
     if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {      if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
                 my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);                  my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
 # Delete custom role  # Delete custom role
                 $r->print(&mt('Deleting custom role [_1] by [_2] in [_3]',                  my $result =
                       $rolename,$rnam.':'.$rdom,$url).': <b>'.                      &Apache::lonnet::assigncustomrole($env{'form.ccdomain'},
                       &Apache::lonnet::assigncustomrole($env{'form.ccdomain'},                          $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,
                          $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,                          0,1,$context);
                          0,1,$context).'</b><br />');                  $r->print(&Apache::lonhtmlcommon::confirm_success(&mt('Deleting custom role [_1] by [_2] in [_3]',
                         $rolename,$rnam.':'.$rdom,&Apache::loncommon::show_role_extent($1,$context,'cr')),
                         $result ne "ok").'<br />');
                   if ($result ne "ok") {
                       $r->print(&mt('Error: [_1]',$result).'<br />');
                   }
   
                 if (!grep(/^cr$/,@rolechanges)) {                  if (!grep(/^cr$/,@rolechanges)) {
                     push(@rolechanges,'cr');                      push(@rolechanges,'cr');
                 }                  }
Line 3052  sub update_roles { Line 4001  sub update_roles {
                 my $output;                  my $output;
                 if ($role eq 'st') {                  if ($role eq 'st') {
                     if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {                      if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {
                         my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3);                          my ($cdom,$cnum,$csec) = ($1,$2,$3);
                           my $credits;
                           if ($showcredits) {
                               my $defaultcredits = 
                                   &Apache::lonuserutils::get_defaultcredits($cdom,$cnum);
                               $credits = &get_user_credits($defaultcredits,$cdom,$cnum);
                           }
                           my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$cdom,$cnum,$csec,$context,$credits);
                         if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) {                          if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) {
                             if ($result eq 'refused' && $logmsg) {                              if ($result eq 'refused' && $logmsg) {
                                 $output = $logmsg;                                  $output = $logmsg;
                             } else {                               } else { 
                                 $output = "Error: $result\n";                                  $output = &mt('Error: [_1]',$result)."\n";
                             }                              }
                         } else {                          } else {
                             $output = &mt('Assigning').' '.$role.' in '.$url.                              $output = &Apache::lonhtmlcommon::confirm_success(&mt('Assigning [_1] in [_2] starting [_3]',
                                       &mt('starting').' '.localtime($now).                                          &Apache::lonnet::plaintext($role),
                                       ': <br />'.$logmsg.'<br />'.                                          &Apache::loncommon::show_role_extent($url,$context,'st'),
                                       &mt('Add to classlist').': <b>ok</b><br />';                                          &Apache::lonlocal::locallocaltime($now))).'<br />'.$logmsg.'<br />';
                         }                          }
                     }                      }
                 } else {                  } else {
     my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},      my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},
                                $env{'form.ccuname'},$url,$role,0,$now,'','',                                 $env{'form.ccuname'},$url,$role,0,$now,'','',
                                $context);                                 $context);
     $output = &mt('Re-enabling [_1] in [_2]: [_3]',                          $output = &Apache::lonhtmlcommon::confirm_success(&mt('Re-enabling [_1] in [_2]',
       $role,$url,'<b>'.$result.'</b>').'<br />';                                          &Apache::lonnet::plaintext($role),
  }                                          &Apache::loncommon::show_role_extent($url,$context,$role)),$result ne "ok").'<br />';
                       if ($result ne "ok") {
                           $output .= &mt('Error: [_1]',$result).'<br />';
                       }
                   }
                 $r->print($output);                  $r->print($output);
                 if (!grep(/^\Q$role\E$/,@rolechanges)) {                  if (!grep(/^\Q$role\E$/,@rolechanges)) {
                     push(@rolechanges,$role);                      push(@rolechanges,$role);
Line 3084  sub update_roles { Line 4044  sub update_roles {
                 my $result = &Apache::lonnet::assigncustomrole(                  my $result = &Apache::lonnet::assigncustomrole(
                                $env{'form.ccdomain'}, $env{'form.ccuname'},                                 $env{'form.ccdomain'}, $env{'form.ccuname'},
                                $url,$rdom,$rnam,$rolename,0,$now,undef,$context);                                 $url,$rdom,$rnam,$rolename,0,$now,undef,$context);
                 $r->print(&mt('Re-enabling custom role [_1] by [_2] in [_3]: [_4]',                  $r->print(&Apache::lonhtmlcommon::confirm_success(
                           $rolename,$rnam.':'.$rdom,$url,'<b>'.$result.'</b>').'<br />');                      &mt('Re-enabling custom role [_1] by [_2] in [_3]',
                           $rolename,$rnam.':'.$rdom,&Apache::loncommon::show_role_extent($1,$context,'cr')),
                       $result ne "ok").'<br />');
                   if ($result ne "ok") {
                       $r->print(&mt('Error: [_1]',$result).'<br />');
                   }
                 if (!grep(/^cr$/,@rolechanges)) {                  if (!grep(/^cr$/,@rolechanges)) {
                     push(@rolechanges,'cr');                      push(@rolechanges,'cr');
                 }                  }
Line 3114  sub update_roles { Line 4079  sub update_roles {
                 } else {                  } else {
     my %curr_groups =      my %curr_groups =
  &Apache::longroup::coursegroups($one,$two);   &Apache::longroup::coursegroups($one,$two);
                     foreach my $sec (sort {$a cmp $b} keys %sections) {                      foreach my $sec (sort {$a cmp $b} keys(%sections)) {
                         if (($sec eq 'none') || ($sec eq 'all') ||                           if (($sec eq 'none') || ($sec eq 'all') || 
                             exists($curr_groups{$sec})) {                              exists($curr_groups{$sec})) {
                             $disallowed{$sec} = $url;                              $disallowed{$sec} = $url;
Line 3142  sub update_roles { Line 4107  sub update_roles {
                 # split multiple sections                  # split multiple sections
                 my %sections = ();                  my %sections = ();
                 my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two.'_'.$three},\%sections,$three);                  my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two.'_'.$three},\%sections,$three);
                   my $credits;
                   if ($three eq 'st') {
                       if ($showcredits) { 
                           my $defaultcredits = 
                               &Apache::lonuserutils::get_defaultcredits($one,$two);
                           $credits = $env{'form.credits_'.$one.'_'.$two.'_'.$three};
                           $credits =~ s/[^\d\.]//g;
                           if ($credits eq $defaultcredits) {
                               undef($credits);
                           }
                       }
                   }
                 if ($num_sections == 0) {                  if ($num_sections == 0) {
                     $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,'',$context));                      $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,'',$context,$credits));
                 } else {                  } else {
                     my %curr_groups =                       my %curr_groups = 
  &Apache::longroup::coursegroups($one,$two);   &Apache::longroup::coursegroups($one,$two);
                     my $emptysec = 0;                      my $emptysec = 0;
                     foreach my $sec (sort {$a cmp $b} keys %sections) {                      foreach my $sec (sort {$a cmp $b} keys(%sections)) {
                         $sec =~ s/\W//g;                          $sec =~ s/\W//g;
                         if ($sec ne '') {                          if ($sec ne '') {
                             if (($sec eq 'none') || ($sec eq 'all') ||                               if (($sec eq 'none') || ($sec eq 'all') || 
Line 3157  sub update_roles { Line 4134  sub update_roles {
                                 next;                                  next;
                             }                              }
                             my $securl = $url.'/'.$sec;                              my $securl = $url.'/'.$sec;
                             $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$three,$start,$end,$one,$two,$sec,$context));                              $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$three,$start,$end,$one,$two,$sec,$context,$credits));
                         } else {                          } else {
                             $emptysec = 1;                              $emptysec = 1;
                         }                          }
                     }                      }
                     if ($emptysec) {                      if ($emptysec) {
                         $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,'',$context));                          $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,'',$context,$credits));
                     }                      }
                 }                  }
                 if (!grep(/^\Q$three\E$/,@rolechanges)) {                  if (!grep(/^\Q$three\E$/,@rolechanges)) {
Line 3188  sub update_roles { Line 4165  sub update_roles {
                     $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$two,$start,$end,$one,undef,'',$context));                      $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$two,$start,$end,$one,undef,'',$context));
                 } else {                  } else {
                     my $emptysec = 0;                      my $emptysec = 0;
                     foreach my $sec (sort {$a cmp $b} keys %sections) {                      foreach my $sec (sort {$a cmp $b} keys(%sections)) {
                         if ($sec ne '') {                          if ($sec ne '') {
                             my $securl = $url.'/'.$sec;                              my $securl = $url.'/'.$sec;
                             $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$two,$start,$end,$one,undef,$sec,$context));                              $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$two,$start,$end,$one,undef,$sec,$context));
Line 3223  sub update_roles { Line 4200  sub update_roles {
  }   }
     } # End of foreach (keys(%env))      } # End of foreach (keys(%env))
 # Flush the course logs so reverse user roles immediately updated  # Flush the course logs so reverse user roles immediately updated
     &Apache::lonnet::flushcourselogs();      $r->register_cleanup(\&Apache::lonnet::flushcourselogs);
     if (@rolechanges == 0) {      if (@rolechanges == 0) {
         $r->print(&mt('No roles to modify'));          $r->print('<p>'.&mt('No roles to modify').'</p>');
     }      }
     return @rolechanges;      return @rolechanges;
 }  }
   
   sub get_user_credits {
       my ($uname,$udom,$defaultcredits,$cdom,$cnum) = @_;
       if ($cdom eq '' || $cnum eq '') {
           return unless ($env{'request.course.id'});
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       }
       my $credits;
       my %currhash =
           &Apache::lonnet::get('classlist',[$uname.':'.$udom],$cdom,$cnum);
       if (keys(%currhash) > 0) {
           my @items = split(/:/,$currhash{$uname.':'.$udom});
           my $crdidx = &Apache::loncoursedata::CL_CREDITS() - 3;
           $credits = $items[$crdidx];
           $credits =~ s/[^\d\.]//g;
       }
       if ($credits eq $defaultcredits) {
           undef($credits);
       }
       return $credits;
   }
   
 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>');          $showcredits,$defaultcredits) = @_;
       $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;
   
       my $credits;
       if (($showcredits) && ($env{'form.credits'} ne '')) {
           $credits = $env{'form.credits'};
           $credits =~ s/[^\d\.]//g;
           if ($credits ne '') {
               if ($credits eq $defaultcredits) {
                   undef($credits);
               }
           }
       }
   
     # Clean out any old student roles the user has in this class.      # Clean out any old student roles the user has in this class.
     &Apache::lonuserutils::modifystudent($env{'form.ccdomain'},      &Apache::lonuserutils::modifystudent($env{'form.ccdomain'},
          $env{'form.ccuname'},$env{'request.course.id'},undef,$uhome);           $env{'form.ccuname'},$env{'request.course.id'},undef,$uhome);
Line 3246  sub enroll_single_student { Line 4263  sub enroll_single_student {
             $env{'form.ccuname'},$env{'form.cid'},$env{'form.cfirstname'},              $env{'form.ccuname'},$env{'form.cid'},$env{'form.cfirstname'},
             $env{'form.cmiddlename'},$env{'form.clastname'},              $env{'form.cmiddlename'},$env{'form.clastname'},
             $env{'form.generation'},$env{'form.sections'},$enddate,              $env{'form.generation'},$env{'form.sections'},$enddate,
             $startdate,'manual',undef,$env{'request.course.id'},'',$context);              $startdate,'manual',undef,$env{'request.course.id'},'',$context,
               $credits);
     if ($enroll_result =~ /^ok/) {      if ($enroll_result =~ /^ok/) {
         $r->print(&mt('<b>[_1]</b> enrolled',$env{'form.ccuname'}.':'.$env{'form.ccdomain'}));          $r->print(&mt('[_1] enrolled','<b>'.$env{'form.ccuname'}.':'.$env{'form.ccdomain'}.'</b>'));
         if ($env{'form.sections'} ne '') {          if ($env{'form.sections'} ne '') {
             $r->print(' '.&mt('in section [_1]',$env{'form.sections'}));              $r->print(' '.&mt('in section [_1]',$env{'form.sections'}));
         }          }
Line 3265  sub enroll_single_student { Line 4283  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 class="LC_info">');
               if ($crstype eq 'Community') {
                   $r->print(&mt('If the member is currently logged-in to LON-CAPA, the new role can be displayed by using the "Check for changes" link on the Roles/Courses page.'));
               } else {
                   $r->print(&mt('If the student is currently logged-in to LON-CAPA, the new role can be displayed by using the "Check for changes" link on the Roles/Courses page.'));
              }
              $r->print('</p>');
         }          }
     } else {      } else {
         $r->print(&mt('unable to enroll').": ".$enroll_result);          $r->print(&mt('unable to enroll').": ".$enroll_result);
Line 3277  sub get_defaultquota_text { Line 4301  sub get_defaultquota_text {
     my ($settingstatus) = @_;      my ($settingstatus) = @_;
     my $defquotatext;       my $defquotatext; 
     if ($settingstatus eq '') {      if ($settingstatus eq '') {
         $defquotatext = &mt('(default)');          $defquotatext = &mt('default');
     } else {      } else {
         my ($usertypes,$order) =          my ($usertypes,$order) =
             &Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});              &Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});
         if ($usertypes->{$settingstatus} eq '') {          if ($usertypes->{$settingstatus} eq '') {
             $defquotatext = &mt('(default)');              $defquotatext = &mt('default');
         } else {          } else {
             $defquotatext = &mt('(default for [_1])',$usertypes->{$settingstatus});              $defquotatext = &mt('default for [_1]',$usertypes->{$settingstatus});
         }          }
     }      }
     return $defquotatext;      return $defquotatext;
Line 3293  sub get_defaultquota_text { Line 4317  sub get_defaultquota_text {
 sub update_result_form {  sub update_result_form {
     my ($uhome) = @_;      my ($uhome) = @_;
     my $outcome =       my $outcome = 
     '<form name="userupdate" method="post" />'."\n";      '<form name="userupdate" method="post" action="">'."\n";
     foreach my $item ('srchby','srchin','srchtype','srchterm','srchdomain','ccuname','ccdomain') {      foreach my $item ('srchby','srchin','srchtype','srchterm','srchdomain','ccuname','ccdomain') {
         $outcome .= '<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n";          $outcome .= '<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n";
     }      }
Line 3309  sub update_result_form { Line 4333  sub update_result_form {
         $outcome .= '<input type="hidden" name="forcenewuser" value="1" />'."\n";          $outcome .= '<input type="hidden" name="forcenewuser" value="1" />'."\n";
     }      }
     $outcome .= '<input type="hidden" name="phase" value="" />'."\n".      $outcome .= '<input type="hidden" name="phase" value="" />'."\n".
                 '<input type ="hidden" name="currstate" value="" />'."\n".                  '<input type="hidden" name="currstate" value="" />'."\n".
                 '<input type ="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".                  '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".
                 '</form>';                  '</form>';
     return $outcome;      return $outcome;
 }  }
   
 sub quota_admin {  sub quota_admin {
     my ($setquota,$changeHash) = @_;      my ($setquota,$changeHash,$name) = @_;
     my $quotachanged;      my $quotachanged;
     if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {      if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
         # Current user has quota modification privileges          # Current user has quota modification privileges
         if (ref($changeHash) eq 'HASH') {          if (ref($changeHash) eq 'HASH') {
             $quotachanged = 1;              $quotachanged = 1;
             $changeHash->{'portfolioquota'} = $setquota;              $changeHash->{$name.'quota'} = $setquota;
         }          }
     }      }
     return $quotachanged;      return $quotachanged;
Line 3339  sub tool_admin { Line 4363  sub tool_admin {
         if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {          if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
             $canchange = 1;              $canchange = 1;
         }          }
       } elsif ($context eq 'requestauthor') {
           if (&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) {
               $canchange = 1;
           }
     } elsif (&Apache::lonnet::allowed('mut',$env{'form.ccdomain'})) {      } elsif (&Apache::lonnet::allowed('mut',$env{'form.ccdomain'})) {
         # Current user has quota modification privileges          # Current user has quota modification privileges
         $canchange = 1;          $canchange = 1;
Line 3347  sub tool_admin { Line 4375  sub tool_admin {
     if ($canchange) {      if ($canchange) {
         if (ref($changeHash) eq 'HASH') {          if (ref($changeHash) eq 'HASH') {
             $toolchanged = 1;              $toolchanged = 1;
             $changeHash->{$context.'.'.$tool} = $settool;              if ($tool eq 'requestauthor') {
                   $changeHash->{$context} = $settool;
               } else {
                   $changeHash->{$context.'.'.$tool} = $settool;
               }
         }          }
     }      }
     return $toolchanged;      return $toolchanged;
Line 3389  sub build_roles { Line 4421  sub build_roles {
 # ========================================================== Custom Role Editor  # ========================================================== Custom Role Editor
   
 sub custom_role_editor {  sub custom_role_editor {
     my ($r) = @_;      my ($r,$context,$brcrum,$prefix,$permission) = @_;
     my $rolename=$env{'form.rolename'};      my $action = $env{'form.customroleaction'};
       my ($rolename,$helpitem);
       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';
           $helpitem = 'Course_Editing_Custom_Roles';
       } else {
           $context = 'domain';
           $crstype = 'course';
           $helpitem = 'Domain_Editing_Custom_Roles';
     }      }
   
     $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,$context,undef,undef,undef,$crstype,$brcrum,
                                      $permission);
         return;          return;
     }      }
 # ------------------------------------------------------- What can be assigned?  
     my %full=();      my $formname = 'form1';
     my %courselevel=();      my %privs=();
     my %courselevelcurrent=();      my $body_top = '<h2>';
     my $syspriv='';  # ------------------------------------------------------- Does this role exist?
     my $dompriv='';  
     my $coursepriv='';  
     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?  
     $body_top .= '<h2>';  
     if (($rdummy ne 'con_lost') && ($roledef ne '')) {      if (($rdummy ne 'con_lost') && ($roledef ne '')) {
  $body_top .= &mt('Existing Role').' "';          $body_top .= &mt('Existing Role').' "';
 # ------------------------------------------------- Get current role privileges  # ------------------------------------------------- Get current role privileges
  ($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);          ($privs{'system'},$privs{'domain'},$privs{'course'})=split(/\_/,$roledef);
           if ($privs{'system'} =~ /bre\&S/) {
               if ($context eq 'domain') {
                   $crstype = 'Course';
               } elsif ($crstype eq 'Community') {
                   $privs{'system'} =~ s/bre\&S//;
               }
           } elsif ($context eq 'domain') {
               $crstype = 'Course';
           }
     } else {      } else {
  $body_top .= &mt('New Role').' "';          $body_top .= &mt('New Role').' "';
  $roledef='';          $roledef='';
     }      }
     $body_top .= $rolename.'"</h2>';      $body_top .= $rolename.'"</h2>';
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {  
  my ($priv,$restrict)=split(/\&/,$item);  
         if (!$restrict) { $restrict='F'; }  
         $courselevel{$priv}=$restrict;  
         if ($coursepriv=~/\:$priv/) {  
     $courselevelcurrent{$priv}=1;  
  }  
  $full{$priv}=1;  
     }  
     my %domainlevel=();  
     my %domainlevelcurrent=();  
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {  
  my ($priv,$restrict)=split(/\&/,$item);  
         if (!$restrict) { $restrict='F'; }  
         $domainlevel{$priv}=$restrict;  
         if ($dompriv=~/\:$priv/) {  
     $domainlevelcurrent{$priv}=1;  
  }  
  $full{$priv}=1;  
     }  
     my %systemlevel=();  
     my %systemlevelcurrent=();  
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {  
  my ($priv,$restrict)=split(/\&/,$item);  
         if (!$restrict) { $restrict='F'; }  
         $systemlevel{$priv}=$restrict;  
         if ($syspriv=~/\:$priv/) {  
     $systemlevelcurrent{$priv}=1;  
  }  
  $full{$priv}=1;  
     }  
     my ($jsback,$elements) = &crumb_utilities();  
     my $button_code = "\n";  
     my $head_script = "\n";  
     $head_script .= '<script type="text/javascript">'."\n"  
                    .'// <![CDATA['."\n";  
     my @template_roles = ("cc","in","ta","ep","st");  
     foreach my $role (@template_roles) {  
         $head_script .= &make_script_template($role);  
         $button_code .= &make_button_code($role).' ';  
     }  
     $head_script .= "\n".$jsback."\n"  
                    .'// ]]>'."\n"  
                    .'</script>'."\n";  
     $r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));  
    &Apache::lonhtmlcommon::add_breadcrumb  
      ({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',});  
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',  
                                                   'Course_Editing_Custom_Roles'));  
   
     $r->print($body_top);  # ------------------------------------------------------- What can be assigned?
     my %lt=&Apache::lonlocal::texthash(      my %full=();
     'prv'  => "Privilege",      my %levels=(
     'crl'  => "Course Level",                   course => {},
                     'dml'  => "Domain Level",                   domain => {},
                     'ssl'  => "System Level");                   system => {},
                  );
     $r->print('<div>'      my %levelscurrent=(
              .'<form action=""><fieldset>'                          course => {},
              .'<legend>'.&mt('Select a Template').'</legend>'                          domain => {},
              .$button_code                          system => {},
              .'</fieldset></form>'                        );
              .'</div>'      &Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);
     );      my ($jsback,$elements) = &crumb_utilities();
       my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);
       my $head_script =
           &Apache::lonuserutils::custom_roledefs_js($context,$crstype,$formname,
                                                     \%full,\@templateroles,$jsback);
       push (@{$brcrum},
                 {href => "javascript:backPage(document.$formname,'pickrole','')",
                  text => "Pick custom role",
                  faq  => 282,bug=>'Instructor Interface',},
                 {href => "javascript:backPage(document.$formname,'','')",
                  text => "Edit custom role",
                  faq  => 282,
                  bug  => 'Instructor Interface',
                  help => $helpitem}
                 );
       my $args = { bread_crumbs          => $brcrum,
                    bread_crumbs_component => 'User Management'};
       $r->print(&Apache::loncommon::start_page('Custom Role Editor',
                                                $head_script,$args).
                 $body_top);
       $r->print('<form name="'.$formname.'" method="post" action="">'."\n".
                 &Apache::lonuserutils::custom_role_header($context,$crstype,
                                                           \@templateroles,$prefix));
   
     $r->print(<<ENDCCF);      $r->print(<<ENDCCF);
 <form name="form1" method="post">  
 <input type="hidden" name="phase" value="set_custom_roles" />  <input type="hidden" name="phase" value="set_custom_roles" />
 <input type="hidden" name="rolename" value="$rolename" />  <input type="hidden" name="rolename" value="$rolename" />
 ENDCCF  ENDCCF
     $r->print(&Apache::loncommon::start_data_table().      $r->print(&Apache::lonuserutils::custom_role_table($crstype,\%full,\%levels,
               &Apache::loncommon::start_data_table_header_row().                                                          \%levelscurrent,$prefix));
 '<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.  
 '</th><th>'.$lt{'ssl'}.'</th>'.  
               &Apache::loncommon::end_data_table_header_row());  
     foreach my $priv (sort keys %full) {  
         my $privtext = &Apache::lonnet::plaintext($priv);  
         $r->print(&Apache::loncommon::start_data_table_row().  
           '<td>'.$privtext.'</td><td>'.  
     ($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c"'.  
     ($courselevelcurrent{$priv}?' checked="checked"':'').' />':'&nbsp;').  
     '</td><td>'.  
     ($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d"'.  
     ($domainlevelcurrent{$priv}?' checked="checked"':'').' />':'&nbsp;').  
     '</td><td>'.  
     ($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s"'.  
     ($systemlevelcurrent{$priv}?' checked="checked"':'').' />':'&nbsp;').  
     '</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 {  
     my ($role) = @_;  
     my %full_c=();  
     my %full_d=();  
     my %full_s=();  
     my $return_script;  
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {  
         my ($priv,$restrict)=split(/\&/,$item);  
         $full_c{$priv}=1;  
     }  
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {  
         my ($priv,$restrict)=split(/\&/,$item);  
         $full_d{$priv}=1;  
     }  
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {  
         my ($priv,$restrict)=split(/\&/,$item);  
         $full_s{$priv}=1;  
     }  
     $return_script .= 'function set_'.$role.'() {'."\n";  
     my @temp = split(/:/,$Apache::lonnet::pr{$role.':c'});  
     my %role_c;  
     foreach my $priv (@temp) {  
         my ($priv_item, $dummy) = split(/\&/,$priv);  
         $role_c{$priv_item} = 1;  
     }  
     my %role_d;  
     @temp = split(/:/,$Apache::lonnet::pr{$role.':d'});  
     foreach my $priv(@temp) {  
         my ($priv_item, $dummy) = split(/\&/,$priv);  
         $role_d{$priv_item} = 1;  
     }  
     my %role_s;  
     @temp = split(/:/,$Apache::lonnet::pr{$role.':s'});  
     foreach my $priv(@temp) {  
         my ($priv_item, $dummy) = split(/\&/,$priv);  
         $role_s{$priv_item} = 1;  
     }  
     foreach my $priv_item (keys(%full_c)) {  
         my ($priv, $dummy) = split(/\&/,$priv_item);  
         if ((exists($role_c{$priv})) || (exists($role_d{$priv})) ||   
             (exists($role_s{$priv}))) {  
             $return_script .= "document.form1.$priv"."_c.checked = true;\n";  
         } else {  
             $return_script .= "document.form1.$priv"."_c.checked = false;\n";  
         }  
     }  
     foreach my $priv_item (keys(%full_d)) {  
         my ($priv, $dummy) = split(/\&/,$priv_item);  
         if ((exists($role_d{$priv})) || (exists($role_s{$priv}))) {  
             $return_script .= "document.form1.$priv"."_d.checked = true;\n";  
         } else {  
             $return_script .= "document.form1.$priv"."_d.checked = false;\n";  
         }  
     }  
     foreach my $priv_item (keys(%full_s)) {  
         my ($priv, $dummy) = split(/\&/,$priv_item);  
         if (exists($role_s{$priv})) {  
             $return_script .= "document.form1.$priv"."_s.checked = true;\n";  
         } else {  
             $return_script .= "document.form1.$priv"."_s.checked = false;\n";  
         }  
     }  
     $return_script .= '}'."\n";  
     return ($return_script);  
 }  
 # ----------------------------------------------------------  
 sub make_button_code {  
     my ($role) = @_;  
     my $label = &Apache::lonnet::plaintext($role);  
     my $button_code = '<input type="button" onclick="set_'.$role.'()" value="'.$label.'" />';  
     return ($button_code);  
 }  }
   
 # ---------------------------------------------------------- Call to definerole  # ---------------------------------------------------------- Call to definerole
 sub set_custom_role {  sub set_custom_role {
     my ($r,$context) = @_;      my ($r,$context,$brcrum,$prefix,$permission) = @_;
     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,$context,$brcrum,$prefix,$permission);
         return;          return;
     }      }
     my ($jsback,$elements) = &crumb_utilities();      my ($jsback,$elements) = &crumb_utilities();
Line 3615  sub set_custom_role { Line 4539  sub set_custom_role {
                  .$jsback."\n"                   .$jsback."\n"
                  .'// ]]>'."\n"                   .'// ]]>'."\n"
                  .'</script>'."\n";                   .'</script>'."\n";
       my $helpitem = 'Course_Editing_Custom_Roles';
       if ($context eq 'domain') {
           $helpitem = 'Domain_Editing_Custom_Roles';
       }
       push(@{$brcrum},
           {href => "javascript:backPage(document.customresult,'pickrole','')",
            text => "Pick custom role",
            faq  => 282,
            bug  => 'Instructor Interface',},
           {href => "javascript:backPage(document.customresult,'selected_custom_edit','')",
            text => "Edit custom role",
            faq  => 282,
            bug  => 'Instructor Interface',},
           {href => "javascript:backPage(document.customresult,'set_custom_roles','')",
            text => "Result",
            faq  => 282,
            bug  => 'Instructor Interface',
            help => $helpitem,}
           );
       my $args = { bread_crumbs           => $brcrum,
                    bread_crumbs_component => 'User Management'};
       $r->print(&Apache::loncommon::start_page('Save Custom Role',$jscript,$args));
   
     $r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);      my $newrole;
     &Apache::lonhtmlcommon::add_breadcrumb  
         ({href=>"javascript:backPage(document.customresult,'pickrole','')",  
           text=>"Pick custom role",  
           faq=>282,bug=>'Instructor Interface',},  
          {href=>"javascript:backPage(document.customresult,'selected_custom_edit','')",  
           text=>"Edit custom role",  
           faq=>282,bug=>'Instructor Interface',},  
          {href=>"javascript:backPage(document.customresult,'set_custom_roles','')",  
           text=>"Result",  
           faq=>282,bug=>'Instructor Interface',});  
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',  
                                                   'Course_Editing_Custom_Roles'));  
   
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
   
Line 3640  sub set_custom_role { Line 4573  sub set_custom_role {
     } else {      } else {
  $r->print(&mt('New Role').' "');   $r->print(&mt('New Role').' "');
  $roledef='';   $roledef='';
           $newrole = 1;
     }      }
     $r->print($rolename.'"</h3>');      $r->print($rolename.'"</h3>');
 # ------------------------------------------------------- What can be assigned?  # ------------------------------------------------- Assign role and show result
     my $sysrole='';  
     my $domrole='';  
     my $courole='';  
   
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {  
  my ($priv,$restrict)=split(/\&/,$item);  
         if (!$restrict) { $restrict=''; }  
         if ($env{'form.'.$priv.'_c'}) {  
     $courole.=':'.$item;  
  }  
     }  
   
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {  
  my ($priv,$restrict)=split(/\&/,$item);  
         if (!$restrict) { $restrict=''; }  
         if ($env{'form.'.$priv.'_d'}) {  
     $domrole.=':'.$item;  
  }  
     }  
   
     foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {      my $errmsg;
  my ($priv,$restrict)=split(/\&/,$item);      my %newprivs = &Apache::lonuserutils::custom_role_update($rolename,$prefix);
         if (!$restrict) { $restrict=''; }      # Assign role and return result
         if ($env{'form.'.$priv.'_s'}) {      my $result = &Apache::lonnet::definerole($rolename,$newprivs{'s'},$newprivs{'d'},
     $sysrole.=':'.$item;                                               $newprivs{'c'});
  }      if ($result ne 'ok') {
     }          $errmsg = ': '.$result;
     $r->print('<br />Defining Role: '.      }
    &Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));      my $message =
           &Apache::lonhtmlcommon::confirm_success(
               &mt('Defining Role').$errmsg, ($result eq 'ok' ? 0 : 1));
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         my $url='/'.$env{'request.course.id'};          my $url='/'.$env{'request.course.id'};
         $url=~s/\_/\//g;          $url=~s/\_/\//g;
  $r->print('<br />'.&mt('Assigning Role to Self').': '.          $result =
       &Apache::lonnet::assigncustomrole($env{'user.domain'},              &Apache::lonnet::assigncustomrole(
  $env{'user.name'},                  $env{'user.domain'},$env{'user.name'},
  $url,                  $url,
  $env{'user.domain'},                  $env{'user.domain'},$env{'user.name'},
  $env{'user.name'},                  $rolename,undef,undef,undef,$context);
  $rolename,undef,undef,undef,$context));          if ($result ne 'ok') {
               $errmsg = ': '.$result;
           }
           $message .=
               '<br />'
              .&Apache::lonhtmlcommon::confirm_success(
                   &mt('Assigning Role to Self').$errmsg, ($result eq 'ok' ? 0 : 1));
     }      }
     $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(
     $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');          &Apache::loncommon::confirmwrapper($message)
     $r->print(&Apache::loncommon::end_page());         .'<br />'
          .&Apache::lonhtmlcommon::actionbox([
               '<a href="javascript:backPage(document.customresult,'."'pickrole'".')">'
              .&mt('Create or edit another custom role')
              .'</a>'])
          .'<form name="customresult" method="post" action="">'
          .&Apache::lonhtmlcommon::echo_form_input([])
          .'</form>'
       );
 }  }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
Line 3696  sub handler { Line 4627  sub handler {
        $r->send_http_header;         $r->send_http_header;
        return OK;         return OK;
     }      }
     my $context;      my ($context,$crstype,$cid,$cnum,$cdom,$allhelpitems);
   
     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';
     }      }
   
       my ($permission,$allowed) =
           &Apache::lonuserutils::get_permission($context,$crstype);
   
       if ($allowed) {
           my @allhelp;
           if ($context eq 'course') {
               $cid = $env{'request.course.id'};
               $cdom = $env{'course.'.$cid.'.domain'};
               $cnum = $env{'course.'.$cid.'.num'};
   
               if ($permission->{'cusr'}) {
                   push(@allhelp,'Course_Create_Class_List');
               }
               if ($permission->{'view'} || $permission->{'cusr'}) {
                   push(@allhelp,('Course_Change_Privileges','Course_View_Class_List'));
               }
               if ($permission->{'custom'}) {
                   push(@allhelp,'Course_Editing_Custom_Roles');
               }
               if ($permission->{'cusr'}) {
                   push(@allhelp,('Course_Add_Student','Course_Drop_Student'));
               }
               unless ($permission->{'cusr_section'}) {
                   if (&Apache::lonnet::auto_run($cnum,$cdom) && (($permission->{'cusr'}) || ($permission->{'view'}))) {
                       push(@allhelp,'Course_Automated_Enrollment');
                   }
                   if ($permission->{'selfenrolladmin'}) {
                       push(@allhelp,'Course_Approve_Selfenroll');
                   }
               }
               if ($permission->{'grp_manage'}) {
                   push(@allhelp,'Course_Manage_Group');
               }
               if ($permission->{'view'} || $permission->{'cusr'}) {
                   push(@allhelp,'Course_User_Logs');
               }
           } elsif ($context eq 'author') {
               push(@allhelp,('Author_Change_Privileges','Author_Create_Coauthor_List',
                              'Author_View_Coauthor_List','Author_User_Logs'));
           } else {
               if ($permission->{'cusr'}) {
                   push(@allhelp,'Domain_Change_Privileges');
                   if ($permission->{'activity'}) {
                       push(@allhelp,'Domain_User_Access_Logs');
                   }
                   push(@allhelp,('Domain_Create_Users','Domain_View_Users_List'));
                   if ($permission->{'custom'}) {
                       push(@allhelp,'Domain_Editing_Custom_Roles');
                   }
                   push(@allhelp,('Domain_Role_Approvals','Domain_Username_Approvals','Domain_Change_Logs'));
               } elsif ($permission->{'view'}) {
                   push(@allhelp,'Domain_View_Privileges');
                   if ($permission->{'activity'}) {
                       push(@allhelp,'Domain_User_Access_Logs');
                   }
                   push(@allhelp,('Domain_View_Users_List','Domain_Change_Logs'));
               }
           }
           if (@allhelp) {
               $allhelpitems = join(',',@allhelp);
           }
       }
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
         ['action','state','callingform','roletype','showrole','bulkaction','popup','phase',          ['action','state','callingform','roletype','showrole','bulkaction','popup','phase',
          'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);           'username','domain','srchterm','srchdomain','srchin','srchby','srchtype','queue']);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     if ($env{'form.action'} ne 'dateselect') {      my $args;
         &Apache::lonhtmlcommon::add_breadcrumb      my $brcrum = [];
             ({href=>"/adm/createuser",      my $bread_crumbs_component = 'User Management';
               text=>"User Management",      if (($env{'form.action'} ne 'dateselect') && ($env{'form.action'} ne 'displayuserreq')) {
               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'});          $brcrum = [{href=>"/adm/createuser",
     }                      text=>"User Management",
     #SD Following files not added to help, because the corresponding .tex-files seem to                      help=>$allhelpitems}
     #be missing: Course_Approve_Selfenroll,Course_User_Logs,                    ];
     my ($permission,$allowed) =       }
         &Apache::lonuserutils::get_permission($context);  
     if (!$allowed) {      if (!$allowed) {
           if ($context eq 'course') {
               $r->internal_redirect('/adm/viewclasslist');
               return OK;
           }
         $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 ".
                                  "or view user status.";                                   "or view user status.";
Line 3728  sub handler { Line 4728  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 $showcredits;
       if ((($context eq 'course') && ($crstype eq 'Course')) || 
            ($context eq 'domain')) {
           my %domdefaults = 
               &Apache::lonnet::get_domain_defaults($env{'request.role.domain'});
           if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) {
               $showcredits = 1;
           }
       }
   
     # 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());          my $helpitem = 'Course_Create_Class_List';
         &Apache::lonhtmlcommon::add_breadcrumb          if ($context eq 'author') {
             ({href=>'/adm/createuser?action=upload&state=',              $helpitem = 'Author_Create_Coauthor_List';
               text=>"Upload Users List"});          } elsif ($context eq 'domain') {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',              $helpitem = 'Domain_Create_Users';
                                                    'Course_Create_Class_List'));          }
           push(@{$brcrum},
                 { href => '/adm/createuser?action=upload&state=',
                   text => 'Upload Users List',
                   help => $helpitem,
                 });
           $bread_crumbs_component = 'Upload Users List';
           $args = {bread_crumbs           => $brcrum,
                    bread_crumbs_component => $bread_crumbs_component};
           $r->print(&header(undef,$args));
         $r->print('<form name="studentform" method="post" '.          $r->print('<form name="studentform" method="post" '.
                   'enctype="multipart/form-data" '.                    'enctype="multipart/form-data" '.
                   ' action="/adm/createuser">'."\n");                    ' 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') {
             &Apache::lonuserutils::print_upload_manager_form($r,$context,              my $result =
                                                              $permission);                  &Apache::lonuserutils::print_upload_manager_form($r,$context,
                                                                    $permission,
                                                                    $crstype,$showcredits);
               if ($result eq 'missingdata') {
                   delete($env{'form.state'});
                   &Apache::lonuserutils::print_first_users_upload_form($r,$context);
               }
         } 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);                  my $result = &Apache::lonuserutils::upfile_drop_add($r,$context,
                                                                       $permission,
                                                                       $showcredits);
                   if ($result eq 'missingdata') {
                       delete($env{'form.state'});
                       &Apache::lonuserutils::print_first_users_upload_form($r,$context);
                   } elsif ($result eq 'invalidhome') {
                       $env{'form.state'} = 'got_file';
                       delete($env{'form.lcserver'});
                       my $result =
                           &Apache::lonuserutils::print_upload_manager_form($r,$context,$permission,
                                                                            $crstype,$showcredits);
                       if ($result eq 'missingdata') {
                           delete($env{'form.state'});
                           &Apache::lonuserutils::print_first_users_upload_form($r,$context);
                       }
                   }
               } else {
                   delete($env{'form.state'});
                   &Apache::lonuserutils::print_first_users_upload_form($r,$context);
             }              }
         } 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'})) ||
                (($env{'form.action'} eq 'singleuser') && ($permission->{'view'})) ||
                (($env{'form.action'} eq 'accesslogs') && ($permission->{'activity'}))) {
         my $phase = $env{'form.phase'};          my $phase = $env{'form.phase'};
         my @search = ('srchterm','srchby','srchin','srchtype','srchdomain');          my @search = ('srchterm','srchby','srchin','srchtype','srchdomain');
  &Apache::loncreateuser::restore_prev_selections();   &Apache::loncreateuser::restore_prev_selections();
Line 3767  sub handler { Line 4813  sub handler {
     $srch->{$item} = $env{'form.'.$item};      $srch->{$item} = $env{'form.'.$item};
  }   }
         if (($phase eq 'get_user_info') || ($phase eq 'userpicked') ||          if (($phase eq 'get_user_info') || ($phase eq 'userpicked') ||
             ($phase eq 'createnewuser')) {              ($phase eq 'createnewuser') || ($phase eq 'activity')) {
             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 =
                           '<span class="LC_warning">'
                          .&mt('You must specify a valid username. Only the following are allowed:'
                              .' letters numbers - . @')
                          .'</span>';
                     $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,$permission);
                 } 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,$brcrum,
                                                     $showcredits);
                 }                  }
             } 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 3789  sub handler { Line 4841  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') {                                                 $brcrum);
                     my ($ccuname,$ccdomain);                  } elsif (($currstate eq 'modify') || ($env{'form.action'} eq 'accesslogs')) {
                       my ($ccuname,$ccdomain,$uhome);
                     if (($srch->{'srchby'} eq 'uname') &&                       if (($srch->{'srchby'} eq 'uname') && 
                         ($srch->{'srchtype'} eq 'exact')) {                          ($srch->{'srchtype'} eq 'exact')) {
                         $ccuname = $srch->{'srchterm'};                          $ccuname = $srch->{'srchterm'};
Line 3802  sub handler { Line 4855  sub handler {
                     }                      }
                     $ccuname =&LONCAPA::clean_username($ccuname);                      $ccuname =&LONCAPA::clean_username($ccuname);
                     $ccdomain=&LONCAPA::clean_domain($ccdomain);                      $ccdomain=&LONCAPA::clean_domain($ccdomain);
                     if ($env{'form.forcenewuser'}) {                      if ($env{'form.action'} eq 'accesslogs') {
                         $response = '';                          my $uhome;
                           if (($ccuname ne '') && ($ccdomain ne '')) {
                              $uhome = &Apache::lonnet::homeserver($ccuname,$ccdomain);
                           }
                           if (($uhome eq '') || ($uhome eq 'no_host')) {
                               $env{'form.phase'} = '';
                               undef($forcenewuser);
                               #if ($response) {
                               #    unless ($response =~ m{\Q<br /><br />\E$}) {
                               #        $response .= '<br /><br />';
                               #    }
                               #}
                               &print_username_entry_form($r,$context,$response,$srch,
                                                          $forcenewuser,$crstype,$brcrum,
                                                          $permission);
                           } else {
                               &print_useraccesslogs_display($r,$ccuname,$ccdomain,$permission,$brcrum);
                           }
                       } else {
                           if ($env{'form.forcenewuser'}) {
                               $response = '';
                           }
                           &print_user_modification_page($r,$ccuname,$ccdomain,
                                                         $srch,$response,$context,
                                                         $permission,$crstype,$brcrum);
                     }                      }
                     &print_user_modification_page($r,$ccuname,$ccdomain,  
                                                   $srch,$response,$context,  
                                                   $permission);  
                 } 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,
                                                  $permission);
                 }                  }
             } 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,'',                  if ($env{'form.action'} eq 'accesslogs') {
                                               $context,$permission);                      &print_useraccesslogs_display($r,$ccuname,$ccdomain,$permission,$brcrum);
                   } else {
                       &print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',
                                                     $context,$permission,$crstype,
                                                     $brcrum);
                   }
               } elsif ($env{'form.action'} eq 'accesslogs') {
                   my $ccuname = &LONCAPA::clean_username($env{'form.accessuname'});
                   my $ccdomain = &LONCAPA::clean_domain($env{'form.accessudom'});
                   &print_useraccesslogs_display($r,$ccuname,$ccdomain,$permission,$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,$showcredits,$permission);
         } else {          } else {
             &print_username_entry_form($r,$context,undef,$srch);              &print_username_entry_form($r,$context,undef,$srch,undef,$crstype,
                                          $brcrum,$permission);
         }          }
     } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {      } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {
           my $prefix;
         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,$prefix,$permission);
         } else {          } else {
             &custom_role_editor($r);              &custom_role_editor($r,$context,$brcrum,$prefix,$permission);
         }          }
       } elsif (($env{'form.action'} eq 'processauthorreq') &&
                ($permission->{'cusr'}) && 
                (&Apache::lonnet::allowed('cau',$env{'request.role.domain'}))) {
           push(@{$brcrum},
                    {href => '/adm/createuser?action=processauthorreq',
                     text => 'Authoring Space requests',
                     help => 'Domain_Role_Approvals'});
           $bread_crumbs_component = 'Authoring requests';
           if ($env{'form.state'} eq 'done') {
               push(@{$brcrum},
                        {href => '/adm/createuser?action=authorreqqueue',
                         text => 'Result',
                         help => 'Domain_Role_Approvals'});
               $bread_crumbs_component = 'Authoring request result';
           }
           $args = { bread_crumbs           => $brcrum,
                     bread_crumbs_component => $bread_crumbs_component};
           my $js = &usernamerequest_javascript();
           $r->print(&header(&add_script($js),$args));
           if (!exists($env{'form.state'})) {
               $r->print(&Apache::loncoursequeueadmin::display_queued_requests('requestauthor',
                                                                               $env{'request.role.domain'}));
           } elsif ($env{'form.state'} eq 'done') {
               $r->print('<h3>'.&mt('Authoring request processing').'</h3>'."\n");
               $r->print(&Apache::loncoursequeueadmin::update_request_queue('requestauthor',
                                                                            $env{'request.role.domain'}));
           }
       } elsif (($env{'form.action'} eq 'processusernamereq') &&
                ($permission->{'cusr'}) &&
                (&Apache::lonnet::allowed('cau',$env{'request.role.domain'}))) {
           push(@{$brcrum},
                    {href => '/adm/createuser?action=processusernamereq',
                     text => 'LON-CAPA account requests',
                     help => 'Domain_Username_Approvals'});
           $bread_crumbs_component = 'Account requests';
           if ($env{'form.state'} eq 'done') {
               push(@{$brcrum},
                        {href => '/adm/createuser?action=usernamereqqueue',
                         text => 'Result',
                         help => 'Domain_Username_Approvals'});
               $bread_crumbs_component = 'LON-CAPA account request result';
           }
           $args = { bread_crumbs           => $brcrum,
                     bread_crumbs_component => $bread_crumbs_component};
           my $js = &usernamerequest_javascript();
           $r->print(&header(&add_script($js),$args));
           if (!exists($env{'form.state'})) {
               $r->print(&Apache::loncoursequeueadmin::display_queued_requests('requestusername',
                                                                               $env{'request.role.domain'}));
           } elsif ($env{'form.state'} eq 'done') {
               $r->print('<h3>'.&mt('LON-CAPA account request processing').'</h3>'."\n");
               $r->print(&Apache::loncoursequeueadmin::update_request_queue('requestusername',
                                                                            $env{'request.role.domain'}));
           }
       } elsif (($env{'form.action'} eq 'displayuserreq') &&
                ($permission->{'cusr'})) {
           my $dom = $env{'form.domain'};
           my $uname = $env{'form.username'};
           my $warning;
           if (($dom =~ /^$match_domain$/) && (&Apache::lonnet::domain($dom) ne '')) {
               if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) {
                   if (($uname =~ /^$match_username$/) && ($env{'form.queue'} eq 'approval')) {
                       my $uhome = &Apache::lonnet::homeserver($uname,$dom);
                       if ($uhome eq 'no_host') {
                           my $queue = $env{'form.queue'};
                           my $reqkey = &escape($uname).'_'.$queue; 
                           my $namespace = 'usernamequeue';
                           my $domconfig = &Apache::lonnet::get_domainconfiguser($dom);
                           my %queued =
                               &Apache::lonnet::get($namespace,[$reqkey],$dom,$domconfig);
                           unless ($queued{$reqkey}) {
                               $warning = &mt('No information was found for this LON-CAPA account request.');
                           }
                       } else {
                           $warning = &mt('A LON-CAPA account already exists for the requested username and domain.');
                       }
                   } else {
                       $warning = &mt('LON-CAPA account request status check is for an invalid username.');
                   }
               } else {
                   $warning = &mt('You do not have rights to view LON-CAPA account requests in the domain specified.');
               }
           } else {
               $warning = &mt('LON-CAPA account request status check is for an invalid domain.');
           }
           my $args = { only_body => 1 };
           $r->print(&header(undef,$args).
                     '<h3>'.&mt('LON-CAPA Account Request Details').'</h3>');
           if ($warning ne '') {
               $r->print('<div class="LC_warning">'.$warning.'</div>');
           } else {
               my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
               my $domconfiguser = &Apache::lonnet::get_domainconfiguser($dom);
               my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
               if (ref($domconfig{'usercreation'}) eq 'HASH') {
                   if (ref($domconfig{'usercreation'}{'cancreate'}) eq 'HASH') {
                       if (ref($domconfig{'usercreation'}{'cancreate'}{'emailusername'}) eq 'HASH') {
                           my %info =
                               &Apache::lonnet::get('nohist_requestedusernames',[$uname],$dom,$domconfiguser);
                           if (ref($info{$uname}) eq 'HASH') {
                               my $usertype = $info{$uname}{'inststatus'};
                               unless ($usertype) {
                                   $usertype = 'default';
                               }
                               my ($showstatus,$showemail,$pickstart);
                               my $numextras = 0;
                               my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
                               if ((ref($types) eq 'ARRAY') && (@{$types} > 0)) {
                                   if (ref($usertypes) eq 'HASH') {
                                       if ($usertypes->{$usertype}) {
                                           $showstatus = $usertypes->{$usertype};
                                       } else {
                                           $showstatus = $othertitle;
                                       }
                                       if ($showstatus) {
                                           $numextras ++;
                                       }
                                   }
                               }
                               if (($info{$uname}{'email'} ne '') && ($info{$uname}{'email'} ne $uname)) {
                                   $showemail = $info{$uname}{'email'};
                                   $numextras ++;
                               }
                               if (ref($domconfig{'usercreation'}{'cancreate'}{'emailusername'}{$usertype}) eq 'HASH') {
                                   if ((ref($infofields) eq 'ARRAY') && (ref($infotitles) eq 'HASH')) {
                                       $pickstart = 1;
                                       $r->print('<div>'.&Apache::lonhtmlcommon::start_pick_box());
                                       my ($num,$count);
                                       $count = scalar(keys(%{$domconfig{'usercreation'}{'cancreate'}{'emailusername'}{$usertype}}));
                                       $count += $numextras;
                                       foreach my $field (@{$infofields}) {
                                           next unless ($domconfig{'usercreation'}{'cancreate'}{'emailusername'}{$usertype}{$field});
                                           next unless ($infotitles->{$field});
                                           $r->print(&Apache::lonhtmlcommon::row_title($infotitles->{$field}).
                                                     $info{$uname}{$field});
                                           $num ++;
                                           unless ($count == $num) {
                                               $r->print(&Apache::lonhtmlcommon::row_closure());
                                           }
                                       }
                                   }
                               }
                               if ($numextras) {
                                   unless ($pickstart) {
                                       $r->print('<div>'.&Apache::lonhtmlcommon::start_pick_box());
                                       $pickstart = 1;
                                   }
                                   if ($showemail) {
                                       my $closure = '';
                                       unless ($showstatus) {
                                           $closure = 1;
                                       }
                                       $r->print(&Apache::lonhtmlcommon::row_title(&mt('E-mail address')).
                                                 $showemail.
                                                 &Apache::lonhtmlcommon::row_closure($closure));
                                   }
                                   if ($showstatus) {
                                       $r->print(&Apache::lonhtmlcommon::row_title(&mt('Status type[_1](self-reported)','<br />')).
                                                 $showstatus.
                                                 &Apache::lonhtmlcommon::row_closure(1));
                                   }
                               }
                               if ($pickstart) {
                                   $r->print(&Apache::lonhtmlcommon::end_pick_box().'</div>');
                               } else {
                                   $r->print('<div>'.&mt('No information to display for this account request.').'</div>');
                               }
                           } else {
                               $r->print('<div>'.&mt('No information available for this account request.').'</div>');
                           }
                       }
                   }
               }
           }
           $r->print(&close_popup_form());
     } elsif (($env{'form.action'} eq 'listusers') &&       } elsif (($env{'form.action'} eq 'listusers') && 
              ($permission->{'view'} || $permission->{'cusr'})) {               ($permission->{'view'} || $permission->{'cusr'})) {
           my $helpitem = 'Course_View_Class_List';
           if ($context eq 'author') {
               $helpitem = 'Author_View_Coauthor_List';
           } elsif ($context eq 'domain') {
               $helpitem = 'Domain_View_Users_List';
           }
         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 => $helpitem});
               $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",  
                                                           'Course_View_Class_List'));  
             if ($permission->{'cusr'}) {              if ($permission->{'cusr'}) {
                 &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice);                  &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice,$crstype);
                 $r->print(&Apache::loncommon::end_page());  
             } 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 => $helpitem});
               $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') {              my $hidecall = "hide_searching();";
                 ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) =               if (($context eq 'domain') && (($env{'form.roletype'} eq 'course') ||
                     &Apache::lonuserutils::courses_selector($env{'request.role.domain'},                  ($env{'form.roletype'} eq 'community'))) {
                                                             $formname);                  if ($env{'form.roletype'} eq 'course') {
                 $jscript .= &verify_user_display();                      ($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($context)."\n".
                               &Apache::loncommon::check_uncheck_jscript();
                 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;$hidecall"};
                 } else {                  } else {
                     $r->print(&header($js));                      $args->{add_entries} = {onload => $hidecall};
                 }                  }
                   $r->print(&header($js,$args));
             } else {              } else {
                 $r->print(&header(&add_script(&verify_user_display())));                  $args->{add_entries} = {onload => $hidecall};
                   $jscript = &verify_user_display($context).
                              &Apache::loncommon::check_uncheck_jscript(); 
                   $r->print(&header(&add_script($jscript),$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());                           $showcredits);
         }          }
     } 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,{'no_nav_bar' => 1}).
                       &Apache::lonuserutils::date_section_selector($context,                        &Apache::lonuserutils::date_section_selector($context,$permission,
                                                                    $permission).                                                                     $crstype,$showcredits));
                       &Apache::loncommon::end_page());          } else {
         } else {              $r->print(&header(undef,{'no_nav_bar' => 1}).
             $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());          if ($permission->{selfenrolladmin}) {
         &Apache::lonhtmlcommon::add_breadcrumb              my %currsettings = (
             ({href=>'/adm/createuser?action=selfenroll',                  selfenroll_types              => $env{'course.'.$cid.'.internal.selfenroll_types'},
               text=>"Configure Self-enrollment"});                  selfenroll_registered         => $env{'course.'.$cid.'.internal.selfenroll_registered'},
         if (!exists($env{'form.state'})) {                  selfenroll_section            => $env{'course.'.$cid.'.internal.selfenroll_section'},
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Configure Self-enrollment',                  selfenroll_notifylist         => $env{'course.'.$cid.'.internal.selfenroll_notifylist'},
                                                           'Course_Self_Enrollment'));                  selfenroll_approval           => $env{'course.'.$cid.'.internal.selfenroll_approval'},
             $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");                  selfenroll_limit              => $env{'course.'.$cid.'.internal.selfenroll_limit'},
             &print_selfenroll_menu($r,$context,$permission);                  selfenroll_cap                => $env{'course.'.$cid.'.internal.selfenroll_cap'},
         } elsif ($env{'form.state'} eq 'done') {                  selfenroll_start_date         => $env{'course.'.$cid.'.internal.selfenroll_start_date'},
             &Apache::lonhtmlcommon::add_breadcrumb                  selfenroll_end_date           => $env{'course.'.$cid.'.internal.selfenroll_end_date'},
             ({href=>'/adm/createuser?action=selfenroll',                  selfenroll_start_access       => $env{'course.'.$cid.'.internal.selfenroll_start_access'},
               text=>"Result"});                  selfenroll_end_access         => $env{'course.'.$cid.'.internal.selfenroll_end_access'},
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Self-enrollment result',                  default_enrollment_start_date => $env{'course.'.$cid.'.default_enrollment_start_date'},
                                                           'Course_Self_Enrollment'));                  default_enrollment_end_date   => $env{'course.'.$cid.'.default_enrollment_end_date'},
             $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");                  uniquecode                    => $env{'course.'.$cid.'.internal.uniquecode'},
             &update_selfenroll_config($r,$context,$permission);              );
               push(@{$brcrum},
                       {href => '/adm/createuser?action=selfenroll',
                        text => "Configure Self-enrollment",
                        help => 'Course_Self_Enrollment'});
               if (!exists($env{'form.state'})) {
                   $args = { bread_crumbs           => $brcrum,
                             bread_crumbs_component => 'Configure Self-enrollment'};
                   $r->print(&header(undef,$args));
                   $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");
                   &print_selfenroll_menu($r,'course',$cid,$cdom,$cnum,\%currsettings);
               } elsif ($env{'form.state'} eq 'done') {
                   push (@{$brcrum},
                             {href=>'/adm/createuser?action=selfenroll',
                              text=>"Result"});
                   $args = { bread_crumbs           => $brcrum,
                             bread_crumbs_component => 'Self-enrollment result'};
                   $r->print(&header(undef,$args));
                   $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");
                   &update_selfenroll_config($r,$cid,$cdom,$cnum,$context,$crstype,\%currsettings);
               }
           } else {
               $r->print(&header(undef,{'no_nav_bar' => 1}).
                        '<span class="LC_error">'.&mt('You do not have permission to configure self-enrollment').'</span>');
         }          }
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'selfenrollqueue') {      } elsif ($env{'form.action'} eq 'selfenrollqueue') {
         $r->print(&header());          if ($permission->{selfenrolladmin}) {
         &Apache::lonhtmlcommon::add_breadcrumb              push(@{$brcrum},
             ({href=>'/adm/createuser?action=selfenrollqueue',                       {href => '/adm/createuser?action=selfenrollqueue',
               text=>"Enrollment requests"});                        text => 'Enrollment requests',
         my $cid = $env{'request.course.id'};                        help => 'Course_Approve_Selfenroll'});
         my $cdom = $env{'course.'.$cid.'.domain'};              $bread_crumbs_component = 'Enrollment requests';
         my $cnum = $env{'course.'.$cid.'.num'};              if ($env{'form.state'} eq 'done') {
         my $coursedesc = $env{'course.'.$cid.'.description'};                  push(@{$brcrum},
         if (!exists($env{'form.state'})) {                           {href => '/adm/createuser?action=selfenrollqueue',
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment requests',                            text => 'Result',
                                                           'Course_SelfEnrollment_Approval'));                            help => 'Course_Approve_Selfenroll'});
             $r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");                  $bread_crumbs_component = 'Enrollment result';
             $r->print(&Apache::loncoursequeueadmin::display_queued_requests($context,              }
                                                                        $cdom,$cnum));              $args = { bread_crumbs           => $brcrum,
         } elsif ($env{'form.state'} eq 'done') {                        bread_crumbs_component => $bread_crumbs_component};
             &Apache::lonhtmlcommon::add_breadcrumb              $r->print(&header(undef,$args));
             ({href=>'/adm/createuser?action=selfenrollqueue',              my $coursedesc = $env{'course.'.$cid.'.description'};
               text=>"Result"});              if (!exists($env{'form.state'})) {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment result',                  $r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");
                                                           'Course_Self_Enrollment'));                  $r->print(&Apache::loncoursequeueadmin::display_queued_requests($context,
             $r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");                                                                                  $cdom,$cnum));
             $r->print(&Apache::loncoursequeueadmin::update_request_queue($context,              } elsif ($env{'form.state'} eq 'done') {
                           $cdom,$cnum,$coursedesc));                  $r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");
                   $r->print(&Apache::loncoursequeueadmin::update_request_queue($context,
                                 $cdom,$cnum,$coursedesc));
               }
           } else {
               $r->print(&header(undef,{'no_nav_bar' => 1}).
                        '<span class="LC_error">'.&mt('You do not have permission to manage self-enrollment').'</span>');
         }          }
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'changelogs') {      } elsif ($env{'form.action'} eq 'changelogs') {
         $r->print(&header());          if ($permission->{cusr} || $permission->{view}) {
         &Apache::lonhtmlcommon::add_breadcrumb              &print_userchangelogs_display($r,$context,$permission,$brcrum);
             ({href=>'/adm/createuser?action=changelogs',          } else {
               text=>"User Management Logs"});              $r->print(&header(undef,{'no_nav_bar' => 1}).
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Changes',                       '<span class="LC_error">'.&mt('You do not have permission to view change logs').'</span>');
                                                       'Course_User_Logs'));          }
             &print_userchangelogs_display($r,$context,$permission);      } elsif ($env{'form.action'} eq 'helpdesk') {
         $r->print(&Apache::loncommon::end_page());                  if (($permission->{'owner'}) || ($permission->{'co-owner'})) {
     } else {              if ($env{'form.state'} eq 'process') {
         $r->print(&header());                  if ($permission->{'owner'}) {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));                      &update_helpdeskaccess($r,$permission,$brcrum);
         $r->print(&print_main_menu($permission,$context));                  } else {
         $r->print(&Apache::loncommon::end_page());                      &print_helpdeskaccess_display($r,$permission,$brcrum);
                   }
               } else {
                   &print_helpdeskaccess_display($r,$permission,$brcrum);
               }
           } else {
               $r->print(&header(undef,{'no_nav_bar' => 1}).
                         '<span class="LC_error">'.&mt('You do not have permission to view helpdesk access').'</span>');
           }
       } else {
           $bread_crumbs_component = 'User Management';
           $args = { bread_crumbs           => $brcrum,
                     bread_crumbs_component => $bread_crumbs_component};
           $r->print(&header(undef,$args));
           $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 $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});  
     } else {  
         $start_page=&Apache::loncommon::start_page('User Management',$jscript,$args);          $start_page=&Apache::loncommon::start_page('User Management',$jscript,$args);
       } else {
           $start_page=&Apache::loncommon::start_page('User Management',$jscript);
     }      }
     return $start_page;      return $start_page;
 }  }
Line 3996  sub add_script { Line 5329  sub add_script {
           .'</script>'."\n";            .'</script>'."\n";
 }  }
   
   sub usernamerequest_javascript {
       my $js = <<ENDJS;
   
   function openusernamereqdisplay(dom,uname,queue) {
       var url = '/adm/createuser?action=displayuserreq';
       url += '&domain='+dom+'&username='+uname+'&queue='+queue;
       var title = 'Account_Request_Browser';
       var options = 'scrollbars=1,resizable=1,menubar=0';
       options += ',width=700,height=600';
       var stdeditbrowser = open(url,title,options,'1');
       stdeditbrowser.focus();
       return;
   }
    
   ENDJS
   }
   
   sub close_popup_form {
       my $close= &mt('Close Window');
       return << "END";
   <p><form name="displayreq" action="" method="post">
   <input type="button" name="closeme" value="$close" onclick="javascript:self.close();" />
   </form></p>
   END
   }
   
 sub verify_user_display {  sub verify_user_display {
       my ($context) = @_;
       my %lt = &Apache::lonlocal::texthash (
           course    => 'course(s): description, section(s), status',
           community => 'community(s): description, section(s), status',
           author    => 'author',
       );
       my $photos;
       if (($context eq 'course') && $env{'request.course.id'}) {
           $photos = $env{'course.'.$env{'request.course.id'}.'.internal.showphoto'};
       }
     my $output = <<"END";      my $output = <<"END";
   
   function hide_searching() {
       if (document.getElementById('searching')) {
           document.getElementById('searching').style.display = 'none';
       }
       return;
   }
   
 function display_update() {  function display_update() {
     document.studentform.action.value = 'listusers';      document.studentform.action.value = 'listusers';
     document.studentform.phase.value = 'display';      document.studentform.phase.value = 'display';
     document.studentform.submit();      document.studentform.submit();
 }  }
   
   function updateCols(caller) {
       var context = '$context';
       var photos = '$photos';
       if (caller == 'Status') {
           if ((context == 'domain') && 
               ((document.studentform.roletype.options[document.studentform.roletype.selectedIndex].value == 'course') ||
                (document.studentform.roletype.options[document.studentform.roletype.selectedIndex].value == 'community'))) {
               document.getElementById('showcolstatus').checked = false;
               document.getElementById('showcolstatus').disabled = 'disabled';
               document.getElementById('showcolstart').checked = false;
               document.getElementById('showcolend').checked = false;
           } else {
               if (document.studentform.Status.options[document.studentform.Status.selectedIndex].value == 'Any') {
                   document.getElementById('showcolstatus').checked = true;
                   document.getElementById('showcolstatus').disabled = '';
                   document.getElementById('showcolstart').checked = true;
                   document.getElementById('showcolend').checked = true;
               } else {
                   document.getElementById('showcolstatus').checked = false;
                   document.getElementById('showcolstatus').disabled = 'disabled';
                   document.getElementById('showcolstart').checked = false;
                   document.getElementById('showcolend').checked = false;
               }
           }
       }
       if (caller == 'output') {
           if (photos == 1) {
               if (document.getElementById('showcolphoto')) {
                   var photoitem = document.getElementById('showcolphoto');
                   if (document.studentform.output.options[document.studentform.output.selectedIndex].value == 'html') {
                       photoitem.checked = true;
                       photoitem.disabled = '';
                   } else {
                       photoitem.checked = false;
                       photoitem.disabled = 'disabled';
                   }
               }
           }
       }
       if (caller == 'showrole') {
           if ((document.studentform.showrole.options[document.studentform.showrole.selectedIndex].value == 'Any') ||
               (document.studentform.showrole.options[document.studentform.showrole.selectedIndex].value == 'cr')) {
               document.getElementById('showcolrole').checked = true;
               document.getElementById('showcolrole').disabled = '';
           } else {
               document.getElementById('showcolrole').checked = false;
               document.getElementById('showcolrole').disabled = 'disabled';
           }
           if (context == 'domain') {
               var quotausageshow = 0;
               if ((document.studentform.roletype.options[document.studentform.roletype.selectedIndex].value == 'course') ||
                   (document.studentform.roletype.options[document.studentform.roletype.selectedIndex].value == 'community')) {
                   document.getElementById('showcolstatus').checked = false;
                   document.getElementById('showcolstatus').disabled = 'disabled';
                   document.getElementById('showcolstart').checked = false;
                   document.getElementById('showcolend').checked = false;
               } else {
                   if (document.studentform.Status.options[document.studentform.Status.selectedIndex].value == 'Any') {
                       document.getElementById('showcolstatus').checked = true;
                       document.getElementById('showcolstatus').disabled = '';
                       document.getElementById('showcolstart').checked = true;
                       document.getElementById('showcolend').checked = true;
                   }
               }
               if (document.studentform.roletype.options[document.studentform.roletype.selectedIndex].value == 'domain') {
                   document.getElementById('showcolextent').disabled = 'disabled';
                   document.getElementById('showcolextent').checked = 'false';
                   document.getElementById('showextent').style.display='none';
                   document.getElementById('showcoltextextent').innerHTML = '';
                   if ((document.studentform.showrole.options[document.studentform.showrole.selectedIndex].value == 'au') ||
                       (document.studentform.showrole.options[document.studentform.showrole.selectedIndex].value == 'Any')) {
                       if (document.getElementById('showcolauthorusage')) {
                           document.getElementById('showcolauthorusage').disabled = '';
                       }
                       if (document.getElementById('showcolauthorquota')) {
                           document.getElementById('showcolauthorquota').disabled = '';
                       }
                       quotausageshow = 1;
                   }
               } else {
                   document.getElementById('showextent').style.display='block';
                   document.getElementById('showextent').style.textAlign='left';
                   document.getElementById('showextent').style.textFace='normal';
                   if (document.studentform.roletype.options[document.studentform.roletype.selectedIndex].value == 'author') {
                       document.getElementById('showcolextent').disabled = '';
                       document.getElementById('showcolextent').checked = 'true';
                       document.getElementById('showcoltextextent').innerHTML="$lt{'author'}";
                   } else {
                       document.getElementById('showcolextent').disabled = '';
                       document.getElementById('showcolextent').checked = 'true';
                       if (document.studentform.roletype.options[document.studentform.roletype.selectedIndex].value == 'community') {
                           document.getElementById('showcoltextextent').innerHTML="$lt{'community'}";
                       } else {
                           document.getElementById('showcoltextextent').innerHTML="$lt{'course'}";
                       }
                   }
               }
               if (quotausageshow == 0)  {
                   if (document.getElementById('showcolauthorusage')) {
                       document.getElementById('showcolauthorusage').checked = false;
                       document.getElementById('showcolauthorusage').disabled = 'disabled';
                   }
                   if (document.getElementById('showcolauthorquota')) {
                       document.getElementById('showcolauthorquota').checked = false;
                       document.getElementById('showcolauthorquota').disabled = 'disabled';
                   }
               }
           }
       }
       return;
   }
   
 END  END
     return $output;      return $output;
   
Line 4014  END Line 5502  END
 ###############################################################  ###############################################################
 #  Menu Phase One  #  Menu Phase One
 sub print_main_menu {  sub print_main_menu {
     my ($permission,$context) = @_;      my ($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',
Line 4029  sub print_main_menu { Line 5523  sub print_main_menu {
                 course => {                  course => {
                             upload     => 'Upload a File of Course Users',                              upload     => 'Upload a File of Course Users',
                             singleuser => 'Add/Modify a Course User',                              singleuser => 'Add/Modify a Course User',
                             listusers  => 'Manage Course Users',                              listusers  => 'List and Modify Multiple Course Users',
                               },
                   community => {
                               upload     => 'Upload a File of Community Users',
                               singleuser => 'Add/Modify a Community User',
                               listusers  => 'List and Modify Multiple 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.',
                              },
                 );                  );
     if ($linkcontext eq 'domain') {
         unless ($permission->{'cusr'}) {
             $links{'domain'}{'singleuser'} = 'View a User';
             $linktitles{'domain'}{'singleuser'} = 'View information about a user in the domain';
         }
     } elsif ($linkcontext eq 'course') {
         unless ($permission->{'cusr'}) {
             $links{'course'}{'singleuser'} = 'View a Course User';
             $linktitles{'course'}{'singleuser'} = 'View information about a user in this course';
             $links{'course'}{'listusers'} = 'List Course Users';
             $linktitles{'course'}{'listusers'} = 'Show information about users in this course';
         }
     } elsif ($linkcontext eq 'community') {
         unless ($permission->{'cusr'}) {
             $links{'community'}{'singleuser'} = 'View a Community User';
             $linktitles{'community'}{'singleuser'} = 'View information about a user in this community';
             $links{'community'}{'listusers'} = 'List Community Users';
             $linktitles{'community'}{'listusers'} = 'Show information about users in this community';
         }
     }
   my @menu = ( {categorytitle => 'Single Users',     my @menu = ( {categorytitle => 'Single Users', 
          items =>           items =>
          [           [
             {              {
              linktext => $links{$context}{'singleuser'},               linktext => $links{$linkcontext}{'singleuser'},
              icon => 'edit-redo.png',               icon => 'edit-redo.png',
              #help => 'Course_Change_Privileges',               #help => 'Course_Change_Privileges',
              url => '/adm/createuser?action=singleuser',               url => '/adm/createuser?action=singleuser',
              permission => $permission->{'cusr'},               permission => ($permission->{'view'} || $permission->{'cusr'}),
              linktitle => 'Add a user with a certain role to this course.',               linktitle => $linktitles{$linkcontext}{'singleuser'},
             },              },
          ]},           ]},
   
Line 4049  sub print_main_menu { Line 5586  sub print_main_menu {
          items =>            items => 
          [           [
             {              {
              linktext => $links{$context}{'upload'},               linktext => $links{$linkcontext}{'upload'},
              icon => 'sctr.png',               icon => 'uplusr.png',
              #help => 'Course_Create_Class_List',               #help => 'Course_Create_Class_List',
              url => '/adm/createuser?action=upload',               url => '/adm/createuser?action=upload',
              permission => $permission->{'cusr'},               permission => $permission->{'cusr'},
              linktitle => 'Upload a CSV or a text file containing users.',               linktitle => 'Upload a CSV or a text file containing users.',
             },              },
             {              {
              linktext => $links{$context}{'listusers'},               linktext => $links{$linkcontext}{'listusers'},
              icon => 'edit-find.png',               icon => 'mngcu.png',
              #help => 'Course_View_Class_List',               #help => 'Course_View_Class_List',
              url => '/adm/createuser?action=listusers',               url => '/adm/createuser?action=listusers',
              permission => ($permission->{'view'} || $permission->{'cusr'}),               permission => ($permission->{'view'} || $permission->{'cusr'}),
              linktitle => 'Show and manage users of this course.',               linktitle => $linktitles{$linkcontext}{'listusers'}, 
             },              },
   
          ]},           ]},
Line 4070  sub print_main_menu { Line 5607  sub print_main_menu {
          {categorytitle => 'Administration',           {categorytitle => 'Administration',
          items => [ ]},           items => [ ]},
        );         );
               
     if ($context eq 'domain'){      if ($context eq 'domain'){
           push(@{  $menu[0]->{items} }, # Single Users
               {
                linktext => 'User Access Log',
                icon => 'document-properties.png',
                #help => 'Domain_User_Access_Logs',
                url => '/adm/createuser?action=accesslogs',
                permission => $permission->{'activity'},
                linktitle => 'View user access log.',
               }
           );
                   
         push(@{ $menu[2]->{items} }, #Category: Administration          push(@{ $menu[2]->{items} }, #Category: Administration
             {              {
Line 4082  sub print_main_menu { Line 5629  sub print_main_menu {
              permission => $permission->{'custom'},               permission => $permission->{'custom'},
              linktitle => 'Configure a custom role.',               linktitle => 'Configure a custom role.',
             },              },
               {
                linktext => 'Authoring Space Requests',
                icon => 'selfenrl-queue.png',
                #help => 'Domain_Role_Approvals',
                url => '/adm/createuser?action=processauthorreq',
                permission => $permission->{'cusr'},
                linktitle => 'Approve or reject author role requests',
               },
               {
                linktext => 'LON-CAPA Account Requests',
                icon => 'list-add.png',
                #help => 'Domain_Username_Approvals',
                url => '/adm/createuser?action=processusernamereq',
                permission => $permission->{'cusr'},
                linktitle => 'Approve or reject LON-CAPA account requests',
               },
               {
                linktext => 'Change Log',
                icon => 'document-properties.png',
                #help => 'Course_User_Logs',
                url => '/adm/createuser?action=changelogs',
                permission => ($permission->{'cusr'} || $permission->{'view'}),
                linktitle => 'View change log.',
               },
         );          );
                   
     }elsif ($context eq 'course'){      }elsif ($context eq 'course'){
         my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();          my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity();
       
           my %linktext = (
                            'Course'    => {
                                             single => 'Add/Modify a Student', 
                                             drop   => 'Drop Students',
                                             groups => 'Course Groups',
                                           },
                            'Community' => {
                                             single => 'Add/Modify a Member', 
                                             drop   => 'Drop Members',
                                             groups => 'Community Groups',
                                           },
                          );
   
           my %linktitle = (
               'Course' => {
                     single => 'Add a user with the role of student to this course',
                     drop   => 'Remove a student from this course.',
                     groups => 'Manage course groups',
                           },
               'Community' => {
                     single => 'Add a user with the role of member to this community',
                     drop   => 'Remove a member from this community.',
                     groups => 'Manage community groups',
                              },
           );
   
         push(@{ $menu[0]->{items} }, #Category: Single Users          push(@{ $menu[0]->{items} }, #Category: Single Users
             {                 {   
              linktext => 'Add/Modify a Student',               linktext => $linktext{$crstype}{'single'},
              #help => 'Course_Add_Student',               #help => 'Course_Add_Student',
              icon => 'list-add.png',               icon => 'list-add.png',
              url => '/adm/createuser?action=singlestudent',               url => '/adm/createuser?action=singlestudent',
              permission => $permission->{'cusr'},               permission => $permission->{'cusr'},
              linktitle => 'Add a user with the role student to this course.',               linktitle => $linktitle{$crstype}{'single'},
             },              },
         );          );
                   
         push(@{ $menu[1]->{items} }, #Category: Multiple Users           push(@{ $menu[1]->{items} }, #Category: Multiple Users 
             {              {
              linktext => 'Drop Students',               linktext => $linktext{$crstype}{'drop'},
              icon => 'edit-undo.png',               icon => 'edit-undo.png',
              #help => 'Course_Drop_Student',               #help => 'Course_Drop_Student',
              url => '/adm/createuser?action=drop',               url => '/adm/createuser?action=drop',
              permission => $permission->{'cusr'},               permission => $permission->{'cusr'},
              linktitle =>'Remove a student from this course.',               linktitle => $linktitle{$crstype}{'drop'},
             },              },
         );          );
         push(@{ $menu[2]->{items} }, #Category: Administration          push(@{ $menu[2]->{items} }, #Category: Administration
             {                  {
                linktext => 'Helpdesk Access',
                icon => 'helpdesk-access.png',
                #help => 'Course_Helpdesk_Access',
                url => '/adm/createuser?action=helpdesk',
                permission => ($permission->{'owner'} || $permission->{'co-owner'}),
                linktitle => 'Helpdesk access options',
               },
               {
              linktext => 'Custom Roles',               linktext => 'Custom Roles',
              icon => 'emblem-photos.png',               icon => 'emblem-photos.png',
              #help => 'Course_Editing_Custom_Roles',               #help => 'Course_Editing_Custom_Roles',
Line 4118  sub print_main_menu { Line 5723  sub print_main_menu {
              linktitle => 'Configure a custom role.',               linktitle => 'Configure a custom role.',
             },              },
             {              {
              linktext => 'Course Groups',               linktext => $linktext{$crstype}{'groups'},
              icon => 'conf.png',               icon => 'grps.png',
              #help => 'Course_Manage_Group',               #help => 'Course_Manage_Group',
              url => '/adm/coursegroups?refpage=cusr',               url => '/adm/coursegroups?refpage=cusr',
              permission => $permission->{'grp_manage'},               permission => $permission->{'grp_manage'},
              linktitle => 'Manage course groups.',               linktitle => $linktitle{$crstype}{'groups'},
             },              },
             {              {
              linktext => 'Change Logs',               linktext => 'Change Log',
              icon => 'document-properties.png',               icon => 'document-properties.png',
              #help => 'Course_User_Logs',               #help => 'Course_User_Logs',
              url => '/adm/createuser?action=changelogs',               url => '/adm/createuser?action=changelogs',
              permission => $permission->{'cusr'},               permission => ($permission->{'view'} || $permission->{'cusr'}),
              linktitle => 'View change log.',               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(@{ $menu[2]->{items} },              push(@{ $menu[2]->{items} },
                     {                         {
                      linktext => 'Enrollment Requests',                       linktext => 'Enrollment Requests',
                      icon => 'selfenrl-queue.png',                       icon => 'selfenrl-queue.png',
                      #help => 'Course_Approve_Selfenroll',                       #help => 'Course_Approve_Selfenroll',
                      url => '/adm/createuser?action=selfenrollqueue',                       url => '/adm/createuser?action=selfenrollqueue',
                      permission => $permission->{'cusr'},                       permission => $permission->{'selfenrolladmin'},
                      linktitle =>'Approve or reject enrollment requests.',                       linktitle =>'Approve or reject enrollment requests.',
                     },                      },
             );              );
         }          }
                   
         if (!exists($permission->{'cusr_section'})){          if (!exists($permission->{'cusr_section'})){
                           if ($crstype ne 'Community') {
             push(@{ $menu[2]->{items} },                  push(@{ $menu[2]->{items} },
                 {                      {
                  linktext => 'Automated Enrollment',                       linktext => 'Automated Enrollment',
                  icon => 'roles.png',                       icon => 'roles.png',
                  #help => 'Course_Automated_Enrollment',                       #help => 'Course_Automated_Enrollment',
                  permission => (&Apache::lonnet::auto_run($cnum,$cdom)                       permission => (&Apache::lonnet::auto_run($cnum,$cdom)
                                      && $permission->{'cusr'}),                                           && (($permission->{'cusr'}) ||
                  url  => '/adm/populate',                                               ($permission->{'view'}))),
                  linktitle => 'Automated enrollment manager.',                       url  => '/adm/populate',
                 },                       linktitle => 'Automated enrollment manager.',
                       }
                   );
               }
               push(@{ $menu[2]->{items} }, 
                 {                  {
                  linktext => 'User Self-Enrollment',                   linktext => 'User Self-Enrollment',
                  icon => 'cstr.png',                   icon => 'self_enroll.png',
                  #help => 'Course_Self_Enrollment',                   #help => 'Course_Self_Enrollment',
                  url => '/adm/createuser?action=selfenroll',                   url => '/adm/createuser?action=selfenroll',
                  permission => $permission->{'cusr'},                   permission => $permission->{'selfenrolladmin'},
                  linktitle => 'Configure user self enrollment.',                   linktitle => 'Configure user self-enrollment.',
                 },                  },
             );              );
           
         }          }
     };      } elsif ($context eq 'author') {
 return Apache::lonhtmlcommon::generate_menu(@menu);          push(@{ $menu[2]->{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);
 #               { text => 'View Log-in History',  #               { text => 'View Log-in History',
 #                 help => 'Course_User_Logins',  #                 help => 'Course_User_Logins',
 #                 action => 'logins',  #                 action => 'logins',
Line 4191  sub restore_prev_selections { Line 5810  sub restore_prev_selections {
 }  }
   
 sub print_selfenroll_menu {  sub print_selfenroll_menu {
     my ($r,$context,$permission) = @_;      my ($r,$context,$cid,$cdom,$cnum,$currsettings,$additional,$readonly) = @_;
     my $formname = 'enrollstudent';      my $crstype = &Apache::loncommon::course_type();
       my $formname = 'selfenroll';
     my $nolink = 1;      my $nolink = 1;
     my ($row,$lt) = &get_selfenroll_titles();      my ($row,$lt) = &Apache::lonuserutils::get_selfenroll_titles();
     my $groupslist = &Apache::lonuserutils::get_groupslist();      my $groupslist = &Apache::lonuserutils::get_groupslist();
     my $setsec_js =       my $setsec_js = 
         &Apache::lonuserutils::setsections_javascript($formname,$groupslist);          &Apache::lonuserutils::setsections_javascript($formname,$groupslist);
Line 4203  sub print_selfenroll_menu { Line 5823  sub print_selfenroll_menu {
         butn => 'but no user types have been checked.',          butn => 'but no user types have been checked.',
         wilf => "Please uncheck 'activate' or check at least one type.",          wilf => "Please uncheck 'activate' or check at least one type.",
     );      );
       my $disabled;
       if ($readonly) {
          $disabled = ' disabled="disabled"';
       }
       &js_escape(\%alerts);
     my $selfenroll_js = <<"ENDSCRIPT";      my $selfenroll_js = <<"ENDSCRIPT";
 function update_types(caller,num) {  function update_types(caller,num) {
     var delidx = getIndexByName('selfenroll_delete');      var delidx = getIndexByName('selfenroll_delete');
Line 4313  function validate_types(form) { Line 5938  function validate_types(form) {
             }              }
         } else {          } else {
             if (document.$formname.selfenroll_activate.checked) {              if (document.$formname.selfenroll_activate.checked) {
                 var num = document.enrollstudent.selfenroll_activate.value;                  var num = document.$formname.selfenroll_activate.value;
                 countfail = check_types(num,countfail,needaction)                  countfail = check_types(num,countfail,needaction)
             }              }
         }          }
Line 4334  function validate_types(form) { Line 5959  function validate_types(form) {
 }  }
   
 function check_types(num,countfail,needaction) {  function check_types(num,countfail,needaction) {
     var typeidx = getIndexByName('selfenroll_types_'+num);      var boxname = 'selfenroll_types_'+num;
       var typeidx = getIndexByName(boxname);
     var count = 0;      var count = 0;
     if (typeidx != -1) {      if (typeidx != -1) {
         if (document.$formname.elements[typeidx].length) {          if (document.$formname.elements[boxname].length) {
             for (var k=0; k<document.$formname.elements[typeidx].length; k++) {              for (var k=0; k<document.$formname.elements[boxname].length; k++) {
                 if (document.$formname.elements[typeidx][k].checked) {                  if (document.$formname.elements[boxname][k].checked) {
                     count ++;                      count ++;
                 }                  }
             }              }
Line 4360  function check_types(num,countfail,needa Line 5986  function check_types(num,countfail,needa
     return countfail;      return countfail;
 }  }
   
   function toggleNotify() {
       var selfenrollApproval = 0;
       if (document.$formname.selfenroll_approval.length) {
           for (var i=0; i<document.$formname.selfenroll_approval.length; i++) {
               if (document.$formname.selfenroll_approval[i].checked) {
                   selfenrollApproval = document.$formname.selfenroll_approval[i].value;
                   break;        
               }
           }
       }
       if (document.getElementById('notified')) {
           if (selfenrollApproval == 0) {
               document.getElementById('notified').style.display='none';
           } else {
               document.getElementById('notified').style.display='block';
           }
       }
       return;
   }
   
 function getIndexByName(item) {  function getIndexByName(item) {
     for (var i=0;i<document.$formname.elements.length;i++) {      for (var i=0;i<document.$formname.elements.length;i++) {
         if (document.$formname.elements[i].name == item) {          if (document.$formname.elements[i].name == item) {
Line 4369  function getIndexByName(item) { Line 6015  function getIndexByName(item) {
     return -1;      return -1;
 }  }
 ENDSCRIPT  ENDSCRIPT
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
     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".                   '// <![CDATA['."\n".
Line 4378  ENDSCRIPT Line 6022  ENDSCRIPT
                  '// ]]>'."\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);   
     if (ref($visactions) eq 'HASH') {      my $visactions = &cat_visibility();
         if ($visible) {      my ($cathash,%cattype);
             $output .= '<p class="LC_info">'.$visactions->{'vis'}.'</p>';      my %domconfig = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);
         } else {      if (ref($domconfig{'coursecategories'}) eq 'HASH') {
             $output .= '<p class="LC_warning">'.$visactions->{'miss'}.'</p>'          $cathash = $domconfig{'coursecategories'}{'cats'};
                       .$visactions->{'yous'}.          $cattype{'auth'} = $domconfig{'coursecategories'}{'auth'};
                        '<p>'.$visactions->{'gen'}.'<br />'.$visactions->{'coca'};          $cattype{'unauth'} = $domconfig{'coursecategories'}{'unauth'};
             if (ref($vismsgs) eq 'ARRAY') {          if ($cattype{'auth'} eq '') {
                 $output .= '<br />'.$visactions->{'make'}.'<ul>';              $cattype{'auth'} = 'std';
                 foreach my $item (@{$vismsgs}) {          }
                     $output .= '<li>'.$visactions->{$item}.'</li>';          if ($cattype{'unauth'} eq '') {
               $cattype{'unauth'} = 'std';
           }
       } else {
           $cathash = {};
           $cattype{'auth'} = 'std';
           $cattype{'unauth'} = 'std';
       }
       if (($cattype{'auth'} eq 'none') && ($cattype{'unauth'} eq 'none')) {
           $r->print('<br /><span class="LC_warning">'.$visactions->{'miss'}.'</span><br />'.$visactions->{'yous'}.
                     '<br />'.
                     '<br />'.$visactions->{'take'}.'<ul>'.
                     '<li>'.$visactions->{'dc_chgconf'}.'</li>'.
                     '</ul>');
       } elsif (($cattype{'auth'} !~ /^(std|domonly)$/) && ($cattype{'unauth'} !~ /^(std|domonly)$/)) {
           if ($currsettings->{'uniquecode'}) {
               $r->print('<span class="LC_info">'.$visactions->{'vis'}.'</span>');
           } else {
               $r->print('<br /><span class="LC_warning">'.$visactions->{'miss'}.'</span><br />'.$visactions->{'yous'}.
                     '<br />'.
                     '<br />'.$visactions->{'take'}.'<ul>'.
                     '<li>'.$visactions->{'dc_setcode'}.'</li>'.
                     '</ul><br />');
           }
       } else {
           my ($visible,$cansetvis,$vismsgs) = &visible_in_stdcat($cdom,$cnum,\%domconfig);
           if (ref($visactions) eq 'HASH') {
               if ($visible) {
                   $output .= '<p class="LC_info">'.$visactions->{'vis'}.'</p>';
              } else {
                   $output .= '<p class="LC_warning">'.$visactions->{'miss'}.'</p>'
                             .$visactions->{'yous'}.
                              '<p>'.$visactions->{'gen'}.'<br />'.$visactions->{'coca'};
                   if (ref($vismsgs) eq 'ARRAY') {
                       $output .= '<br />'.$visactions->{'make'}.'<ul>';
                       foreach my $item (@{$vismsgs}) {
                           $output .= '<li>'.$visactions->{$item}.'</li>';
                       }
                       $output .= '</ul>';
                 }                  }
                 $output .= '</ul>';                  $output .= '</p>';
             }              }
             $output .= '</p>';  
         }          }
     }      }
     $output .= '<form name="'.$formname.'" method="post" action="/adm/createuser">'."\n".      my $actionhref = '/adm/createuser';
       if ($context eq 'domain') {
           $actionhref = '/adm/modifycourse';
       }
   
       my %noedit;
       unless ($context eq 'domain') {
           %noedit = &get_noedit_fields($cdom,$cnum,$crstype,$row);
       }
       $output .= '<form name="'.$formname.'" method="post" action="'.$actionhref.'">'."\n".
                &Apache::lonhtmlcommon::start_pick_box();                 &Apache::lonhtmlcommon::start_pick_box();
     if (ref($row) eq 'ARRAY') {      if (ref($row) eq 'ARRAY') {
         foreach my $item (@{$row}) {          foreach my $item (@{$row}) {
Line 4406  ENDSCRIPT Line 6096  ENDSCRIPT
             }              }
             $output .= &Apache::lonhtmlcommon::row_title($title);              $output .= &Apache::lonhtmlcommon::row_title($title);
             if ($item eq 'types') {              if ($item eq 'types') {
                 my $curr_types = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_types'};                  my $curr_types;
                   if (ref($currsettings) eq 'HASH') {
                       $curr_types = $currsettings->{'selfenroll_types'};
                   }
                   if ($noedit{$item}) {
                       if ($curr_types eq '*') {
                           $output .= &mt('Any user in any domain');   
                       } else {
                           my @entries = split(/;/,$curr_types);
                           if (@entries > 0) {
                               $output .= '<ul>'; 
                               foreach my $entry (@entries) {
                                   my ($currdom,$typestr) = split(/:/,$entry);
                                   next if ($typestr eq '');
                                   my $domdesc = &Apache::lonnet::domain($currdom);
                                   my @currinsttypes = split(',',$typestr);
                                   my ($othertitle,$usertypes,$types) = 
                                       &Apache::loncommon::sorted_inst_types($currdom);
                                   if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {
                                       $usertypes->{'any'} = &mt('any user'); 
                                       if (keys(%{$usertypes}) > 0) {
                                           $usertypes->{'other'} = &mt('other users');
                                       }
                                       my @longinsttypes = map { $usertypes->{$_}; } @currinsttypes;
                                       $output .= '<li>'.$domdesc.':'.join(', ',@longinsttypes).'</li>';
                                    }
                               }
                               $output .= '</ul>';
                           } else {
                               $output .= &mt('None');
                           }
                       }
                       $output .= '<br />'.&mt('(Set by Domain Coordinator)');
                       next;
                   }
                 my $showdomdesc = 1;                  my $showdomdesc = 1;
                 my $includeempty = 1;                  my $includeempty = 1;
                 my $num = 0;                  my $num = 0;
Line 4419  ENDSCRIPT Line 6143  ENDSCRIPT
                     $output .= ' checked="checked" ';                       $output .= ' checked="checked" '; 
                 }                  }
                 $output .= 'onchange="javascript:update_types('.                  $output .= 'onchange="javascript:update_types('.
                            "'selfenroll_all'".');" />'.&mt('Yes').'</label>'.                             "'selfenroll_all'".');"'.$disabled.' />'.&mt('Yes').'</label>'.
                            '&nbsp;&nbsp;<input type="radio" name="selfenroll_all" value="0" ';                             '&nbsp;&nbsp;<input type="radio" name="selfenroll_all" value="0" ';
                 if ($curr_types ne '*') {                  if ($curr_types ne '*') {
                     $output .= ' checked="checked" ';                      $output .= ' checked="checked" ';
                 }                  }
                 $output .= ' onchange="javascript:update_types('.                  $output .= ' onchange="javascript:update_types('.
                            "'selfenroll_all'".');"/>'.&mt('No').'</label></td>'.                             "'selfenroll_all'".');"'.$disabled.' />'.&mt('No').'</label></td>'.
                            &Apache::loncommon::end_data_table_row().                             &Apache::loncommon::end_data_table_row().
                            &Apache::loncommon::end_data_table().                             &Apache::loncommon::end_data_table().
                            &mt('Or').'<br />'.                             &mt('Or').'<br />'.
Line 4447  ENDSCRIPT Line 6171  ENDSCRIPT
                                        .'</b><input type="hidden" name="selfenroll_dom_'.$num                                         .'</b><input type="hidden" name="selfenroll_dom_'.$num
                                        .'" value="'.$currdom.'" /></span><br />'                                         .'" value="'.$currdom.'" /></span><br />'
                                        .'<span class="LC_nobreak"><label><input type="checkbox" '                                         .'<span class="LC_nobreak"><label><input type="checkbox" '
                                        .'name="selfenroll_delete" value="'.$num.'" onchange="javascript:update_types('."'selfenroll_delete','$num'".');" />'                                         .'name="selfenroll_delete" value="'.$num.'" onchange="javascript:update_types('."'selfenroll_delete','$num'".');"'.$disabled.' />'
                                        .&mt('Delete').'</label></span></td>';                                         .&mt('Delete').'</label></span></td>';
                             $output .= '<td valign="top">&nbsp;&nbsp;'.&mt('User types:').'<br />'                              $output .= '<td valign="top">&nbsp;&nbsp;'.&mt('User types:').'<br />'
                                        .&selfenroll_inst_types($num,$currdom,\@currinsttypes).'</td>'                                         .&selfenroll_inst_types($num,$currdom,\@currinsttypes,$readonly).'</td>'
                                        .&Apache::loncommon::end_data_table_row();                                         .&Apache::loncommon::end_data_table_row();
                             $num ++;                              $num ++;
                         }                          }
Line 4465  ENDSCRIPT Line 6189  ENDSCRIPT
                 $output .= &Apache::loncommon::start_data_table_row()                  $output .= &Apache::loncommon::start_data_table_row()
                            .'<td colspan="2"><span class="LC_nobreak">'.$add_domtitle.'</span><br />'                             .'<td colspan="2"><span class="LC_nobreak">'.$add_domtitle.'</span><br />'
                            .&Apache::loncommon::select_dom_form('','selfenroll_newdom',                             .&Apache::loncommon::select_dom_form('','selfenroll_newdom',
                                                                 $includeempty,$showdomdesc)                                                                  $includeempty,$showdomdesc,'','','',$readonly)
                            .'<input type="hidden" name="selfenroll_types_total" value="'.$num.'" />'                             .'<input type="hidden" name="selfenroll_types_total" value="'.$num.'" />'
                            .'</td>'.&Apache::loncommon::end_data_table_row()                             .'</td>'.&Apache::loncommon::end_data_table_row()
                            .&Apache::loncommon::end_data_table();                             .&Apache::loncommon::end_data_table();
             } elsif ($item eq 'registered') {              } elsif ($item eq 'registered') {
                 my ($regon,$regoff);                  my ($regon,$regoff);
                 if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_registered'}) {                  my $registered;
                   if (ref($currsettings) eq 'HASH') {
                       $registered = $currsettings->{'selfenroll_registered'};
                   }
                   if ($noedit{$item}) {
                       if ($registered) {
                           $output .= &mt('Must be registered in course');
                       } else {
                           $output .= &mt('No requirement');
                       }
                       $output .= '<br />'.&mt('(Set by Domain Coordinator)');
                       next;
                   }
                   if ($registered) {
                     $regon = ' checked="checked" ';                      $regon = ' checked="checked" ';
                     $regoff = ' ';                      $regoff = '';
                 } else {                  } else {
                     $regon = ' ';                      $regon = '';
                     $regoff = ' checked="checked" ';                      $regoff = ' checked="checked" ';
                 }                  }
                 $output .= '<label>'.                  $output .= '<label>'.
                            '<input type="radio" name="selfenroll_registered" value="1"'.$regon.'/>'.                             '<input type="radio" name="selfenroll_registered" value="1"'.$regon.$disabled.' />'.
                            &mt('Yes').'</label>&nbsp;&nbsp;<label>'.                             &mt('Yes').'</label>&nbsp;&nbsp;<label>'.
                            '<input type="radio" name="selfenroll_registered" value="0"'.$regoff.'/>'.                             '<input type="radio" name="selfenroll_registered" value="0"'.$regoff.$disabled.' />'.
                            &mt('No').'</label>';                             &mt('No').'</label>';
             } elsif ($item eq 'enroll_dates') {              } elsif ($item eq 'enroll_dates') {
                 my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_date'};                  my ($starttime,$endtime);
                 my $endtime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_end_date'};                  if (ref($currsettings) eq 'HASH') {
                 if ($starttime eq '') {                      $starttime = $currsettings->{'selfenroll_start_date'};
                     $starttime = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_start_date'};                      $endtime = $currsettings->{'selfenroll_end_date'};
                 }                      if ($starttime eq '') {
                 if ($endtime eq '') {                          $starttime = $currsettings->{'default_enrollment_start_date'};
                     $endtime = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_end_date'};                      }
                       if ($endtime eq '') {
                           $endtime = $currsettings->{'default_enrollment_end_date'};
                       }
                   }
                   if ($noedit{$item}) {
                       $output .= &mt('From: [_1], to: [_2]',&Apache::lonlocal::locallocaltime($starttime),
                                                             &Apache::lonlocal::locallocaltime($endtime));
                       $output .= '<br />'.&mt('(Set by Domain Coordinator)');
                       next;
                 }                  }
                 my $startform =                  my $startform =
                     &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_start_date',$starttime,                      &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_start_date',$starttime,
                                       undef,undef,undef,undef,undef,undef,undef,$nolink);                                        $disabled,undef,undef,undef,undef,undef,undef,$nolink);
                 my $endform =                  my $endform =
                     &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_end_date',$endtime,                      &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_end_date',$endtime,
                                       undef,undef,undef,undef,undef,undef,undef,$nolink);                                        $disabled,undef,undef,undef,undef,undef,undef,$nolink);
                 $output .= &selfenroll_date_forms($startform,$endform);                  $output .= &selfenroll_date_forms($startform,$endform);
             } elsif ($item eq 'access_dates') {              } elsif ($item eq 'access_dates') {
                 my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_access'};                  my ($starttime,$endtime);
                 my $endtime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_end_access'};                  if (ref($currsettings) eq 'HASH') {
                 if ($starttime eq '') {                      $starttime = $currsettings->{'selfenroll_start_access'};
                     $starttime = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_start_date'};                      $endtime = $currsettings->{'selfenroll_end_access'};
                 }                      if ($starttime eq '') {
                 if ($endtime eq '') {                          $starttime = $currsettings->{'default_enrollment_start_date'};
                     $endtime = $env{'course.'.$env{'request.course.id'}.'.default_enrollment_end_date'};                      }
                       if ($endtime eq '') {
                           $endtime = $currsettings->{'default_enrollment_end_date'};
                       }
                   }
                   if ($noedit{$item}) {
                       $output .= &mt('From: [_1], to: [_2]',&Apache::lonlocal::locallocaltime($starttime),
                                                             &Apache::lonlocal::locallocaltime($endtime));
                       $output .= '<br />'.&mt('(Set by Domain Coordinator)');
                       next;
                 }                  }
                 my $startform =                  my $startform =
                     &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_start_access',$starttime,                      &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_start_access',$starttime,
                                       undef,undef,undef,undef,undef,undef,undef,$nolink);                                        $disabled,undef,undef,undef,undef,undef,undef,$nolink);
                 my $endform =                  my $endform =
                     &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_end_access',$endtime,                      &Apache::lonhtmlcommon::date_setter($formname,'selfenroll_end_access',$endtime,
                                       undef,undef,undef,undef,undef,undef,undef,$nolink);                                        $disabled,undef,undef,undef,undef,undef,undef,$nolink);
                 $output .= &selfenroll_date_forms($startform,$endform);                  $output .= &selfenroll_date_forms($startform,$endform);
             } elsif ($item eq 'section') {              } elsif ($item eq 'section') {
                 my $currsec = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_section'};                   my $currsec;
                   if (ref($currsettings) eq 'HASH') {
                       $currsec = $currsettings->{'selfenroll_section'};
                   }
                 my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);                  my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
                 my $newsecval;                  my $newsecval;
                 if ($currsec ne 'none' && $currsec ne '') {                  if ($currsec ne 'none' && $currsec ne '') {
Line 4524  ENDSCRIPT Line 6282  ENDSCRIPT
                         $newsecval = $currsec;                          $newsecval = $currsec;
                     }                      }
                 }                  }
                   if ($noedit{$item}) {
                       if ($currsec ne '') {
                           $output .= $currsec;
                       } else {
                           $output .= &mt('No specific section');
                       }
                       $output .= '<br />'.&mt('(Set by Domain Coordinator)');
                       next;
                   }
                 my $sections_select =                   my $sections_select = 
                     &Apache::lonuserutils::course_sections(\%sections_count,'st',$currsec);                      &Apache::lonuserutils::course_sections(\%sections_count,'st',$currsec,$disabled);
                 $output .= '<table class="LC_createuser">'."\n".                  $output .= '<table class="LC_createuser">'."\n".
                            '<tr class="LC_section_row">'."\n".                             '<tr class="LC_section_row">'."\n".
                            '<td align="center">'.&mt('Existing sections')."\n".                             '<td align="center">'.&mt('Existing sections')."\n".
                            '<br />'.$sections_select.'</td><td align="center">'.                             '<br />'.$sections_select.'</td><td align="center">'.
                            &mt('New section').'<br />'."\n".                             &mt('New section').'<br />'."\n".
                            '<input type="text" name="newsec" size="15" value="'.$newsecval.'" />'."\n".                             '<input type="text" name="newsec" size="15" value="'.$newsecval.'"'.$disabled.' />'."\n".
                            '<input type="hidden" name="sections" value="" />'."\n".                             '<input type="hidden" name="sections" value="" />'."\n".
                            '<input type="hidden" name="state" value="done" />'."\n".  
                            '</td></tr></table>'."\n";                             '</td></tr></table>'."\n";
             } elsif ($item eq 'approval') {              } elsif ($item eq 'approval') {
                 my ($appon,$appoff);                  my ($currnotified,$currapproval,%appchecked);
                 my $cid = $env{'request.course.id'};                  my %selfdescs = &Apache::lonuserutils::selfenroll_default_descs();
                 my $currnotified = $env{'course.'.$cid.'.internal.selfenroll_notifylist'};                  if (ref($currsettings) eq 'HASH') {
                 if ($env{'course.'.$cid.'.internal.selfenroll_approval'}) {                      $currnotified = $currsettings->{'selfenroll_notifylist'};
                     $appon = ' checked="checked" ';                      $currapproval = $currsettings->{'selfenroll_approval'};
                     $appoff = ' ';                  }
                 } else {                  if ($currapproval !~ /^[012]$/) {
                     $appon = ' ';                      $currapproval = 0;
                     $appoff = ' checked="checked" ';                  }
                   if ($noedit{$item}) {
                       $output .=  $selfdescs{'approval'}{$currapproval}.
                                   '<br />'.&mt('(Set by Domain Coordinator)');
                       next;
                   }
                   $appchecked{$currapproval} = ' checked="checked"';
                   for my $i (0..2) {
                       $output .= '<label>'.
                                  '<input type="radio" name="selfenroll_approval" value="'.$i.'"'.
                                  $appchecked{$i}.' onclick="toggleNotify();"'.$disabled.' />'.
                                  $selfdescs{'approval'}{$i}.'</label>'.('&nbsp;'x2);
                 }                  }
                 $output .= '<label>'.  
                            '<input type="radio" name="selfenroll_approval" value="1"'.$appon.'/>'.  
                            &mt('Yes').'</label>&nbsp;&nbsp;<label>'.  
                            '<input type="radio" name="selfenroll_approval" value="0"'.$appoff.'/>'.  
                            &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 4565  ENDSCRIPT Line 6341  ENDSCRIPT
                     }                      }
                 }                  }
                 if (@ccs) {                  if (@ccs) {
                     $output .= '<br />'.&mt('Personnel to be notified when an enrollment request needs approval, or has been approved:').'&nbsp;'.&Apache::loncommon::start_data_table().                      my $style;
                       unless ($currapproval) {
                           $style = ' style="display: none;"'; 
                       }
                       $output .= '<br /><div id="notified"'.$style.'>'.
                                  &mt('Personnel to be notified when an enrollment request needs approval, or has been approved:').'&nbsp;'.
                                  &Apache::loncommon::start_data_table().
                                &Apache::loncommon::start_data_table_row();                                 &Apache::loncommon::start_data_table_row();
                     my $count = 0;                      my $count = 0;
                     my $numcols = 4;                      my $numcols = 4;
Line 4580  ENDSCRIPT Line 6362  ENDSCRIPT
                                        &Apache::loncommon::start_data_table_row()                                         &Apache::loncommon::start_data_table_row()
                         }                          }
                         $output .= '<td><span class="LC_nobreak"><label>'.                          $output .= '<td><span class="LC_nobreak"><label>'.
                                    '<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'.                                     '<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'"'.$disabled.' />'.
                                    &Apache::loncommon::plainname($ccuname,$ccudom).                                     &Apache::loncommon::plainname($ccuname,$ccudom).
                                    '</label></span></td>';                                     '</label></span></td>';
                         $count;                          $count ++;
                     }                      }
                     my $rem = $count%$numcols;                      my $rem = $count%$numcols;
                     if ($rem) {                      if ($rem) {
Line 4593  ENDSCRIPT Line 6375  ENDSCRIPT
                         }                          }
                     }                      }
                     $output .= &Apache::loncommon::end_data_table_row().                      $output .= &Apache::loncommon::end_data_table_row().
                                &Apache::loncommon::end_data_table();                                 &Apache::loncommon::end_data_table().
                                  '</div>';
                 }                  }
             } elsif ($item eq 'limit') {              } elsif ($item eq 'limit') {
                 my ($crslimit,$selflimit,$nolimit);                  my ($crslimit,$selflimit,$nolimit,$currlim,$currcap);
                 my $cid = $env{'request.course.id'};                  if (ref($currsettings) eq 'HASH') {
                 my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'};                      $currlim = $currsettings->{'selfenroll_limit'};
                 my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'};                      $currcap = $currsettings->{'selfenroll_cap'};
                 my $nolimit = ' checked="checked" ';                  }
                   if ($noedit{$item}) {
                       if (($currlim eq 'allstudents') || ($currlim eq 'selfenrolled')) {
                           if ($currlim eq 'allstudents') {
                               $output .= &mt('Limit by total students');
                           } elsif ($currlim eq 'selfenrolled') {
                               $output .= &mt('Limit by total self-enrolled students');
                           }
                           $output .= ' '.&mt('Maximum: [_1]',$currcap).
                                      '<br />'.&mt('(Set by Domain Coordinator)');
                       } else {
                           $output .= &mt('No limit').'<br />'.&mt('(Set by Domain Coordinator)');
                       }
                       next;
                   }
                 if ($currlim eq 'allstudents') {                  if ($currlim eq 'allstudents') {
                     $crslimit = ' checked="checked" ';                      $crslimit = ' checked="checked" ';
                     $selflimit = ' ';                      $selflimit = ' ';
Line 4612  ENDSCRIPT Line 6409  ENDSCRIPT
                 } else {                  } else {
                     $crslimit = ' ';                      $crslimit = ' ';
                     $selflimit = ' ';                      $selflimit = ' ';
                       $nolimit = ' checked="checked" ';
                 }                  }
                 $output .= '<table><tr><td><label>'.                  $output .= '<table><tr><td><label>'.
                            '<input type="radio" name="selfenroll_limit" value="none"'.$nolimit.'/>'.                             '<input type="radio" name="selfenroll_limit" value="none"'.$nolimit.$disabled.'/>'.
                            &mt('No limit').'</label></td><td><label>'.                             &mt('No limit').'</label></td><td><label>'.
                            '<input type="radio" name="selfenroll_limit" value="allstudents"'.$crslimit.'/>'.                             '<input type="radio" name="selfenroll_limit" value="allstudents"'.$crslimit.$disabled.'/>'.
                            &mt('Limit by total students').'</label></td><td><label>'.                             &mt('Limit by total students').'</label></td><td><label>'.
                            '<input type="radio" name="selfenroll_limit" value="selfenrolled"'.$selflimit.'/>'.                             '<input type="radio" name="selfenroll_limit" value="selfenrolled"'.$selflimit.$disabled.'/>'.
                            &mt('Limit by total self-enrolled students').                             &mt('Limit by total self-enrolled students').
                            '</td></tr><tr>'.                             '</td></tr><tr>'.
                            '<td>&nbsp;</td><td colspan="2"><span class="LC_nobreak">'.                             '<td>&nbsp;</td><td colspan="2"><span class="LC_nobreak">'.
                            ('&nbsp;'x3).&mt('Maximum number allowed: ').                             ('&nbsp;'x3).&mt('Maximum number allowed: ').
                            '<input type="text" name="selfenroll_cap" size = "5" value="'.$currcap.'" /></td></tr></table>';                             '<input type="text" name="selfenroll_cap" size = "5" value="'.$currcap.'"'.$disabled.' /></td></tr></table>';
             }              }
             $output .= &Apache::lonhtmlcommon::row_closure(1);              $output .= &Apache::lonhtmlcommon::row_closure(1);
         }          }
     }      }
     $output .= &Apache::lonhtmlcommon::end_pick_box().      $output .= &Apache::lonhtmlcommon::end_pick_box().'<br />';
                '<br /><input type="button" name="selfenrollconf" value="'      unless ($readonly) {
                .&mt('Save').'" onclick="validate_types(this.form);" />'          $output .= '<input type="button" name="selfenrollconf" value="'
                .'<input type="hidden" name="action" value="selfenroll" /></form>';                     .&mt('Save').'" onclick="validate_types(this.form);" />';
       }
       $output .= '<input type="hidden" name="action" value="selfenroll" />'
                 .'<input type="hidden" name="state" value="done" />'."\n"
                 .$additional.'</form>';
     $r->print($output);      $r->print($output);
     return;      return;
 }  }
   
 sub visible_in_cat {  sub get_noedit_fields {
     my ($cdom,$cnum) = @_;      my ($cdom,$cnum,$crstype,$row) = @_;
     my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);      my %noedit;
     my ($cathash,%settable,@vismsgs,$cansetvis);      if (ref($row) eq 'ARRAY') {
     my %visactions = &Apache::lonlocal::texthash(          my %settings = &Apache::lonnet::get('environment',['internal.coursecode','internal.textbook',
                    vis => 'Your course currently appears in the Course Catalog for this domain.',                                                             'internal.selfenrollmgrdc',
                    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.',                                                             'internal.selfenrollmgrcc'],$cdom,$cnum);
                    miss => 'Your course does not currently appear in the Course Catalog for this domain.',          my $type = &Apache::lonuserutils::get_extended_type($cdom,$cnum,$crstype,\%settings);
                    yous => 'You should remedy this if you plan to allow self-enrollment, otherwise students will have difficulty finding your course.',          my (%specific_managebydc,%specific_managebycc,%default_managebydc);
                    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.',          map { $specific_managebydc{$_} = 1; } (split(/,/,$settings{'internal.selfenrollmgrdc'}));
                    make => 'Make any changes to self-enrollment settings below, click "Save", then take action to include the course in the Catalog:',          map { $specific_managebycc{$_} = 1; } (split(/,/,$settings{'internal.selfenrollmgrcc'}));
                    take => 'Take the following action to ensure the course appears in the Catalog:',          my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
                    dc_unhide  => 'Ask a domain coordinator to change the "Exclude from course catalog" setting.',          map { $default_managebydc{$_} = 1; } (split(/,/,$domdefaults{$type.'selfenrolladmdc'}));
                    dc_addinst => 'Ask a domain coordinator to enable display the catalog of "Official courses (with institutional codes)".',  
                    dc_instcode => 'Ask a domain coordinator to assign an institutional code (if this is an official course).',          foreach my $item (@{$row}) {
                    dc_catalog  => 'Ask a domain coordinator to enable or create at least one course category in the domain.',              next if ($specific_managebycc{$item});
                    dc_categories => 'Ask a domain coordinator to create a hierarchy of categories and sub categories for courses in the domain.',              if (($specific_managebydc{$item}) || ($default_managebydc{$item})) {
                    dc_chgcat => 'Ask a domain coordinator to change the category assigned to the course, as the one currently assigned is no longer used in the domain',                  $noedit{$item} = 1;
                    dc_addcat => 'Ask a domain coordinator to assign a category to the course.',              }
     );          }
     $visactions{'unhide'} = &mt('Use [_1]Set course environment[_2] to change the "Exclude from course catalog" setting.','"<a href="/adm/parmset?action=crsenv">','</a>"');      }
     $visactions{'chgcat'} = &mt('Use [_1]Set course environment[_2] to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','"<a href="/adm/parmset?action=crsenv">','</a>"');      return %noedit;
     $visactions{'addcat'} = &mt('Use [_1]Set course environment[_2] to assign a category to the course.','"<a href="/adm/parmset?action=crsenv">','</a>"');  } 
     if (ref($domconf{'coursecategories'}) eq 'HASH') {  
         if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') {  sub visible_in_stdcat {
       my ($cdom,$cnum,$domconf) = @_;
       my ($cathash,%settable,@vismsgs,$cansetvis,$visible);
       unless (ref($domconf) eq 'HASH') {
           return ($visible,$cansetvis,\@vismsgs);
       }
       if (ref($domconf->{'coursecategories'}) eq 'HASH') {
           if ($domconf->{'coursecategories'}{'togglecats'} eq 'crs') {
             $settable{'togglecats'} = 1;              $settable{'togglecats'} = 1;
         }          }
         if ($domconf{'coursecategories'}{'categorize'} eq 'crs') {          if ($domconf->{'coursecategories'}{'categorize'} eq 'crs') {
             $settable{'categorize'} = 1;              $settable{'categorize'} = 1;
         }          }
         $cathash = $domconf{'coursecategories'}{'cats'};          $cathash = $domconf->{'coursecategories'}{'cats'};
     }      }
     if ($settable{'togglecats'} && $settable{'categorize'}) {      if ($settable{'togglecats'} && $settable{'categorize'}) {
         $cansetvis = &mt('You are able to both assign a course category and choose to exclude this course from the catalog.');             $cansetvis = &mt('You are able to both assign a course category and choose to exclude this course from the catalog.');   
Line 4681  sub visible_in_cat { Line 6490  sub visible_in_cat {
     my %currsettings =      my %currsettings =
         &Apache::lonnet::get('environment',['hidefromcat','categories','internal.coursecode'],          &Apache::lonnet::get('environment',['hidefromcat','categories','internal.coursecode'],
                              $cdom,$cnum);                               $cdom,$cnum);
     my $visible = 0;      $visible = 0;
     if ($currsettings{'internal.coursecode'} ne '') {      if ($currsettings{'internal.coursecode'} ne '') {
         if (ref($domconf{'coursecategories'}) eq 'HASH') {          if (ref($domconf->{'coursecategories'}) eq 'HASH') {
             $cathash = $domconf{'coursecategories'}{'cats'};              $cathash = $domconf->{'coursecategories'}{'cats'};
             if (ref($cathash) eq 'HASH') {              if (ref($cathash) eq 'HASH') {
                 if ($cathash->{'instcode::0'} eq '') {                  if ($cathash->{'instcode::0'} eq '') {
                     push(@vismsgs,'dc_addinst');                       push(@vismsgs,'dc_addinst'); 
Line 4708  sub visible_in_cat { Line 6517  sub visible_in_cat {
     }      }
     if ($currsettings{'categories'} ne '') {      if ($currsettings{'categories'} ne '') {
         my $cathash;          my $cathash;
         if (ref($domconf{'coursecategories'}) eq 'HASH') {          if (ref($domconf->{'coursecategories'}) eq 'HASH') {
             $cathash = $domconf{'coursecategories'}{'cats'};              $cathash = $domconf->{'coursecategories'}{'cats'};
             if (ref($cathash) eq 'HASH') {              if (ref($cathash) eq 'HASH') {
                 if (keys(%{$cathash}) == 0) {                  if (keys(%{$cathash}) == 0) {
                     push(@vismsgs,'dc_catalog');                      push(@vismsgs,'dc_catalog');
Line 4755  sub visible_in_cat { Line 6564  sub visible_in_cat {
             unshift(@vismsgs,'dc_unhide')              unshift(@vismsgs,'dc_unhide')
         }          }
     }      }
     return ($visible,$cansetvis,\@vismsgs,\%visactions);      return ($visible,$cansetvis,\@vismsgs);
   }
   
   sub cat_visibility {
       my %visactions = &Apache::lonlocal::texthash(
                      vis => 'This 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.',
                      miss => 'This course/community does not currently appear in the Course/Community Catalog for this domain.',
                      none => 'Display of a course catalog is disabled for this domain.',
                      yous => 'You should remedy this if you plan to allow self-enrollment, otherwise students will have difficulty finding this 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.',
                      make => 'Make any changes to self-enrollment settings below, click "Save", then take action to include the course in the Catalog:',
                      take => 'Take the following action to ensure the course appears in the Catalog:',
                      dc_chgconf => 'Ask a domain coordinator to change the Catalog type for this domain.',
                      dc_setcode => 'Ask a domain coordinator to assign a six character code to the course',
                      dc_unhide  => 'Ask a domain coordinator to change the "Exclude from course catalog" setting.',
                      dc_addinst => 'Ask a domain coordinator to enable display the catalog of "Official courses (with institutional codes)".',
                      dc_instcode => 'Ask a domain coordinator to assign an institutional code (if this is an official course).',
                      dc_catalog  => 'Ask a domain coordinator to enable or create at least one course category in the domain.',
                      dc_categories => 'Ask a domain coordinator to create a hierarchy of categories and sub categories for courses in the domain.',
                      dc_chgcat => 'Ask a domain coordinator to change the category assigned to the course, as the one currently assigned is no longer used in the domain',
                      dc_addcat => 'Ask a domain coordinator to assign a category to the course.',
       );
       $visactions{'unhide'} = &mt('Use [_1]Categorize course[_2] to change the "Exclude from course catalog" setting.','<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"');
       $visactions{'chgcat'} = &mt('Use [_1]Categorize course[_2] to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','"<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"');
       $visactions{'addcat'} = &mt('Use [_1]Categorize course[_2] to assign a category to the course.','"<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"');
       return \%visactions;
 }  }
   
 sub new_selfenroll_dom_row {  sub new_selfenroll_dom_row {
Line 4781  sub new_selfenroll_dom_row { Line 6616  sub new_selfenroll_dom_row {
 }  }
   
 sub selfenroll_inst_types {  sub selfenroll_inst_types {
     my ($num,$currdom,$currinsttypes) = @_;      my ($num,$currdom,$currinsttypes,$readonly) = @_;
     my $output;      my $output;
     my $numinrow = 4;      my $numinrow = 4;
     my $count = 0;      my $count = 0;
     my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);      my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);
     my $othervalue = 'any';      my $othervalue = 'any';
       my $disabled;
       if ($readonly) {
           $disabled = ' disabled="disabled"';
       }
     if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {      if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {
         if (keys(%{$usertypes}) > 0) {          if (keys(%{$usertypes}) > 0) {
             $othervalue = 'other';              $othervalue = 'other';
Line 4811  sub selfenroll_inst_types { Line 6650  sub selfenroll_inst_types {
                         $output .= 'checked="checked"';                          $output .= 'checked="checked"';
                     }                      }
                 }                  }
                 $output .= ' name="selfenroll_types_'.$num.'" />'.$usertypes->{$type}.'</label></span></td>';                  $output .= ' name="selfenroll_types_'.$num.'"'.$disabled.' />'.$usertypes->{$type}.'</label></span></td>';
             }              }
             $count ++;              $count ++;
         }          }
Line 4834  sub selfenroll_inst_types { Line 6673  sub selfenroll_inst_types {
         } else {          } else {
             $output .= ' checked="checked"';              $output .= ' checked="checked"';
         }          }
         $output .= ' name="selfenroll_types_'.$num.'" />'.$othertitle.'</label></span></td></tr></table>';          $output .= ' name="selfenroll_types_'.$num.'"'.$disabled.' />'.$othertitle.'</label></span></td></tr></table>';
     }      }
     return $output;      return $output;
 }  }
Line 4855  sub selfenroll_date_forms { Line 6694  sub selfenroll_date_forms {
 }  }
   
 sub print_userchangelogs_display {  sub print_userchangelogs_display {
     my ($r,$context,$permission) = @_;      my ($r,$context,$permission,$brcrum) = @_;
     my $formname = 'roleslog';      my $formname = 'rolelog';
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my ($username,$domain,$crstype,$viewablesec,%roleslog);
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      if ($context eq 'domain') {
     my %roleslog=&Apache::lonnet::dump('nohist_rolelog',$cdom,$cnum);          $domain = $env{'request.role.domain'};
           %roleslog=&Apache::lonnet::dump_dom('nohist_rolelog',$domain);
       } else {
           if ($context eq 'course') { 
               $domain = $env{'course.'.$env{'request.course.id'}.'.domain'};
               $username = $env{'course.'.$env{'request.course.id'}.'.num'};
               $crstype = &Apache::loncommon::course_type();
               $viewablesec = &Apache::lonuserutils::viewable_section($permission);
               my %saveable_parameters = ('show' => 'scalar',);
               &Apache::loncommon::store_course_settings('roles_log',
                                                         \%saveable_parameters);
               &Apache::loncommon::restore_course_settings('roles_log',
                                                           \%saveable_parameters);
           } elsif ($context eq 'author') {
               $domain = $env{'user.domain'}; 
               if ($env{'request.role'} =~ m{^au\./\Q$domain\E/$}) {
                   $username = $env{'user.name'};
               } else {
                   undef($domain);
               }
           }
           if ($domain ne '' && $username ne '') { 
               %roleslog=&Apache::lonnet::dump('nohist_rolelog',$domain,$username);
           }
       }
     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 $helpitem;
     my %saveable_parameters = ('show' => 'scalar',);      if ($context eq 'course') {
     &Apache::loncommon::store_course_settings('roles_log',          $helpitem = 'Course_User_Logs';
                                               \%saveable_parameters);      } elsif ($context eq 'domain') {
     &Apache::loncommon::restore_course_settings('roles_log',          $helpitem = 'Domain_Role_Logs';
                                                 \%saveable_parameters);      } elsif ($context eq 'author') {
           $helpitem = 'Author_User_Logs';
       }
       push (@{$brcrum},
                {href => '/adm/createuser?action=changelogs',
                 text => 'User Management Logs',
                 help => $helpitem});
       my $bread_crumbs_component = 'User Changes';
       my $args = { bread_crumbs           => $brcrum,
                    bread_crumbs_component => $bread_crumbs_component};
   
       # Create navigation javascript
       my $jsnav = &userlogdisplay_js($formname);
   
       my $jscript = (<<ENDSCRIPT);
   <script type="text/javascript">
   // <![CDATA[
   $jsnav
   // ]]>
   </script>
   ENDSCRIPT
   
       # print page header
       $r->print(&header($jscript,$args));
   
     # set defaults      # set defaults
     my $now = time();      my $now = time();
     my $defstart = $now - (7*24*3600); #7 days ago       my $defstart = $now - (7*24*3600); #7 days ago 
Line 4897  sub print_userchangelogs_display { Line 6784  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 ($minshown,$maxshown);      my ($minshown,$maxshown);
     $minshown = 1;      $minshown = 1;
     my $count = 0;      my $count = 0;
     if ($curr{'show'} ne &mt('all')) {       if ($curr{'show'} =~ /\D/) {
           $curr{'page'} = 1;
       } else {
         $maxshown = $curr{'page'} * $curr{'show'};          $maxshown = $curr{'page'} * $curr{'show'};
         if ($curr{'page'} > 1) {          if ($curr{'page'} > 1) {
             $minshown = 1 + ($curr{'page'} - 1) * $curr{'show'};              $minshown = 1 + ($curr{'page'} - 1) * $curr{'show'};
         }          }
     }      }
   
     # Collect user change log data      # Form Header
     my $content = '';      $r->print('<form action="/adm/createuser" method="post" name="'.$formname.'">'.
                 &role_display_filter($context,$formname,$domain,$username,\%curr,
                                      $version,$crstype));
   
       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>';
   
       if ($context eq 'course') {
           $tableheader .= '<th>'.&mt('Section').'</th>';
       }
       $tableheader .=
           '<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'}));
         if ($curr{'show'} ne &mt('all')) {          if ($curr{'show'} !~ /\D/) {
             if ($count >= $curr{'page'} * $curr{'show'}) {              if ($count >= $curr{'page'} * $curr{'show'}) {
                 $more_records = 1;                  $more_records = 1;
                 last;                  last;
Line 4929  sub print_userchangelogs_display { Line 6841  sub print_userchangelogs_display {
                 next if ($roleslog{$id}{'logentry'}{'context'} ne $curr{'chgcontext'});                  next if ($roleslog{$id}{'logentry'}{'context'} ne $curr{'chgcontext'});
             }              }
         }          }
           if (($context eq 'course') && ($viewablesec ne '')) {
               next if ($roleslog{$id}{'logentry'}{'section'} ne $viewablesec);
           }
         $count ++;          $count ++;
         next if ($count < $minshown);          next if ($count < $minshown);
           unless ($showntableheader) {
               $r->print(&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'}} =
                 &Apache::loncommon::plainname($roleslog{$id}{'exe_uname'},$roleslog{$id}{'exe_udom'});                  &Apache::loncommon::plainname($roleslog{$id}{'exe_uname'},$roleslog{$id}{'exe_udom'});
Line 4966  sub print_userchangelogs_display { Line 6886  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($context,$crstype);
         if ($chgcontext ne '' && $lt{$chgcontext} ne '') {          if ($chgcontext ne '' && $lt{$chgcontext} ne '') {
             $chgcontext = $lt{$chgcontext};              $chgcontext = $lt{$chgcontext};
         }          }
         $content .=          $r->print(
             &Apache::loncommon::start_data_table_row()              &Apache::loncommon::start_data_table_row()
            .'<td>'.$count.'</td>'             .'<td>'.$count.'</td>'
            .'<td>'.&Apache::lonlocal::locallocaltime($roleslog{$id}{'exe_time'}).'</td>'             .'<td>'.&Apache::lonlocal::locallocaltime($roleslog{$id}{'exe_time'}).'</td>'
            .'<td>'.$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}}.'</td>'             .'<td>'.$whodunit{$roleslog{$id}{'exe_uname'}.':'.$roleslog{$id}{'exe_udom'}}.'</td>'
            .'<td>'.$changed{$roleslog{$id}{'uname'}.':'.$roleslog{$id}{'udom'}}.'</td>'             .'<td>'.$changed{$roleslog{$id}{'uname'}.':'.$roleslog{$id}{'udom'}}.'</td>'
            .'<td>'.&Apache::lonnet::plaintext($roleslog{$id}{'logentry'}{'role'}).'</td>'             .'<td>'.&Apache::lonnet::plaintext($roleslog{$id}{'logentry'}{'role'},$crstype).'</td>');
            .'<td>'.$sec.'</td>'          if ($context eq 'course') { 
            .'<td>'.$chgcontext.'</td>'              $r->print('<td>'.$sec.'</td>');
           }
           $r->print(
               '<td>'.$chgcontext.'</td>'
            .'<td>'.$rolestart.'</td>'             .'<td>'.$rolestart.'</td>'
            .'<td>'.$roleend.'</td>'             .'<td>'.$roleend.'</td>'
            .&Apache::loncommon::end_data_table_row();             .&Apache::loncommon::end_data_table_row()."\n");
     }      }
   
     # Form Footer      if ($showntableheader) { # Table footer, if content displayed above
     my $form_footer =          $r->print(&Apache::loncommon::end_data_table().
         '<input type="hidden" name="page" value="'.$curr{'page'}.'" />'                    &userlogdisplay_navlinks(\%curr,$more_records));
        .'<input type="hidden" name="action" value="changelogs" />'      } else { # No content displayed above
        .'</form>';  
   
     # Only display table, if content is available (has been collected above)  
     if (!$content) {  
         $r->print('<p class="LC_info">'          $r->print('<p class="LC_info">'
                  .&mt('There are no records to display.')                   .&mt('There are no records to display.')
                  .'</p>'                   .'</p>'
         );          );
         $r->print($form_footer);  
         return;  
     }      }
   
     # Content to display, so create navigation and display table      # Form Footer
       $r->print( 
           '<input type="hidden" name="page" value="'.$curr{'page'}.'" />'
          .'<input type="hidden" name="action" value="changelogs" />'
          .'</form>');
       return;
   }
   
   sub print_useraccesslogs_display {
       my ($r,$uname,$udom,$permission,$brcrum) = @_;
       my $formname = 'accesslog';
       my $form = 'document.accesslog';
   
   # set breadcrumbs
       my %breadcrumb_text = &singleuser_breadcrumb('','domain',$udom);
       my $prevphasestr;
       if ($env{'form.popup'}) {
           $brcrum = [];
       } else {
           push (@{$brcrum},
               {href => "javascript:backPage($form)",
                text => $breadcrumb_text{'search'}});
           my @prevphases;
           if ($env{'form.prevphases'}) {
               @prevphases = split(/,/,$env{'form.prevphases'});
               $prevphasestr = $env{'form.prevphases'};
           }
           if (($env{'form.phase'} eq 'userpicked') || (grep(/^userpicked$/,@prevphases))) {
               push(@{$brcrum},
                     {href => "javascript:backPage($form,'get_user_info','select')",
                      text => $breadcrumb_text{'userpicked'}});
               if ($env{'form.phase'} eq 'userpicked') {
                   $prevphasestr = 'userpicked';
               }
           }
       }
       push(@{$brcrum},
                {href => '/adm/createuser?action=accesslogs',
                 text => 'User access logs',
                 help => 'Domain_User_Access_Logs'});
       my $bread_crumbs_component = 'User Access Logs';
       my $args = { bread_crumbs           => $brcrum,
                    bread_crumbs_component => 'User Management'};
       if ($env{'form.popup'}) {
           $args->{'no_nav_bar'} = 1;
           $args->{'bread_crumbs_nomenu'} = 1;
       }
   
     # Create Navigation:  # set javascript
     # Navigation Script      my ($jsback,$elements) = &crumb_utilities();
     my $nav_script = <<"ENDSCRIPT";      my $jsnav = &userlogdisplay_js($formname);
   
       my $jscript = (<<ENDSCRIPT);
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
   
   $jsback
   $jsnav
   
   // ]]>
   </script>
   
   ENDSCRIPT
   
   # print page header
       $r->print(&header($jscript,$args));
   
   # early out unless log data can be displayed.
       unless ($permission->{'activity'}) {
           $r->print('<p class="LC_warning">'
                    .&mt('You do not have rights to display user access logs.')
                    .'</p>');
           if ($env{'form.popup'}) {
               $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');
           } else {
               $r->print(&earlyout_accesslog_form($formname,$prevphasestr,$udom));
           }
           return;
       }
   
       unless ($udom eq $env{'request.role.domain'}) {
           $r->print('<p class="LC_warning">'
                    .&mt("User's domain must match role's domain")
                    .'</p>'
                    .&earlyout_accesslog_form($formname,$prevphasestr,$udom));
           return;
       }
   
       if (($uname eq '') || ($udom eq '')) {
           $r->print('<p class="LC_warning">'
                    .&mt('Invalid username or domain')
                    .'</p>'
                    .&earlyout_accesslog_form($formname,$prevphasestr,$udom));
           return;
       }
   
       if (&Apache::lonnet::privileged($uname,$udom,
                                       [$env{'request.role.domain'}],['dc','su'])) {
           unless (&Apache::lonnet::privileged($env{'user.name'},$env{'user.domain'},
                                               [$env{'request.role.domain'}],['dc','su'])) {
               $r->print('<p class="LC_warning">'
                    .&mt('You need to be a privileged user to display user access logs for [_1]',
                         &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),
                                                            $uname,$udom))
                    .'</p>');
               if ($env{'form.popup'}) {
                   $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');
               } else {
                   $r->print(&earlyout_accesslog_form($formname,$prevphasestr,$udom));
               }
               return;
           }
       }
   
   # set defaults
       my $now = time();
       my $defstart = $now - (7*24*3600);
       my %defaults = (
                        page                 => '1',
                        show                 => '10',
                        activity             => 'any',
                        accesslog_start_date => $defstart,
                        accesslog_end_date   => $now,
                      );
       my $more_records = 0;
   
   # set current
       my %curr;
       foreach my $item ('show','page','activity') {
           $curr{$item} = $env{'form.'.$item};
       }
       my ($startdate,$enddate) =
           &Apache::lonuserutils::get_dates_from_form('accesslog_start_date','accesslog_end_date');
       $curr{'accesslog_start_date'} = $startdate;
       $curr{'accesslog_end_date'} = $enddate;
       foreach my $key (keys(%defaults)) {
           if ($curr{$key} eq '') {
               $curr{$key} = $defaults{$key};
           }
       }
       my ($minshown,$maxshown);
       $minshown = 1;
       my $count = 0;
       if ($curr{'show'} =~ /\D/) {
           $curr{'page'} = 1;
       } else {
           $maxshown = $curr{'page'} * $curr{'show'};
           if ($curr{'page'} > 1) {
               $minshown = 1 + ($curr{'page'} - 1) * $curr{'show'};
           }
       }
   
   # form header
       $r->print('<form action="/adm/createuser" method="post" name="'.$formname.'">'.
                 &activity_display_filter($formname,\%curr));
   
       my $showntableheader = 0;
       my ($nav_script,$nav_links);
   
   # table header
       my $heading = '<h3>'.
           &mt('User access logs for: [_1]',
               &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom)).'</h3>';
       my $tableheader = $heading
          .&Apache::loncommon::start_data_table_header_row()
          .'<th>&nbsp;</th>'
          .'<th>'.&mt('When').'</th>'
          .'<th>'.&mt('HostID').'</th>'
          .'<th>'.&mt('Event').'</th>'
          .'<th>'.&mt('Other data').'</th>'
          .&Apache::loncommon::end_data_table_header_row();
   
       my %filters=(
           start  => $curr{'accesslog_start_date'},
           end    => $curr{'accesslog_end_date'},
           action => $curr{'activity'},
       );
   
       my $reply = &Apache::lonnet::userlog_query($uname,$udom,%filters);
       unless ( ($reply =~/^timeout/) || ($reply =~/^error/) ) {
           my (%courses,%missing);
           my @results = split(/\&/,$reply);
           foreach my $item (reverse(@results)) {
               my ($timestamp,$host,$event) = split(/:/,$item);
               next unless ($event =~ /^(Log|Role)/);
               if ($curr{'show'} !~ /\D/) {
                   if ($count >= $curr{'page'} * $curr{'show'}) {
                       $more_records = 1;
                       last;
                   }
               }
               $count ++;
               next if ($count < $minshown);
               unless ($showntableheader) {
                   $r->print($nav_script
                            .&Apache::loncommon::start_data_table()
                            .$tableheader);
                   $r->rflush();
                   $showntableheader = 1;
               }
               my ($shown,$extra);
               my ($event,$data) = split(/\s+/,&unescape($event),2);
               if ($event eq 'Role') {
                   my ($rolecode,$extent) = split(/\./,$data,2);
                   next if ($extent eq '');
                   my ($crstype,$desc,$info);
                   if ($extent =~ m{^/($match_domain)/($match_courseid)(?:/(\w+)|)$}) {
                       my ($cdom,$cnum,$sec) = ($1,$2,$3);
                       my $cid = $cdom.'_'.$cnum;
                       if (exists($courses{$cid})) {
                           $crstype = $courses{$cid}{'type'};
                           $desc = $courses{$cid}{'description'};
                       } elsif ($missing{$cid}) {
                           $crstype = 'Course';
                           $desc = 'Course/Community';
                       } else {
                           my %crsinfo = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum,undef,undef,'.');
                           if (ref($crsinfo{$cdom.'_'.$cnum}) eq 'HASH') {
                               $courses{$cid} = $crsinfo{$cid};
                               $crstype = $crsinfo{$cid}{'type'};
                               $desc = $crsinfo{$cid}{'description'};
                           } else {
                               $missing{$cid} = 1;
                           }
                       }
                       $extra = &mt($crstype).': <a href="/public/'.$cdom.'/'.$cnum.'/syllabus">'.$desc.'</a>';
                       if ($sec ne '') {
                          $extra .= ' ('.&mt('Section: [_1]',$sec).')';
                       }
                   } elsif ($extent =~ m{^/($match_domain)/($match_username|$)}) {
                       my ($dom,$name) = ($1,$2);
                       if ($rolecode eq 'au') {
                           $extra = '';
                       } elsif ($rolecode =~ /^(ca|aa)$/) {
                           $extra = &mt('Authoring Space: [_1]',$name.':'.$dom);
                       } elsif ($rolecode =~ /^(li|dg|dh|dc|sc)$/) {
                           $extra = &mt('Domain: [_1]',$dom);
                       }
                   }
                   my $rolename;
                   if ($rolecode =~ m{^cr/($match_domain)/($match_username)/(\w+)}) {
                       my $role = $3;
                       my $owner = "($2:$1)";
                       if ($2 eq $1.'-domainconfig') {
                           $owner = '(ad hoc)';
                       }
                       $rolename = &mt('Custom role: [_1]',$role.' '.$owner);
                   } else {
                       $rolename = &Apache::lonnet::plaintext($rolecode,$crstype);
                   }
                   $shown = &mt('Role selection: [_1]',$rolename);
               } else {
                   $shown = &mt($event);
                   if ($data =~ /^webdav/) {
                       my ($path,$clientip) = split(/\s+/,$data,2);
                       $path =~ s/^webdav//;
                       if ($clientip ne '') {
                           $extra = &mt('Client IP address: [_1]',$clientip);
                       }
                       if ($path ne '') {
                           $shown .= ' '.&mt('(WebDAV access to [_1])',$path);
                       }
                   } elsif ($data ne '') {
                       $extra = &mt('Client IP address: [_1]',$data);
                   }
               }
               $r->print(
               &Apache::loncommon::start_data_table_row()
              .'<td>'.$count.'</td>'
              .'<td>'.&Apache::lonlocal::locallocaltime($timestamp).'</td>'
              .'<td>'.$host.'</td>'
              .'<td>'.$shown.'</td>'
              .'<td>'.$extra.'</td>'
              .&Apache::loncommon::end_data_table_row()."\n");
           }
       }
   
       if ($showntableheader) { # Table footer, if content displayed above
           $r->print(&Apache::loncommon::end_data_table().
                     &userlogdisplay_navlinks(\%curr,$more_records));
       } else { # No content displayed above
           $r->print($heading.'<p class="LC_info">'
                    .&mt('There are no records to display.')
                    .'</p>');
       }
   
       if ($env{'form.popup'} == 1) {
           $r->print('<input type="hidden" name="popup" value="1" />'."\n");
       }
   
       # Form Footer
       $r->print(
           '<input type="hidden" name="currstate" value="" />'
          .'<input type="hidden" name="accessuname" value="'.$uname.'" />'
          .'<input type="hidden" name="accessudom" value="'.$udom.'" />'
          .'<input type="hidden" name="page" value="'.$curr{'page'}.'" />'
          .'<input type="hidden" name="prevphases" value="'.$prevphasestr.'" />'
          .'<input type="hidden" name="phase" value="activity" />'
          .'<input type="hidden" name="action" value="accesslogs" />'
          .'<input type="hidden" name="srchdomain" value="'.$udom.'" />'
          .'<input type="hidden" name="srchby" value="'.$env{'form.srchby'}.'" />'
          .'<input type="hidden" name="srchtype" value="'.$env{'form.srchtype'}.'" />'
          .'<input type="hidden" name="srchterm" value="'.&HTML::Entities::encode($env{'form.srchterm'},'<>"&').'" />'
          .'<input type="hidden" name="srchin" value="'.$env{'form.srchin'}.'" />'
          .'</form>');
       return;
   }
   
   sub earlyout_accesslog_form {
       my ($formname,$prevphasestr,$udom) = @_;
       my $srchterm = &HTML::Entities::encode($env{'form.srchterm'},'<>"&');
      return <<"END";
   <form action="/adm/createuser" method="post" name="$formname">
   <input type="hidden" name="currstate" value="" />
   <input type="hidden" name="prevphases" value="$prevphasestr" />
   <input type="hidden" name="phase" value="activity" />
   <input type="hidden" name="action" value="accesslogs" />
   <input type="hidden" name="srchdomain" value="$udom" />
   <input type="hidden" name="srchby" value="$env{'form.srchby'}" />
   <input type="hidden" name="srchtype" value="$env{'form.srchtype'}" />
   <input type="hidden" name="srchterm" value="$srchterm" />
   <input type="hidden" name="srchin" value="$env{'form.srchin'}" />
   </form>
   END
   }
   
   sub activity_display_filter {
       my ($formname,$curr) = @_;
       my $nolink = 1;
       my $output = '<table><tr><td valign="top">'.
                    '<span class="LC_nobreak"><b>'.&mt('Actions/page:').'</b></span><br />'.
                    &Apache::lonmeta::selectbox('show',$curr->{'show'},undef,
                                                 (&mt('all'),5,10,20,50,100,1000,10000)).
                    '</td><td>&nbsp;&nbsp;</td>';
       my $startform =
           &Apache::lonhtmlcommon::date_setter($formname,'accesslog_start_date',
                                               $curr->{'accesslog_start_date'},undef,
                                               undef,undef,undef,undef,undef,undef,$nolink);
       my $endform =
           &Apache::lonhtmlcommon::date_setter($formname,'accesslog_end_date',
                                               $curr->{'accesslog_end_date'},undef,
                                               undef,undef,undef,undef,undef,undef,$nolink);
       my %lt = &Apache::lonlocal::texthash (
                                             activity => 'Activity',
                                             Role     => 'Role selection',
                                             log      => 'Log-in or Logout',
       );
       $output .= '<td valign="top"><b>'.&mt('Window during which actions occurred:').'</b><br />'.
                  '<table><tr><td>'.&mt('After:').
                  '</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('Activities').'</b><br />'.
                  '<select name="activity"><option value="any"';
       if ($curr->{'activity'} eq 'any') {
           $output .= ' selected="selected"';
       }
       $output .= '>'.&mt('Any').'</option>'."\n";
       foreach my $activity ('Role','log') {
           my $selstr = '';
           if ($activity eq $curr->{'activity'}) {
               $selstr = ' selected="selected"';
           }
           $output .= '<option value="'.$activity.'"'.$selstr.'>'.$lt{$activity}.'</option>';
       }
       $output .= '</select></td>'.
                  '</tr></table>';
       # Update Display button
       $output .= '<p>'
                 .'<input type="submit" value="'.&mt('Update Display').'" />'
                 .'</p><hr />';
       return $output;
   }
   
   sub userlogdisplay_js {
       my ($formname) = @_;
       return <<"ENDSCRIPT";
   
 function chgPage(caller) {  function chgPage(caller) {
     if (caller == 'previous') {      if (caller == 'previous') {
         document.$formname.page.value --;          document.$formname.page.value --;
Line 5014  function chgPage(caller) { Line 7304  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>  
 ENDSCRIPT  ENDSCRIPT
   }
   
   sub userlogdisplay_navlinks {
       my ($curr,$more_records) = @_;
       return unless(ref($curr) eq 'HASH');
     # Navigation Buttons      # Navigation Buttons
     my $nav_links;      my $nav_links = '<p>';
     $nav_links = '<p>';      if (($curr->{'page'} > 1) || ($more_records)) {
     if (($curr{'page'} > 1) || ($more_records)) {          if (($curr->{'page'} > 1) && ($curr->{'show'} !~ /\D/)) {
         if ($curr{'page'} > 1) {  
             $nav_links .= '<input type="button"'              $nav_links .= '<input type="button"'
                          .' onclick="javascript:chgPage('."'previous'".');"'                           .' onclick="javascript:chgPage('."'previous'".');"'
                          .' value="'.&mt('Previous [_1] changes',$curr{'show'})                           .' value="'.&mt('Previous [_1] changes',$curr->{'show'})
                          .'" /> ';                           .'" /> ';
         }          }
         if ($more_records) {          if ($more_records) {
             $nav_links .= '<input type="button"'              $nav_links .= '<input type="button"'
                          .' onclick="javascript:chgPage('."'next'".');"'                           .' onclick="javascript:chgPage('."'next'".');"'
                          .' value="'.&mt('Next [_1] changes',$curr{'show'})                           .' value="'.&mt('Next [_1] changes',$curr->{'show'})
                          .'" />';                           .'" />';
         }          }
     }      }
     $nav_links .= '</p>';      $nav_links .= '</p>';
       return $nav_links;
     # 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();  
   
     # Print Content  
     $r->print(  
         $nav_script  
        .$nav_links  
        .&Apache::loncommon::start_data_table()  
        .$tableheader  
        .$content  
        .&Apache::loncommon::end_data_table()  
        .$nav_links  
        .$form_footer  
     );  
     return;  
 }  }
   
 sub role_display_filter {  sub role_display_filter {
     my ($formname,$cdom,$cnum,$curr,$version) = @_;      my ($context,$formname,$cdom,$cnum,$curr,$version,$crstype) = @_;
     my $context = 'course';      my $lctype;
       if ($context eq 'course') {
           $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></span><br />'.                   '<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b></span><br />'.
Line 5084  sub role_display_filter { Line 7353  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($context,$crstype);
     $output .= '<td valign="top"><b>'.&mt('Window during which changes occurred:').'</b><br />'.      $output .= '<td valign="top"><b>'.&mt('Window during which changes occurred:').'</b><br />'.
                '<table><tr><td>'.&mt('After:').                 '<table><tr><td>'.&mt('After:').
                '</td><td>'.$startform.'</td></tr>'.                 '</td><td>'.$startform.'</td></tr>'.
Line 5098  sub role_display_filter { Line 7367  sub role_display_filter {
         $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::roles_by_context($context,1,$crstype);
     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 5116  sub role_display_filter { Line 7385  sub role_display_filter {
                '<td>&nbsp;&nbsp;</td>'.                 '<td>&nbsp;&nbsp;</td>'.
                '<td valign="top"><b>'.                 '<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') {      my @posscontexts;
       if ($context eq 'course') {
           @posscontexts = ('any','automated','updatenow','createcourse','course','domain','selfenroll','requestcourses');
       } elsif ($context eq 'domain') {
           @posscontexts = ('any','domain','requestauthor','domconfig','server');
       } else {
           @posscontexts = ('any','author','domain');
       } 
       foreach my $chgtype (@posscontexts) {
         my $selstr = '';          my $selstr = '';
         if ($curr->{'chgcontext'} eq $chgtype) {          if ($curr->{'chgcontext'} eq $chgtype) {
             $selstr = ' selected="selected"';              $selstr = ' selected="selected"';
         }          }
         if (($chgtype eq 'auto') || ($chgtype eq 'updatenow')) {          if ($context eq 'course') {
             next if (!&Apache::lonnet::auto_run($cnum,$cdom));              if (($chgtype eq 'automated') || ($chgtype eq 'updatenow')) {
                   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";
     }      }
Line 5135  sub role_display_filter { Line 7414  sub role_display_filter {
               .'</p>';                .'</p>';
   
     # Server version info      # Server version info
       my $needsrev = '2.11.0';
       if ($context eq 'course') {
           $needsrev = '2.7.0';
       }
       
     $output .= '<p class="LC_info">'      $output .= '<p class="LC_info">'
               .&mt('Only changes made from servers running LON-CAPA [_1] or later are displayed.'                .&mt('Only changes made from servers running LON-CAPA [_1] or later are displayed.'
                   ,'2.6.99.0');                    ,$needsrev);
     if ($version) {      if ($version) {
         $output .= ' '.&mt('This LON-CAPA server is version [_1]',$version);          $output .= ' '.&mt('This LON-CAPA server is version [_1]',$version);
     }      }
Line 5146  sub role_display_filter { Line 7430  sub role_display_filter {
 }  }
   
 sub rolechg_contexts {  sub rolechg_contexts {
     my %lt = &Apache::lonlocal::texthash (      my ($context,$crstype) = @_;
       my %lt;
       if ($context eq 'course') {
           %lt = &Apache::lonlocal::texthash (
                                              any          => 'Any',                                               any          => 'Any',
                                              auto         => 'Automated enrollment',                                               automated    => 'Automated Enrollment',
                                              updatenow    => 'Roster Update',                                               updatenow    => 'Roster Update',
                                              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',                                                requestcourses => 'Course Request',
                                          );                                           );
           if ($crstype eq 'Community') {
               $lt{'createcourse'} = &mt('Community Creation');
               $lt{'course'} = &mt('User Management in community');
               $lt{'requestcourses'} = &mt('Community Request');
           }
       } elsif ($context eq 'domain') {
           %lt = &Apache::lonlocal::texthash (
                                                any           => 'Any',
                                                domain        => 'User Management in domain',
                                                requestauthor => 'Authoring Request',
                                                server        => 'Command line script (DC role)',
                                                domconfig     => 'Self-enrolled',
                                            );
       } else {
           %lt = &Apache::lonlocal::texthash (
                                                any    => 'Any',
                                                domain => 'User Management in domain',
                                                author => 'User Management by author',
                                            );
       } 
     return %lt;      return %lt;
 }  }
   
   sub print_helpdeskaccess_display {
       my ($r,$permission,$brcrum) = @_;
       my $formname = 'helpdeskaccess';
       my $helpitem = 'Course_Helpdesk_Access';
       push (@{$brcrum},
                {href => '/adm/createuser?action=helpdesk',
                 text => 'Helpdesk Access',
                 help => $helpitem});
       my $bread_crumbs_component = 'Helpdesk Staff Access';
       my $args = { bread_crumbs           => $brcrum,
                    bread_crumbs_component => $bread_crumbs_component};
   
       my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $confname = $cdom.'-domainconfig';
       my $crstype = &Apache::loncommon::course_type();
   
       my @accesstypes = ('all','dh','da','none');
       my ($numstatustypes,@jsarray);
       my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($cdom);
       if (ref($types) eq 'ARRAY') {
           if (@{$types} > 0) {
               $numstatustypes = scalar(@{$types});
               push(@accesstypes,'status');
               @jsarray = ('bystatus');
           }
       }
       my %customroles = &get_domain_customroles($cdom,$confname);
       my %domhelpdesk = &Apache::lonnet::get_active_domroles($cdom,['dh','da']);
       if (keys(%domhelpdesk)) {
          push(@accesstypes,('inc','exc'));
          push(@jsarray,('notinc','notexc'));
       }
       push(@jsarray,'privs');
       my $hiddenstr = join("','",@jsarray);
       my $rolestr = join("','",sort(keys(%customroles)));
   
       my $jscript;
       my (%settings,%overridden);
       if (keys(%customroles)) {
           &get_adhocrole_settings($env{'request.course.id'},\@accesstypes,
                                   $types,\%customroles,\%settings,\%overridden);
           my %jsfull=();
           my %jslevels= (
                        course => {},
                        domain => {},
                        system => {},
                       );
           my %jslevelscurrent=(
                              course => {},
                              domain => {},
                              system => {},
                             );
           my (%privs,%jsprivs);
           &Apache::lonuserutils::custom_role_privs(\%privs,\%jsfull,\%jslevels,\%jslevelscurrent);
           foreach my $priv (keys(%jsfull)) {
               if ($jslevels{'course'}{$priv}) {
                   $jsprivs{$priv} = 1;
               }
           }
           my (%elements,%stored);
           foreach my $role (keys(%customroles)) {
               $elements{$role.'_access'} = 'radio';
               $elements{$role.'_incrs'} = 'radio';
               if ($numstatustypes) {
                   $elements{$role.'_status'} = 'checkbox';
               }
               if (keys(%domhelpdesk) > 0) {
                   $elements{$role.'_staff_inc'} = 'checkbox';
                   $elements{$role.'_staff_exc'} = 'checkbox';
               }
               $elements{$role.'_override'} = 'checkbox';
               if (ref($settings{$role}) eq 'HASH') {
                   if ($settings{$role}{'access'} ne '') {
                       my $curraccess = $settings{$role}{'access'};
                       $stored{$role.'_access'} = $curraccess;
                       $stored{$role.'_incrs'} = 1;
                       if ($curraccess eq 'status') {
                           if (ref($settings{$role}{'status'}) eq 'ARRAY') {
                               $stored{$role.'_status'} = $settings{$role}{'status'};
                           }
                       } elsif (($curraccess eq 'exc') || ($curraccess eq 'inc')) {
                           if (ref($settings{$role}{$curraccess}) eq 'ARRAY') {
                               $stored{$role.'_staff_'.$curraccess} = $settings{$role}{$curraccess};
                           }
                       }
                   } else {
                       $stored{$role.'_incrs'} = 0;
                   }
                   $stored{$role.'_override'} = [];
                   if ($env{'course.'.$env{'request.course.id'}.'.internal.adhocpriv.'.$role}) {
                       if (ref($settings{$role}{'off'}) eq 'ARRAY') {
                           foreach my $priv (@{$settings{$role}{'off'}}) {
                               push(@{$stored{$role.'_override'}},$priv);
                           }
                       }
                       if (ref($settings{$role}{'on'}) eq 'ARRAY') {
                           foreach my $priv (@{$settings{$role}{'on'}}) {
                               unless (grep(/^$priv$/,@{$stored{$role.'_override'}})) {
                                   push(@{$stored{$role.'_override'}},$priv);
                               }
                           }
                       }
                   }
               } else {
                   $stored{$role.'_incrs'} = 0;
               }
           }
           $jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements,\%stored);
       }
   
       my $js = <<"ENDJS";
   <script type="text/javascript">
   // <![CDATA[
   $jscript;
   
   function switchRoleTab(caller,role) {
       if (document.getElementById(role+'_maindiv')) {
           if (caller.id != 'LC_current_minitab') {
               if (document.getElementById('LC_current_minitab')) {
                   document.getElementById('LC_current_minitab').id=null;
               }
               var roledivs = Array('$rolestr');
               if (roledivs.length > 0) {
                   for (var i=0; i<roledivs.length; i++) {
                       if (document.getElementById(roledivs[i]+'_maindiv')) {
                           document.getElementById(roledivs[i]+'_maindiv').style.display='none';
                       }
                   }
               }
               caller.id = 'LC_current_minitab';
               document.getElementById(role+'_maindiv').style.display='block';
           }
       }
       return false;
   }
   
   function helpdeskAccess(role) {
       var curraccess = null;
       if (document.$formname.elements[role+'_access'].length) {
           for (var i=0; i<document.$formname.elements[role+'_access'].length; i++) {
               if (document.$formname.elements[role+'_access'][i].checked) {
                   curraccess = document.$formname.elements[role+'_access'][i].value;
               }
           }
       }
       var shown = Array();
       var hidden = Array();
       if (curraccess == 'none') {
           hidden = Array ('$hiddenstr');
       } else {
           if (curraccess == 'status') {
               shown = Array ('bystatus','privs');
               hidden = Array ('notinc','notexc');
           } else {
               if (curraccess == 'exc') {
                   shown = Array ('notexc','privs');
                   hidden = Array ('notinc','bystatus');
               }
               if (curraccess == 'inc') {
                   shown = Array ('notinc','privs');
                   hidden = Array ('notexc','bystatus');
               }
               if (curraccess == 'all') {
                   shown = Array ('privs');
                   hidden = Array ('notinc','notexc','bystatus');
               }
           }
       }
       if (hidden.length > 0) {
           for (var i=0; i<hidden.length; i++) {
               if (document.getElementById(role+'_'+hidden[i])) {
                   document.getElementById(role+'_'+hidden[i]).style.display = 'none';
               }
           }
       }
       if (shown.length > 0) {
           for (var i=0; i<shown.length; i++) {
               if (document.getElementById(role+'_'+shown[i])) {
                   if (shown[i] == 'privs') {
                       document.getElementById(role+'_'+shown[i]).style.display = 'block';
                   } else {
                       document.getElementById(role+'_'+shown[i]).style.display = 'inline';
                   }
               }
           }
       }
       return;
   }
   
   function toggleAccess(role) {
       if ((document.getElementById(role+'_setincrs')) &&
           (document.getElementById(role+'_setindom'))) {
           for (var i=0; i<document.$formname.elements[role+'_incrs'].length; i++) {
               if (document.$formname.elements[role+'_incrs'][i].checked) {
                   if (document.$formname.elements[role+'_incrs'][i].value == 1) {
                       document.getElementById(role+'_setindom').style.display = 'none';
                       document.getElementById(role+'_setincrs').style.display = 'block';
                   } else {
                       document.getElementById(role+'_setincrs').style.display = 'none';
                       document.getElementById(role+'_setindom').style.display = 'block';
                   }
                   break;
               }
           }
       }
       return;
   }
   
   // ]]>
   </script>
   ENDJS
   
       $args->{add_entries} = {onload => "javascript:setFormElements(document.$formname)"};
   
       # print page header
       $r->print(&header($js,$args));
       # print form header
       $r->print('<form action="/adm/createuser" method="post" name="'.$formname.'">');
   
       if (keys(%customroles)) {
           my %lt = &Apache::lonlocal::texthash(
                       'aco'    => 'As course owner you may override the defaults set in the domain for role usage and/or privileges.',
                       'rou'    => 'Role usage',
                       'whi'    => 'Which helpdesk personnel may use this role?',
                       'udd'    => 'Use domain default',
                       'all'    => 'All with domain helpdesk or helpdesk assistant role',
                       'dh'     => 'All with domain helpdesk role',
                       'da'     => 'All with domain helpdesk assistant role',
                       'none'   => 'None',
                       'status' => 'Determined based on institutional status',
                       'inc'    => 'Include all, but exclude specific personnel',
                       'exc'    => 'Exclude all, but include specific personnel',
                       'hel'    => 'Helpdesk',
                       'rpr'    => 'Role privileges',
                    );
           $lt{'tfh'} = &mt("Custom [_1]ad hoc[_2] course roles available for use by the domain's helpdesk are as follows",'<i>','</i>');
           my %domconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$cdom);
           my (%domcurrent,%ordered,%description,%domusage,$disabled);
           if (ref($domconfig{'helpsettings'}) eq 'HASH') {
               if (ref($domconfig{'helpsettings'}{'adhoc'}) eq 'HASH') {
                   %domcurrent = %{$domconfig{'helpsettings'}{'adhoc'}};
               }
           }
           my $count = 0;
           foreach my $role (sort(keys(%customroles))) {
               my ($order,$desc,$access_in_dom);
               if (ref($domcurrent{$role}) eq 'HASH') {
                   $order = $domcurrent{$role}{'order'};
                   $desc = $domcurrent{$role}{'desc'};
                   $access_in_dom = $domcurrent{$role}{'access'};
               }
               if ($order eq '') {
                   $order = $count;
               }
               $ordered{$order} = $role;
               if ($desc ne '') {
                   $description{$role} = $desc;
               } else {
                   $description{$role}= $role;
               }
               $count++;
           }
           %domusage = &domain_adhoc_access(\%customroles,\%domcurrent,\@accesstypes,$usertypes,$othertitle);
           my @roles_by_num = ();
           foreach my $item (sort {$a <=> $b } (keys(%ordered))) {
               push(@roles_by_num,$ordered{$item});
           }
           $r->print('<p>'.$lt{'tfh'}.': <i>'.join('</i>, <i>',map { $description{$_}; } @roles_by_num).'</i>.');
           if ($permission->{'owner'}) {
               $r->print('<br />'.$lt{'aco'}.'</p><p>');
               $r->print('<input type="hidden" name="state" value="process" />'.
                         '<input type="submit" value="'.&mt('Save changes').'" />');
           } else {
               if ($env{'course.'.$env{'request.course.id'}.'.internal.courseowner'}) {
                   my ($ownername,$ownerdom) = split(/:/,$env{'course.'.$env{'request.course.id'}.'.internal.courseowner'});
                   $r->print('<br />'.&mt('The course owner -- [_1] -- can override the default access and/or privileges for these ad hoc roles.',
                                       &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($ownername,$ownerdom),$ownername,$ownerdom)));
               }
               $disabled = ' disabled="disabled"';
           }
           $r->print('</p>');
   
           $r->print('<div id="LC_minitab_header"><ul>');
           my $count = 0;
           my %visibility;
           foreach my $role (@roles_by_num) {
               my $id;
               if ($count == 0) {
                   $id=' id="LC_current_minitab"';
                   $visibility{$role} = ' style="display:block"';
               } else {
                   $visibility{$role} = ' style="display:none"';
               }
               $count ++;
               $r->print('<li'.$id.'><a href="#" onclick="javascript:switchRoleTab(this.parentNode,'."'$role'".');">'.$description{$role}.'</a></li>');
           }
           $r->print('</ul></div>');
   
           foreach my $role (@roles_by_num) {
               my %usecheck = (
                                all => ' checked="checked"',
                              );
               my %displaydiv = (
                                   status => 'none',
                                   inc    => 'none',
                                   exc    => 'none',
                                   priv   => 'block',
                                );
               my (%selected,$overridden,$incrscheck,$indomcheck,$indomvis,$incrsvis);
               if (ref($settings{$role}) eq 'HASH') {
                   if ($settings{$role}{'access'} ne '') {
                       $indomvis = ' style="display:none"';
                       $incrsvis = ' style="display:block"';
                       $incrscheck = ' checked="checked"';
                       if ($settings{$role}{'access'} ne 'all') {
                           $usecheck{$settings{$role}{'access'}} = $usecheck{'all'};
                           delete($usecheck{'all'});
                           if ($settings{$role}{'access'} eq 'status') {
                               my $access = 'status';
                               $displaydiv{$access} = 'inline';
                               if (ref($settings{$role}{$access}) eq 'ARRAY') {
                                   $selected{$access} = $settings{$role}{$access};
                               }
                           } elsif ($settings{$role}{'access'} =~ /^(inc|exc)$/) {
                               my $access = $1;
                               $displaydiv{$access} = 'inline';
                               if (ref($settings{$role}{$access}) eq 'ARRAY') {
                                   $selected{$access} = $settings{$role}{$access};
                               }
                           } elsif ($settings{$role}{'access'} eq 'none') {
                               $displaydiv{'priv'} = 'none';
                           }
                       }
                   } else {
                       $indomcheck = ' checked="checked"';
                       $indomvis = ' style="display:block"';
                       $incrsvis = ' style="display:none"';
                   }
               } else {
                   $indomcheck = ' checked="checked"';
                   $indomvis = ' style="display:block"';
                   $incrsvis = ' style="display:none"';
               }
               $r->print('<div class="LC_left_float" id="'.$role.'_maindiv"'.$visibility{$role}.'>'.
                         '<fieldset><legend>'.$lt{'rou'}.'</legend>'.
                         '<p>'.$lt{'whi'}.' <span class="LC_nobreak">'.
                         '<label><input type="radio" name="'.$role.'_incrs" value="1"'.$incrscheck.' onclick="toggleAccess('."'$role'".');"'.$disabled.'>'.
                         &mt('Set here in [_1]',lc($crstype)).'</label>'.
                         '<span>'.('&nbsp;'x2).
                         '<label><input type="radio" name="'.$role.'_incrs" value="0"'.$indomcheck.' onclick="toggleAccess('."'$role'".');"'.$disabled.'>'.
                         $lt{'udd'}.'</label><span></p>'.
                         '<div id="'.$role.'_setindom"'.$indomvis.'>'.
                         '<span class="LC_cusr_emph">'.$domusage{$role}.'</span></div>'.
                         '<div id="'.$role.'_setincrs"'.$incrsvis.'>');
               foreach my $access (@accesstypes) {
                   $r->print('<p><label><input type="radio" name="'.$role.'_access" value="'.$access.'" '.$usecheck{$access}.
                             ' onclick="helpdeskAccess('."'$role'".');"'.$disabled.' />'.$lt{$access}.'</label>');
                   if ($access eq 'status') {
                       $r->print('<div id="'.$role.'_bystatus" style="display:'.$displaydiv{$access}.'">'.
                                 &Apache::lonuserutils::adhoc_status_types($cdom,undef,$role,$selected{$access},
                                                                           $othertitle,$usertypes,$types,$disabled).
                                 '</div>');
                   } elsif (($access eq 'inc') && (keys(%domhelpdesk) > 0)) {
                       $r->print('<div id="'.$role.'_notinc" style="display:'.$displaydiv{$access}.'">'.
                                 &Apache::lonuserutils::adhoc_staff($access,undef,$role,$selected{$access},
                                                                    \%domhelpdesk,$disabled).
                                 '</div>');
                   } elsif (($access eq 'exc') && (keys(%domhelpdesk) > 0)) {
                       $r->print('<div id="'.$role.'_notexc" style="display:'.$displaydiv{$access}.'">'.
                                 &Apache::lonuserutils::adhoc_staff($access,undef,$role,$selected{$access},
                                                                    \%domhelpdesk,$disabled).
                                 '</div>');
                   }
                   $r->print('</p>');
               }
               $r->print('</div></fieldset>');
               my %full=();
               my %levels= (
                            course => {},
                            domain => {},
                            system => {},
                           );
               my %levelscurrent=(
                                  course => {},
                                  domain => {},
                                  system => {},
                                 );
               &Apache::lonuserutils::custom_role_privs($customroles{$role},\%full,\%levels,\%levelscurrent);
               $r->print('<fieldset id="'.$role.'_privs" style="display:'.$displaydiv{'priv'}.'">'.
                         '<legend>'.$lt{'rpr'}.'</legend>'.
                         &role_priv_table($role,$permission,$crstype,\%full,\%levels,\%levelscurrent,$overridden{$role}).
                         '</fieldset></div><div style="padding:0;clear:both;margin:0;border:0"></div>');
           }
           if ($permission->{'owner'}) {
               $r->print('<p><input type="submit" value="'.&mt('Save changes').'" /></p>');
           }
       } else {
           $r->print(&mt('Helpdesk roles have not yet been created in this domain.'));
       }
       # Form Footer
       $r->print('<input type="hidden" name="action" value="helpdesk" />'
                .'</form>');
       return;
   }
   
   sub domain_adhoc_access {
       my ($roles,$domcurrent,$accesstypes,$usertypes,$othertitle) = @_;
       my %domusage;
       return unless ((ref($roles) eq 'HASH') && (ref($domcurrent) eq 'HASH') && (ref($accesstypes) eq 'ARRAY'));
       foreach my $role (keys(%{$roles})) {
           if (ref($domcurrent->{$role}) eq 'HASH') {
               my $access = $domcurrent->{$role}{'access'};
               if (($access eq '') || (!grep(/^\Q$access\E$/,@{$accesstypes}))) {
                   $access = 'all';
                   $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',&Apache::lonnet::plaintext('dh'),
                                                                                             &Apache::lonnet::plaintext('da'));
               } elsif ($access eq 'status') {
                   if (ref($domcurrent->{$role}{$access}) eq 'ARRAY') {
                       my @shown;
                       foreach my $type (@{$domcurrent->{$role}{$access}}) {
                           unless ($type eq 'default') {
                               if ($usertypes->{$type}) {
                                   push(@shown,$usertypes->{$type});
                               }
                           }
                       }
                       if (grep(/^default$/,@{$domcurrent->{$role}{$access}})) {
                           push(@shown,$othertitle);
                       }
                       if (@shown) {
                           my $shownstatus = join(' '.&mt('or').' ',@shown);
                           $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role, and institutional status: [_3]',
                                                  &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'),$shownstatus);
                       } else {
                           $domusage{$role} = &mt('No one in the domain');
                       }
                   }
               } elsif ($access eq 'inc') {
                   my @dominc = ();
                   if (ref($domcurrent->{$role}{'inc'}) eq 'ARRAY') {
                       foreach my $user (@{$domcurrent->{$role}{'inc'}}) {
                           my ($uname,$udom) = split(/:/,$user);
                           push(@dominc,&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom));
                       }
                       my $showninc = join(', ',@dominc);
                       if ($showninc ne '') {
                           $domusage{$role} = &mt('Include any user in domain with active [_1] or [_2] role, except: [_3]',
                                                  &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'),$showninc);
                       } else {
                           $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',
                                                  &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'));
                       }
                   }
               } elsif ($access eq 'exc') {
                   my @domexc = ();
                   if (ref($domcurrent->{$role}{'exc'}) eq 'ARRAY') {
                       foreach my $user (@{$domcurrent->{$role}{'exc'}}) {
                           my ($uname,$udom) = split(/:/,$user);
                           push(@domexc,&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom));
                       }
                   }
                   my $shownexc = join(', ',@domexc);
                   if ($shownexc ne '') {
                       $domusage{$role} = &mt('Only the following in the domain with active [_1] or [_2] role: [_3]',
                                              &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'),$shownexc);
                   } else {
                       $domusage{$role} = &mt('No one in the domain');
                   }
               } elsif ($access eq 'none') {
                   $domusage{$role} = &mt('No one in the domain');
               } elsif ($access eq 'dh') {
                   $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('dh'));
               } elsif ($access eq 'da') {
                   $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('da'));
               } elsif ($access eq 'all') {
                   $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',
                                          &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'));
               }
           } else {
               $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',
                                      &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'));
           }
       }
       return %domusage;
   }
   
   sub get_domain_customroles {
       my ($cdom,$confname) = @_;
       my %existing=&Apache::lonnet::dump('roles',$cdom,$confname,'rolesdef_');
       my %customroles;
       foreach my $key (keys(%existing)) {
           if ($key=~/^rolesdef\_(\w+)$/) {
               my $rolename = $1;
               my %privs;
               ($privs{'system'},$privs{'domain'},$privs{'course'}) = split(/\_/,$existing{$key});
               $customroles{$rolename} = \%privs;
           }
       }
       return %customroles;
   }
   
   sub role_priv_table {
       my ($role,$permission,$crstype,$full,$levels,$levelscurrent,$overridden) = @_;
       return unless ((ref($full) eq 'HASH') && (ref($levels) eq 'HASH') &&
                      (ref($levelscurrent) eq 'HASH'));
       my %lt=&Apache::lonlocal::texthash (
                       'crl'  => 'Course Level Privilege',
                       'def'  => 'Domain Defaults',
                       'ove'  => 'Override in Course',
                       'ine'  => 'In effect',
                       'dis'  => 'Disabled',
                       'ena'  => 'Enabled',
                      );
       if ($crstype eq 'Community') {
           $lt{'ove'} = 'Override in Community',
       }
       my @status = ('Disabled','Enabled');
       my (%on,%off);
       if (ref($overridden) eq 'HASH') {
           if (ref($overridden->{'on'}) eq 'ARRAY') {
               map { $on{$_} = 1; } (@{$overridden->{'on'}});
           }
           if (ref($overridden->{'off'}) eq 'ARRAY') {
               map { $off{$_} = 1; } (@{$overridden->{'off'}});
           }
       }
       my $output=&Apache::loncommon::start_data_table().
                  &Apache::loncommon::start_data_table_header_row().
                  '<th>'.$lt{'crl'}.'</th><th>'.$lt{'def'}.'</th><th>'.$lt{'ove'}.
                  '</th><th>'.$lt{'ine'}.'</th>'.
                  &Apache::loncommon::end_data_table_header_row();
       foreach my $priv (sort(keys(%{$full}))) {
           next unless ($levels->{'course'}{$priv});
           my $privtext = &Apache::lonnet::plaintext($priv,$crstype);
           my ($default,$ineffect);
           if ($levelscurrent->{'course'}{$priv}) {
               $default = '<img src="/adm/lonIcons/navmap.correct.gif" alt="'.$lt{'ena'}.'" />';
               $ineffect = $default;
           }
           my ($customstatus,$checked);
           $output .= &Apache::loncommon::start_data_table_row().
                      '<td>'.$privtext.'</td>'.
                      '<td>'.$default.'</td><td>';
           if (($levelscurrent->{'course'}{$priv}) && ($off{$priv})) {
               if ($permission->{'owner'}) {
                   $checked = ' checked="checked"';
               }
               $customstatus = '<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.$lt{'dis'}.'" />';
               $ineffect = $customstatus;
           } elsif ((!$levelscurrent->{'course'}{$priv}) && ($on{$priv})) {
               if ($permission->{'owner'}) {
                   $checked = ' checked="checked"';
               }
               $customstatus = '<img src="/adm/lonIcons/navmap.correct.gif" alt="'.$lt{'ena'}.'" />';
               $ineffect = $customstatus;
           }
           if ($permission->{'owner'}) {
               $output .= '<input type="checkbox" name="'.$role.'_override" value="'.$priv.'"'.$checked.' />';
           } else {
               $output .= $customstatus;
           }
           $output .= '</td><td>'.$ineffect.'</td>'.
                      &Apache::loncommon::end_data_table_row();
       }
       $output .= &Apache::loncommon::end_data_table();
       return $output;
   }
   
   sub get_adhocrole_settings {
       my ($cid,$accesstypes,$types,$customroles,$settings,$overridden) = @_;
       return unless ((ref($accesstypes) eq 'ARRAY') && (ref($customroles) eq 'HASH') &&
                      (ref($settings) eq 'HASH') && (ref($overridden) eq 'HASH'));
       foreach my $role (split(/,/,$env{'course.'.$cid.'.internal.adhocaccess'})) {
           my ($curraccess,$rest) = split(/=/,$env{'course.'.$cid.'.internal.adhoc.'.$role});
           if (($curraccess ne '') && (grep(/^\Q$curraccess\E$/,@{$accesstypes}))) {
               $settings->{$role}{'access'} = $curraccess;
               if (($curraccess eq 'status') && (ref($types) eq 'ARRAY')) {
                   my @status = split(/,/,$rest);
                   my @currstatus;
                   foreach my $type (@status) {
                       if ($type eq 'default') {
                           push(@currstatus,$type);
                       } elsif (grep(/^\Q$type\E$/,@{$types})) {
                           push(@currstatus,$type);
                       }
                   }
                   if (@currstatus) {
                       $settings->{$role}{$curraccess} = \@currstatus;
                   } elsif (($curraccess eq 'exc') || ($curraccess eq 'inc')) {
                       my @personnel = split(/,/,$rest);
                       $settings->{$role}{$curraccess} = \@personnel;
                   }
               }
           }
       }
       foreach my $role (keys(%{$customroles})) {
           if ($env{'course.'.$cid.'.internal.adhocpriv.'.$role}) {
               my %currentprivs;
               if (ref($customroles->{$role}) eq 'HASH') {
                   if (exists($customroles->{$role}{'course'})) {
                       my %full=();
                       my %levels= (
                                     course => {},
                                     domain => {},
                                     system => {},
                                   );
                       my %levelscurrent=(
                                           course => {},
                                           domain => {},
                                           system => {},
                                         );
                       &Apache::lonuserutils::custom_role_privs($customroles->{$role},\%full,\%levels,\%levelscurrent);
                       %currentprivs = %{$levelscurrent{'course'}};
                   }
               }
               foreach my $item (split(/,/,$env{'course.'.$cid.'.internal.adhocpriv.'.$role})) {
                   next if ($item eq '');
                   my ($rule,$rest) = split(/=/,$item);
                   next unless (($rule eq 'off') || ($rule eq 'on'));
                   foreach my $priv (split(/:/,$rest)) {
                       if ($priv ne '') {
                           if ($rule eq 'off') {
                               push(@{$overridden->{$role}{'off'}},$priv);
                               if ($currentprivs{$priv}) {
                                   push(@{$settings->{$role}{'off'}},$priv);
                               }
                           } else {
                               push(@{$overridden->{$role}{'on'}},$priv);
                               unless ($currentprivs{$priv}) {
                                   push(@{$settings->{$role}{'on'}},$priv);
                               }
                           }
                       }
                   }
               }
           }
       }
       return;
   }
   
   sub update_helpdeskaccess {
       my ($r,$permission,$brcrum) = @_;
       my $helpitem = 'Course_Helpdesk_Access';
       push (@{$brcrum},
                {href => '/adm/createuser?action=helpdesk',
                 text => 'Helpdesk Access',
                 help => $helpitem},
                {href => '/adm/createuser?action=helpdesk',
                 text => 'Result',
                 help => $helpitem}
            );
       my $bread_crumbs_component = 'Helpdesk Staff Access';
       my $args = { bread_crumbs           => $brcrum,
                    bread_crumbs_component => $bread_crumbs_component};
   
       # print page header
       $r->print(&header('',$args));
       unless ((ref($permission) eq 'HASH') && ($permission->{'owner'})) {
           $r->print('<p class="LC_error">'.&mt('You do not have permission to change helpdesk access.').'</p>');
           return;
       }
       my @accesstypes = ('all','dh','da','none','status','inc','exc');
       my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $confname = $cdom.'-domainconfig';
       my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($cdom);
       my $crstype = &Apache::loncommon::course_type();
       my %customroles = &get_domain_customroles($cdom,$confname);
       my (%settings,%overridden);
       &get_adhocrole_settings($env{'request.course.id'},\@accesstypes,
                               $types,\%customroles,\%settings,\%overridden);
       my %domhelpdesk = &Apache::lonnet::get_active_domroles($cdom,['dh','da']);
       my (%changed,%storehash,@todelete);
   
       if (keys(%customroles)) {
           my (%newsettings,@incrs);
           foreach my $role (keys(%customroles)) {
               $newsettings{$role} = {
                                       access => '',
                                       status => '',
                                       exc    => '',
                                       inc    => '',
                                       on     => '',
                                       off    => '',
                                     };
               my %current;
               if (ref($settings{$role}) eq 'HASH') {
                   %current = %{$settings{$role}};
               }
               if (ref($overridden{$role}) eq 'HASH') {
                   $current{'overridden'} = $overridden{$role};
               }
               if ($env{'form.'.$role.'_incrs'}) {
                   my $access = $env{'form.'.$role.'_access'};
                   if (grep(/^\Q$access\E$/,@accesstypes)) {
                       push(@incrs,$role);
                       unless ($current{'access'} eq $access) {
                           $changed{$role}{'access'} = 1;
                           $storehash{'internal.adhoc.'.$role} = $access;
                       }
                       if ($access eq 'status') {
                           my @statuses = &Apache::loncommon::get_env_multiple('form.'.$role.'_status');
                           my @stored;
                           my @shownstatus;
                           if (ref($types) eq 'ARRAY') {
                               foreach my $type (sort(@statuses)) {
                                   if ($type eq 'default') {
                                       push(@stored,$type);
                                   } elsif (grep(/^\Q$type\E$/,@{$types})) {
                                       push(@stored,$type);
                                       push(@shownstatus,$usertypes->{$type});
                                   }
                               }
                               if (grep(/^default$/,@statuses)) {
                                   push(@shownstatus,$othertitle);
                               }
                               $storehash{'internal.adhoc.'.$role} .= '='.join(',',@stored);
                           }
                           $newsettings{$role}{'status'} = join(' '.&mt('or').' ',@shownstatus);
                           if (ref($current{'status'}) eq 'ARRAY') {
                               my @diffs = &Apache::loncommon::compare_arrays(\@stored,$current{'status'});
                               if (@diffs) {
                                   $changed{$role}{'status'} = 1;
                               }
                           } elsif (@stored) {
                               $changed{$role}{'status'} = 1;
                           }
                       } elsif (($access eq 'inc') || ($access eq 'exc')) {
                           my @personnel = &Apache::loncommon::get_env_multiple('form.'.$role.'_staff_'.$access);
                           my @newspecstaff;
                           my @stored;
                           my @currstaff;
                           foreach my $person (sort(@personnel)) {
                               if ($domhelpdesk{$person}) {
                                   push(@stored,$person);
                               }
                           }
                           if (ref($current{$access}) eq 'ARRAY') {
                               my @diffs = &Apache::loncommon::compare_arrays(\@stored,$current{$access});
                               if (@diffs) {
                                   $changed{$role}{$access} = 1;
                               }
                           } elsif (@stored) {
                               $changed{$role}{$access} = 1;
                           }
                           $storehash{'internal.adhoc.'.$role} .= '='.join(',',@stored);
                           foreach my $person (@stored) {
                               my ($uname,$udom) = split(/:/,$person);
                               push(@newspecstaff,&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom,'lastname'),$uname,$udom));
                           }
                           $newsettings{$role}{$access} = join(', ',sort(@newspecstaff));
                       }
                       $newsettings{$role}{'access'} = $access;
                   }
               } else {
                   if (($current{'access'} ne '') && (grep(/^\Q$current{'access'}\E$/,@accesstypes))) {
                       $changed{$role}{'access'} = 1;
                       $newsettings{$role} = {};
                       push(@todelete,'internal.adhoc.'.$role);
                   }
               }
               if (($env{'form.'.$role.'_incrs'}) && ($env{'form.'.$role.'_access'} eq 'none')) {
                   if (ref($current{'overridden'}) eq 'HASH') {
                       push(@todelete,'internal.adhocpriv.'.$role);
                   }
               } else {
                   my %full=();
                   my %levels= (
                                course => {},
                                domain => {},
                                system => {},
                               );
                   my %levelscurrent=(
                                      course => {},
                                      domain => {},
                                      system => {},
                                     );
                   &Apache::lonuserutils::custom_role_privs($customroles{$role},\%full,\%levels,\%levelscurrent);
                   my (@updatedon,@updatedoff,@override);
                   @override = &Apache::loncommon::get_env_multiple('form.'.$role.'_override');
                   if (@override) {
                       foreach my $priv (sort(keys(%full))) {
                           next unless ($levels{'course'}{$priv});
                           if (grep(/^\Q$priv\E$/,@override)) {
                               if ($levelscurrent{'course'}{$priv}) {
                                   push(@updatedoff,$priv);
                               } else {
                                   push(@updatedon,$priv);
                               }
                           }
                       }
                   }
                   if (@updatedon) {
                       $newsettings{$role}{'on'} = join('</li><li>', map { &Apache::lonnet::plaintext($_,$crstype) } (@updatedon));
                   }
                   if (@updatedoff) {
                       $newsettings{$role}{'off'} = join('</li><li>', map { &Apache::lonnet::plaintext($_,$crstype) } (@updatedoff));
                   }
                   if (ref($current{'overridden'}) eq 'HASH') {
                       if (ref($current{'overridden'}{'on'}) eq 'ARRAY') {
                           if (@updatedon) {
                               my @diffs = &Apache::loncommon::compare_arrays(\@updatedon,$current{'overridden'}{'on'});
                               if (@diffs) {
                                   $changed{$role}{'on'} = 1;
                               }
                           } else {
                               $changed{$role}{'on'} = 1;
                           }
                       } elsif (@updatedon) {
                           $changed{$role}{'on'} = 1;
                       }
                       if (ref($current{'overridden'}{'off'}) eq 'ARRAY') {
                           if (@updatedoff) {
                               my @diffs = &Apache::loncommon::compare_arrays(\@updatedoff,$current{'overridden'}{'off'});
                               if (@diffs) {
                                   $changed{$role}{'off'} = 1;
                               }
                           } else {
                               $changed{$role}{'off'} = 1;
                           }
                       } elsif (@updatedoff) {
                           $changed{$role}{'off'} = 1;
                       }
                   } else {
                       if (@updatedon) {
                           $changed{$role}{'on'} = 1;
                       }
                       if (@updatedoff) {
                           $changed{$role}{'off'} = 1;
                       }
                   }
                   if (ref($changed{$role}) eq 'HASH') {
                       if (($changed{$role}{'on'} || $changed{$role}{'off'})) {
                           my $newpriv;
                           if (@updatedon) {
                               $newpriv = 'on='.join(':',@updatedon);
                           }
                           if (@updatedoff) {
                               $newpriv .= ($newpriv ? ',' : '' ).'off='.join(':',@updatedoff);
                           }
                           if ($newpriv eq '') {
                               push(@todelete,'internal.adhocpriv.'.$role);
                           } else {
                               $storehash{'internal.adhocpriv.'.$role} = $newpriv;
                           }
                       }
                   }
               }
           }
           if (@incrs) {
               $storehash{'internal.adhocaccess'} = join(',',@incrs);
           } elsif (@todelete) {
               push(@todelete,'internal.adhocaccess');
           }
           if (keys(%changed)) {
               my ($putres,$delres);
               if (keys(%storehash)) {
                   $putres = &Apache::lonnet::put('environment',\%storehash,$cdom,$cnum);
                   my %newenvhash;
                   foreach my $key (keys(%storehash)) {
                       $newenvhash{'course.'.$env{'request.course.id'}.'.'.$key} = $storehash{$key};
                   }
                   &Apache::lonnet::appenv(\%newenvhash);
               }
               if (@todelete) {
                   $delres = &Apache::lonnet::del('environment',\@todelete,$cdom,$cnum);
                   foreach my $key (@todelete) {
                       &Apache::lonnet::delenv('course.'.$env{'request.course.id'}.'.'.$key);
                   }
               }
               if (($putres eq 'ok') || ($delres eq 'ok')) {
                   my %domconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$cdom);
                   my (%domcurrent,%ordered,%description,%domusage);
                   if (ref($domconfig{'helpsettings'}) eq 'HASH') {
                       if (ref($domconfig{'helpsettings'}{'adhoc'}) eq 'HASH') {
                           %domcurrent = %{$domconfig{'helpsettings'}{'adhoc'}};
                       }
                   }
                   my $count = 0;
                   foreach my $role (sort(keys(%customroles))) {
                       my ($order,$desc);
                       if (ref($domcurrent{$role}) eq 'HASH') {
                           $order = $domcurrent{$role}{'order'};
                           $desc = $domcurrent{$role}{'desc'};
                       }
                       if ($order eq '') {
                           $order = $count;
                       }
                       $ordered{$order} = $role;
                       if ($desc ne '') {
                           $description{$role} = $desc;
                       } else {
                           $description{$role}= $role;
                       }
                       $count++;
                   }
                   my @roles_by_num = ();
                   foreach my $item (sort {$a <=> $b } (keys(%ordered))) {
                       push(@roles_by_num,$ordered{$item});
                   }
                   %domusage = &domain_adhoc_access(\%changed,\%domcurrent,\@accesstypes,$usertypes,$othertitle);
                   $r->print(&mt('Helpdesk access settings have been changed as follows').'<br />');
                   $r->print('<ul>');
                   foreach my $role (@roles_by_num) {
                       next unless (ref($changed{$role}) eq 'HASH');
                       $r->print('<li>'.&mt('Ad hoc role').': <b>'.$description{$role}.'</b>'.
                                 '<ul>');
                       if ($changed{$role}{'access'} || $changed{$role}{'status'} || $changed{$role}{'inc'} || $changed{$role}{'exc'}) {
                           $r->print('<li>');
                           if ($env{'form.'.$role.'_incrs'}) {
                               if ($newsettings{$role}{'access'} eq 'all') {
                                   $r->print(&mt('All helpdesk staff can access '.lc($crstype).' with this role.'));
                               } elsif ($newsettings{$role}{'access'} eq 'dh') {
                                   $r->print(&mt('Helpdesk staff can use this role if they have an active [_1] role',
                                                 &Apache::lonnet::plaintext('dh')));
                               } elsif ($newsettings{$role}{'access'} eq 'da') {
                                   $r->print(&mt('Helpdesk staff can use this role if they have an active [_1] role',
                                                 &Apache::lonnet::plaintext('da')));
                               } elsif ($newsettings{$role}{'access'} eq 'none') {
                                   $r->print(&mt('No helpdesk staff can access '.lc($crstype).' with this role.'));
                               } elsif ($newsettings{$role}{'access'} eq 'status') {
                                   if ($newsettings{$role}{'status'}) {
                                       my ($access,$rest) = split(/=/,$storehash{'internal.adhoc.'.$role});
                                       if (split(/,/,$rest) > 1) {
                                           $r->print(&mt('Helpdesk staff can use this role if their institutional type is one of: [_1].',
                                                         $newsettings{$role}{'status'}));
                                       } else {
                                           $r->print(&mt('Helpdesk staff can use this role if their institutional type is: [_1].',
                                                         $newsettings{$role}{'status'}));
                                       }
                                   } else {
                                       $r->print(&mt('No helpdesk staff can access '.lc($crstype).' with this role.'));
                                   }
                               } elsif ($newsettings{$role}{'access'} eq 'exc') {
                                   if ($newsettings{$role}{'exc'}) {
                                       $r->print(&mt('Helpdesk staff who can use this role are as follows:').' '.$newsettings{$role}{'exc'}.'.');
                                   } else {
                                       $r->print(&mt('No helpdesk staff can access '.lc($crstype).' with this role.'));
                                   }
                               } elsif ($newsettings{$role}{'access'} eq 'inc') {
                                   if ($newsettings{$role}{'inc'}) {
                                       $r->print(&mt('All helpdesk staff may use this role except the following:').' '.$newsettings{$role}{'inc'}.'.');
                                   } else {
                                       $r->print(&mt('All helpdesk staff may use this role.'));
                                   }
                               }
                           } else {
                               $r->print(&mt('Default access set in the domain now applies.').'<br />'.
                                         '<span class="LC_cusr_emph">'.$domusage{$role}.'</span>');
                           }
                           $r->print('</li>');
                       }
                       unless ($newsettings{$role}{'access'} eq 'none') {
                           if ($changed{$role}{'off'}) {
                               if ($newsettings{$role}{'off'}) {
                                   $r->print('<li>'.&mt('Privileges which are available by default for this ad hoc role, but are disabled for this specific '.lc($crstype).':').
                                             '<ul><li>'.$newsettings{$role}{'off'}.'</li></ul></li>');
                               } else {
                                   $r->print('<li>'.&mt('All privileges available by default for this ad hoc role are enabled.').'</li>');
                               }
                           }
                           if ($changed{$role}{'on'}) {
                               if ($newsettings{$role}{'on'}) {
                                   $r->print('<li>'.&mt('Privileges which are not available by default for this ad hoc role, but are enabled for this specific '.lc($crstype).':').
                                             '<ul><li>'.$newsettings{$role}{'on'}.'</li></ul></li>');
                               } else {
                                   $r->print('<li>'.&mt('None of the privileges unavailable by default for this ad hoc role are enabled.').'</li>');
                               }
                           }
                       }
                       $r->print('</ul></li>');
                   }
                   $r->print('</ul>');
               }
           } else {
               $r->print(&mt('No changes made to helpdesk access settings.'));
           }
       }
       return;
   }
   
 #-------------------------------------------------- functions for &phase_two  #-------------------------------------------------- functions for &phase_two
 sub user_search_result {  sub user_search_result {
     my ($context,$srch) = @_;      my ($context,$srch) = @_;
Line 5203  sub user_search_result { Line 8492  sub user_search_result {
         }          }
     }      }
     if ($response ne '') {      if ($response ne '') {
         $response = '<span class="LC_warning">'.$response.'</span>';          $response = '<span class="LC_warning">'.$response.'</span><br />';
     }      }
     if ($srch->{'srchin'} eq 'instd') {      if ($srch->{'srchin'} eq 'instd') {
         my $instd_chk = &directorysrch_check($srch);          my $instd_chk = &instdirectorysrch_check($srch);
         if ($instd_chk ne 'ok') {          if ($instd_chk ne 'ok') {
             $response = '<span class="LC_warning">'.$instd_chk.'</span>'.              my $domd_chk = &domdirectorysrch_check($srch);
                         '<br />'.&mt('You may want to search in the LON-CAPA domain instead of the institutional directory.').'<br /><br />';              $response .= '<span class="LC_warning">'.$instd_chk.'</span><br />';
               if ($domd_chk eq 'ok') {
                   $response .= &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.');
               }
               $response .= '<br />';
           }
       } else {
           unless (($context eq 'requestcrs') && ($srch->{'srchtype'} eq 'exact')) {
               my $domd_chk = &domdirectorysrch_check($srch);
               if (($domd_chk ne 'ok') && ($env{'form.action'} ne 'accesslogs')) {
                   my $instd_chk = &instdirectorysrch_check($srch);
                   $response .= '<span class="LC_warning">'.$domd_chk.'</span><br />';
                   if ($instd_chk eq 'ok') {
                       $response .= &mt('You may want to search in the institutional directory instead of the LON-CAPA domain.');
                   }
                   $response .= '<br />';
               }
         }          }
     }      }
     if ($response ne '') {      if ($response ne '') {
Line 5239  sub user_search_result { Line 8544  sub user_search_result {
                                 &build_search_response($context,$srch,%srch_results);                                  &build_search_response($context,$srch,%srch_results);
                         } else {                          } else {
                             $currstate = 'modify';                              $currstate = 'modify';
                               if ($env{'form.action'} eq 'accesslogs') {
                                   $currstate = 'activity';
                               }
                             my $uname = $srch->{'srchterm'};                              my $uname = $srch->{'srchterm'};
                             my $udom = $srch->{'srchdomain'};                              my $udom = $srch->{'srchdomain'};
                             $srch_results{$uname.':'.$udom} =                              $srch_results{$uname.':'.$udom} =
Line 5305  sub user_search_result { Line 8613  sub user_search_result {
                     &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.').
                     '<br /><br />';                       '<br />'; 
             }              }
         }          }
     } else {      } else {
Line 5373  sub user_search_result { Line 8681  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.').
                     '<br /><br />';                      '<br />';
             }              }
         }          }
     }      }
     return ($currstate,$response,$forcenewuser,\%srch_results);      return ($currstate,$response,$forcenewuser,\%srch_results);
 }  }
   
 sub directorysrch_check {  sub domdirectorysrch_check {
       my ($srch) = @_;
       my $response;
       my %dom_inst_srch = &Apache::lonnet::get_dom('configuration',
                                                ['directorysrch'],$srch->{'srchdomain'});
       my $showdom = &display_domain_info($srch->{'srchdomain'});
       if (ref($dom_inst_srch{'directorysrch'}) eq 'HASH') {
           if ($dom_inst_srch{'directorysrch'}{'lcavailable'} eq '0') {
               return &mt('LON-CAPA directory search is not available in domain: [_1]',$showdom);
           }
           if ($dom_inst_srch{'directorysrch'}{'lclocalonly'}) {
               if ($env{'request.role.domain'} ne $srch->{'srchdomain'}) {
                   return &mt('LON-CAPA directory search in domain: [_1] is only allowed for users with a current role in the domain.',$showdom);
               }
           }
       }
       return 'ok';
   }
   
   sub instdirectorysrch_check {
     my ($srch) = @_;      my ($srch) = @_;
     my $can_search = 0;      my $can_search = 0;
     my $response;      my $response;
Line 5484  sub build_search_response { Line 8812  sub build_search_response {
     my ($context,$srch,%srch_results) = @_;      my ($context,$srch,%srch_results) = @_;
     my ($currstate,$response,$forcenewuser);      my ($currstate,$response,$forcenewuser);
     my %names = (      my %names = (
           'uname' => 'username',            'uname'     => 'username',
           'lastname' => 'last name',            'lastname'  => 'last name',
           'lastfirst' => 'last name, first name',            'lastfirst' => 'last name, first name',
           'crs' => 'this course',            'crs'       => 'this course',
           'dom' => 'LON-CAPA domain: ',            'dom'       => 'LON-CAPA domain',
           'instd' => 'the institutional directory for domain: ',            'instd'     => 'the institutional directory for domain',
     );      );
   
     my %single = (      my %single = (
Line 5506  sub build_search_response { Line 8834  sub build_search_response {
         $currstate = 'select';          $currstate = 'select';
     } else {      } else {
         if (keys(%srch_results) == 1) {          if (keys(%srch_results) == 1) {
             $currstate = 'modify';              if ($env{'form.action'} eq 'accesslogs') {
                   $currstate = 'activity';
               } else {
                   $currstate = 'modify';
               }
             $response = &mt("$single{$srch->{'srchtype'}} was found for the $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}.",$srch->{'srchterm'});              $response = &mt("$single{$srch->{'srchtype'}} was found for the $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}.",$srch->{'srchterm'});
             if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') {              if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') {
                 $response .= &display_domain_info($srch->{'srchdomain'});                  $response .= ': '.&display_domain_info($srch->{'srchdomain'});
             }              }
         } else {          } else { # Search has nothing found. Prepare message to user.
             $response = '<span class="LC_warning">'.&mt("$nomatch{$srch->{'srchtype'}} found for the $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}",$srch->{'srchterm'});              $response = '<span class="LC_warning">';
             if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') {              if ($srch->{'srchin'} eq 'dom' || $srch->{'srchin'} eq 'instd') {
                 $response .= &display_domain_info($srch->{'srchdomain'});                  $response .= &mt("$nomatch{$srch->{'srchtype'}} found for the $names{$srch->{'srchby'}} [_1] in $names{$srch->{'srchin'}}: [_2]",
                                    '<b>'.$srch->{'srchterm'}.'</b>',
                                    &display_domain_info($srch->{'srchdomain'}));
               } else {
                   $response .= &mt("$nomatch{$srch->{'srchtype'}} found for the $names{$srch->{'srchby'}} [_1] in $names{$srch->{'srchin'}}.",
                                    '<b>'.$srch->{'srchterm'}.'</b>');
             }              }
             $response .= '</span>';              $response .= '</span>';
   
             if ($srch->{'srchin'} ne 'alc') {              if ($srch->{'srchin'} ne 'alc') {
                 $forcenewuser = 1;                  $forcenewuser = 1;
                 my $cansrchinst = 0;                   my $cansrchinst = 0; 
                 if ($srch->{'srchdomain'}) {                  if (($srch->{'srchdomain'}) && ($env{'form.action'} ne 'accesslogs')) {
                     my %domconfig = &Apache::lonnet::get_dom('configuration',['directorysrch'],$srch->{'srchdomain'});                      my %domconfig = &Apache::lonnet::get_dom('configuration',['directorysrch'],$srch->{'srchdomain'});
                     if (ref($domconfig{'directorysrch'}) eq 'HASH') {                      if (ref($domconfig{'directorysrch'}) eq 'HASH') {
                         if ($domconfig{'directorysrch'}{'available'}) {                          if ($domconfig{'directorysrch'}{'available'}) {
Line 5545  sub build_search_response { Line 8883  sub build_search_response {
                     $createdom = $env{'form.coursedom'};                      $createdom = $env{'form.coursedom'};
                 }                  }
             }              }
             if (!($srch->{'srchby'} eq 'uname' && $srch->{'srchin'} eq 'dom' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchdomain'} eq $createdom)) {              unless (($env{'form.action'} eq 'accesslogs') || (($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($createdom,$context);                      &Apache::lonuserutils::can_create_user($createdom,$context);
                 my $targetdom = '<span class="LC_cusr_emph">'.$createdom.'</span>';                  my $targetdom = '<span class="LC_cusr_emph">'.$createdom.'</span>';
Line 5569  sub build_search_response { Line 8908  sub build_search_response {
                                 .&mt("Click 'Search'")                                  .&mt("Click 'Search'")
                                 .'</li></ul><br />';                                  .'</li></ul><br />';
                 } else {                  } else {
                     my $helplink = ' href="javascript:helpMenu('."'display'".')"';                      unless (($context eq 'domain') && ($env{'form.action'} eq 'singleuser')) {
                     $response .= '<br /><br />';                          my $helplink = ' href="javascript:helpMenu('."'display'".')"';
                     if ($context eq 'requestcrs') {                          $response .= '<br /><br />';
                         $response .= &mt("You are not authorized to defined new users in the new course's domain - [_1].",$targetdom);                          if ($context eq 'requestcrs') {
                     } else {                              $response .= &mt("You are not authorized to define new users in the new course's domain - [_1].",$targetdom);
                         $response .= &mt("You are not authorized to create new users in your current role's domain - [_1].",$targetdom);                          } else {
                               $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>')
                                        .'<br />';
                     }                      }
                     $response .= '<br />'  
                                  .&mt('Please contact the [_1]helpdesk[_2] if you need to create a new user.'  
                                     ,' <a'.$helplink.'>'  
                                     ,'</a>')  
                                  .'<br /><br />';  
                 }                  }
             }              }
         }          }
Line 5647  function backPage(formname,prevphase,pre Line 8988  function backPage(formname,prevphase,pre
 }  }
   
 sub course_level_table {  sub course_level_table {
     my (%inccourses) = @_;      my ($inccourses,$showcredits,$defaultcredits) = @_;
       return unless (ref($inccourses) eq 'HASH');
     my $table = '';      my $table = '';
 # Custom Roles?  # Custom Roles?
   
Line 5662  sub course_level_table { Line 9004  sub course_level_table {
             'rol'  => "Role",              'rol'  => "Role",
             'ext'  => "Extent",              'ext'  => "Extent",
             'grs'  => "Section",              'grs'  => "Section",
               'crd'  => "Credits",
             'sta'  => "Start",              'sta'  => "Start",
             '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 = &Apache::lonuserutils::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 5681  sub course_level_table { Line 9025  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,
                                               $showcredits,$defaultcredits,$crstype);
             } 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'})) {
                     $table .= &course_level_row($protectedcourse,$role,$area,$domain,                      $table .= &course_level_row($protectedcourse,$role,$area,$domain,
                                                 $plrole,\%sections_count,\%lt);                                                  $plrole,\%sections_count,\%lt,
                                                   $showcredits,$defaultcredits,$crstype);
                 }                  }
             }              }
         }          }
         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,
                                               $showcredits,$defaultcredits,$crstype);
             }              }
  }   }
     }      }
Line 5712  sub course_level_table { Line 9061  sub course_level_table {
     $result .=       $result .= 
 &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>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>  '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th>'."\n".
 <th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.  '<th>'.$lt{'ext'}.'</th><th>'."\n";
       if ($showcredits) {
           $result .= $lt{'crd'}.'</th>';
       }
       $result .=
   '<th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th>'."\n".
   '<th>'.$lt{'end'}.'</th>'.
 &Apache::loncommon::end_data_table_header_row().  &Apache::loncommon::end_data_table_header_row().
 $table.  $table.
 &Apache::loncommon::end_data_table();  &Apache::loncommon::end_data_table();
Line 5721  $table. Line 9076  $table.
 }  }
   
 sub course_level_row {  sub course_level_row {
     my ($protectedcourse,$role,$area,$domain,$plrole,$sections_count,$lt) = @_;      my ($protectedcourse,$role,$area,$domain,$plrole,$sections_count,
           $lt,$showcredits,$defaultcredits,$crstype) = @_;
       my $creditem;
     my $row = &Apache::loncommon::start_data_table_row().      my $row = &Apache::loncommon::start_data_table_row().
               ' <td><input type="checkbox" name="act_'.                ' <td><input type="checkbox" name="act_'.
               $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 (($showcredits) && ($role eq 'st') && ($crstype eq 'Course')) {
           $row .= 
               '<td><input type="text" name="credits_'.$protectedcourse.'_'.
               $role.'" size="3" value="'.$defaultcredits.'" /></td>';
       } else {
           $row .= '<td>&nbsp;</td>';
       }
       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 5752  sub course_level_row { Line 9116  sub course_level_row {
                      '</tr></table></td>'."\n";                       '</tr></table></td>'."\n";
         } else {          } else {
             $row .= '<td><input type="text" size="10" '.              $row .= '<td><input type="text" size="10" '.
                       'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'."\n";                      'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'."\n";
         }          }
     }      }
     $row .= <<ENDTIMEENTRY;      $row .= <<ENDTIMEENTRY;
Line 5768  ENDTIMEENTRY Line 9132  ENDTIMEENTRY
 }  }
   
 sub course_level_dc {  sub course_level_dc {
     my ($dcdom) = @_;      my ($dcdom,$showcredits) = @_;
     my %customroles=&Apache::lonuserutils::my_custom_roles();      my %customroles=&Apache::lonuserutils::my_custom_roles();
     my @roles = &Apache::lonuserutils::roles_by_context('course');      my @roles = &Apache::lonuserutils::roles_by_context('course');
     my $hiddenitems = '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.      my $hiddenitems = '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.
                       '<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=&Apache::loncommon::selectcourse_link
             ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';              ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Select','crstype');
     my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu');      my $credit_elem;
       if ($showcredits) {
           $credit_elem = 'credits';
       }
       my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu','role','Course/Community Browser',$credit_elem);
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                     'rol'  => "Role",                      'rol'  => "Role",
                     'grs'  => "Section",                      'grs'  => "Section",
Line 5785  sub course_level_dc { Line 9153  sub course_level_dc {
                     'sta'  => "Start",                      'sta'  => "Start",
                     'end'  => "End",                      'end'  => "End",
                     'ssd'  => "Set Start Date",                      'ssd'  => "Set Start Date",
                     'sed'  => "Set End Date"                      'sed'  => "Set End Date",
                       'scc'  => "Course/Community",
                       'crd'  => "Credits",
                   );                    );
     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>'.$lt{'scc'}.'</th><th>'.$lt{'rol'}.'</th>'."\n".
                    '<th>'.$lt{'grs'}.'</th>'."\n";
       $header .=   '<th>'.$lt{'crd'}.'</th>'."\n" if ($showcredits);
       $header .=   '<th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'."\n".
                  &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 /><span class="LC_nobreak"><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc','','','','crstype'".')" />'.
                      '<td><select name="role">'."\n";                       $courseform.('&nbsp;' x4).'</span></td>'."\n".
                        '<td valign="top"><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.'</option>';
     }      }
     if ( keys %customroles > 0) {      if ( keys(%customroles) > 0) {
         foreach my $cust (sort keys %customroles) {          foreach my $cust (sort(keys(%customroles))) {
             my $custrole='cr_cr_'.$env{'user.domain'}.              my $custrole='cr_cr_'.$env{'user.domain'}.
                     '_'.$env{'user.name'}.'_'.$cust;                      '_'.$env{'user.name'}.'_'.$cust;
             $otheritems .= '  <option value="'.$custrole.'">'.$cust;              $otheritems .= '  <option value="'.$custrole.'">'.$cust.'</option>';
         }          }
     }      }
     $otheritems .= '</select></td><td>'.      $otheritems .= '</select></td><td>'.
                      '<table border="0" cellspacing="0" cellpadding="0">'.                       '<table border="0" cellspacing="0" cellpadding="0">'.
                      '<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'.                       '<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'.
                      ' <option value=""><--'.&mt('Pick course first').'</select></td>'.                       ' <option value="">&lt;--'.&mt('Pick course first').'</option></select></td>'.
                      '<td>&nbsp;&nbsp;</td>'.                       '<td>&nbsp;&nbsp;</td>'.
                      '<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="" />'.
                      '</tr></table></td>';                       '<input type="hidden" name="crstype" value="" /></td>'.
                        '</tr></table></td>'."\n";
       if ($showcredits) {
           $otheritems .= '<td><br />'."\n".
                          '<input type="text" size="3" name="credits" value="" /></td>'."\n";
       }
     $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 5830  ENDTIMEENTRY Line 9209  ENDTIMEENTRY
 }  }
   
 sub update_selfenroll_config {  sub update_selfenroll_config {
     my ($r,$context,$permission) = @_;      my ($r,$cid,$cdom,$cnum,$context,$crstype,$currsettings) = @_;
     my ($row,$lt) = &get_selfenroll_titles();      return unless (ref($currsettings) eq 'HASH');
     my %curr_groups = &Apache::longroup::coursegroups();      my ($row,$lt) = &Apache::lonuserutils::get_selfenroll_titles();
       my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
     my (%changes,%warning);      my (%changes,%warning);
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
     my $curr_types;      my $curr_types;
       my %noedit;
       unless ($context eq 'domain') {
           %noedit = &get_noedit_fields($cdom,$cnum,$crstype,$row);
       }
     if (ref($row) eq 'ARRAY') {      if (ref($row) eq 'ARRAY') {
         foreach my $item (@{$row}) {          foreach my $item (@{$row}) {
               next if ($noedit{$item});
             if ($item eq 'enroll_dates') {              if ($item eq 'enroll_dates') {
                 my (%currenrolldate,%newenrolldate);                  my (%currenrolldate,%newenrolldate);
                 foreach my $type ('start','end') {                  foreach my $type ('start','end') {
                     $currenrolldate{$type} = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$type.'_date'};                      $currenrolldate{$type} = $currsettings->{'selfenroll_'.$type.'_date'};
                     $newenrolldate{$type} = &Apache::lonhtmlcommon::get_date_from_form('selfenroll_'.$type.'_date');                      $newenrolldate{$type} = &Apache::lonhtmlcommon::get_date_from_form('selfenroll_'.$type.'_date');
                     if ($newenrolldate{$type} ne $currenrolldate{$type}) {                      if ($newenrolldate{$type} ne $currenrolldate{$type}) {
                         $changes{'internal.selfenroll_'.$type.'_date'} = $newenrolldate{$type};                          $changes{'internal.selfenroll_'.$type.'_date'} = $newenrolldate{$type};
Line 5851  sub update_selfenroll_config { Line 9234  sub update_selfenroll_config {
             } elsif ($item eq 'access_dates') {              } elsif ($item eq 'access_dates') {
                 my (%currdate,%newdate);                  my (%currdate,%newdate);
                 foreach my $type ('start','end') {                  foreach my $type ('start','end') {
                     $currdate{$type} = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$type.'_access'};                      $currdate{$type} = $currsettings->{'selfenroll_'.$type.'_access'};
                     $newdate{$type} = &Apache::lonhtmlcommon::get_date_from_form('selfenroll_'.$type.'_access');                      $newdate{$type} = &Apache::lonhtmlcommon::get_date_from_form('selfenroll_'.$type.'_access');
                     if ($newdate{$type} ne $currdate{$type}) {                      if ($newdate{$type} ne $currdate{$type}) {
                         $changes{'internal.selfenroll_'.$type.'_access'} = $newdate{$type};                          $changes{'internal.selfenroll_'.$type.'_access'} = $newdate{$type};
                     }                      }
                 }                  }
             } elsif ($item eq 'types') {              } elsif ($item eq 'types') {
                 $curr_types =                  $curr_types = $currsettings->{'selfenroll_'.$item};
                     $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$item};  
                 if ($env{'form.selfenroll_all'}) {                  if ($env{'form.selfenroll_all'}) {
                     if ($curr_types ne '*') {                      if ($curr_types ne '*') {
                         $changes{'internal.selfenroll_types'} = '*';                          $changes{'internal.selfenroll_types'} = '*';
Line 5884  sub update_selfenroll_config { Line 9266  sub update_selfenroll_config {
                             $newnum ++;                              $newnum ++;
                         }                          }
                     }                      }
                     for (my $j=0; $j<$env{'form.selfenroll_types_total'}; $j++) {                        if ((!grep(/^$j$/,@deletedoms)) && (!grep(/^$j$/,@activations))) {                      for (my $j=0; $j<$env{'form.selfenroll_types_total'}; $j++) {
                           if ((!grep(/^$j$/,@deletedoms)) && (!grep(/^$j$/,@activations))) {
                             my @types = &Apache::loncommon::get_env_multiple('form.selfenroll_types_'.$j);                              my @types = &Apache::loncommon::get_env_multiple('form.selfenroll_types_'.$j);
                             if (@types > 0) {                              if (@types > 0) {
                                 @types = sort(@types);                                  @types = sort(@types);
Line 5927  sub update_selfenroll_config { Line 9310  sub update_selfenroll_config {
                 my $newlimit = $env{'form.selfenroll_limit'};                  my $newlimit = $env{'form.selfenroll_limit'};
                 my $newcap = $env{'form.selfenroll_cap'};                  my $newcap = $env{'form.selfenroll_cap'};
                 $newcap =~s/\s+//g;                  $newcap =~s/\s+//g;
                 my $currlimit =  $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_limit'};                  my $currlimit =  $currsettings->{'selfenroll_limit'};
                 $currlimit = 'none' if ($currlimit eq '');                  $currlimit = 'none' if ($currlimit eq '');
                 my $currcap = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_cap'};                  my $currcap = $currsettings->{'selfenroll_cap'};
                 if ($newlimit ne $currlimit) {                  if ($newlimit ne $currlimit) {
                     if ($newlimit ne 'none') {                      if ($newlimit ne 'none') {
                         if ($newcap =~ /^\d+$/) {                          if ($newcap =~ /^\d+$/) {
Line 5938  sub update_selfenroll_config { Line 9321  sub update_selfenroll_config {
                             }                              }
                             $changes{'internal.selfenroll_limit'} = $newlimit;                              $changes{'internal.selfenroll_limit'} = $newlimit;
                         } else {                          } else {
                             $warning{$item} = &mt('Maximum enrollment setting unchanged.').'<br />'.&mt('The value provided was invalid - it must be a positive integer if enrollment is being limited.');                               $warning{$item} = &mt('Maximum enrollment setting unchanged.').'<br />'.
                                   &mt('The value provided was invalid - it must be a positive integer if enrollment is being limited.'); 
                         }                          }
                     } elsif ($currcap ne '') {                      } elsif ($currcap ne '') {
                         $changes{'internal.selfenroll_cap'} = '';                          $changes{'internal.selfenroll_cap'} = '';
Line 5950  sub update_selfenroll_config { Line 9334  sub update_selfenroll_config {
                             $changes{'internal.selfenroll_cap'} = $newcap;                              $changes{'internal.selfenroll_cap'} = $newcap;
                         }                          }
                     } else {                      } else {
                         $warning{$item} = &mt('Maximum enrollment setting unchanged.').'<br />'.&mt('The value provided was invalid - it must be a positive integer if enrollment is being limited.');                          $warning{$item} = &mt('Maximum enrollment setting unchanged.').'<br />'.
                               &mt('The value provided was invalid - it must be a positive integer if enrollment is being limited.');
                     }                      }
                 }                  }
             } elsif ($item eq 'approval') {              } elsif ($item eq 'approval') {
                 my (@currnotified,@newnotified);                  my (@currnotified,@newnotified);
                 my $currapproval = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'};                  my $currapproval = $currsettings->{'selfenroll_approval'};
                 my $currnotifylist = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_notifylist'};                  my $currnotifylist = $currsettings->{'selfenroll_notifylist'};
                 if ($currnotifylist ne '') {                  if ($currnotifylist ne '') {
                     @currnotified = split(/,/,$currnotifylist);                      @currnotified = split(/,/,$currnotifylist);
                     @currnotified = sort(@currnotified);                      @currnotified = sort(@currnotified);
Line 5992  sub update_selfenroll_config { Line 9377  sub update_selfenroll_config {
                     }                      }
                 }                  }
             } else {              } else {
                 my $curr_val =                   my $curr_val = $currsettings->{'selfenroll_'.$item};
                     $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_'.$item};  
                 my $newval = $env{'form.selfenroll_'.$item};                  my $newval = $env{'form.selfenroll_'.$item};
                 if ($item eq 'section') {                  if ($item eq 'section') {
                     $newval = $env{'form.sections'};                      $newval = $env{'form.sections'};
                     if (defined($curr_groups{$newval})) {                      if (defined($curr_groups{$newval})) {
                         $newval = $curr_val;                          $newval = $curr_val;
                         $warning{$item} = &mt('Section for self-enrolled users unchanged as the proposed section is a group').'<br />'.&mt('Group names and section names must be distinct');                          $warning{$item} = &mt('Section for self-enrolled users unchanged as the proposed section is a group').'<br />'.
                                             &mt('Group names and section names must be distinct');
                     } elsif ($newval eq 'all') {                      } elsif ($newval eq 'all') {
                         $newval = $curr_val;                          $newval = $curr_val;
                         $warning{$item} = &mt('Section for self-enrolled users unchanged, as "all" is a reserved section name.');                          $warning{$item} = &mt('Section for self-enrolled users unchanged, as "all" is a reserved section name.');
Line 6029  sub update_selfenroll_config { Line 9414  sub update_selfenroll_config {
                     my %crsinfo = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',                      my %crsinfo = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',
                                                                 $cnum,undef,undef,'Course');                                                                  $cnum,undef,undef,'Course');
                     my $chome = &Apache::lonnet::homeserver($cnum,$cdom);                      my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
                     if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {                      if (ref($crsinfo{$cid}) eq 'HASH') {
                         foreach my $item ('selfenroll_types','selfenroll_start_date','selfenroll_end_date') {                          foreach my $item ('selfenroll_types','selfenroll_start_date','selfenroll_end_date') {
                             if (exists($changes{'internal.'.$item})) {                              if (exists($changes{'internal.'.$item})) {
                                 $crsinfo{$env{'request.course.id'}}{$item} =                                   $crsinfo{$cid}{$item} = $changes{'internal.'.$item};
                                     $changes{'internal.'.$item};  
                             }                              }
                         }                          }
                         my $crsputresult =                          my $crsputresult =
Line 6070  sub update_selfenroll_config { Line 9454  sub update_selfenroll_config {
                             if ($changes{'internal.selfenroll_cap'} ne '') {                              if ($changes{'internal.selfenroll_cap'} ne '') {
                                 $newcap = $changes{'internal.selfenroll_cap'}                                  $newcap = $changes{'internal.selfenroll_cap'}
                             } else {                              } else {
                                 $newcap = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_cap'};                                  $newcap = $currsettings->{'selfenroll_cap'};
                             }                              }
                             if ($changes{'internal.selfenroll_limit'} eq 'none') {                              if ($changes{'internal.selfenroll_limit'} eq 'none') {
                                 $newval = &mt('No limit');                                  $newval = &mt('No limit');
Line 6080  sub update_selfenroll_config { Line 9464  sub update_selfenroll_config {
                             } elsif ($changes{'internal.selfenroll_limit'} eq 'selfenrolled') {                              } elsif ($changes{'internal.selfenroll_limit'} eq 'selfenrolled') {
                                 $newval = &mt('New self-enrollment no longer allowed when total number 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);
                             } else {                              } else {
                                 my $currlimit =  $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_limit'};                                  my $currlimit =  $currsettings->{'selfenroll_limit'};
                                 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') {
Line 6092  sub update_selfenroll_config { Line 9476  sub update_selfenroll_config {
                     } elsif ($item eq 'approval') {                      } elsif ($item eq 'approval') {
                         if ((exists($changes{'internal.selfenroll_approval'})) ||                          if ((exists($changes{'internal.selfenroll_approval'})) ||
                             (exists($changes{'internal.selfenroll_notifylist'}))) {                              (exists($changes{'internal.selfenroll_notifylist'}))) {
                               my %selfdescs = &Apache::lonuserutils::selfenroll_default_descs();
                             my ($newval,$newnotify);                              my ($newval,$newnotify);
                             if (exists($changes{'internal.selfenroll_notifylist'})) {                              if (exists($changes{'internal.selfenroll_notifylist'})) {
                                 $newnotify = $changes{'internal.selfenroll_notifylist'};                                  $newnotify = $changes{'internal.selfenroll_notifylist'};
                             } else {                                 } else {   
                                 $newnotify = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_notifylist'};                                  $newnotify = $currsettings->{'selfenroll_notifylist'};
                             }                              }
                             if ($changes{'internal.selfenroll_approval'}) {                              if (exists($changes{'internal.selfenroll_approval'})) {
                                 $newval = &mt('Yes');                                  if ($changes{'internal.selfenroll_approval'} !~ /^[012]$/) {
                             } elsif ($changes{'internal.selfenroll_approval'} eq '0') {                                      $changes{'internal.selfenroll_approval'} = '0';
                                 $newval = &mt('No');                                  }
                                   $newval = $selfdescs{'approval'}{$changes{'internal.selfenroll_approval'}};
                             } else {                              } else {
                                 my $currapproval =                                   my $currapproval = $currsettings->{'selfenroll_approval'}; 
                                     $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'};                                  if ($currapproval !~ /^[012]$/) {
                                 if ($currapproval) {                                      $currapproval = 0;
                                     $newval = &mt('Yes');  
                                 } else {  
                                     $newval = &mt('No');  
                                 }                                  }
                                   $newval = $selfdescs{'approval'}{$currapproval};
                             }                              }
                             $r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval));                              $r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval));
                             if ($newnotify) {                              if ($newnotify) {
Line 6140  sub update_selfenroll_config { Line 9524  sub update_selfenroll_config {
                     }                      }
                 }                  }
                 $r->print('</ul>');                  $r->print('</ul>');
                 my %newenvhash;                  if ($env{'course.'.$cid.'.description'} ne '') {
                 foreach my $key (keys(%changes)) {                      my %newenvhash;
                     $newenvhash{'course.'.$env{'request.course.id'}.'.'.$key} = $changes{$key};                      foreach my $key (keys(%changes)) {
                           $newenvhash{'course.'.$cid.'.'.$key} = $changes{$key};
                       }
                       &Apache::lonnet::appenv(\%newenvhash);
                 }                  }
                 &Apache::lonnet::appenv(\%newenvhash);  
             } else {              } else {
                 $r->print(&mt('An error occurred when saving changes to self-enrollment settings in this course.').'<br />'.&mt('The error was: [_1].',$putresult));                  $r->print(&mt('An error occurred when saving changes to self-enrollment settings in this course.').'<br />'.
                             &mt('The error was: [_1].',$putresult));
             }              }
         } else {          } else {
             $r->print(&mt('No changes were made to the existing self-enrollment settings in this course.'));              $r->print(&mt('No changes were made to the existing self-enrollment settings in this course.'));
Line 6154  sub update_selfenroll_config { Line 9541  sub update_selfenroll_config {
     } else {      } else {
         $r->print(&mt('No changes were made to the existing self-enrollment settings in this course.'));          $r->print(&mt('No changes were made to the existing self-enrollment settings in this course.'));
     }      }
     my ($visible,$cansetvis,$vismsgs,$visactions) = &visible_in_cat($cdom,$cnum);      my $visactions = &cat_visibility();
     if (ref($visactions) eq 'HASH') {      my ($cathash,%cattype);
         if (!$visible) {      my %domconfig = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);
             $r->print('<br />'.$visactions->{'miss'}.'<br />'.$visactions->{'yous'}.      if (ref($domconfig{'coursecategories'}) eq 'HASH') {
                       '<br />');          $cathash = $domconfig{'coursecategories'}{'cats'};
             if (ref($vismsgs) eq 'ARRAY') {          $cattype{'auth'} = $domconfig{'coursecategories'}{'auth'};
                 $r->print('<br />'.$visactions->{'take'}.'<ul>');          $cattype{'unauth'} = $domconfig{'coursecategories'}{'unauth'};
                 foreach my $item (@{$vismsgs}) {      } else {
                     $r->print('<li>'.$visactions->{$item}.'</li>');          $cathash = {};
           $cattype{'auth'} = 'std';
           $cattype{'unauth'} = 'std';
       }
       if (($cattype{'auth'} eq 'none') && ($cattype{'unauth'} eq 'none')) {
           $r->print('<br /><span class="LC_warning">'.$visactions->{'miss'}.'</span><br />'.$visactions->{'yous'}.
                     '<br />'.
                     '<br />'.$visactions->{'take'}.'<ul>'.
                     '<li>'.$visactions->{'dc_chgconf'}.'</li>'.
                     '</ul>');
       } elsif (($cattype{'auth'} !~ /^(std|domonly)$/) && ($cattype{'unauth'} !~ /^(std|domonly)$/)) {
           if ($currsettings->{'uniquecode'}) {
               $r->print('<span class="LC_info">'.$visactions->{'vis'}.'</span>');
           } else {
               $r->print('<br /><span class="LC_warning">'.$visactions->{'miss'}.'</span><br />'.$visactions->{'yous'}.
                     '<br />'.
                     '<br />'.$visactions->{'take'}.'<ul>'.
                     '<li>'.$visactions->{'dc_setcode'}.'</li>'.
                     '</ul><br />');
           }
       } else {
           my ($visible,$cansetvis,$vismsgs) = &visible_in_stdcat($cdom,$cnum,\%domconfig);
           if (ref($visactions) eq 'HASH') {
               if (!$visible) {
                   $r->print('<br /><span class="LC_warning">'.$visactions->{'miss'}.'</span><br />'.$visactions->{'yous'}.
                             '<br />');
                   if (ref($vismsgs) eq 'ARRAY') {
                       $r->print('<br />'.$visactions->{'take'}.'<ul>');
                       foreach my $item (@{$vismsgs}) {
                           $r->print('<li>'.$visactions->{$item}.'</li>');
                       }
                       $r->print('</ul>');
                 }                  }
                 $r->print('</ul>');                  $r->print($cansetvis);
             }              }
             $r->print($cansetvis);  
         }          }
     }       } 
     return;      return;
 }  }
   
 sub get_selfenroll_titles {  
     my @row = ('types','registered','enroll_dates','access_dates','section',  
                'approval','limit');  
     my %lt = &Apache::lonlocal::texthash (  
                 types        => 'Users allowed to self-enroll in this course',  
                 registered   => 'Restrict self-enrollment to students officially registered for the course',  
                 enroll_dates => 'Dates self-enrollment available',  
                 access_dates => 'Course access dates assigned to self-enrolling users',  
                 section      => 'Section assigned to self-enrolling users',  
                 approval     => 'Self-enrollment requests need approval?',  
                 limit        => 'Enrollment limit',  
              );  
     return (\@row,\%lt);  
 }  
   
 #---------------------------------------------- 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.313  
changed lines
  Added in v.1.406.2.18

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