Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.21 and 1.34

-version 1.21, 2007/06/07 23:19:42
+version 1.34, 2007/12/12 19:44:53
  Line 61  sub handler {
      &Apache::lonhtmlcommon::clear_breadcrumbs();
      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                              ['phase']);
-     my $phase = "display";
+     my $phase = 'pickactions';
      if ( exists($env{'form.phase'}) ) {
          $phase = $env{'form.phase'};
      }
      my %domconfig =
        &Apache::lonnet::get_dom('configuration',['login','rolecolors',
-                                'quotas','autoenroll','autoupdate'],$dom);
+                 'quotas','autoenroll','autoupdate','directorysrch',
-     my @prefs = (
+                 'usercreation','usermodification','contacts'],$dom);
-       { text => 'Default color schemes',
+     my @prefs_order = ('rolecolors','login','quotas','autoenroll',
-         help => 'Default_Color_Schemes',
+                        'autoupdate','directorysrch','contacts',
-         action => 'rolecolors',
+                        'usercreation','usermodification');
-         header => [{col1 => 'Student Settings',
+     my %prefs = (
-                     col2 => '',},
+         'rolecolors' =>
-                    {col1 => 'Coordinator Settings',
+                    { text => 'Default color schemes',
-                     col2 => '',},
+                      help => 'Default_Color_Schemes',
-                    {col1 => 'Author Settings',
+                      header => [{col1 => 'Student Settings',
-                     col2 => '',},
+                                  col2 => '',},
-                    {col1 => 'Administrator Settings',
+                                 {col1 => 'Coordinator Settings',
-                     col2 => '',}],
+                                  col2 => '',},
-         },
+                                 {col1 => 'Author Settings',
-       { text => 'Log-in page options',
+                                  col2 => '',},
-         help => 'Domain_Log-in_Page',
+                                 {col1 => 'Administrator Settings',
-         action => 'login',
+                                  col2 => '',}],
-         header => [{col1 => 'Item',
+                     },
-                     col2 => '',}],
+         'login' =>
-         },
+                     { text => 'Log-in page options',
-       { text => 'Default quotas for user portfolios',
+                       help => 'Domain_Log-in_Page',
-         help => 'Default_User_Quota',
+                       header => [{col1 => 'Item',
-         action => 'quotas',
+                                   col2 => '',}],
-         header => [{col1 => 'User type',
+                     },
-                     col2 => 'Default quota'}],
+         'quotas' =>
-         },
+                     { text => 'Default quotas for user portfolios',
-       { text => 'Auto-enrollment settings',
+                       help => 'Default_User_Quota',
-         help => 'Domain_Auto_Enrollment',
+                       header => [{col1 => 'User type',
-         action => 'autoenroll',
+                                   col2 => 'Default quota'}],
-         header => [{col1 => 'Configuration setting',
+                     },
-                     col2 => 'Value(s)'}],
+         'autoenroll' =>
-         },
+                    { text => 'Auto-enrollment settings',
-       { text => 'Auto-update settings',
+                      help => 'Domain_Auto_Enrollment',
-         help => 'Domain_Auto_Update',
+                      header => [{col1 => 'Configuration setting',
-         action => 'autoupdate',
+                                  col2 => 'Value(s)'}],
-         header => [{col1 => 'Setting',
+                    },
-                     col2 => 'Value',},
+         'autoupdate' =>
-                    {col1 => 'User Population',
+                    { text => 'Auto-update settings',
-                     col2 => 'Updataeable user data'}],
+                      help => 'Domain_Auto_Update',
-       },
+                      header => [{col1 => 'Setting',
+                                  col2 => 'Value',},
+                                 {col1 => 'User Population',
+                                  col2 => 'Updataeable user data'}],
+                   },
+         'directorysrch' =>
+                   { text => 'Institutional directory searches',
+                     help => 'Domain_Directory_Search',
+                     header => [{col1 => 'Setting',
+                                 col2 => 'Value',}],
+                   },
+         'contacts' =>
+                   { text => 'Contact Information',
+                     help => 'Domain_Contact_Information',
+                     header => [{col1 => 'Setting',
+                                 col2 => 'Value',}],
+                   },
+         'usercreation' =>
+                   { text => 'User creation',
+                     help => 'Domain_User_Creation',
+                     header => [{col1 => 'Format Rule Type',
+                                 col2 => 'Format Rules in force'},
+                                {col1 => 'User account creation',
+                                 col2 => 'Usernames which may be created',},
+                                {col1 => 'Context',
+                                 col2 => 'Assignable Authentication Types'}],
+                   },
+         'usermodification' =>
+                   { text => 'User modification',
+                     help => 'Domain_User_Modification',
+                     header => [{col1 => 'Target user has role',
+                                 col2 => 'User information updateable in author context'},
+                                {col1 => 'Target user has role',
+                                 col2 => 'User information updateable in course context'}],
+                   },
      );
      my @roles = ('student','coordinator','author','admin');
+     my @actions = &Apache::loncommon::get_env_multiple('form.actions');
      &Apache::lonhtmlcommon::add_breadcrumb
-     ({href=>"javascript:changePage(document.$phase,'display')",
+     ({href=>"javascript:changePage(document.$phase,'pickactions')",
-       text=>"Domain Configuration"});
+       text=>"Pick functionality"});
      my $confname = $dom.'-domainconfig';
      if ($phase eq 'process') {
          &Apache::lonhtmlcommon::add_breadcrumb
-           ({href=>"javascript:changePage(document.$phase,'$phase')",
+           ({href=>"javascript:changePage(document.$phase,'display')",
+             text=>"Domain Configuration"},
+            {href=>"javascript:changePage(document.$phase,'$phase')",
              text=>"Updated"});
          &print_header($r,$phase);
-         foreach my $item (@prefs) {
+         foreach my $item (@prefs_order) {
-             $r->print('<h3>'.&mt($item->{'text'}).'</h3>'.
+             if (grep(/^\Q$item\E$/,@actions)) {
-                       &process_changes($r,$dom,$confname,
+                 $r->print('<h3>'.&mt($prefs{$item}{'text'}).'</h3>'.
-                         $item->{'action'},\@roles,%domconfig));
+                           &process_changes($r,$dom,$confname,$item,
+                           \@roles,%domconfig));
+             }
          }
          $r->print('<p>');
-         &print_footer($r,$phase,'display','Back to actions menu');
+         &print_footer($r,$phase,'display','Back to configuration display',
+                       \@actions);
          $r->print('</p>');
+     } elsif ($phase eq 'display') {
+         &Apache::lonhtmlcommon::add_breadcrumb
+             ({href=>"javascript:changePage(document.$phase,'display')",
+               text=>"Domain Configuration"});
+         &print_header($r,$phase);
+         if (@actions > 0) {
+             my $rowsum = 0;
+             my (%output,%rowtotal,@items);
+             my $halfway = @actions/2;
+             foreach my $item (@prefs_order) {
+                 if (grep(/^\Q$item\E$/,@actions)) {
+                     push(@items,$item);
+                     ($output{$item},$rowtotal{$item}) =
+                         &print_config_box($r,$dom,$confname,$phase,
+                                           $item,$prefs{$item},
+                                           $domconfig{$item});
+                     $rowsum += $rowtotal{$item};
+                 }
+             }
+             my $colend;
+             my $halfway = $rowsum/2;
+             my $aggregate = 0;
+             my $sumleft = 0;
+             my $sumright = 0;
+             my $crossover;
+             for (my $i=0; $i<@items; $i++) {
+                 $aggregate += $rowtotal{$items[$i]};
+                 if ($aggregate > $halfway) {
+                     $crossover = $i;
+                     last;
+                 }
+             }
+             for (my $i=0; $i<$crossover; $i++) {
+                 $sumleft += $rowtotal{$items[$i]};
+             }
+             for (my $i=$crossover+1; $i<@items; $i++) {
+                 $sumright += $rowtotal{$items[$i]};
+             }
+             if ((@items > 1) && ($env{'form.numcols'} == 2)) {
+                 my $sumdiff = $sumright - $sumleft;
+                 if ($sumdiff > 0) {
+                     $colend = $crossover + 1;
+                 } else {
+                     $colend = $crossover;
+                 }
+             } else {
+                 $colend = @items;
+             }
+             $r->print('<p><table class="LC_double_column"><tr><td class="LC_left_col">');
+             for (my $i=0; $i<$colend; $i++) {
+                 $r->print($output{$items[$i]});
+             }
+             $r->print('</td><td></td><td class="LC_right_col">');
+             if ($colend < @items) {
+                 for (my $i=$colend; $i<@items; $i++) {
+                     $r->print($output{$items[$i]});
+                 }
+             }
+             $r->print('</td></tr></table></p>');
+             $r->print(&print_footer($r,$phase,'process','Save',\@actions));
+         } else {
+             $r->print('<input type="hidden" name="phase" value="" />'.
+                       '<input type="hidden" name="numcols" value="'.
+                       $env{'form.numcols'}.'" />'."\n".
+                       '<span clas="LC_error">'.&mt('No settings chosen').
+                       '</span>');
+         }
+         $r->print('</form>');
+         $r->print(&Apache::loncommon::end_page());
      } else {
          if ($phase eq '') {
-             $phase = 'display';
+             $phase = 'pickactions';
          }
          my %helphash;
-         my $numprefs = @prefs;
          &print_header($r,$phase);
          if (keys(%domconfig) == 0) {
              my $primarylibserv = &Apache::lonnet::domain($dom,'primary');
-             my $perlvarref = &LONCAPA::Configuration::read_conf('loncapa.conf');
+             my @ids=&Apache::lonnet::current_machine_ids();
-             my $hostid = $perlvarref->{'lonHostID'};
+             if (!grep(/^\Q$primarylibserv\E$/,@ids)) {
-             if ($hostid ne $primarylibserv) {
                  my %designhash = &Apache::loncommon::get_domainconf($dom);
                  my @loginimages = ('img','logo','domlogo');
                  my $custom_img_count = 0;
- Line 153  sub handler {
+ Line 261  sub handler {
                  }
                  if ($custom_img_count > 0) {
                      my $switch_server = &check_switchserver($dom,$confname);
-                     $r->print(&mt('Domain configuration settings have yet to be saved for this domain via the web-based domain preferences interface.').'<br />'.&mt("While this remains so, you must switch to the domain's primary library server in order to update settings.").'<br /><br />'.&mt("Thereafter, you will be able to update settings from this screen when logged in to any server in the LON-CAPA network (with a DC role selected in the domain), although you will still need to switch to the domain's primary library server to upload new images or logos.").'<br /><br />'.$switch_server.' '.&mt('to primary library server for domain: [_1]',$dom));
+                     $r->print(
+     &mt('Domain configuration settings have yet to be saved for this domain via the web-based domain preferences interface.').'<br />'.
+     &mt("While this remains so, you must switch to the domain's primary library server in order to update settings.").'<br /><br />'.
+     &mt("Thereafter, (with a Domain Coordinator role selected in the domain) you will be able to update settings when logged in to any server in the LON-CAPA network.").'<br />'.
+     &mt("However, you will still need to switch to the domain's primary library server to upload new images or logos.").'<br /><br />');
+                     if ($switch_server) {
+                         $r->print($switch_server.' '.&mt('to primary library server for domain: [_1]',$dom));
+                     }
                      return OK;
                  }
              }
          }
-         $r->print('<table border="0" width="100%" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%">');
+         $r->print('<h3>'.&mt('Functionality to display/modify').'</h3>');
-         foreach my $item (@prefs) {
+         $r->print('<script type="text/javascript">'."\n".
-             if ($item->{'action'} eq 'login') {
+               &Apache::loncommon::check_uncheck_jscript()."\n".
-                 $r->print('</td><td width="6%">&nbsp;</td><td align="left" valign="top" width="47%">');
+               '</script>'."\n".'<p><input type="button" value="check all" '.
-             }
+               'onclick="javascript:checkAll(document.pickactions.actions)"'.
-             &print_config_box($r,$dom,$confname,$phase,$item->{'action'},
+               ' />&nbsp;&nbsp;'.
-                               $item,$domconfig{$item->{'action'}});
+               '<input type="button" value="uncheck all" '.
-         }
+               'onclick="javascript:uncheckAll(document.pickactions.actions)"'.
-         $r->print('
+               ' /></p>');
-       </td>
+         foreach my $item (@prefs_order) {
-     </tr>
+             $r->print('<p><label><input type="checkbox" name="actions" value="'.$item.'" />&nbsp;'.$prefs{$item}->{'text'}.'</label></p>');
-    </table>');
+         }
-         &print_footer($r,$phase,'process','Save changes');
+         $r->print('<h3>'.&mt('Display options').'</h3>'."\n".
+                   '<p><span class="LC_nobreak">'.&mt('Display using: ')."\n".
+                   '<label><input type="radio" name="numcols" value="1">'.
+                   &mt('one column').'</label>&nbsp;&nbsp;'.
+                   '<input type="radio" name="numcols" value="2">'.
+                   &mt('two columns').'</label></span></p>');
+         $r->print(&print_footer($r,$phase,'display','Go'));
+         $r->print('</form>');
+         $r->print(&Apache::loncommon::end_page());
      }
      return OK;
  }
- Line 189  sub process_changes {
+ Line 312  sub process_changes {
          $output = &modify_autoenroll($dom,%domconfig);
      } elsif ($action eq 'autoupdate') {
          $output = &modify_autoupdate($dom,%domconfig);
+     } elsif ($action eq 'directorysrch') {
+         $output = &modify_directorysrch($dom,%domconfig);
+     } elsif ($action eq 'usercreation') {
+         $output = &modify_usercreation($dom,%domconfig);
+     } elsif ($action eq 'usermodification') {
+         $output = &modify_usermodification($dom,%domconfig);
+     } elsif ($action eq 'contacts') {
+         $output = &modify_contacts($dom,%domconfig);
      }
      return $output;
  }
  sub print_config_box {
      my ($r,$dom,$confname,$phase,$action,$item,$settings) = @_;
-     $r->print('
+     my $rowtotal = 0;
-          <table class="LC_nested_outer">
+     my $output =
+          '<table class="LC_nested_outer">
            <tr>
-            <th>'.&mt($item->{text}).'&nbsp;'.
+            <th align="left"><span class="LC_nobreak">'.&mt($item->{text}).
-            &Apache::loncommon::help_open_topic($item->{'help'}).'</th>
+            '&nbsp;</span></th></tr>';
-           </tr>');
+ #
-     if (($action eq 'autoupdate') || ($action eq 'rolecolors')) {
+ # FIXME - put the help link back in when the help files exist
+ #           <th>'.&mt($item->{text}).'&nbsp;'.
+ #           &Apache::loncommon::help_open_topic($item->{'help'}).'</th>
+ #          </tr>');
+     $rowtotal ++;
+     if (($action eq 'autoupdate') || ($action eq 'rolecolors') ||
+         ($action eq 'usercreation') || ($action eq 'usermodification')) {
          my $colspan = ($action eq 'rolecolors')?' colspan="2"':'';
-         $r->print('
+         $output .= '
            <tr>
             <td>
              <table class="LC_nested">
               <tr class="LC_info_row">
                <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[0]->{'col1'}.'</td>
                <td class="LC_right_item">'.$item->{'header'}->[0]->{'col2'}.'</td>
-              </tr>');
+              </tr>';
+              $rowtotal ++;
          if ($action eq 'autoupdate') {
-             $r->print(&print_autoupdate('top',$dom,$settings));
+             $output .= &print_autoupdate('top',$dom,$settings,\$rowtotal);
+         } elsif ($action eq 'usercreation') {
+             $output .= &print_usercreation('top',$dom,$settings,\$rowtotal);
+         } elsif ($action eq 'usermodification') {
+             $output .= &print_usermodification('top',$dom,$settings,\$rowtotal);
          } else {
-             $r->print(&print_rolecolors($phase,'student',$dom,$confname,$settings));
+             $output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);
          }
-         $r->print('
+         $output .= '
             </table>
            </td>
           </tr>
- Line 226  sub print_config_box {
+ Line 369  sub print_config_box {
               <tr class="LC_info_row">
                <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[1]->{'col1'}.'</td>
                <td class="LC_right_item">'.$item->{'header'}->[1]->{'col2'}.'</td>
-              </tr>');
+              </tr>';
+             $rowtotal ++;
          if ($action eq 'autoupdate') {
-             $r->print(&print_autoupdate('bottom',$dom,$settings));
+             $output .= &print_autoupdate('bottom',$dom,$settings,\$rowtotal);
+         } elsif ($action eq 'usercreation') {
+             $output .= &print_usercreation('middle',$dom,$settings,\$rowtotal).'
+            </table>
+           </td>
+          </tr>
+          <tr>
+            <td>
+             <table class="LC_nested">
+              <tr class="LC_info_row">
+               <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[2]->{'col1'}.'</td>
+               <td class="LC_right_item">'.$item->{'header'}->[2]->{'col2'}.'</td>             </tr>'.
+             &print_usercreation('bottom',$dom,$settings,\$rowtotal);
+             $rowtotal ++;
+         } elsif ($action eq 'usermodification') {
+             $output .= &print_usermodification('bottom',$dom,$settings,\$rowtotal);
          } else {
-             $r->print(&print_rolecolors($phase,'coordinator',$dom,$confname,$settings).'
+             $output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).'
             </table>
            </td>
           </tr>
- Line 241  sub print_config_box {
+ Line 400  sub print_config_box {
                <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[2]->{'col1'}.'</td>
                <td class="LC_right_item">'.$item->{'header'}->[2]->{'col2'}.'</td>
               </tr>'.
-             &print_rolecolors($phase,'author',$dom,$confname,$settings).'
+             &print_rolecolors($phase,'author',$dom,$confname,$settings,\$rowtotal).'
             </table>
            </td>
           </tr>
- Line 252  sub print_config_box {
+ Line 411  sub print_config_box {
                <td class="LC_left_item"'.$colspan.'>'.$item->{'header'}->[3]->{'col1'}.'</td>
                <td class="LC_right_item">'.$item->{'header'}->[3]->{'col2'}.'</td>
               </tr>'.
-             &print_rolecolors($phase,'admin',$dom,$confname,$settings));
+             &print_rolecolors($phase,'admin',$dom,$confname,$settings,\$rowtotal);
+             $rowtotal += 2;
          }
      } else {
-         $r->print('
+         $output .= '
            <tr>
             <td>
              <table class="LC_nested">
-              <tr class="LC_info_row">');
+              <tr class="LC_info_row">';
-         if ($action eq 'login') {
+         if (($action eq 'login') || ($action eq 'directorysrch')) {
-             $r->print('
+             $output .= '
-               <td class="LC_left_item" colspan="2">'.$item->{'header'}->[0]->{'col1'}.'</td>');
+               <td class="LC_left_item" colspan="2">'.$item->{'header'}->[0]->{'col1'}.'</td>';
          } else {
-             $r->print('
+             $output .= '
-               <td class="LC_left_item">'.$item->{'header'}->[0]->{'col1'}.'</td>');
+               <td class="LC_left_item">'.$item->{'header'}->[0]->{'col1'}.'</td>';
          }
-         $r->print('
+         $output .= '
                <td class="LC_right_item">'.$item->{'header'}->[0]->{'col2'}.'</td>
-              </tr>');
+              </tr>';
+         $rowtotal ++;
          if ($action eq 'login') {
-            $r->print(&print_login($dom,$confname,$phase,$settings));
+             $output .= &print_login($dom,$confname,$phase,$settings,\$rowtotal);
          } elsif ($action eq 'quotas') {
-            $r->print(&print_quotas($dom,$settings));
+             $output .= &print_quotas($dom,$settings,\$rowtotal);
          } elsif ($action eq 'autoenroll') {
-            $r->print(&print_autoenroll($dom,$settings));
+             $output .= &print_autoenroll($dom,$settings,\$rowtotal);
-         }
+         } elsif ($action eq 'directorysrch') {
+             $output .= &print_directorysrch($dom,$settings,\$rowtotal);
+         } elsif ($action eq 'contacts') {
+             $output .= &print_contacts($dom,$settings,\$rowtotal);
+         }
      }
-     $r->print('
+     $output .= '
     </table>
    </td>
   </tr>
- </table><br />');
+ </table><br />';
-     return;
+     return ($output,$rowtotal);
  }
  sub print_header {
      my ($r,$phase) = @_;
+     my $alert = &mt('You must select at least one functionality type to display.');
      my $js = '
  <script type="text/javascript">
  function changePage(formname,newphase) {
      formname.phase.value = newphase;
+     numchecked = 0;
+     if (formname == document.pickactions) {
+         if (formname.actions.length > 0) {
+             for (var i = 0; i <formname.actions.length; i++) {
+                 if (formname.actions[i].checked) {
+                     numchecked ++;
+                 }
+             }
+         } else {
+             if (formname.actions.checked) {
+                 numchecked ++;
+             }
+         }
+         if (numchecked > 0) {
+             formname.submit();
+         } else {
+             alert("'.$alert.'");
+             return;
+         }
+     }
      formname.submit();
- }
+ }'."\n";
- '.
+     if ($phase eq 'pickactions') {
- &color_pick_js().'
+         $js .=
+             &Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox',numcols => 'radio',})."\n".
+             &javascript_set_colnums();
+     } elsif ($phase eq 'display') {
+         $js .= &color_pick_js()."\n";
+     }
+     $js .= &Apache::loncommon::viewport_size_js().'
  </script>
  ';
+     my $additem;
+     if ($phase eq 'pickactions') {
+         my %loaditems = (
+                     'onload' => "javascript:getViewportDims(document.$phase.width,document.$phase.height);setDisplayColumns();setFormElements(document.pickactions);",
+                         );
+         $additem = {'add_entries' => \%loaditems,};
+     } else {
+         my %loaditems = (
+                     'onload' => "javascript:getViewportDims(document.$phase.width,document.$phase.height);",
+                         );
+         $additem = {'add_entries' => \%loaditems,};
+     }
      $r->print(&Apache::loncommon::start_page('View/Modify Domain Settings',
-                                            $js));
+                                            $js,$additem));
      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Domain Settings'));
      $r->print('
  <form name="parmform" action="">
- Line 314  function changePage(formname,newphase) {
+ Line 518  function changePage(formname,newphase) {
  }
  sub print_footer {
-     my ($r,$phase,$newphase,$button_text) = @_;
+     my ($r,$phase,$newphase,$button_text,$actions) = @_;
      $button_text = &mt($button_text);
-     $r->print('<input type="hidden" name="phase" value="" />');
+     $r->print('<input type="hidden" name="phase" value="" />'.
+               '<input type="hidden" name="width" value="'.
+               $env{'form.width'}.'" />'.
+               '<input type="hidden" name="height" value="'.
+               $env{'form.height'}.'" />');
+     if (($phase eq 'display') || ($phase eq 'process')) {
+         if (ref($actions) eq 'ARRAY') {
+             foreach my $item (@{$actions}) {
+                 $r->print('<input type="hidden" name="actions" value="'.$item.'" />')."\n";
+             }
+         }
+         $r->print('<input type="hidden" name="numcols" value="'.$env{'form.numcols'}.'" />');
+     }
      my $dest='"javascript:changePage(document.'.$phase.','."'$newphase'".')"';
      if ($phase eq 'process') {
-         $r->print('<a href='.$dest.'>'.$button_text.'</a>');
+         $r->print('<p><a href='.$dest.'>'.$button_text.'</a></p>');
      } else {
-         $r->print('<input type="button" name="store" value="'.
+         my $onclick;
-                   $button_text.'" onclick='.$dest.' />');
+         if ($phase eq 'display') {
+             $onclick = '"javascript:changePage(document.'.$phase.','."'$newphase'".')"';
+         } else {
+             $onclick = '"javascript:changePage(document.'.$phase.','."'$newphase'".')"';
+         }
+         $r->print('<p><input type="button" name="store" value="'.
+                   $button_text.'" onclick='.$onclick.' /></p>');
+     }
+     if ($phase eq 'process') {
+         $r->print('</form>'.&Apache::loncommon::end_page());
      }
-     $r->print('</form>');
-     $r->print('<br />'.&Apache::loncommon::end_page());
      return;
  }
  sub print_login {
-     my ($dom,$confname,$phase,$settings) = @_;
+     my ($dom,$confname,$phase,$settings,$rowtotal) = @_;
      my %choices = &login_choices();
      my ($catalogon,$catalogoff,$adminmailon,$adminmailoff);
      $catalogon = ' checked="checked" ';
- Line 431  sub print_login {
+ Line 654  sub print_login {
          '<label><input type="radio" name="adminmail"'.
          $adminmailoff.'value="0" />'.&mt('No').'</label></span></td></tr>';
      $itemcount ++;
-     $datatable .= &display_color_options($dom,$confname,$phase,'login',$itemcount,\%choices,\%is_custom,\%defaults,\%designs,\@images,\@bgs,\@links,\%alt_text);
+     $datatable .= &display_color_options($dom,$confname,$phase,'login',$itemcount,\%choices,\%is_custom,\%defaults,\%designs,\@images,\@bgs,\@links,\%alt_text,$rowtotal);
      $datatable .= '</tr></table></td></tr>';
      return $datatable;
  }
- Line 458  sub login_choices {
+ Line 681  sub login_choices {
  }
  sub print_rolecolors {
-     my ($phase,$role,$dom,$confname,$settings) = @_;
+     my ($phase,$role,$dom,$confname,$settings,$rowtotal) = @_;
      my %choices = &color_font_choices();
      my @bgs = ('pgbg','tabbg','sidebg');
      my @links = ('link','alink','vlink');
- Line 524  sub print_rolecolors {
+ Line 747  sub print_rolecolors {
          }
      }
      my $itemcount = 1;
-     my $datatable = &display_color_options($dom,$confname,$phase,$role,$itemcount,\%choices,\%is_custom,\%defaults,\%designs,\@images,\@bgs,\@links,\%alt_text);
+     my $datatable = &display_color_options($dom,$confname,$phase,$role,$itemcount,\%choices,\%is_custom,\%defaults,\%designs,\@images,\@bgs,\@links,\%alt_text,$rowtotal);
      $datatable .= '</tr></table></td></tr>';
      return $datatable;
  }
  sub display_color_options {
      my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs,
-         $images,$bgs,$links,$alt_text) = @_;
+         $images,$bgs,$links,$alt_text,$rowtotal) = @_;
      my $css_class = $itemcount%2?' class="LC_odd_row"':'';
      my $datatable = '<tr'.$css_class.'>'.
          '<td>'.$choices->{'font'}.'</td>';
      if (!$is_custom->{'font'}) {
-         $datatable .=  '<td>'.&mt('Default in use:').'&nbsp;'.$defaults->{'font'}.'</td>';
+         $datatable .=  '<td>'.&mt('Default in use:').'&nbsp;<span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>';
      } else {
          $datatable .= '<td>&nbsp;</td>';
      }
- Line 544  sub display_color_options {
+ Line 767  sub display_color_options {
      $datatable .= '<td><span class="LC_nobreak">'.
                    '<input type="text" size="10" name="'.$role.'_font"'.
                    ' value="'.$designs->{'font'}.'" />&nbsp;'.$fontlink.
+                   '&nbsp;<span id="css_'.$role.'_font" style="background-color: '.
+                   $designs->{'font'}.';">&nbsp;&nbsp;&nbsp;</span>'.
                    '</span></td></tr>';
      my $switchserver = &check_switchserver($dom,$confname);
      foreach my $img (@{$images}) {
- Line 639  sub display_color_options {
+ Line 864  sub display_color_options {
      my $bgs_def;
      foreach my $item (@{$bgs}) {
          if (!$is_custom->{$item}) {
-             $bgs_def .= '<td>'.$choices->{$item}.'<br />'.$defaults->{'bgs'}{$item}.'</td>';
+             $bgs_def .= '<td>'.$choices->{$item}.'&nbsp;<span id="css_default_'.$role.'_'.$item.'" style="background-color: '.$defaults->{'bgs'}{$item}.';">&nbsp;&nbsp;&nbsp;</span><br />'.$defaults->{'bgs'}{$item}.'</td>';
          }
      }
      if ($bgs_def) {
- Line 653  sub display_color_options {
+ Line 878  sub display_color_options {
          my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'bgs'}{$item});
          $datatable .= '<td align="center">'.$link;
          if ($designs->{'bgs'}{$item}) {
-             $datatable .= '<span style="background-color:'.$designs->{'bgs'}{$item}.'width: 10px">&nbsp;</span>';
+             $datatable .= '&nbsp;<span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'bgs'}{$item}.';">&nbsp;&nbsp;&nbsp;</span>';
          }
          $datatable .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.$designs->{'bgs'}{$item}.
-                       '" /></td>';
+                       '" onblur = "javascript:document.display.css_'.$role.'_'.$item.'.style.background-color = document.display.'.$role.'_'.$item.'.value;"/></td>';
      }
      $datatable .= '</tr></table></td></tr>';
      $itemcount ++;
- Line 666  sub display_color_options {
+ Line 891  sub display_color_options {
      my $links_def;
      foreach my $item (@{$links}) {
          if (!$is_custom->{$item}) {
-             $links_def .= '<td>'.$choices->{$item}.'<br />'.$defaults->{'links'}{$item}.'</td>';
+             $links_def .= '<td>'.$choices->{$item}.'<br /><span id="css_default_'.$role.'_'.$item.'" style="color: '.$defaults->{'links'}{$item}.';">'.$defaults->{'links'}{$item}.'</span></td>';
          }
      }
      if ($links_def) {
- Line 677  sub display_color_options {
+ Line 902  sub display_color_options {
      $datatable .= '<td class="LC_right_item">'.
                    '<table border="0"><tr>';
      foreach my $item (@{$links}) {
-         $datatable .= '<td align="center">';
+         $datatable .= '<td align="center">'."\n".
-         my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'links'}{$item});
+                       &color_pick($phase,$role,$item,$choices->{$item},
+                                   $designs->{'links'}{$item});
          if ($designs->{'links'}{$item}) {
-             $datatable.='<span style="color: '.$designs->{'links'}{$item}.';">'.
+             $datatable.='&nbsp;<span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'links'}{$item}.';">&nbsp;&nbsp;&nbsp;</span>';
-                         $link.'</span>';
-         } else {
-             $datatable .= $link;
          }
          $datatable .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.$designs->{'links'}{$item}.
                        '" /></td>';
      }
+     $$rowtotal += $itemcount;
      return $datatable;
  }
- Line 727  ENDCOL
+ Line 951  ENDCOL
  }
  sub print_quotas {
-     my ($dom,$settings) = @_;
+     my ($dom,$settings,$rowtotal) = @_;
      my $datatable;
-     my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+     my ($othertitle,$usertypes,$types) = &sorted_inst_types($dom);
-     my $othertitle = "All users";
-     my @types;
-     if (ref($order) eq 'ARRAY') {
-         @types = @{$order};
-     }
-     if (@types == 0) {
-         if (ref($usertypes) eq 'HASH') {
-             @types = sort(keys(%{$usertypes}));
-         }
-     }
      my $typecount = 0;
      my $css_class;
-     if (@types > 0) {
+     if (ref($types) eq 'ARRAY') {
-         foreach my $type (@types) {
+         foreach my $type (@{$types}) {
              if (defined($usertypes->{$type})) {
                  $typecount ++;
                  $css_class = $typecount%2?' class="LC_odd_row"':'';
- Line 755  sub print_quotas {
+ Line 969  sub print_quotas {
                                '" size="5" /> Mb</span></td></tr>';
              }
          }
-         $othertitle = "Other users";
      }
      my $defaultquota = '20';
      if (ref($settings) eq 'HASH') {
- Line 766  sub print_quotas {
+ Line 979  sub print_quotas {
      $typecount ++;
      $css_class = $typecount%2?' class="LC_odd_row"':'';
      $datatable .= '<tr'.$css_class.'>'.
-                   '<td>'.&mt($othertitle).'</td>'.
+                   '<td>'.$othertitle.'</td>'.
                    '<td class="LC_right_item"><span class="LC_nobreak">'.
                    '<input type="text" name="defaultquota" value="'.
                    $defaultquota.'" size="5" /> Mb</span></td></tr>';
+     $$rowtotal += $typecount;
      return $datatable;
  }
  sub print_autoenroll {
-     my ($dom,$settings) = @_;
+     my ($dom,$settings,$rowtotal) = @_;
      my $autorun = &Apache::lonnet::auto_run(undef,$dom),
      my ($defdom,$runon,$runoff);
      if (ref($settings) eq 'HASH') {
- Line 823  sub print_autoenroll {
+ Line 1037  sub print_autoenroll {
                    $settings->{'sender_uname'}.
                    '" size="10" />&nbsp;&nbsp;'.&mt('domain').
                    ':&nbsp;'.$domform.'</span></td></tr>';
+     $$rowtotal += 2;
      return $datatable;
  }
  sub print_autoupdate {
-     my ($position,$dom,$settings) = @_;
+     my ($position,$dom,$settings,$rowtotal) = @_;
      my $datatable;
      if ($position eq 'top') {
          my $updateon = ' ';
- Line 863  sub print_autoupdate {
+ Line 1078  sub print_autoupdate {
                    '<label><input type="radio" name="classlists"'.
                    $classlistsoff.'value="0" />'.&mt('No').'</label></span></td>'.
                    '</tr>';
+         $$rowtotal += 2;
      } else {
-         my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+         my ($othertitle,$usertypes,$types) = &sorted_inst_types($dom);
-         my @types;
-         if (ref($order) eq 'ARRAY') {
-             @types = @{$order};
-         }
-         if (@types == 0) {
-             if (ref($usertypes) eq 'HASH') {
-                 @types = sort(keys(%{$usertypes}));
-             }
-         }
-         my $othertitle = &mt('All users');
-         if (keys(%{$usertypes}) > 0) {
-             $othertitle = &mt('Other users');
-         }
          my @fields = ('lastname','firstname','middlename','gen',
                        'permanentemail','id');
-         my %fieldtitles = &Apache::lonlocal::texthash (
+         my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
-                             id => 'Student/Employee ID',
-                             permanentemail => 'E-mail address',
-                             lastname => 'Last Name',
-                             firstname => 'First Name',
-                             middlename => 'Middle Name',
-                             gen => 'Generation',
-                       );
          my $numrows = 0;
-         if (@types > 0) {
+         if (ref($types) eq 'ARRAY') {
-             $datatable =
+             if (@{$types} > 0) {
-                 &usertype_update_row($settings,$usertypes,\%fieldtitles,
+                 $datatable =
-                                      \@fields,\@types,\$numrows);
+                     &usertype_update_row($settings,$usertypes,\%fieldtitles,
+                                          \@fields,$types,\$numrows);
+                     $$rowtotal += @{$types};
+             }
          }
          $datatable .=
              &usertype_update_row($settings,{'default' => $othertitle},
                                   \%fieldtitles,\@fields,['default'],
                                   \$numrows);
+         $$rowtotal ++;
+     }
+     return $datatable;
+ }
+ sub print_directorysrch {
+     my ($dom,$settings,$rowtotal) = @_;
+     my $srchon = ' ';
+     my $srchoff = ' checked="checked" ';
+     my ($exacton,$containson,$beginson);
+     my $localon = ' ';
+     my $localoff = ' checked="checked" ';
+     if (ref($settings) eq 'HASH') {
+         if ($settings->{'available'} eq '1') {
+             $srchon = $srchoff;
+             $srchoff = ' ';
+         }
+         if ($settings->{'localonly'} eq '1') {
+             $localon = $localoff;
+             $localoff = ' ';
+         }
+         if (ref($settings->{'searchtypes'}) eq 'ARRAY') {
+             foreach my $type (@{$settings->{'searchtypes'}}) {
+                 if ($type eq 'exact') {
+                     $exacton = ' checked="checked" ';
+                 } elsif ($type eq 'contains') {
+                     $containson = ' checked="checked" ';
+                 } elsif ($type eq 'begins') {
+                     $beginson = ' checked="checked" ';
+                 }
+             }
+         } else {
+             if ($settings->{'searchtypes'} eq 'exact') {
+                 $exacton = ' checked="checked" ';
+             } elsif ($settings->{'searchtypes'} eq 'contains') {
+                 $containson = ' checked="checked" ';
+             } elsif ($settings->{'searchtypes'} eq 'specify') {
+                 $exacton = ' checked="checked" ';
+                 $containson = ' checked="checked" ';
+             }
+         }
+     }
+     my ($searchtitles,$titleorder) = &sorted_searchtitles();
+     my ($othertitle,$usertypes,$types) = &sorted_inst_types($dom);
+     my $numinrow = 4;
+     my $cansrchrow = 0;
+     my $datatable='<tr class="LC_odd_row">'.
+                   '<td colspan="2"><span class ="LC_nobreak">'.&mt('Directory search available?').'</span></td>'.
+                   '<td class="LC_right_item"><span class="LC_nobreak"><label>'.
+                   '<input type="radio" name="dirsrch_available"'.
+                   $srchon.' value="1" />'.&mt('Yes').'</label>&nbsp;'.
+                   '<label><input type="radio" name="dirsrch_available"'.
+                   $srchoff.' value="0" />'.&mt('No').'</label></span></td>'.
+                   '</tr><tr>'.
+                   '<td colspan="2"><span class ="LC_nobreak">'.&mt('Other domains can search?').'</span></td>'.
+                   '<td class="LC_right_item"><span class="LC_nobreak"><label>'.
+                   '<input type="radio" name="dirsrch_localonly"'.
+                   $localoff.' value="0" />'.&mt('Yes').'</label>&nbsp;'.
+                   '<label><input type="radio" name="dirsrch_localonly"'.
+                   $localon.' value="1" />'.&mt('No').'</label></span></td>'.
+                   '</tr>';
+     $$rowtotal += 2;
+     if (ref($usertypes) eq 'HASH') {
+         if (keys(%{$usertypes}) > 0) {
+             $datatable .= &users_cansearch_row($settings,$types,$usertypes,$dom,
+                                                $numinrow,$othertitle);
+             $cansrchrow = 1;
+         }
+     }
+     if ($cansrchrow) {
+         $$rowtotal ++;
+         $datatable .= '<tr>';
+     } else {
+         $datatable .= '<tr class="LC_odd_row">';
+     }
+     $datatable .= '<td><span class ="LC_nobreak">'.&mt('Supported search methods').
+                   '</span></td><td class="LC_left_item" colspan="2"><table><tr>';
+     foreach my $title (@{$titleorder}) {
+         if (defined($searchtitles->{$title})) {
+             my $check = ' ';
+             if (ref($settings->{'searchby'}) eq 'ARRAY') {
+                 if (grep(/^\Q$title\E$/,@{$settings->{'searchby'}})) {
+                     $check = ' checked="checked" ';
+                 }
+             }
+             $datatable .= '<td class="LC_left_item">'.
+                           '<span class="LC_nobreak"><label>'.
+                           '<input type="checkbox" name="searchby" '.
+                           'value="'.$title.'"'.$check.'/>'.
+                           $searchtitles->{$title}.'</label></span></td>';
+         }
+     }
+     $datatable .= '</tr></table></td></tr>';
+     $$rowtotal ++;
+     if ($cansrchrow) {
+         $datatable .= '<tr class="LC_odd_row">';
+     } else {
+         $datatable .= '<tr>';
+     }
+     $datatable .= '<td><span class ="LC_nobreak">'.&mt('Search latitude').'</span></td>'.
+                   '<td class="LC_left_item" colspan="2">'.
+                   '<span class="LC_nobreak"><label>'.
+                   '<input type="checkbox" name="searchtypes" '.
+                   $exacton.' value="exact" />'.&mt('Exact match').
+                   '</label>&nbsp;'.
+                   '<label><input type="checkbox" name="searchtypes" '.
+                   $beginson.' value="begins" />'.&mt('Begins with').
+                   '</label>&nbsp;'.
+                   '<label><input type="checkbox" name="searchtypes" '.
+                   $containson.' value="contains" />'.&mt('Contains').
+                   '</label></span></td></tr>';
+     $$rowtotal ++;
+     return $datatable;
+ }
+ sub print_contacts {
+     my ($dom,$settings,$rowtotal) = @_;
+     my $datatable;
+     my @contacts = ('adminemail','supportemail');
+     my (%checked,%to,%otheremails);
+     my @mailings = ('errormail','packagesmail','helpdeskmail');
+     foreach my $type (@mailings) {
+         $otheremails{$type} = '';
+     }
+     if (ref($settings) eq 'HASH') {
+         foreach my $item (@contacts) {
+             if (exists($settings->{$item})) {
+                 $to{$item} = $settings->{$item};
+             }
+         }
+         foreach my $type (@mailings) {
+             if (exists($settings->{$type})) {
+                 if (ref($settings->{$type}) eq 'HASH') {
+                     foreach my $item (@contacts) {
+                         if ($settings->{$type}{$item}) {
+                             $checked{$type}{$item} = ' checked="checked" ';
+                         }
+                     }
+                     $otheremails{$type} = $settings->{$type}{'others'};
+                 }
+             }
+         }
+     } else {
+         $to{'supportemail'} = $Apache::lonnet::perlvar{'lonSupportEMail'};
+         $to{'adminemail'} = $Apache::lonnet::perlvar{'lonAdmEMail'};
+         $checked{'errormail'}{'adminemail'} = ' checked="checked" ';
+         $checked{'packagesmail'}{'adminemail'} = ' checked="checked" ';
+         $checked{'helpdeskmail'}{'supportemail'} = ' checked="checked" ';
+     }
+     my ($titles,$short_titles) = &contact_titles();
+     my $rownum = 0;
+     my $css_class;
+     foreach my $item (@contacts) {
+         if ($rownum%2) {
+             $css_class = '';
+         } else {
+             $css_class = ' class="LC_odd_row" ';
+         }
+         $datatable .= '<tr'.$css_class.'>'.
+                   '<td><span class="LC_nobreak">'.$titles->{$item}.
+                   '</span></td><td class="LC_right_item">'.
+                   '<input type="text" name="'.$item.'" value="'.
+                   $to{$item}.'" /></td></tr>';
+         $rownum ++;
+     }
+     foreach my $type (@mailings) {
+         if ($rownum%2) {
+             $css_class = '';
+         } else {
+             $css_class = ' class="LC_odd_row" ';
+         }
+         $datatable .= '<tr'.$css_class.'>'.
+                       '<td><span class="LC_nobreak">'.
+                       $titles->{$type}.': </span></td>'.
+                       '<td class="LC_left_item">'.
+                       '<span class="LC_nobreak">';
+         foreach my $item (@contacts) {
+             $datatable .= '<label>'.
+                           '<input type="checkbox" name="'.$type.'"'.
+                           $checked{$type}{$item}.
+                           ' value="'.$item.'" />'.$short_titles->{$item}.
+                           '</label>&nbsp;';
+         }
+         $datatable .= '</span><br />'.&mt('Others').':&nbsp;&nbsp;'.
+                       '<input type="text" name="'.$type.'_others" '.
+                       'value="'.$otheremails{$type}.'"  />'.
+                       '</td></tr>'."\n";
+         $rownum ++;
+     }
+     $$rowtotal += $rownum;
+     return $datatable;
+ }
+ sub contact_titles {
+     my %titles = &Apache::lonlocal::texthash (
+                    'supportemail' => 'Support E-mail address',
+                    'adminemail'    => 'Default Server Admin E-mail address',
+                    'errormail'    => 'Error reports to be e-mailed to',
+                    'packagesmail' => 'Package update alerts to be e-mailed to',
+                    'helpdeskmail' => 'Helpdesk requests to be e-mailed to'
+                  );
+     my %short_titles = &Apache::lonlocal::texthash (
+                            adminemail   => 'Admin E-mail address',
+                            supportemail => 'Support E-mail',
+                        );
+     return (\%titles,\%short_titles);
+ }
+ sub print_usercreation {
+     my ($position,$dom,$settings,$rowtotal) = @_;
+     my $numinrow = 4;
+     my $datatable;
+     if ($position eq 'top') {
+         $$rowtotal ++;
+         my $rowcount = 0;
+         my ($rules,$ruleorder) = &Apache::lonnet::inst_userrules($dom,'username');
+         if (ref($rules) eq 'HASH') {
+             if (keys(%{$rules}) > 0) {
+                 $datatable .= &user_formats_row('username',$settings,$rules,
+                                                 $ruleorder,$numinrow,$rowcount);
+                 $$rowtotal ++;
+                 $rowcount ++;
+             }
+         }
+         my ($idrules,$idruleorder) = &Apache::lonnet::inst_userrules($dom,'id');
+         if (ref($idrules) eq 'HASH') {
+             if (keys(%{$idrules}) > 0) {
+                 $datatable .= &user_formats_row('id',$settings,$idrules,
+                                                 $idruleorder,$numinrow,$rowcount);
+                 $$rowtotal ++;
+                 $rowcount ++;
+             }
+         }
+     } elsif ($position eq 'middle') {
+         my @creators = ('author','course');
+         my %lt = &usercreation_types();
+         my %checked;
+         if (ref($settings) eq 'HASH') {
+             if (ref($settings->{'cancreate'}) eq 'HASH') {
+                 foreach my $item (@creators) {
+                     $checked{$item} = $settings->{'cancreate'}{$item};
+                 }
+             } elsif (ref($settings->{'cancreate'}) eq 'ARRAY') {
+                 foreach my $item (@creators) {
+                     if (grep(/^\Q$item\E$/,@{$settings->{'cancreate'}})) {
+                         $checked{$item} = 'none';
+                     }
+                 }
+             }
+         }
+         my $rownum = 0;
+         foreach my $item (@creators) {
+             $rownum ++;
+             if ($checked{$item} eq '') {
+                 $checked{$item} = 'any';
+             }
+             my $css_class;
+             if ($rownum%2) {
+                 $css_class = '';
+             } else {
+                 $css_class = ' class="LC_odd_row" ';
+             }
+             $datatable .= '<tr'.$css_class.'>'.
+                          '<td><span class="LC_nobreak">'.$lt{$item}.
+                          '</span></td><td align="right">';
+             foreach my $option ('any','official','unofficial','none') {
+                 my $check = ' ';
+                 if ($checked{$item} eq $option) {
+                     $check = ' checked="checked" ';
+                 }
+                 $datatable .= '<span class="LC_nobreak"><label>'.
+                               '<input type="radio" name="can_createuser_'.
+                               $item.'" value="'.$option.'"'.$check.'/>&nbsp;'.
+                               $lt{$option}.'</label>&nbsp;&nbsp;</span>';
+             }
+             $datatable .= '</td></tr>';
+         }
+     } else {
+         my @contexts = ('author','course','domain');
+         my @authtypes = ('int','krb4','krb5','loc');
+         my %checked;
+         if (ref($settings) eq 'HASH') {
+             if (ref($settings->{'authtypes'}) eq 'HASH') {
+                 foreach my $item (@contexts) {
+                     if (ref($settings->{'authtypes'}{$item}) eq 'HASH') {
+                         foreach my $auth (@authtypes) {
+                             if ($settings->{'authtypes'}{$item}{$auth}) {
+                                 $checked{$item}{$auth} = ' checked="checked" ';
+                             }
+                         }
+                     }
+                 }
+             }
+         }
+         my @authtypes = ('int','krb4','krb5','loc');
+         my %title = &context_names();
+         my %authname = &authtype_names();
+         my $rownum = 0;
+         my $css_class;
+         foreach my $item (@contexts) {
+             if ($rownum%2) {
+                 $css_class = '';
+             } else {
+                 $css_class = ' class="LC_odd_row" ';
+             }
+             $datatable .=   '<tr'.$css_class.'>'.
+                             '<td>'.$title{$item}.
+                             '</td><td class="LC_left_item">'.
+                             '<span class="LC_nobreak">';
+             foreach my $auth (@authtypes) {
+                 $datatable .= '<label>'.
+                               '<input type="checkbox" name="'.$item.'_auth" '.
+                               $checked{$item}{$auth}.' value="'.$auth.'" />'.
+                               $authname{$auth}.'</label>&nbsp;';
+             }
+             $datatable .= '</span></td></tr>';
+             $rownum ++;
+         }
+         $$rowtotal += $rownum;
      }
      return $datatable;
  }
+ sub user_formats_row {
+     my ($type,$settings,$rules,$ruleorder,$numinrow,$rowcount) = @_;
+     my $output;
+     my %text = (
+                    'username' => 'new usernames',
+                    'id'       => 'IDs',
+                );
+     my $css_class = $rowcount%2?' class="LC_odd_row"':'';
+     $output = '<tr '.$css_class.'>'.
+               '<td><span class="LC_nobreak">'.
+               &mt("Format rules to check for $text{$type}: ").
+               '</span></td>'.
+               '<td class="LC_left_item" colspan="2"><table>';
+     my $rem;
+     if (ref($ruleorder) eq 'ARRAY') {
+         for (my $i=0; $i<@{$ruleorder}; $i++) {
+             if (ref($rules->{$ruleorder->[$i]}) eq 'HASH') {
+                 my $rem = $i%($numinrow);
+                 if ($rem == 0) {
+                     if ($i > 0) {
+                         $output .= '</tr>';
+                     }
+                     $output .= '<tr>';
+                 }
+                 my $check = ' ';
+                 if (ref($settings->{$type.'_rule'}) eq 'ARRAY') {
+                     if (grep(/^\Q$ruleorder->[$i]\E$/,@{$settings->{$type.'_rule'}})) {
+                         $check = ' checked="checked" ';
+                     }
+                 }
+                 $output .= '<td class="LC_left_item">'.
+                            '<span class="LC_nobreak"><label>'.
+                            '<input type="checkbox" name="'.$type.'_rule" '.
+                            'value="'.$ruleorder->[$i].'"'.$check.'/>'.
+                            $rules->{$ruleorder->[$i]}{'name'}.'</label></span></td>';
+             }
+         }
+         $rem = @{$ruleorder}%($numinrow);
+     }
+     my $colsleft = $numinrow - $rem;
+     if ($colsleft > 1 ) {
+         $output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
+                    '&nbsp;</td>';
+     } elsif ($colsleft == 1) {
+         $output .= '<td class="LC_left_item">&nbsp;</td>';
+     }
+     $output .= '</tr></table></td></tr>';
+     return $output;
+ }
+ sub usercreation_types {
+     my %lt = &Apache::lonlocal::texthash (
+                     author     => 'When adding a co-author',
+                     course     => 'When adding a user to a course',
+                     any        => 'Any',
+                     official   => 'Institutional only ',
+                     unofficial => 'Non-institutional only',
+                     none       => 'None',
+     );
+     return %lt;
+ }
+ sub authtype_names {
+     my %lt = &Apache::lonlocal::texthash(
+                       int    => 'Internal',
+                       krb4   => 'Kerberos 4',
+                       krb5   => 'Kerberos 5',
+                       loc    => 'Local',
+                   );
+     return %lt;
+ }
+ sub context_names {
+     my %context_title = &Apache::lonlocal::texthash(
+        author => 'Creating users when an Author',
+        course => 'Creating users when in a course',
+        domain => 'Creating users when a Domain Coordinator',
+     );
+     return %context_title;
+ }
+ sub print_usermodification {
+     my ($position,$dom,$settings,$rowtotal) = @_;
+     my $numinrow = 4;
+     my ($context,$datatable,$rowcount);
+     if ($position eq 'top') {
+         $rowcount = 0;
+         $context = 'author';
+         foreach my $role ('ca','aa') {
+             $datatable .= &modifiable_userdata_row($context,$role,$settings,
+                                                    $numinrow,$rowcount);
+             $$rowtotal ++;
+             $rowcount ++;
+         }
+     } else {
+         $context = 'course';
+         $rowcount = 0;
+         foreach my $role ('st','ep','ta','in','cr') {
+             $datatable .= &modifiable_userdata_row($context,$role,$settings,
+                                                    $numinrow,$rowcount);
+             $$rowtotal ++;
+             $rowcount ++;
+         }
+     }
+     return $datatable;
+ }
+ sub modifiable_userdata_row {
+     my ($context,$role,$settings,$numinrow,$rowcount) = @_;
+     my $rolename;
+     if ($role eq 'cr') {
+         $rolename = &mt('Custom role');
+     } else {
+         $rolename = &Apache::lonnet::plaintext($role);
+     }
+     my @fields = ('lastname','firstname','middlename','generation',
+                   'permanentemail','id');
+     my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
+     my $output;
+     my $css_class = $rowcount%2?' class="LC_odd_row"':'';
+     $output = '<tr '.$css_class.'>'.
+               '<td><span class="LC_nobreak">'.$rolename.'</span></td>'.
+               '<td class="LC_left_item" colspan="2"><table>';
+     my $rem;
+     my %checks;
+     if (ref($settings) eq 'HASH') {
+         if (ref($settings->{$context}) eq 'HASH') {
+             if (ref($settings->{$context}->{$role}) eq 'HASH') {
+                 foreach my $field (@fields) {
+                     if ($settings->{$context}->{$role}->{$field}) {
+                         $checks{$field} = ' checked="checked" ';
+                     }
+                 }
+             }
+         }
+     }
+     for (my $i=0; $i<@fields; $i++) {
+         my $rem = $i%($numinrow);
+         if ($rem == 0) {
+             if ($i > 0) {
+                 $output .= '</tr>';
+             }
+             $output .= '<tr>';
+         }
+         my $check = ' ';
+         if (exists($checks{$fields[$i]})) {
+             $check = $checks{$fields[$i]}
+         } else {
+             if ($role eq 'st') {
+                 if (ref($settings) ne 'HASH') {
+                     $check = ' checked="checked" ';
+                 }
+             }
+         }
+         $output .= '<td class="LC_left_item">'.
+                    '<span class="LC_nobreak"><label>'.
+                    '<input type="checkbox" name="canmodify_'.$role.'" '.
+                    'value="'.$fields[$i].'"'.$check.'/>'.$fieldtitles{$fields[$i]}.
+                    '</label></span></td>';
+         $rem = @fields%($numinrow);
+     }
+     my $colsleft = $numinrow - $rem;
+     if ($colsleft > 1 ) {
+         $output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
+                    '&nbsp;</td>';
+     } elsif ($colsleft == 1) {
+         $output .= '<td class="LC_left_item">&nbsp;</td>';
+     }
+     $output .= '</tr></table></td></tr>';
+     return $output;
+ }
+ sub users_cansearch_row {
+     my ($settings,$types,$usertypes,$dom,$numinrow,$othertitle) = @_;
+     my $output =  '<tr class="LC_odd_row">'.
+                   '<td>'.&mt('Users allowed to search').' ('.$dom.')'.
+                   '</td><td class="LC_left_item" colspan="2"><table>';
+     my $rem;
+     if (ref($types) eq 'ARRAY') {
+         for (my $i=0; $i<@{$types}; $i++) {
+             if (defined($usertypes->{$types->[$i]})) {
+                 my $rem = $i%($numinrow);
+                 if ($rem == 0) {
+                     if ($i > 0) {
+                         $output .= '</tr>';
+                     }
+                     $output .= '<tr>';
+                 }
+                 my $check = ' ';
+                 if (ref($settings->{'cansearch'}) eq 'ARRAY') {
+                     if (grep(/^\Q$types->[$i]\E$/,@{$settings->{'cansearch'}})) {
+                         $check = ' checked="checked" ';
+                     }
+                 }
+                 $output .= '<td class="LC_left_item">'.
+                            '<span class="LC_nobreak"><label>'.
+                            '<input type="checkbox" name="cansearch" '.
+                            'value="'.$types->[$i].'"'.$check.'/>'.
+                            $usertypes->{$types->[$i]}.'</label></span></td>';
+             }
+         }
+         $rem = @{$types}%($numinrow);
+     }
+     my $colsleft = $numinrow - $rem;
+     if ($colsleft > 1) {
+         $output .= '<td colspan="'.$colsleft.'" class="LC_left_item">';
+     } else {
+         $output .= '<td class="LC_left_item">';
+     }
+     my $defcheck = ' ';
+     if (ref($settings->{'cansearch'}) eq 'ARRAY') {
+         if (grep(/^default$/,@{$settings->{'cansearch'}})) {
+             $defcheck = ' checked="checked" ';
+         }
+     }
+     $output .= '<span class="LC_nobreak"><label>'.
+                '<input type="checkbox" name="cansearch" '.
+                'value="default"'.$defcheck.'/>'.
+                $othertitle.'</label></span></td>'.
+                '</tr></table></td></tr>';
+     return $output;
+ }
+ sub sorted_inst_types {
+     my ($dom) = @_;
+     my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+     my $othertitle = &mt('All users');
+     my @types;
+     if (ref($order) eq 'ARRAY') {
+         @types = @{$order};
+     }
+     if (@types == 0) {
+         if (ref($usertypes) eq 'HASH') {
+             @types = sort(keys(%{$usertypes}));
+         }
+     }
+     if (keys(%{$usertypes}) > 0) {
+         $othertitle = &mt('Other users');
+     }
+     return ($othertitle,$usertypes,\@types);
+ }
+ sub sorted_searchtitles {
+     my %searchtitles = &Apache::lonlocal::texthash(
+                          'uname' => 'username',
+                          'lastname' => 'last name',
+                          'lastfirst' => 'last name, first name',
+                      );
+     my @titleorder = ('uname','lastname','lastfirst');
+     return (\%searchtitles,\@titleorder);
+ }
+ sub sorted_searchtypes {
+     my %srchtypes_desc = (
+                            exact    => 'is exact match',
+                            contains => 'contains ..',
+                            begins   => 'begins with ..',
+                          );
+     my @srchtypeorder = ('exact','begins','contains');
+     return (\%srchtypes_desc,\@srchtypeorder);
+ }
  sub usertype_update_row {
      my ($settings,$usertypes,$fieldtitles,$fields,$types,$rownums) = @_;
      my $datatable;
- Line 1551  sub check_switchserver {
+ Line 2333  sub check_switchserver {
      return $switchserver;
  }
+ sub javascript_set_colnums {
+     return <<END;
+ function setDisplayColumns() {
+     if (document.pickactions.width.value > 1100) {
+         document.pickactions.numcols[1].checked = true;
+     } else {
+         document.pickactions.numcols[0].checked = true;
+     }
+ }
+ END
+ }
  sub modify_quotas {
      my ($dom,%domconfig) = @_;
      my ($resulttext,%changes);
-     my ($usertypes,$order) =
+     my ($othertitle,$usertypes,$types) = &sorted_inst_types($dom);
-         &Apache::lonnet::retrieve_inst_usertypes($dom);
      my %formhash;
      foreach my $key (keys(%env)) {
          if ($key =~ /^form\.quota_(.+)$/) {
- Line 1589  sub modify_quotas {
+ Line 2382  sub modify_quotas {
      if ($putresult eq 'ok') {
          if (keys(%changes) > 0) {
              $resulttext = &mt('Changes made:').'<ul>';
-             foreach my $item (sort(keys(%changes))) {
+             foreach my $type (@{$types},'default') {
-                 $resulttext .= '<li>'.&mt('[_1] set to [_2] Mb',$usertypes->{$item},$formhash{$item}).'</li>';
+                 if (defined($changes{$type})) {
+                     my $typetitle = $usertypes->{$type};
+                     if ($type eq 'default') {
+                         $typetitle = $othertitle;
+                     }
+                     $resulttext .= '<li>'.&mt('[_1] set to [_2] Mb',$typetitle,$formhash{$type}).'</li>';
+                 }
              }
              $resulttext .= '</ul>';
          } else {
- Line 1639  sub modify_autoenroll {
+ Line 2438  sub modify_autoenroll {
               }
          } elsif ($autorun) {
              if ($env{'form.autoenroll_run'} ne '1') {
-                 $changes{'run'} = 1;
+                  $changes{'run'} = 1;
              }
          }
          if ($currautoenroll{'sender_uname'} ne $sender_uname) {
- Line 1684  sub modify_autoupdate {
+ Line 2483  sub modify_autoupdate {
                     run => 'Auto-update:',
                     classlists => 'Updates to user information in classlists?'
                  );
-     my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+     my ($othertitle,$usertypes,$types) = &sorted_inst_types($dom);
      my %fieldtitles = &Apache::lonlocal::texthash (
                          id => 'Student/Employee ID',
                          permanentemail => 'E-mail address',
- Line 1695  sub modify_autoupdate {
+ Line 2494  sub modify_autoupdate {
                        );
      my $othertitle = &mt('All users');
      if (keys(%{$usertypes}) >  0) {
-         $othertitle = "Other users";
+         $othertitle = &mt('Other users');
      }
      foreach my $key (keys(%env)) {
          if ($key =~ /^form\.updateable_(.+)_([^_]+)$/) {
- Line 1717  sub modify_autoupdate {
+ Line 2516  sub modify_autoupdate {
              }
          } elsif ($key eq 'fields') {
              if (ref($currautoupdate{$key}) eq 'HASH') {
-                 foreach my $item (keys(%{$currautoupdate{$key}})) {
+                 foreach my $item (@{$types},'default') {
                      if (ref($currautoupdate{$key}{$item}) eq 'ARRAY') {
                          my $change = 0;
                          foreach my $type (@{$currautoupdate{$key}{$item}}) {
                              if (!exists($fields{$item})) {
                                  $change = 1;
                              } elsif (ref($fields{$item}) eq 'ARRAY') {
-                                 if (!grep/^\Q$type\E$/,@{$fields{$item}}) {
+                                 if (!grep(/^\Q$type\E$/,@{$fields{$item}})) {
                                      $change = 1;
                                  }
                              }
- Line 1732  sub modify_autoupdate {
+ Line 2531  sub modify_autoupdate {
                          if ($change) {
                              push(@{$changes{$key}},$item);
                          }
                      }
                  }
              }
          }
      }
-     foreach my $key (keys(%fields)) {
+     foreach my $item (@{$types},'default') {
-         if (ref($currautoupdate{'fields'}) eq 'HASH') {
+         if (defined($fields{$item})) {
-             if (!exists($currautoupdate{'fields'}{$key})) {
+             if (ref($currautoupdate{'fields'}) eq 'HASH') {
-                 push(@{$changes{'fields'}},$key);
+                 if (!exists($currautoupdate{'fields'}{$item})) {
+                     push(@{$changes{'fields'}},$item);
+                 }
+             } else {
+                 push(@{$changes{'fields'}},$item);
              }
-         } else {
-             push(@{$changes{'fields'}},$key);
          }
      }
      my $putresult = &Apache::lonnet::put_dom('configuration',\%updatehash,
- Line 1765  sub modify_autoupdate {
+ Line 2566  sub modify_autoupdate {
                              $newvaluestr = &mt('none');
                          }
                          if ($item eq 'default') {
-                             $resulttext .= '<li>'.&mt("Updates for $othertitle set to: [_1]",$newvaluestr).'</li>';
+                             $resulttext .= '<li>'.&mt("Updates for '[_1]' set to: '[_2]'",$othertitle,$newvaluestr).'</li>';
                          } else {
-                             $resulttext .= '<li>'.&mt("Updates for [_1] set to: [_2]",$usertypes->{$item},$newvaluestr).'</li>';
+                             $resulttext .= '<li>'.&mt("Updates for '[_1]' set to: '[_2]'",$usertypes->{$item},$newvaluestr).'</li>';
                          }
                      }
                  } else {
- Line 1791  sub modify_autoupdate {
+ Line 2592  sub modify_autoupdate {
      return $resulttext;
  }
-;
+ sub modify_directorysrch {
+     my ($dom,%domconfig) = @_;
+     my ($resulttext,%changes);
+     my %currdirsrch;
+     if (ref($domconfig{'directorysrch'}) eq 'HASH') {
+         foreach my $key (keys(%{$domconfig{'directorysrch'}})) {
+             $currdirsrch{$key} = $domconfig{'directorysrch'}{$key};
+         }
+     }
+     my %title = ( available => 'Directory search available',
+                   localonly => 'Other domains can search',
+                   searchby => 'Search types',
+                   searchtypes => 'Search latitude');
+     my @offon = ('off','on');
+     my @otherdoms = ('Yes','No');
+     my @searchtypes = &Apache::loncommon::get_env_multiple('form.searchtypes');
+     my @cansearch = &Apache::loncommon::get_env_multiple('form.cansearch');
+     my @searchby = &Apache::loncommon::get_env_multiple('form.searchby');
+     my ($othertitle,$usertypes,$types) = &sorted_inst_types($dom);
+     if (keys(%{$usertypes}) == 0) {
+         @cansearch = ('default');
+     } else {
+         if (ref($currdirsrch{'cansearch'}) eq 'ARRAY') {
+             foreach my $type (@{$currdirsrch{'cansearch'}}) {
+                 if (!grep(/^\Q$type\E$/,@cansearch)) {
+                     push(@{$changes{'cansearch'}},$type);
+                 }
+             }
+             foreach my $type (@cansearch) {
+                 if (!grep(/^\Q$type\E$/,@{$currdirsrch{'cansearch'}})) {
+                     push(@{$changes{'cansearch'}},$type);
+                 }
+             }
+         } else {
+             push(@{$changes{'cansearch'}},@cansearch);
+         }
+     }
+     if (ref($currdirsrch{'searchby'}) eq 'ARRAY') {
+         foreach my $by (@{$currdirsrch{'searchby'}}) {
+             if (!grep(/^\Q$by\E$/,@searchby)) {
+                 push(@{$changes{'searchby'}},$by);
+             }
+         }
+         foreach my $by (@searchby) {
+             if (!grep(/^\Q$by\E$/,@{$currdirsrch{'searchby'}})) {
+                 push(@{$changes{'searchby'}},$by);
+             }
+         }
+     } else {
+         push(@{$changes{'searchby'}},@searchby);
+     }
+     if (ref($currdirsrch{'searchtypes'}) eq 'ARRAY') {
+         foreach my $type (@{$currdirsrch{'searchtypes'}}) {
+             if (!grep(/^\Q$type\E$/,@searchtypes)) {
+                 push(@{$changes{'searchtypes'}},$type);
+             }
+         }
+         foreach my $type (@searchtypes) {
+             if (!grep(/^\Q$type\E$/,@{$currdirsrch{'searchtypes'}})) {
+                 push(@{$changes{'searchtypes'}},$type);
+             }
+         }
+     } else {
+         if (exists($currdirsrch{'searchtypes'})) {
+             foreach my $type (@searchtypes) {
+                 if ($type ne $currdirsrch{'searchtypes'}) {
+                     push(@{$changes{'searchtypes'}},$type);
+                 }
+             }
+             if (!grep(/^\Q$currdirsrch{'searchtypes'}\E/,@searchtypes)) {
+                 push(@{$changes{'searchtypes'}},$currdirsrch{'searchtypes'});
+             }
+         } else {
+             push(@{$changes{'searchtypes'}},@searchtypes);
+         }
+     }
+     my %dirsrch_hash =  (
+             directorysrch => { available => $env{'form.dirsrch_available'},
+                                cansearch => \@cansearch,
+                                localonly => $env{'form.dirsrch_localonly'},
+                                searchby => \@searchby,
+                                searchtypes => \@searchtypes,
+                              }
+             );
+     my $putresult = &Apache::lonnet::put_dom('configuration',\%dirsrch_hash,
+                                              $dom);
+     if ($putresult eq 'ok') {
+         if (exists($currdirsrch{'available'})) {
+              if ($currdirsrch{'available'} ne $env{'form.dirsrch_available'}) {
+                  $changes{'available'} = 1;
+              }
+         } else {
+             if ($env{'form.dirsrch_available'} eq '1') {
+                 $changes{'available'} = 1;
+             }
+         }
+         if (exists($currdirsrch{'localonly'})) {
+              if ($currdirsrch{'localonly'} ne $env{'form.dirsrch_localonly'}) {
+                  $changes{'localonly'} = 1;
+              }
+         } else {
+             if ($env{'form.dirsrch_localonly'} eq '1') {
+                 $changes{'localonly'} = 1;
+             }
+         }
+         if (keys(%changes) > 0) {
+             $resulttext = &mt('Changes made:').'<ul>';
+             if ($changes{'available'}) {
+                 $resulttext .= '<li>'.&mt("$title{'available'} set to: $offon[$env{'form.dirsrch_available'}]").'</li>';
+             }
+             if ($changes{'localonly'}) {
+                 $resulttext .= '<li>'.&mt("$title{'localonly'} set to: $otherdoms[$env{'form.dirsrch_localonly'}]").'</li>';
+             }
+             if (ref($changes{'cansearch'}) eq 'ARRAY') {
+                 my $chgtext;
+                 if (ref($usertypes) eq 'HASH') {
+                     if (keys(%{$usertypes}) > 0) {
+                         foreach my $type (@{$types}) {
+                             if (grep(/^\Q$type\E$/,@cansearch)) {
+                                 $chgtext .= $usertypes->{$type}.'; ';
+                             }
+                         }
+                         if (grep(/^default$/,@cansearch)) {
+                             $chgtext .= $othertitle;
+                         } else {
+                             $chgtext =~ s/\; $//;
+                         }
+                         $resulttext .= '<li>'.&mt("Users from domain '<span class=\"LC_cusr_emph\">[_1]</span>' permitted to search the institutional directory set to: [_2]",$dom,$chgtext).'</li>';
+                     }
+                 }
+             }
+             if (ref($changes{'searchby'}) eq 'ARRAY') {
+                 my ($searchtitles,$titleorder) = &sorted_searchtitles();
+                 my $chgtext;
+                 foreach my $type (@{$titleorder}) {
+                     if (grep(/^\Q$type\E$/,@searchby)) {
+                         if (defined($searchtitles->{$type})) {
+                             $chgtext .= $searchtitles->{$type}.'; ';
+                         }
+                     }
+                 }
+                 $chgtext =~ s/\; $//;
+                 $resulttext .= '<li>'.&mt("$title{'searchby'} set to: [_1]",$chgtext).'</li>';
+             }
+             if (ref($changes{'searchtypes'}) eq 'ARRAY') {
+                 my ($srchtypes_desc,$srchtypeorder) = &sorted_searchtypes();
+                 my $chgtext;
+                 foreach my $type (@{$srchtypeorder}) {
+                     if (grep(/^\Q$type\E$/,@searchtypes)) {
+                         if (defined($srchtypes_desc->{$type})) {
+                             $chgtext .= $srchtypes_desc->{$type}.'; ';
+                         }
+                     }
+                 }
+                 $chgtext =~ s/\; $//;
+                 $resulttext .= '<li>'.&mt("$title{'searchtypes'} set to: \"[_1]\"",$chgtext).'</li>';
+             }
+             $resulttext .= '</ul>';
+         } else {
+             $resulttext = &mt('No changes made to institution directory search settings');
+         }
+     } else {
+         $resulttext = '<span class="LC_error">'.
+                       &mt('An error occurred: [_1]',$putresult).'</span>';
+     }
+     return $resulttext;
+ }
+ sub modify_contacts {
+     my ($dom,%domconfig) = @_;
+     my ($resulttext,%currsetting,%newsetting,%changes,%contacts_hash);
+     if (ref($domconfig{'contacts'}) eq 'HASH') {
+         foreach my $key (keys(%{$domconfig{'contacts'}})) {
+             $currsetting{$key} = $domconfig{'contacts'}{$key};
+         }
+     }
+     my (%others,%to);
+     my @contacts = ('supportemail','adminemail');
+     my @mailings = ('errormail','packagesmail','helpdeskmail');
+     foreach my $type (@mailings) {
+         @{$newsetting{$type}} =
+             &Apache::loncommon::get_env_multiple('form.'.$type);
+         foreach my $item (@contacts) {
+             if (grep(/^\Q$item\E$/,@{$newsetting{$type}})) {
+                 $contacts_hash{contacts}{$type}{$item} = 1;
+             } else {
+                 $contacts_hash{contacts}{$type}{$item} = 0;
+             }
+         }
+         $others{$type} = $env{'form.'.$type.'_others'};
+         $contacts_hash{contacts}{$type}{'others'} = $others{$type};
+     }
+     foreach my $item (@contacts) {
+         $to{$item} = $env{'form.'.$item};
+         $contacts_hash{'contacts'}{$item} = $to{$item};
+     }
+     if (keys(%currsetting) > 0) {
+         foreach my $item (@contacts) {
+             if ($to{$item} ne $currsetting{$item}) {
+                 $changes{$item} = 1;
+             }
+         }
+         foreach my $type (@mailings) {
+             foreach my $item (@contacts) {
+                 if (ref($currsetting{$type}) eq 'HASH') {
+                     if ($currsetting{$type}{$item} ne $contacts_hash{contacts}{$type}{$item}) {
+                         push(@{$changes{$type}},$item);
+                     }
+                 } else {
+                     push(@{$changes{$type}},@{$newsetting{$type}});
+                 }
+             }
+             if ($others{$type} ne $currsetting{$type}{'others'}) {
+                 push(@{$changes{$type}},'others');
+             }
+         }
+     } else {
+         my %default;
+         $default{'supportemail'} = $Apache::lonnet::perlvar{'lonSupportEMail'};
+         $default{'adminemail'} = $Apache::lonnet::perlvar{'lonAdmEMail'};
+         $default{'errormail'} = 'adminemail';
+         $default{'packagesmail'} = 'adminemail';
+         $default{'helpdeskmail'} = 'supportemail';
+         foreach my $item (@contacts) {
+            if ($to{$item} ne $default{$item}) {
+               $changes{$item} = 1;
+            }
+         }
+         foreach my $type (@mailings) {
+             if ((@{$newsetting{$type}} != 1) || ($newsetting{$type}[0] ne $default{$type})) {
+                 push(@{$changes{$type}},@{$newsetting{$type}});
+             }
+             if ($others{$type} ne '') {
+                 push(@{$changes{$type}},'others');
+             }
+         }
+     }
+     my $putresult = &Apache::lonnet::put_dom('configuration',\%contacts_hash,
+                                              $dom);
+     if ($putresult eq 'ok') {
+         if (keys(%changes) > 0) {
+             my ($titles,$short_titles)  = &contact_titles();
+             $resulttext = &mt('Changes made:').'<ul>';
+             foreach my $item (@contacts) {
+                 if ($changes{$item}) {
+                     $resulttext .= '<li>'.$titles->{$item}.
+                                     &mt(' set to: ').
+                                     '<span class="LC_cusr_emph">'.
+                                     $to{$item}.'</span></li>';
+                 }
+             }
+             foreach my $type (@mailings) {
+                 if (ref($changes{$type}) eq 'ARRAY') {
+                     $resulttext .= '<li>'.$titles->{$type}.': ';
+                     my @text;
+                     foreach my $item (@{$newsetting{$type}}) {
+                         push(@text,$short_titles->{$item});
+                     }
+                     if ($others{$type} ne '') {
+                         push(@text,$others{$type});
+                     }
+                     $resulttext .= '<span class="LC_cusr_emph">'.
+                                    join(', ',@text).'</span></li>';
+                 }
+             }
+             $resulttext .= '</ul>';
+         } else {
+             $resulttext = &mt('No changes made to contact information');
+         }
+     } else {
+         $resulttext = '<span class="LC_error">'.
+             &mt('An error occurred: [_1].',$putresult).'</span>';
+     }
+     return $resulttext;
+ }
+ sub modify_usercreation {
+     my ($dom,%domconfig) = @_;
+     my ($resulttext,%curr_usercreation,%changes,%authallowed,%cancreate);
+     if (ref($domconfig{'usercreation'}) eq 'HASH') {
+         foreach my $key (keys(%{$domconfig{'usercreation'}})) {
+             $curr_usercreation{$key} = $domconfig{'usercreation'}{$key};
+         }
+     }
+     my %title = &Apache::lonlocal::texthash (
+                    author => 'adding co-authors/assistant authors',
+                    course => 'adding users to a course',
+                 );
+     my @username_rule = &Apache::loncommon::get_env_multiple('form.username_rule');
+     my @id_rule = &Apache::loncommon::get_env_multiple('form.id_rule');
+     my @contexts = ('author','course');
+     foreach my $item(@contexts) {
+         $cancreate{$item} = $env{'form.can_createuser_'.$item};
+     }
+     if (ref($curr_usercreation{'cancreate'}) eq 'HASH') {
+         foreach my $item (@contexts) {
+             if ($curr_usercreation{'cancreate'}{$item} ne $cancreate{$item}) {
+                 push(@{$changes{'cancreate'}},$item);
+             }
+         }
+     } elsif (ref($curr_usercreation{'cancreate'}) eq 'ARRAY') {
+         foreach my $item (@contexts) {
+             if (grep(/^\Q$item\E$/,@{$curr_usercreation{'cancreate'}})) {
+                 if ($cancreate{$item} ne 'any') {
+                     push(@{$changes{'cancreate'}},$item);
+                 }
+             } else {
+                 if ($cancreate{$item} ne 'none') {
+                     push(@{$changes{'cancreate'}},$item);
+                 }
+             }
+         }
+     } else {
+         foreach my $item ('author','course') {
+             push(@{$changes{'cancreate'}},$item);
+         }
+     }
+     if (ref($curr_usercreation{'username_rule'}) eq 'ARRAY') {
+         foreach my $type (@{$curr_usercreation{'username_rule'}}) {
+             if (!grep(/^\Q$type\E$/,@username_rule)) {
+                 push(@{$changes{'username_rule'}},$type);
+             }
+         }
+         foreach my $type (@username_rule) {
+             if (!grep(/^\Q$type\E$/,@{$curr_usercreation{'username_rule'}})) {
+                 push(@{$changes{'username_rule'}},$type);
+             }
+         }
+     } else {
+         push(@{$changes{'username_rule'}},@username_rule);
+     }
+     if (ref($curr_usercreation{'id_rule'}) eq 'ARRAY') {
+         foreach my $type (@{$curr_usercreation{'id_rule'}}) {
+             if (!grep(/^\Q$type\E$/,@id_rule)) {
+                 push(@{$changes{'id_rule'}},$type);
+             }
+         }
+         foreach my $type (@id_rule) {
+             if (!grep(/^\Q$type\E$/,@{$curr_usercreation{'id_rule'}})) {
+                 push(@{$changes{'id_rule'}},$type);
+             }
+         }
+     } else {
+         push(@{$changes{'id_rule'}},@id_rule);
+     }
+     my @contexts = ('author','course','domain');
+     my @authtypes = ('int','krb4','krb5','loc');
+     my %authhash;
+     foreach my $item (@contexts) {
+         my @authallowed =  &Apache::loncommon::get_env_multiple('form.'.$item.'_auth');
+         foreach my $auth (@authtypes) {
+             if (grep(/^\Q$auth\E$/,@authallowed)) {
+                 $authhash{$item}{$auth} = 1;
+             } else {
+                 $authhash{$item}{$auth} = 0;
+             }
+         }
+     }
+     if (ref($curr_usercreation{'authtypes'}) eq 'HASH') {
+         foreach my $item (@contexts) {
+             if (ref($curr_usercreation{'authtypes'}{$item}) eq 'HASH') {
+                 foreach my $auth (@authtypes) {
+                     if ($authhash{$item}{$auth} ne $curr_usercreation{'authtypes'}{$item}{$auth}) {
+                         push(@{$changes{'authtypes'}},$item);
+                         last;
+                     }
+                 }
+             }
+         }
+     } else {
+         foreach my $item (@contexts) {
+             push(@{$changes{'authtypes'}},$item);
+         }
+     }
+     my %usercreation_hash =  (
+             usercreation => {
+                               cancreate     => \%cancreate,
+                               username_rule => \@username_rule,
+                               id_rule       => \@id_rule,
+                               authtypes     => \%authhash,
+                             }
+             );
+     my $putresult = &Apache::lonnet::put_dom('configuration',\%usercreation_hash,
+                                              $dom);
+     if ($putresult eq 'ok') {
+         if (keys(%changes) > 0) {
+             $resulttext = &mt('Changes made:').'<ul>';
+             if (ref($changes{'cancreate'}) eq 'ARRAY') {
+                 my %lt = &usercreation_types();
+                 foreach my $type (@{$changes{'cancreate'}}) {
+                     my $chgtext;
+                     if ($cancreate{$type} eq 'none') {
+                         $chgtext = $lt{$type}.' '.&mt('creation of new users is not permitted, except by a Domain Coordinator.');
+                     } elsif ($cancreate{$type} eq 'any') {
+                         $chgtext = $lt{$type}.' '.&mt('creation of new users is permitted for both institutional and non-institutional usernames.');
+                     } elsif ($cancreate{$type} eq 'official') {
+                         $chgtext = $lt{$type}.' '.&mt('creation of new users is only permitted for institutional usernames.',$lt{$type});
+                     } elsif ($cancreate{$type} eq 'unofficial') {
+                         $chgtext = $lt{$type}.' '.&mt('creation of new users is only permitted for non-institutional usernames.',$lt{$type});
+                     }
+                     $resulttext .= '<li>'.$chgtext.'</li>';
+                 }
+             }
+             if (ref($changes{'username_rule'}) eq 'ARRAY') {
+                 my ($rules,$ruleorder) =
+                     &Apache::lonnet::inst_userrules($dom,'username');
+                 my $chgtext = '<ul>';
+                 foreach my $type (@username_rule) {
+                     if (ref($rules->{$type}) eq 'HASH') {
+                         $chgtext .= '<li>'.$rules->{$type}{'name'}.'</li>';
+                     }
+                 }
+                 $chgtext .= '</ul>';
+                 if (@username_rule > 0) {
+                     $resulttext .= '<li>'.&mt('Usernames with the following formats are restricted to verified users in the institutional directory: ').$chgtext.'</li>';
+                 } else {
+                     $resulttext .= '<li>'.&mt('There are now no username formats restricted to verified users in the institutional directory.').'</li>';
+                 }
+             }
+             if (ref($changes{'id_rule'}) eq 'ARRAY') {
+                 my ($idrules,$idruleorder) =
+                     &Apache::lonnet::inst_userrules($dom,'id');
+                 my $chgtext = '<ul>';
+                 foreach my $type (@id_rule) {
+                     if (ref($idrules->{$type}) eq 'HASH') {
+                         $chgtext .= '<li>'.$idrules->{$type}{'name'}.'</li>';
+                     }
+                 }
+                 $chgtext .= '</ul>';
+                 if (@id_rule > 0) {
+                     $resulttext .= '<li>'.&mt('IDs with the following formats are restricted to verified users in the institutional directory: ').$chgtext.'</li>';
+                 } else {
+                     $resulttext .= '<li>'.&mt('There are now no ID formats restricted to verified users in the institutional directory.').'</li>';
+                 }
+             }
+             my %authname = &authtype_names();
+             my %context_title = &context_names();
+             if (ref($changes{'authtypes'}) eq 'ARRAY') {
+                 my $chgtext = '<ul>';
+                 foreach my $type (@{$changes{'authtypes'}}) {
+                     my @allowed;
+                     $chgtext .= '<li><span class="LC_cusr_emph">'.$context_title{$type}.'</span> - '.&mt('assignable authentication types: ');
+                     foreach my $auth (@authtypes) {
+                         if ($authhash{$type}{$auth}) {
+                             push(@allowed,$authname{$auth});
+                         }
+                     }
+                     $chgtext .= join(', ',@allowed).'</li>';
+                 }
+                 $chgtext .= '</ul>';
+                 $resulttext .= '<li>'.&mt('Authentication types available for assignment to new users').'<br />'.$chgtext;
+                 $resulttext .= '</li>';
+             }
+             $resulttext .= '</ul>';
+         } else {
+             $resulttext = &mt('No changes made to user creation settings');
+         }
+     } else {
+         $resulttext = '<span class="LC_error">'.
+             &mt('An error occurred: [_1]',$putresult).'</span>';
+     }
+     return $resulttext;
+ }
+ sub modify_usermodification {
+     my ($dom,%domconfig) = @_;
+     my ($resulttext,%curr_usermodification,%changes);
+     if (ref($domconfig{'usermodification'}) eq 'HASH') {
+         foreach my $key (keys(%{$domconfig{'usermodification'}})) {
+             $curr_usermodification{$key} = $domconfig{'usermodification'}{$key};
+         }
+     }
+     my @contexts = ('author','course');
+     my %context_title = (
+                            author => 'In author context',
+                            course => 'In course context',
+                         );
+     my @fields = ('lastname','firstname','middlename','generation',
+                   'permanentemail','id');
+     my %roles = (
+                   author => ['ca','aa'],
+                   course => ['st','ep','ta','in','cr'],
+                 );
+     my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
+     my %modifyhash;
+     foreach my $context (@contexts) {
+         foreach my $role (@{$roles{$context}}) {
+             my @modifiable =  &Apache::loncommon::get_env_multiple('form.canmodify_'.$role);
+             foreach my $item (@fields) {
+                 if (grep(/^\Q$item\E$/,@modifiable)) {
+                     $modifyhash{$context}{$role}{$item} = 1;
+                 } else {
+                     $modifyhash{$context}{$role}{$item} = 0;
+                 }
+             }
+         }
+         if (ref($curr_usermodification{$context}) eq 'HASH') {
+             foreach my $role (@{$roles{$context}}) {
+                 if (ref($curr_usermodification{$context}{$role}) eq 'HASH') {
+                     foreach my $field (@fields) {
+                         if ($modifyhash{$context}{$role}{$field} ne
+                                 $curr_usermodification{$context}{$role}{$field}) {
+                             push(@{$changes{$context}},$role);
+                             last;
+                         }
+                     }
+                 }
+             }
+         } else {
+             foreach my $context (@contexts) {
+                 foreach my $role (@{$roles{$context}}) {
+                     push(@{$changes{$context}},$role);
+                 }
+             }
+         }
+     }
+     my %usermodification_hash =  (
+                                    usermodification => \%modifyhash,
+                                  );
+     my $putresult = &Apache::lonnet::put_dom('configuration',
+                                              \%usermodification_hash,$dom);
+     if ($putresult eq 'ok') {
+         if (keys(%changes) > 0) {
+             $resulttext = &mt('Changes made: ').'<ul>';
+             foreach my $context (@contexts) {
+                 if (ref($changes{$context}) eq 'ARRAY') {
+                     $resulttext .= '<li>'.$context_title{$context}.':<ul>';
+                     if (ref($changes{$context}) eq 'ARRAY') {
+                         foreach my $role (@{$changes{$context}}) {
+                             my $rolename;
+                             if ($role eq 'cr') {
+                                 $rolename = &mt('Custom');
+                             } else {
+                                 $rolename = &Apache::lonnet::plaintext($role);
+                             }
+                             my @modifiable;
+                             $resulttext .= '<li><span class="LC_cusr_emph">'.&mt('Target user with [_1] role',$rolename).'</span> - '.&mt('modifiable fields: ');
+                             foreach my $field (@fields) {
+                                 if ($modifyhash{$context}{$role}{$field}) {
+                                     push(@modifiable,$fieldtitles{$field});
+                                 }
+                             }
+                             if (@modifiable > 0) {
+                                 $resulttext .= join(', ',@modifiable);
+                             } else {
+                                 $resulttext .= &mt('none');
+                             }
+                             $resulttext .= '</li>';
+                         }
+                         $resulttext .= '</ul></li>';
+                     }
+                 }
+             }
+             $resulttext .= '</ul>';
+         } else {
+             $resulttext = &mt('No changes made to user modification settings');
+         }
+     } else {
+         $resulttext = '<span class="LC_error">'.
+             &mt('An error occurred: [_1]',$putresult).'</span>';
+     }
+     return $resulttext;
+ }
+;

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

500 Internal Server Error

Internal Server Error

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

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

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

Removed from v.1.21
changed lines
	Added in v.1.34