--- loncom/interface/domainprefs.pm	2014/02/15 17:07:19	1.160.6.34
+++ loncom/interface/domainprefs.pm	2013/12/22 20:59:51	1.214
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.160.6.34 2014/02/15 17:07:19 raeburn Exp $
+# $Id: domainprefs.pm,v 1.214 2013/12/22 20:59:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -95,7 +95,7 @@ institutional affiliation in the domain
 but is now also used to manage availability of user tools: 
 i.e., blogs, aboutme page, and portfolios, and the course request tool,
 used by course owners to request creation of a course, and to display/store
-default quota sizes for Authoring Spaces.
+default quota sizes for authoring spaces.
 
 Outputs: 1
 
@@ -103,8 +103,8 @@ $datatable  - HTML containing form eleme
 
 In the case of course requests, radio buttons are displayed for each institutional
 affiliate type (and also default, and _LC_adv) for each of the course types 
-(official, unofficial, community, and textbook).  In each case the radio buttons 
-allow the selection of one of four values:
+(official, unofficial and community).  In each case the radio buttons allow the 
+selection of one of four values:
 
 0, approval, validate, autolimit=N (where N is blank, or a positive integer).
 which have the following effects:
@@ -211,13 +211,15 @@ sub handler {
                 'quotas','autoenroll','autoupdate','autocreate',
                 'directorysrch','usercreation','usermodification',
                 'contacts','defaults','scantron','coursecategories',
-                'serverstatuses','requestcourses','coursedefaults',
-                'usersessions','loadbalancing','requestauthor'],$dom);
+                'serverstatuses','requestcourses','helpsettings',
+                'coursedefaults','usersessions','loadbalancing',
+                'requestauthor'],$dom);
     my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',
                        'autoupdate','autocreate','directorysrch','contacts',
-                       'usercreation','selfcreation','usermodification','scantron',
+                       'usercreation','usermodification','scantron',
                        'requestcourses','requestauthor','coursecategories',
-                       'serverstatuses','coursedefaults','usersessions');
+                       'serverstatuses','helpsettings',
+                       'coursedefaults','usersessions');
     my %existing;
     if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
         %existing = %{$domconfig{'loadbalancing'}};
@@ -293,6 +295,7 @@ sub handler {
                     header => [{col1 => 'Setting',
                                 col2 => 'Value',}],
                   },
+
         'usercreation' => 
                   { text => 'User creation',
                     help => 'Domain_Configuration_User_Creation',
@@ -303,23 +306,15 @@ sub handler {
                                {col1 => 'Context',
                                 col2 => 'Assignable authentication types'}],
                   },
-        'selfcreation' => 
-                  { text => 'Users self-creating accounts',
-                    help => 'Domain_Configuration_Self_Creation', 
-                    header => [{col1 => 'Self-creation with institutional username',
-                                col2 => 'Enabled?'},
-                               {col1 => 'Institutional user type (login/SSO self-creation)',
-                                col2 => 'Information user can enter'},
-                               {col1 => 'Self-creation with e-mail as username',
-                                col2 => 'Settings'}],
-                  },
         'usermodification' =>
                   { text => 'User modification',
                     help => 'Domain_Configuration_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'}],
+                                col2 => 'User information updateable in course context'},
+                               {col1 => "Status of user",
+                                col2 => 'Information settable when self-creating account (if directory data blank)'}],
                   },
         'scantron' =>
                   { text => 'Bubblesheet format file',
@@ -334,12 +329,10 @@ sub handler {
                   header => [{col1 => 'User affiliation',
                               col2 => 'Availability/Processing of requests',},
                              {col1 => 'Setting',
-                              col2 => 'Value'},
-                             {col1 => 'Available textbooks',
-                              col2 => ''}],
+                              col2 => 'Value'}],
                  },
         'requestauthor' =>
-                 {text => 'Request Authoring Space',
+                 {text => 'Request authoring space',
                   help => 'Domain_Configuration_Request_Author',
                   header => [{col1 => 'User affiliation',
                               col2 => 'Availability/Processing of requests',},
@@ -363,12 +356,26 @@ sub handler {
                               col3 => 'Specific IPs',
                             }],
                  },
-        'coursedefaults' =>
+        'helpsettings' =>
+                 {text   => 'Help page settings',
+                  help   => 'Domain_Configuration_Help_Settings',
+                  header => [{col1 => 'Help Settings (logged-in users)',
+                              col2 => 'Value'}],
+                 },
+        'coursedefaults' => 
                  {text => 'Course/Community defaults',
                   help => 'Domain_Configuration_Course_Defaults',
-                  header => [{col1 => 'Defaults which can be overridden for each course by a DC',
+                  header => [{col1 => 'Defaults which can be overridden in each course by a CC',
+                              col2 => 'Value',},
+                             {col1 => 'Defaults which can be overridden for each course by a DC',
                               col2 => 'Value',},],
                  },
+        'privacy' => 
+                 {text   => 'User Privacy',
+                  help   => 'Domain_Configuration_User_Privacy',
+                  header => [{col1 => 'Setting',
+                              col2 => 'Value',}],
+                 },
         'usersessions' =>
                  {text  => 'User session hosting/offloading',
                   help  => 'Domain_Configuration_User_Sessions',
@@ -411,7 +418,7 @@ sub handler {
     if ($phase eq 'process') {
         my $result = &Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,
                                                               \%prefs,\%domconfig,$confname,\@roles);
-        if ((ref($result) eq 'HASH') && (keys(%{$result}))) {
+        if (ref($result) eq 'HASH') {
             $r->rflush();
             &devalidate_remote_domconfs($dom,$result);
         }
@@ -427,16 +434,6 @@ sub handler {
                    &common_domprefs_js().
                    &Apache::loncommon::javascript_array_indexof();
         }
-        if (grep(/^requestcourses$/,@actions)) {
-            my $javascript_validations;
-            my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'}); 
-            $js .= <<END;
-<script type="text/javascript">
-$javascript_validations
-</script>
-$coursebrowserjs
-END
-        }
         &Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);
     } else {
 # check if domconfig user exists for the domain.
@@ -518,7 +515,7 @@ sub process_changes {
         $output = &modify_rolecolors($r,$dom,$confname,$roles,
                                      $lastactref,%domconfig);
     } elsif ($action eq 'quotas') {
-        $output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
+        $output = &modify_quotas($dom,$action,$lastactref,%domconfig);
     } elsif ($action eq 'autoenroll') {
         $output = &modify_autoenroll($dom,$lastactref,%domconfig);
     } elsif ($action eq 'autoupdate') {
@@ -529,8 +526,6 @@ sub process_changes {
         $output = &modify_directorysrch($dom,%domconfig);
     } elsif ($action eq 'usercreation') {
         $output = &modify_usercreation($dom,%domconfig);
-    } elsif ($action eq 'selfcreation') {
-        $output = &modify_selfcreation($dom,%domconfig);
     } elsif ($action eq 'usermodification') {
         $output = &modify_usermodification($dom,%domconfig);
     } elsif ($action eq 'contacts') {
@@ -544,9 +539,11 @@ sub process_changes {
     } elsif ($action eq 'serverstatuses') {
         $output = &modify_serverstatuses($dom,%domconfig);
     } elsif ($action eq 'requestcourses') {
-        $output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
+        $output = &modify_quotas($dom,$action,$lastactref,%domconfig);
     } elsif ($action eq 'requestauthor') {
-        $output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
+        $output = &modify_quotas($dom,$action,$lastactref,%domconfig);
+    } elsif ($action eq 'helpsettings') {
+        $output = &modify_helpsettings($r,$dom,$confname,%domconfig);
     } elsif ($action eq 'coursedefaults') {
         $output = &modify_coursedefaults($dom,$lastactref,%domconfig);
     } elsif ($action eq 'usersessions') {
@@ -599,8 +596,6 @@ sub print_config_box {
             $output .= &print_autoupdate('top',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'usercreation') {
             $output .= &print_usercreation('top',$dom,$settings,\$rowtotal);
-        } elsif ($action eq 'selfcreation') {
-            $output .= &print_selfcreation('top',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'usermodification') {
             $output .= &print_usermodification('top',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'coursecategories') {
@@ -620,6 +615,8 @@ sub print_config_box {
             $output .= &print_usersessions('top',$dom,$settings,\$rowtotal); 
         } elsif ($action eq 'rolecolors') {
             $output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);
+        } elsif ($action eq 'coursedefaults') {
+            $output .= &print_coursedefaults('top',$dom,$settings,\$rowtotal);
         }
         $output .= '
            </table>
@@ -660,8 +657,8 @@ sub print_config_box {
               <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>             </tr>'.
             &print_usercreation('bottom',$dom,$settings,\$rowtotal);
             $rowtotal ++;
-        } elsif ($action eq 'selfcreation') {
-            $output .= &print_selfcreation('middle',$dom,$settings,\$rowtotal).'
+        } elsif ($action eq 'usermodification') {
+            $output .= &print_usermodification('middle',$dom,$settings,\$rowtotal).'
            </table>
           </td>
          </tr>
@@ -670,12 +667,9 @@ sub print_config_box {
             <table class="LC_nested">
              <tr class="LC_info_row">
               <td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
-              <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>
-             </tr>'.
-            &print_selfcreation('bottom',$dom,$settings,\$rowtotal);
+              <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>      </tr>'.
+                       &print_usermodification('bottom',$dom,$settings,\$rowtotal);
             $rowtotal ++;
-        } elsif ($action eq 'usermodification') {
-            $output .= &print_usermodification('middle',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'coursecategories') {
             $output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal);
         } elsif ($action eq 'login') {
@@ -689,25 +683,14 @@ sub print_config_box {
             <table class="LC_nested">
              <tr class="LC_info_row">
               <td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
-              <td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col2'}).'</td></tr>'.
+              <td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col2'}).'</td>      </tr>'.
                        &print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);
                 $rowtotal ++;
             } else {
                 $output .= &print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);
             }
         } elsif ($action eq 'requestcourses') {
-            $output .= &print_requestmail($dom,$action,$settings,\$rowtotal).
-                       &print_studentcode($settings,\$rowtotal).'
-           </table>
-          </td>
-         </tr>
-         <tr>
-           <td>
-            <table class="LC_nested">
-             <tr class="LC_info_row">
-              <td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
-              <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.
-                       &print_textbookcourses($dom,$settings,\$rowtotal);
+            $output .= &print_requestmail($dom,$action,$settings,\$rowtotal);
         } elsif ($action eq 'requestauthor') {
             $output .= &print_requestmail($dom,$action,$settings,\$rowtotal);
         } elsif ($action eq 'usersessions') {
@@ -723,6 +706,8 @@ sub print_config_box {
               <td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>      </tr>'.
                        &print_usersessions('bottom',$dom,$settings,\$rowtotal);
             $rowtotal ++;
+        } elsif ($action eq 'coursedefaults') {
+            $output .= &print_coursedefaults('bottom',$dom,$settings,\$rowtotal);
         } elsif ($action eq 'rolecolors') {
             $output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).'
            </table>
@@ -819,8 +804,6 @@ sub print_config_box {
             $output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal);
         } elsif ($action eq 'loadbalancing') {
             $output .= &print_loadbalancing($dom,$settings,\$rowtotal);
-        } elsif ($action eq 'coursedefaults') {
-            $output .= &print_coursedefaults('bottom',$dom,$settings,\$rowtotal);
         }
     }
     $output .= '
@@ -1567,7 +1550,7 @@ sub print_quotas {
     my $typecount = 0;
     my ($css_class,%titles);
     if ($context eq 'requestcourses') {
-        @usertools = ('official','unofficial','community','textbook');
+        @usertools = ('official','unofficial','community');
         @options =('norequest','approval','validate','autolimit');
         %validations = &Apache::lonnet::auto_courserequest_checks($dom);
         %titles = &courserequest_titles();
@@ -1986,26 +1969,23 @@ sub print_requestmail {
     if (ref($settings) eq 'HASH') {
         if (ref($settings->{'notify'}) eq 'HASH') {
             if ($settings->{'notify'}{'approval'} ne '') {
-                map {$currapp{$_}=1;} split(/,/,$settings->{'notify'}{'approval'});
+               map {$currapp{$_}=1;} split(/,/,$settings->{'notify'}{'approval'});
             }
         }
     }
     my $numinrow = 2;
-    my $css_class;
-    $css_class = ($$rowtotal%2? ' class="LC_odd_row"':'');
+    my $css_class = 'class="LC_odd_row"';
     my $text;
     if ($action eq 'requestcourses') {
         $text = &mt('Receive notification of course requests requiring approval');
-    } elsif ($action eq 'requestauthor') {
-        $text = &mt('Receive notification of Authoring Space requests requiring approval');
     } else {
-       $text = &mt('Receive notification of queued requests for self-created user accounts requiring approval');
+        $text = &mt('Receive notification of authoring space requests requiring approval')
     }
-    $datatable = '<tr'.$css_class.'>'.
+    $datatable = '<tr '.$css_class.'>'.
                  ' <td>'.$text.'</td>'.
                  ' <td class="LC_left_item">';
     my ($numdc,$table,$rows) = &active_dc_picker($dom,$numinrow,'checkbox',
-                                                 $action.'notifyapproval',%currapp);
+                                                 'reqapprovalnotify',%currapp);
     if ($numdc > 0) {
         $datatable .= $table;
     } else {
@@ -2016,216 +1996,6 @@ sub print_requestmail {
     return $datatable;
 }
 
-sub print_studentcode {
-    my ($settings,$rowtotal) = @_;
-    my $rownum = 0; 
-    my ($output,%current);
-    my @crstypes = ('official','unofficial','community','textbook');
-    if (ref($settings->{'uniquecode'}) eq 'HASH') {
-        foreach my $type (@crstypes) {
-            $current{$type} = $settings->{'uniquecode'}{$type};
-        }
-    }
-    $output .= '<tr>'.
-               '<td class="LC_left_item">'.&mt('Generate unique six character code as course identifier?').'</td>'.
-               '<td class="LC_left_item">';
-    foreach my $type (@crstypes) {
-        my $check = ' ';
-        if ($current{$type}) {
-            $check = ' checked="checked" ';
-        }
-        $output .= '<span class="LC_nobreak"><label>'.
-                   '<input type="checkbox" name="uniquecode" value="'.$type.'"'.$check.'/>'.
-                   &mt($type).'</label></span>'.('&nbsp;'x2).' ';
-    }
-    $output .= '</td></tr>';
-    $$rowtotal ++;
-    return $output;
-}
-
-sub print_textbookcourses {
-    my ($dom,$settings,$rowtotal) = @_;
-    my $rownum = 0;
-    my $css_class;
-    my $itemcount = 1;
-    my $maxnum = 0;
-    my $bookshash;
-    if (ref($settings) eq 'HASH') {
-        $bookshash = $settings->{'textbooks'};
-    }
-    my %ordered;
-    if (ref($bookshash) eq 'HASH') {
-        foreach my $item (keys(%{$bookshash})) {
-            if (ref($bookshash->{$item}) eq 'HASH') {
-                my $num = $bookshash->{$item}{'order'};
-                $ordered{$num} = $item;
-            }
-        }
-    }
-    my $confname = $dom.'-domainconfig';
-    my $switchserver = &check_switchserver($dom,$confname);
-    my $maxnum = scalar(keys(%ordered));
-    my $datatable = &textbookcourses_javascript(\%ordered);
-    if (keys(%ordered)) {
-        my @items = sort { $a <=> $b } keys(%ordered);
-        for (my $i=0; $i<@items; $i++) {
-            $css_class = $itemcount%2?' class="LC_odd_row"':'';
-            my $key = $ordered{$items[$i]};
-            my %coursehash=&Apache::lonnet::coursedescription($key);
-            my $coursetitle = $coursehash{'description'};
-            my ($subject,$title,$author,$image,$imgsrc,$cdom,$cnum);
-            if (ref($bookshash->{$key}) eq 'HASH') {
-                $subject = $bookshash->{$key}->{'subject'};
-                $title = $bookshash->{$key}->{'title'};
-                $author = $bookshash->{$key}->{'author'};
-                $image = $bookshash->{$key}->{'image'};
-                if ($image ne '') {
-                    my ($path,$imagefile) = ($image =~ m{^(.+)/([^/]+)$});
-                    my $imagethumb = "$path/tn-".$imagefile;
-                    $imgsrc = '<img src="'.$imagethumb.'" alt="'.&mt('Textbook image').'" />';
-                }
-            }
-            my $chgstr = ' onchange="javascript:reorderBooks(this.form,'."'$key'".');"';
-            $datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'
-                         .'<select name="'.$key.'"'.$chgstr.'>';
-            for (my $k=0; $k<=$maxnum; $k++) {
-                my $vpos = $k+1;
-                my $selstr;
-                if ($k == $i) {
-                    $selstr = ' selected="selected" ';
-                }
-                $datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
-            }
-            $datatable .= '</select>'.('&nbsp;'x2).
-                '<label><input type="checkbox" name="book_del" value="'.$key.'" />'.
-                &mt('Delete?').'</label></span></td>'.
-                '<td colspan="2">'.
-                '<span class="LC_nobreak">'.&mt('Subject:').'<input type="text" size="15" name="book_subject_'.$i.'" value="'.$subject.'" /></span> '.
-                ('&nbsp;'x2).
-                '<span class="LC_nobreak">'.&mt('Title:').'<input type="text" size="30" name="book_title_'.$i.'" value="'.$title.'" /></span> '.
-                ('&nbsp;'x2).
-                '<span class="LC_nobreak">'.&mt('Author(s):').'<input type="text" size="25" name="book_author_'.$i.'" value="'.$author.'" /></span> '.
-                ('&nbsp;'x2).
-                '<span class="LC_nobreak">'.&mt('Thumbnail:');
-            if ($image) {
-                $datatable .= '<span class="LC_nobreak">'.
-                              $imgsrc.
-                              '<label><input type="checkbox" name="book_image_del"'.
-                              ' value="'.$key.'" />'.&mt('Delete?').'</label></span> '.
-                              '<span class="LC_nobreak">&nbsp;'.&mt('Replace:').'&nbsp;';
-            }
-            if ($switchserver) {
-                $datatable .= &mt('Upload to library server: [_1]',$switchserver);
-            } else {
-                $datatable .= '<input type="file" name="book_image_'.$i.'" value="" />';
-            }
-            $datatable .= '<input type="hidden" name="book_id_'.$i.'" value="'.$key.'" /></span> '.
-                          '<span class="LC_nobreak">'.&mt('LON-CAPA course:').'&nbsp;'.
-                          $coursetitle.'</span></td></tr>'."\n";
-            $itemcount ++;
-        }
-    }
-    $css_class = $itemcount%2?' class="LC_odd_row"':'';
-    my $chgstr = ' onchange="javascript:reorderBooks(this.form,'."'addbook_pos'".');"';
-    $datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n".
-                  '<input type="hidden" name="book_maxnum" value="'.$maxnum.'" />'."\n".
-                  '<select name="addbook_pos"'.$chgstr.'>';
-    for (my $k=0; $k<$maxnum+1; $k++) {
-        my $vpos = $k+1;
-        my $selstr;
-        if ($k == $maxnum) {
-            $selstr = ' selected="selected" ';
-        }
-        $datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
-    }
-    $datatable .= '</select>&nbsp;'."\n".
-                  '<input type="checkbox" name="addbook" value="1" />'.&mt('Add').'</td>'."\n".
-                  '<td colspan="2">'.
-                  '<span class="LC_nobreak">'.&mt('Subject:').'<input type="text" size="15" name="addbook_subject" value="" /></span> '."\n".
-                  ('&nbsp;'x2).
-                  '<span class="LC_nobreak">'.&mt('Title:').'<input type="text" size="30" name="addbook_title" value="" /></span> '."\n".
-                  ('&nbsp;'x2).
-                  '<span class="LC_nobreak">'.&mt('Author(s):').'<input type="text" size="25" name="addbook_author" value="" /></span> '."\n".
-                  ('&nbsp;'x2).
-                  '<span class="LC_nobreak">'.&mt('Image:').'&nbsp;';
-    if ($switchserver) {
-        $datatable .= &mt('Upload to library server: [_1]',$switchserver);
-    } else {
-        $datatable .= '<input type="file" name="addbook_image" value="" />';
-    }
-    $datatable .= '</span>'."\n".
-                  '<span class="LC_nobreak">'.&mt('LON-CAPA course:').'&nbsp;'.
-                  &Apache::loncommon::select_dom_form($env{'request.role.domain'},'addbook_cdom').
-                  '<input type="text" size="25" name="addbook_cnum" value="" />'.
-                  &Apache::loncommon::selectcourse_link
-                      ('display','addbook_cnum','addbook_cdom',undef,undef,undef,'Course');
-                  '</span></td>'."\n".
-                  '</tr>'."\n";
-    $itemcount ++;
-    return $datatable;
-}
-
-sub textbookcourses_javascript {
-    my ($textbooks) = @_;
-    return unless(ref($textbooks) eq 'HASH');
-    my $num = scalar(keys(%{$textbooks}));
-    my @jsarray;
-    foreach my $item (sort {$a <=> $b } (keys(%{$textbooks}))) {
-        push(@jsarray,$textbooks->{$item});
-    }
-    my $jstext = '    var textbooks = Array('."'".join("','",@jsarray)."'".');'."\n";
-    return <<"ENDSCRIPT";
-<script type="text/javascript">
-// <![CDATA[
-function reorderBooks(form,item) {
-    var changedVal;
-$jstext 
-    var newpos = 'addbook_pos';
-    var current = new Array;
-    var maxh = 1 + $num;
-    var current = new Array;
-    var newitemVal = form.elements[newpos].options[form.elements[newpos].selectedIndex].value;
-    if (item == newpos) {
-        changedVal = newitemVal;
-    } else {
-        changedVal = form.elements[item].options[form.elements[item].selectedIndex].value;
-        current[newitemVal] = newpos;
-    }
-    for (var i=0; i<textbooks.length; i++) {
-        var elementName = textbooks[i];
-        if (elementName != item) {
-            if (form.elements[elementName]) {
-                var currVal = form.elements[elementName].options[form.elements[elementName].selectedIndex].value;
-                current[currVal] = elementName;
-            }
-        }
-    }
-    var oldVal;
-    for (var j=0; j<maxh; j++) {
-        if (current[j] == undefined) {
-            oldVal = j;
-        }
-    }
-    if (oldVal < changedVal) {
-        for (var k=oldVal+1; k<=changedVal ; k++) {
-           var elementName = current[k];
-           form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex - 1;
-        }
-    } else {
-        for (var k=changedVal; k<oldVal; k++) {
-            var elementName = current[k];
-            form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex + 1;
-        }
-    }
-    return;
-}
-
-// ]]>
-</script>
-
-ENDSCRIPT
-}
-
 sub print_autoenroll {
     my ($dom,$settings,$rowtotal) = @_;
     my $autorun = &Apache::lonnet::auto_run(undef,$dom),
@@ -2724,10 +2494,9 @@ sub print_coursedefaults {
                                                  \%choices,$itemcount);
     } else {
         $css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
-        my ($currdefresponder,$def_official_credits,$def_unofficial_credits,$def_textbook_credits,
-            %curruploadquota);
+        my ($currdefresponder,$def_official_credits,$def_unofficial_credits,%curruploadquota);
         my $currusecredits = 0;
-        my @types = ('official','unofficial','community','textbook');
+        my @types = ('official','unofficial','community');
         if (ref($settings) eq 'HASH') {
             $currdefresponder = $settings->{'anonsurvey_threshold'};
             if (ref($settings->{'uploadquota'}) eq 'HASH') {
@@ -2738,9 +2507,7 @@ sub print_coursedefaults {
             if (ref($settings->{'coursecredits'}) eq 'HASH') {
                 $def_official_credits = $settings->{'coursecredits'}->{'official'};
                 $def_unofficial_credits = $settings->{'coursecredits'}->{'unofficial'};
-                $def_textbook_credits = $settings->{'coursecredits'}->{'textbook'};
-                if (($def_official_credits ne '') || ($def_unofficial_credits ne '') ||
-                    ($def_textbook_credits ne '')) {
+                if (($def_official_credits ne '') || ($def_unofficial_credits ne '')) {
                     $currusecredits = 1;
                 }
             }
@@ -2790,11 +2557,6 @@ sub print_coursedefaults {
                          &mt('Default credits for unofficial courses [_1]',
                          '<input type="text" name="unofficial_credits" value="'.
                          $def_unofficial_credits.'" size="3" />').
-                         '</span><br />'.
-                         '<span class="LC_nobreak">'.
-                         &mt('Default credits for textbook courses [_1]',
-                         '<input type="text" name="textbook_credits" value="'.
-                         $def_textbook_credits.'" size="3" />').
                          '</span></div>'."\n";
         %defaultchecked = ('coursecredits' => 'off');
         @toggles = ('coursecredits');
@@ -3585,7 +3347,6 @@ sub tool_titles {
                      official   => 'Official courses (with institutional codes)',
                      unofficial => 'Unofficial courses',
                      community  => 'Communities',
-                     textbook   => 'Textbook courses',
                  );
     return %titles;
 }
@@ -3595,7 +3356,6 @@ sub courserequest_titles {
                                    official   => 'Official',
                                    unofficial => 'Unofficial',
                                    community  => 'Communities',
-                                   textbook   => 'Textbook',
                                    norequest  => 'Not allowed',
                                    approval   => 'Approval by Dom. Coord.',
                                    validate   => 'With validation',
@@ -3648,22 +3408,42 @@ sub print_usercreation {
                 $rowcount ++;
             }
         }
+        my ($emailrules,$emailruleorder) = 
+            &Apache::lonnet::inst_userrules($dom,'email');
+        if (ref($emailrules) eq 'HASH') {
+            if (keys(%{$emailrules}) > 0) {
+                $datatable .= &user_formats_row('email',$settings,$emailrules,
+                                                $emailruleorder,$numinrow,$rowcount);
+                $$rowtotal ++;
+                $rowcount ++;
+            }
+        }
         if ($rowcount == 0) {
             $datatable .= '<tr><td colspan="2">'.&mt('No format rules have been defined for usernames or IDs in this domain.').'</td></tr>';  
             $$rowtotal ++;
             $rowcount ++;
         }
     } elsif ($position eq 'middle') {
-        my @creators = ('author','course','requestcrs');
+        my @creators = ('author','course','requestcrs','selfcreate');
         my ($rules,$ruleorder) =
             &Apache::lonnet::inst_userrules($dom,'username');
         my %lt = &usercreation_types();
         my %checked;
+        my @selfcreate; 
         if (ref($settings) eq 'HASH') {
             if (ref($settings->{'cancreate'}) eq 'HASH') {
                 foreach my $item (@creators) {
                     $checked{$item} = $settings->{'cancreate'}{$item};
                 }
+                if (ref($settings->{'cancreate'}{'selfcreate'}) eq 'ARRAY') {
+                    @selfcreate = @{$settings->{'cancreate'}{'selfcreate'}};
+                } elsif ($settings->{'cancreate'}{'selfcreate'} ne '') {
+                    if ($settings->{'cancreate'}{'selfcreate'} eq 'any') {
+                        @selfcreate = ('email','login','sso');
+                    } elsif ($settings->{'cancreate'}{'selfcreate'} ne 'none') {
+                        @selfcreate = ($settings->{'cancreate'}{'selfcreate'});
+                    }
+                }
             } elsif (ref($settings->{'cancreate'}) eq 'ARRAY') {
                 foreach my $item (@creators) {
                     if (grep(/^\Q$item\E$/,@{$settings->{'cancreate'}})) {
@@ -3675,8 +3455,10 @@ sub print_usercreation {
         my $rownum = 0;
         foreach my $item (@creators) {
             $rownum ++;
-            if ($checked{$item} eq '') {
-                $checked{$item} = 'any';
+            if ($item ne 'selfcreate') {  
+                if ($checked{$item} eq '') {
+                    $checked{$item} = 'any';
+                }
             }
             my $css_class;
             if ($rownum%2) {
@@ -3687,18 +3469,30 @@ sub print_usercreation {
             $datatable .= '<tr'.$css_class.'>'.
                          '<td><span class="LC_nobreak">'.$lt{$item}.
                          '</span></td><td align="right">';
-            my @options = ('any');
-            if (ref($rules) eq 'HASH') {
-                if (keys(%{$rules}) > 0) {
-                    push(@options,('official','unofficial'));
+            my @options;
+            if ($item eq 'selfcreate') {
+                push(@options,('email','login','sso'));
+            } else {
+                @options = ('any');
+                if (ref($rules) eq 'HASH') {
+                    if (keys(%{$rules}) > 0) {
+                        push(@options,('official','unofficial'));
+                    }
                 }
+                push(@options,'none');
             }
-            push(@options,'none');
             foreach my $option (@options) {
                 my $type = 'radio';
                 my $check = ' ';
-                if ($checked{$item} eq $option) {
-                    $check = ' checked="checked" ';
+                if ($item eq 'selfcreate') {
+                    $type = 'checkbox';
+                    if (grep(/^\Q$option\E$/,@selfcreate)) {
+                        $check = ' checked="checked" ';
+                    }
+                } else {
+                    if ($checked{$item} eq $option) {
+                        $check = ' checked="checked" ';
+                    }
                 } 
                 $datatable .= '<span class="LC_nobreak"><label>'.
                               '<input type="'.$type.'" name="can_createuser_'.
@@ -3707,6 +3501,22 @@ sub print_usercreation {
             }
             $datatable .= '</td></tr>';
         }
+        my ($othertitle,$usertypes,$types) =
+            &Apache::loncommon::sorted_inst_types($dom);
+        my $createsettings;
+        if (ref($settings) eq 'HASH') {
+            $createsettings = $settings->{cancreate};
+        }
+        if (ref($usertypes) eq 'HASH') {
+            if (keys(%{$usertypes}) > 0) {
+                $datatable .= &insttypes_row($createsettings,$types,$usertypes,
+                                             $dom,$numinrow,$othertitle,
+                                             'statustocreate');
+                $$rowtotal ++;
+                $rownum ++;
+            }
+        }
+        $datatable .= &captcha_choice('cancreate',$createsettings,$rownum);
     } else {
         my @contexts = ('author','course','domain');
         my @authtypes = ('int','krb4','krb5','loc');
@@ -3758,131 +3568,13 @@ sub print_usercreation {
     return $datatable;
 }
 
-sub print_selfcreation {
-    my ($position,$dom,$settings,$rowtotal) = @_;
-    my (@selfcreate,$createsettings,$datatable);
-    if (ref($settings) eq 'HASH') {
-        if (ref($settings->{'cancreate'}) eq 'HASH') {
-            $createsettings = $settings->{'cancreate'};
-            if (ref($settings->{'cancreate'}{'selfcreate'}) eq 'ARRAY') {
-                @selfcreate = @{$settings->{'cancreate'}{'selfcreate'}};
-            } elsif ($settings->{'cancreate'}{'selfcreate'} ne '') {
-                if ($settings->{'cancreate'}{'selfcreate'} eq 'any') {
-                    @selfcreate = ('email','login','sso');
-                } elsif ($settings->{'cancreate'}{'selfcreate'} ne 'none') {
-                    @selfcreate = ($settings->{'cancreate'}{'selfcreate'});
-                }
-            }
-        }
-    }
-    my %radiohash;
-    my $rownum = 0;
-    my $numinrow = 4;
-    map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate;
-    if ($position eq 'top') {
-        my %choices = &Apache::lonlocal::texthash (
-                                                      cancreate_login      => 'Institutional Login',
-                                                      cancreate_sso        => 'Institutional Single Sign On',
-                                                  );
-        my @toggles = sort(keys(%choices));
-        my %defaultchecked = (
-                               'cancreate_login' => 'off',
-                               'cancreate_sso'   => 'off',
-                             );
-        my $itemcount = 1;
-        my $onclick;
-        ($datatable,$itemcount) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked,
-                                                     \%choices,$itemcount,$onclick);
-        my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
-
-        if (ref($usertypes) eq 'HASH') {
-            if (keys(%{$usertypes}) > 0) {
-                $datatable .= &insttypes_row($createsettings,$types,$usertypes,
-                                             $dom,$numinrow,$othertitle,
-                                             'statustocreate',$rownum);
-                $rownum ++;
-                $$rowtotal ++;
-            }
-        }
-    } elsif ($position eq 'middle') {
-        my %domconf = &Apache::lonnet::get_dom('configuration',['usermodification'],$dom);
-        my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
-        $usertypes->{'default'} = $othertitle;
-        if (ref($types) eq 'ARRAY') {
-            push(@{$types},'default');
-            $usertypes->{'default'} = $othertitle;
-            foreach my $status (@{$types}) {
-                $rownum ++;
-                $datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'},
-                                                       $numinrow,$rownum,$usertypes);
-                $$rowtotal ++;
-            }
-        }
-    } else {
-        my $css_class = $rownum%2?' class="LC_odd_row"':'';
-        my %choices =
-            &Apache::lonlocal::texthash(
-                                          email         => 'Approved automatically',
-                                          emailapproval => 'Queued for approval by DC',
-                                          off           => 'Not enabled',
-                                       );
-        $datatable .= '<tr'.$css_class.'>'.
-                      '<td>'.&mt('E-mail address as username').
-                      '</td><td class="LC_left_item">'.
-                      '<span class="LC_nobreak">';
-        foreach my $option ('email','emailapproval','off') {
-            my $checked;
-            if ($option eq 'email') {
-                if ($radiohash{'cancreate_email'}) {
-                    $checked = 'checked="checked"';
-                }
-            } elsif ($option eq 'emailapproval') {
-                if ($radiohash{'cancreate_emailapproval'}) {
-                    $checked = 'checked="checked"';
-                }
-            } else {
-                if ((!$radiohash{'cancreate_email'}) && (!$radiohash{'cancreate_emailapproval'})) {
-                    $checked = 'checked="checked"';  
-                }
-            }
-            $datatable .= '<label>'.
-                          '<input type="radio" name="cancreate_email" '.
-                          $checked.' value="'.$option.'" />'.
-                          $choices{$option}.'</label>&nbsp;';
-        }
-        $$rowtotal ++;
-        $rownum ++;
-        $datatable .= '</span></td></tr>'.
-                      &print_requestmail($dom,'selfcreation',$createsettings,$rowtotal);
-        $rownum ++;
-        my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
-        $numinrow = 2;
-        $datatable .= &modifiable_userdata_row('cancreate','emailusername',$settings,
-                                               $numinrow,$rownum,undef,$infofields,$infotitles);
-        $$rowtotal ++;
-        $rownum ++;
-        my ($emailrules,$emailruleorder) =
-            &Apache::lonnet::inst_userrules($dom,'email');
-        if (ref($emailrules) eq 'HASH') {
-            if (keys(%{$emailrules}) > 0) {
-                $datatable .= &user_formats_row('email',$settings,$emailrules,
-                                                $emailruleorder,$numinrow,$rownum);
-                $rownum ++;
-                $$rowtotal ++;
-            }
-        }
-        $datatable .= &captcha_choice('cancreate',$createsettings,$rownum);
-    }
-    return $datatable;
-}
-
 sub captcha_choice {
     my ($context,$settings,$itemcount) = @_;
     my ($keyentry,$currpub,$currpriv,%checked,$rowname,$pubtext,$privtext);
     my %lt = &captcha_phrases();
     $keyentry = 'hidden';
     if ($context eq 'cancreate') {
-        $rowname = &mt('CAPTCHA validation');
+        $rowname = &mt('CAPTCHA validation (e-mail as username)');
     } elsif ($context eq 'login') {
         $rowname =  &mt('"Contact helpdesk" CAPTCHA validation');
     }
@@ -3996,26 +3688,18 @@ sub usercreation_types {
                     author     => 'When adding a co-author',
                     course     => 'When adding a user to a course',
                     requestcrs => 'When requesting a course',
+                    selfcreate => 'User creates own account', 
                     any        => 'Any',
                     official   => 'Institutional only ',
                     unofficial => 'Non-institutional only',
+                    email      => 'E-mail address',
+                    login      => 'Institutional Login',
+                    sso        => 'SSO', 
                     none       => 'None',
     );
     return %lt;
 }
 
-sub selfcreation_types {
-    my %lt = &Apache::lonlocal::texthash (
-                    selfcreate => 'User creates own account',
-                    any        => 'Any',
-                    official   => 'Institutional only ',
-                    unofficial => 'Non-institutional only',
-                    email      => 'E-mail address',
-                    login      => 'Institutional Login',
-                    sso        => 'SSO',
-             );
-}
-
 sub authtype_names {
     my %lt = &Apache::lonlocal::texthash(
                       int    => 'Internal',
@@ -4057,6 +3741,20 @@ sub print_usermodification {
             $$rowtotal ++;
             $rowcount ++;
         }
+    } elsif ($position eq 'bottom') {
+        $context = 'selfcreate';
+        my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
+        $usertypes->{'default'} = $othertitle;
+        if (ref($types) eq 'ARRAY') {
+            push(@{$types},'default');
+            $usertypes->{'default'} = $othertitle;
+            foreach my $status (@{$types}) {
+                $datatable .= &modifiable_userdata_row($context,$status,$settings,
+                                                       $numinrow,$rowcount,$usertypes);
+                $$rowtotal ++;
+                $rowcount ++;
+            }
+        }
     }
     return $datatable;
 }
@@ -4605,8 +4303,7 @@ sub print_serverstatuses {
 sub serverstatus_pages {
     return ('userstatus','lonstatus','loncron','server-status','codeversions',
             'checksums','clusterstatus','metadata_keywords','metadata_harvest',
-            'takeoffline','takeonline','showenv','toggledebug','ping','domconf',
-            'uniquecodes');
+            'takeoffline','takeonline','showenv','toggledebug','ping','domconf');
 }
 
 sub coursecategories_javascript {
@@ -4837,13 +4534,9 @@ sub build_category_rows {
 }
 
 sub modifiable_userdata_row {
-    my ($context,$role,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref) = @_;
+    my ($context,$role,$settings,$numinrow,$rowcount,$usertypes) = @_;
     my $rolename;
-    if ($context eq 'cancreate') {
-        if ($role eq 'emailusername') {
-            $rolename = &mt('Data user provides');
-        }
-    } elsif ($context eq 'selfcreate') {
+    if ($context eq 'selfcreate') {
         if (ref($usertypes) eq 'HASH') {
             $rolename = $usertypes->{$role};
         } else {
@@ -4856,18 +4549,9 @@ sub modifiable_userdata_row {
             $rolename = &Apache::lonnet::plaintext($role);
         }
     }
-    my (@fields,%fieldtitles);
-    if (ref($fieldsref) eq 'ARRAY') {
-        @fields = @{$fieldsref};
-    } else {
-        @fields = ('lastname','firstname','middlename','generation',
-                   'permanentemail','id');
-    }
-    if ((ref($titlesref) eq 'HASH')) {
-        %fieldtitles = %{$titlesref};
-    } else {
-        %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
-    }
+    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.'>'.
@@ -4923,7 +4607,7 @@ sub modifiable_userdata_row {
 }
 
 sub insttypes_row {
-    my ($settings,$types,$usertypes,$dom,$numinrow,$othertitle,$context,$rownum) = @_;
+    my ($settings,$types,$usertypes,$dom,$numinrow,$othertitle,$context) = @_;
     my %lt = &Apache::lonlocal::texthash (
                       cansearch => 'Users allowed to search',
                       statustocreate => 'Institutional affiliation(s) able to create own account (login/SSO)',
@@ -4937,13 +4621,9 @@ sub insttypes_row {
     if ($context eq 'statustocreate') {
         $class = 'LC_right_item';
     }
-    my $css_class = ' class="LC_odd_row"';
-    if ($rownum ne '') { 
-        $css_class = ($rownum%2? ' class="LC_odd_row"':'');
-    }
-    my $output = '<tr'.$css_class.'>'.
-                 '<td>'.$lt{$context}.$showdom.
-                 '</td><td class="'.$class.'" colspan="2"><table>';
+    my $output =  '<tr class="LC_odd_row">'.
+                  '<td>'.$lt{$context}.$showdom.
+                  '</td><td class="'.$class.'" colspan="2"><table>';
     my $rem;
     if (ref($types) eq 'ARRAY') {
         for (my $i=0; $i<@{$types}; $i++) {
@@ -6143,25 +5823,21 @@ sub check_switchserver {
 }
 
 sub modify_quotas {
-    my ($r,$dom,$action,$lastactref,%domconfig) = @_;
+    my ($dom,$action,$lastactref,%domconfig) = @_;
     my ($context,@usertools,@options,%validations,%titles,%confhash,%toolshash,
-        %limithash,$toolregexp,%conditions,$resulttext,%changes,$confname,$configuserok,
-        $author_ok,$switchserver,$errors);
+        %limithash,$toolregexp,%conditions,$resulttext,%changes);
     if ($action eq 'quotas') {
         $context = 'tools'; 
     } else {
         $context = $action;
     }
     if ($context eq 'requestcourses') {
-        @usertools = ('official','unofficial','community','textbook');
+        @usertools = ('official','unofficial','community');
         @options =('norequest','approval','validate','autolimit');
         %validations = &Apache::lonnet::auto_courserequest_checks($dom);
         %titles = &courserequest_titles();
         $toolregexp = join('|',@usertools);
         %conditions = &courserequest_conditions();
-        $confname = $dom.'-domainconfig';
-        my $servadm = $r->dir_config('lonAdmEMail');
-        ($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm);
     } elsif ($context eq 'requestauthor') {
         @usertools = ('author');
         %titles = &authorrequest_titles();
@@ -6197,39 +5873,9 @@ sub modify_quotas {
         }
     }
     if (($context eq 'requestcourses') || ($context eq 'requestauthor')) {
-        my @approvalnotify = &Apache::loncommon::get_env_multiple('form.'.$context.'notifyapproval');
+        my @approvalnotify = &Apache::loncommon::get_env_multiple('form.reqapprovalnotify');
         @approvalnotify = sort(@approvalnotify);
         $confhash{'notify'}{'approval'} = join(',',@approvalnotify);
-        my @crstypes = ('official','unofficial','community','textbook');
-        my @hasuniquecode = &Apache::loncommon::get_env_multiple('form.uniquecode');
-        foreach my $type (@hasuniquecode) {
-            if (grep(/^\Q$type\E$/,@crstypes)) {
-                $confhash{'uniquecode'}{$type} = 1;
-            }
-        }
-        my ($newbook,@allpos);
-        if ($context eq 'requestcourses') {
-            if ($env{'form.addbook'}) {
-                if (($env{'form.addbook_cnum'} =~ /^$match_courseid$/) &&
-                    ($env{'form.addbook_cdom'} =~ /^$match_domain$/)) {
-                    if (&Apache::lonnet::homeserver($env{'form.addbook_cnum'},
-                                                    $env{'form.addbook_cdom'}) eq 'no_host') {
-                        $errors .= '<li><span class="LC_error">'.&mt('Invalid LON-CAPA course for textbook').
-                                   '</span></li>';
-                    } else {
-                        $newbook = $env{'form.addbook_cdom'}.'_'.$env{'form.addbook_cnum'};
-                        my $position = $env{'form.addbook_pos'};
-                        $position =~ s/\D+//g;
-                        if ($position ne '') {
-                            $allpos[$position] = $newbook;
-                        }
-                    }
-                } else {
-                    $errors .= '<li><span class="LC_error">'.&mt('Invalid LON-CAPA course for textbook').
-                               '</span></li>';
-                }
-            }
-        }
         if (ref($domconfig{$action}) eq 'HASH') {
             if (ref($domconfig{$action}{'notify'}) eq 'HASH') {
                 if ($domconfig{$action}{'notify'}{'approval'} ne $confhash{'notify'}{'approval'}) {
@@ -6240,131 +5886,10 @@ sub modify_quotas {
                     $changes{'notify'}{'approval'} = 1;
                 }
             }
-            if (ref($domconfig{$action}{'uniquecode'}) eq 'HASH') {
-                if (ref($confhash{'uniquecode'}) eq 'HASH') {
-                    foreach my $crstype (keys(%{$domconfig{$action}{'uniquecode'}})) {
-                        unless ($confhash{'uniquecode'}{$crstype}) {
-                            $changes{'uniquecode'} = 1;
-                        }
-                    }
-                    unless ($changes{'uniquecode'}) {
-                        foreach my $crstype (keys(%{$confhash{'uniquecode'}})) {
-                            unless ($domconfig{$action}{'uniquecode'}{$crstype}) {
-                                $changes{'uniquecode'} = 1;
-                            }
-                        }
-                    }
-               } else {
-                   $changes{'uniquecode'} = 1;
-               }
-            } elsif (ref($confhash{'uniquecode'}) eq 'HASH') {
-                $changes{'uniquecode'} = 1;
-            }
-            if ($context eq 'requestcourses') {
-                if (ref($domconfig{$action}{'textbooks'}) eq 'HASH') {
-                    my %deletions;
-                    my @todelete = &Apache::loncommon::get_env_multiple('form.book_del');
-                    if (@todelete) {
-                        map { $deletions{$_} = 1; } @todelete;
-                    }
-                    my %imgdeletions;
-                    my @todeleteimages = &Apache::loncommon::get_env_multiple('form.book_image_del');
-                    if (@todeleteimages) {
-                        map { $imgdeletions{$_} = 1; } @todeleteimages;
-                    }
-                    my $maxnum = $env{'form.book_maxnum'};
-                    for (my $i=0; $i<=$maxnum; $i++) {
-                        my $key = $env{'form.book_id_'.$i};
-                        if (ref($domconfig{$action}{'textbooks'}{$key}) eq 'HASH') {
-                            if ($deletions{$key}) {
-                                if ($domconfig{$action}{'textbooks'}{$key}{'image'}) {
-                                    #FIXME need to obsolete item in RES space
-                                }
-                                next;
-                            } else {
-                                my $newpos = $env{'form.'.$key};
-                                $newpos =~ s/\D+//g;
-                                foreach my $item ('subject','title','author') {
-                                    $confhash{'textbooks'}{$key}{$item} = $env{'form.book_'.$item.'_'.$i};
-                                    if ($domconfig{$action}{'textbooks'}{$key}{$item} ne $confhash{'textbooks'}{$key}{$item}) {
-                                        $changes{'textbooks'}{$key} = 1;
-                                    }
-                                }
-                                $allpos[$newpos] = $key;
-                            }
-                            if ($imgdeletions{$key}) {
-                                $changes{'textbooks'}{$key} = 1;
-                                #FIXME need to obsolete item in RES space
-                            } elsif ($env{'form.book_image_'.$i.'.filename'}) {
-                                my ($cdom,$cnum) = split(/_/,$key);
-                                my ($imgurl,$error) = &process_textbook_image($r,$dom,$confname,'book_image_'.$i,
-                                                                              $cdom,$cnum,$configuserok,
-                                                                              $switchserver,$author_ok);
-                                if ($imgurl) {
-                                    $confhash{'textbooks'}{$key}{'image'} = $imgurl;
-                                    $changes{'textbooks'}{$key} = 1; 
-                                }
-                                if ($error) {
-                                    &Apache::lonnet::logthis($error);
-                                    $errors .= '<li><span class="LC_error">'.$error.'</span></li>';
-                                } 
-                            } elsif ($domconfig{$action}{'textbooks'}{$key}{'image'}) {
-                                $confhash{'textbooks'}{$key}{'image'} = 
-                                    $domconfig{$action}{'textbooks'}{$key}{'image'};
-                            }
-                        }
-                    }
-                }
-            }
         } else {
             if ($confhash{'notify'}{'approval'}) {
                 $changes{'notify'}{'approval'} = 1;
             }
-            if (ref($confhash{'uniquecode'} eq 'HASH')) {
-                $changes{'uniquecode'} = 1;
-            }
-        }
-        if ($context eq 'requestcourses') {
-            if ($newbook) {
-                $changes{'textbooks'}{$newbook} = 1;
-                foreach my $item ('subject','title','author') {
-                    $env{'form.addbook_'.$item} =~ s/(`)/'/g;
-                    if ($env{'form.addbook_'.$item}) {
-                        $confhash{'textbooks'}{$newbook}{$item} = $env{'form.addbook_'.$item};
-                    }
-                }
-                if ($env{'form.addbook_image.filename'} ne '') {
-                    my ($cdom,$cnum) = split(/_/,$newbook);
-                    my ($imageurl,$error) = 
-                        &process_textbook_image($r,$dom,$confname,'addbook_image',$cdom,$cnum,$configuserok,
-                                                $switchserver,$author_ok);
-                    if ($imageurl) {
-                        $confhash{'textbooks'}{$newbook}{'image'} = $imageurl;
-                    }
-                    if ($error) {
-                        &Apache::lonnet::logthis($error);
-                        $errors .= '<li><span class="LC_error">'.$error.'</span></li>';
-                    }
-                }
-            }
-            if (@allpos > 0) {
-                my $idx = 0;
-                foreach my $item (@allpos) {
-                    if ($item ne '') {
-                        $confhash{'textbooks'}{$item}{'order'} = $idx;
-                        if (ref($domconfig{$action}) eq 'HASH') {
-                            if (ref($domconfig{$action}{'textbooks'}) eq 'HASH') {
-                                if (ref($domconfig{$action}{'textbooks'}{$item}) eq 'HASH') {
-                                    if ($domconfig{$action}{'textbooks'}{$item}{'order'} ne $idx) {
-                                        $changes{'textbooks'}{$item} = 1;
-                                    }
-                                }
-                            }
-                        }
-                        $idx ++;
-                    }
-                }
-            }
         }
     } else {
         $confhash{'defaultquota'}{'default'} = $env{'form.defaultquota'};
@@ -6506,9 +6031,7 @@ sub modify_quotas {
         $domdefaults{'requestauthor'} = \%confhash;
     } else {
         foreach my $key (keys(%confhash)) {
-            unless (($context eq 'requestcourses') && ($key eq 'textbooks')) {
-                $domdefaults{$key} = $confhash{$key};
-            }
+            $domdefaults{$key} = $confhash{$key};
         }
     }
 
@@ -6541,7 +6064,7 @@ sub modify_quotas {
                     $resulttext .= '</ul></li>';
                 }
                 if (ref($changes{'authorquota'}) eq 'HASH') {
-                    $resulttext .= '<li>'.&mt('Authoring Space default quotas').'<ul>';
+                    $resulttext .= '<li>'.&mt('Authoring space default quotas').'<ul>';
                     foreach my $type (@{$types},'default') {
                         if (defined($changes{'authorquota'}{$type})) {
                             my $typetitle = $usertypes->{$type};
@@ -6645,42 +6168,6 @@ sub modify_quotas {
                     }
                 }
             }
-            if ($action eq 'requestcourses') {
-                my @offon = ('off','on');
-                if ($changes{'uniquecode'}) {
-                    if (ref($confhash{'uniquecode'}) eq 'HASH') {
-                        my $codestr = join(' ',map{ &mt($_); } sort(keys(%{$confhash{'uniquecode'}})));
-                        $resulttext .= '<li>'.
-                                       &mt('Generation of six character code as course identifier for distribution to students set to on for: [_1].','<b>'.$codestr.'</b>').
-                                       '</li>';
-                    } else {
-                        $resulttext .= '<li>'.&mt('Generation of six character code as course identifier for distribution to students set to off.').
-                                       '</li>';
-                    }
-                }
-                if (ref($changes{'textbooks'}) eq 'HASH') {
-                    $resulttext .= '<li>'.&mt('Available textbooks updated').'<ul>';
-                    foreach my $key (sort(keys(%{$changes{'textbooks'}}))) {
-                        my %coursehash = &Apache::lonnet::coursedescription($key);
-                        my $coursetitle = $coursehash{'description'};
-                        my $position = $confhash{'textbooks'}{$key}{'order'} + 1;
-                        $resulttext .= '<li>';
-                        foreach my $item ('subject','title','author') {
-                            my $name = $item.':';
-                            $name =~ s/^(\w)/\U$1/;
-                            $resulttext .= &mt($name).' '.$confhash{'textbooks'}{$key}{$item}.'<br />';
-                        }
-                        $resulttext .= ' '.&mt('Order: [_1]',$position).'<br />';
-                        if ($confhash{'textbooks'}{$key}{'image'}) {
-                            $resulttext .= ' '.&mt('Image: [_1]',
-                                               '<img src="'.$confhash{'textbooks'}{$key}{'image'}.'"'.
-                                               ' alt="Textbook cover" />').'<br />';
-                        }
-                        $resulttext .= ' '.&mt('LON-CAPA Course: [_1]',$coursetitle).'</li>';
-                    }
-                    $resulttext .= '</ul></li>';
-                }
-            }
             $resulttext .= '</ul>';
             if (keys(%newenv)) {
                 &Apache::lonnet::appenv(\%newenv);
@@ -6698,40 +6185,9 @@ sub modify_quotas {
         $resulttext = '<span class="LC_error">'.
 	    &mt('An error occurred: [_1]',$putresult).'</span>';
     }
-    if ($errors) {
-        $resulttext .= '<p>'.&mt('The following errors occurred when modifying Textbook settings.').
-                       '<ul>'.$errors.'</ul></p>';
-    }
     return $resulttext;
 }
 
-sub process_textbook_image {
-    my ($r,$dom,$confname,$caller,$cdom,$cnum,$configuserok,$switchserver,$author_ok) = @_;
-    my $filename = $env{'form.'.$caller.'.filename'};
-    my ($error,$url);
-    my ($width,$height) = (50,50);
-    if ($configuserok eq 'ok') {
-        if ($switchserver) {
-            $error = &mt('Upload of textbook image is not permitted to this server: [_1]',
-                         $switchserver);
-        } elsif ($author_ok eq 'ok') {
-            my ($result,$imageurl) =
-                &publishlogo($r,'upload',$caller,$dom,$confname,
-                             "textbooks/$dom/$cnum/cover",$width,$height);
-            if ($result eq 'ok') {
-                $url = $imageurl;
-            } else {
-                $error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$filename,$result);
-            }
-        } else {
-            $error = &mt("Upload of [_1] failed because an author role could not be assigned to a Domain Configuration user ([_2]) in domain: [_3].  Error was: [_4].",$filename,$confname,$dom,$author_ok);
-        }
-    } else {
-        $error = &mt("Upload of [_1] failed because a Domain Configuration user ([_2]) could not be created in domain: [_3].  Error was: [_4].",$filename,$confname,$dom,$configuserok);
-    }
-    return ($url,$error);
-}
-
 sub modify_autoenroll {
     my ($dom,$lastactref,%domconfig) = @_;
     my ($resulttext,%changes);
@@ -7424,38 +6880,106 @@ sub modify_contacts {
 
 sub modify_usercreation {
     my ($dom,%domconfig) = @_;
-    my ($resulttext,%curr_usercreation,%changes,%authallowed,%cancreate,%save_usercreate);
+    my ($resulttext,%curr_usercreation,%changes,%authallowed,%cancreate);
     my $warningmsg;
     if (ref($domconfig{'usercreation'}) eq 'HASH') {
         foreach my $key (keys(%{$domconfig{'usercreation'}})) {
-            if ($key eq 'cancreate') {
-                if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {
-                    foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {
-                        if (($item eq 'selfcreate') || ($item eq 'statustocreate') ||
-                            ($item eq 'captcha') || ($item eq 'recaptchakeys')) {
-                            $save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
-                        } else {
-                            $curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
-                        }
-                    }
-                }
-            } elsif ($key eq 'email_rule') {
-                $save_usercreate{$key} = $domconfig{'usercreation'}{$key};
-            } else {
-                $curr_usercreation{$key} = $domconfig{'usercreation'}{$key};
-            }
+            $curr_usercreation{$key} = $domconfig{'usercreation'}{$key};
         }
     }
     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','requestcrs');
+    my @email_rule = &Apache::loncommon::get_env_multiple('form.email_rule');
+    my @contexts = ('author','course','requestcrs','selfcreate');
     foreach my $item(@contexts) {
-        $cancreate{$item} = $env{'form.can_createuser_'.$item};
+        if ($item eq 'selfcreate') {
+            @{$cancreate{$item}} = &Apache::loncommon::get_env_multiple('form.can_createuser_'.$item);
+            my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
+            if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) || ($domdefaults{'auth_def'} eq 'localauth'))) {
+                if (ref($cancreate{$item}) eq 'ARRAY') { 
+                    if (grep(/^login$/,@{$cancreate{$item}})) {
+                        $warningmsg = &mt('Although account creation has been set to be available for institutional logins, currently default authentication in this domain has not been set to support this.').' '.&mt('You need to set the default authentication type to Kerberos 4 or 5 (with a Kerberos domain specified), or to Local authentication, if the localauth module has been customized in your domain to authenticate institutional logins.');   
+                    }
+                }
+            }
+        } else {
+            $cancreate{$item} = $env{'form.can_createuser_'.$item};
+        }
     }
+    my ($othertitle,$usertypes,$types) = 
+        &Apache::loncommon::sorted_inst_types($dom);
+    if (ref($types) eq 'ARRAY') {
+        if (@{$types} > 0) {
+            @{$cancreate{'statustocreate'}} = 
+                &Apache::loncommon::get_env_multiple('form.statustocreate');
+        } else {
+            @{$cancreate{'statustocreate'}} = ();
+        }
+        push(@contexts,'statustocreate');
+    }
+    &process_captcha('cancreate',\%changes,\%cancreate,\%curr_usercreation);
     if (ref($curr_usercreation{'cancreate'}) eq 'HASH') {
         foreach my $item (@contexts) {
-            if ($curr_usercreation{'cancreate'}{$item} ne $cancreate{$item}) {
-                push(@{$changes{'cancreate'}},$item);
+            if (($item eq 'selfcreate') || ($item eq 'statustocreate')) {
+                if (ref($curr_usercreation{'cancreate'}{$item}) eq 'ARRAY') {
+                    foreach my $curr (@{$curr_usercreation{'cancreate'}{$item}}) {
+                        if (ref($cancreate{$item}) eq 'ARRAY') {
+                            if (!grep(/^$curr$/,@{$cancreate{$item}})) {
+                                if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
+                                    push(@{$changes{'cancreate'}},$item);
+                                }
+                            }
+                        }
+                    }
+                } else {
+                    if ($curr_usercreation{'cancreate'}{$item} eq '') {
+                        if (@{$cancreate{$item}} > 0) {
+                            if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
+                                push(@{$changes{'cancreate'}},$item);
+                            }
+                        }
+                    } else {
+                        if ($curr_usercreation{'cancreate'}{$item} eq 'any') {
+                            if (@{$cancreate{$item}} < 3) {
+                                if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
+                                    push(@{$changes{'cancreate'}},$item);
+                                }
+                            }
+                        } elsif ($curr_usercreation{'cancreate'}{$item} eq 'none') {
+                            if (@{$cancreate{$item}} > 0) {
+                                if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
+                                    push(@{$changes{'cancreate'}},$item);
+                                }
+                            }
+                        } elsif (!grep(/^$curr_usercreation{'cancreate'}{$item}$/,@{$cancreate{$item}})) {
+                            if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
+                                push(@{$changes{'cancreate'}},$item);
+                            }
+                        }
+                    }
+                }
+                if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
+                    foreach my $type (@{$cancreate{$item}}) {
+                        if (ref($curr_usercreation{'cancreate'}{$item}) eq 'ARRAY') {
+                            if (!grep(/^$type$/,@{$curr_usercreation{'cancreate'}{$item}})) {
+                                if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
+                                    push(@{$changes{'cancreate'}},$item);
+                                }
+                            }
+                        } elsif (($curr_usercreation{'cancreate'}{$item} ne 'any') &&
+                                 ($curr_usercreation{'cancreate'}{$item} ne 'none')) {
+                            if ($curr_usercreation{'cancreate'}{$item} ne $type) {
+                                if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
+                                    push(@{$changes{'cancreate'}},$item);
+                                }
+                            }
+                        }
+                    }
+                }
+            } else {
+                if ($curr_usercreation{'cancreate'}{$item} ne $cancreate{$item}) {
+                    push(@{$changes{'cancreate'}},$item);
+                }
             }
         }
     } elsif (ref($curr_usercreation{'cancreate'}) eq 'ARRAY') {
@@ -7506,6 +7030,21 @@ sub modify_usercreation {
         push(@{$changes{'id_rule'}},@id_rule);
     }
 
+    if (ref($curr_usercreation{'email_rule'}) eq 'ARRAY') {
+        foreach my $type (@{$curr_usercreation{'email_rule'}}) {
+            if (!grep(/^\Q$type\E$/,@email_rule)) {
+                push(@{$changes{'email_rule'}},$type);
+            }
+        }
+        foreach my $type (@email_rule) {
+            if (!grep(/^\Q$type\E$/,@{$curr_usercreation{'email_rule'}})) {
+                push(@{$changes{'email_rule'}},$type);
+            }
+        }
+    } else {
+        push(@{$changes{'email_rule'}},@email_rule);
+    }
+
     my @authen_contexts = ('author','course','domain');
     my @authtypes = ('int','krb4','krb5','loc');
     my %authhash;
@@ -7536,394 +7075,39 @@ sub modify_usercreation {
         }
     }
 
-    $save_usercreate{'cancreate'}{'course'} = $cancreate{'course'}; 
-    $save_usercreate{'cancreate'}{'author'} = $cancreate{'author'};
-    $save_usercreate{'cancreate'}{'requestcrs'} = $cancreate{'requestcrs'};
-    $save_usercreate{'id_rule'} = \@id_rule;
-    $save_usercreate{'username_rule'} = \@username_rule,
-    $save_usercreate{'authtypes'} = \%authhash;
-
     my %usercreation_hash =  (
-        usercreation     => \%save_usercreate,
-    );
+            usercreation => {
+                              cancreate     => \%cancreate,
+                              username_rule => \@username_rule,
+                              id_rule       => \@id_rule,
+                              email_rule    => \@email_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 = $lt{$type}.', ';
-                    if ($cancreate{$type} eq 'none') {
-                        $chgtext .= &mt('creation of new users is not permitted, except by a Domain Coordinator.');
-                    } elsif ($cancreate{$type} eq 'any') {
-                        $chgtext .= &mt('creation of new users is permitted for both institutional and non-institutional usernames.');
-                    } elsif ($cancreate{$type} eq 'official') {
-                        $chgtext .= &mt('creation of new users is only permitted for institutional usernames.');
-                    } elsif ($cancreate{$type} eq 'unofficial') {
-                        $chgtext .= &mt('creation of new users is only permitted for non-institutional usernames.');
-                    }
-                    $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});
-                        }
-                    }
-                    if (@allowed > 0) {
-                        $chgtext .= join(', ',@allowed).'</li>';
-                    } else {
-                        $chgtext .= &mt('none').'</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>';
-    }
-    if ($warningmsg ne '') {
-        $resulttext .= '<br /><span class="LC_warning">'.$warningmsg.'</span><br />';
-    }
-    return $resulttext;
-}
-
-sub modify_selfcreation {
-    my ($dom,%domconfig) = @_;
-    my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%changes,%cancreate);
-    my (%save_usercreate,%save_usermodify);
-#
-# Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}.
-#
-    if (ref($domconfig{'usercreation'}) eq 'HASH') {
-        foreach my $key (keys(%{$domconfig{'usercreation'}})) {
-            if ($key eq 'cancreate') {
-                if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {
-                    foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {
-                        if (($item eq 'selfcreate') || ($item eq 'statustocreate') ||
-                            ($item eq 'captcha') || ($item eq 'recaptchakeys') || 
-                            ($item eq 'emailusername') || ($item eq 'notify')) {
-                            $curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
-                        } else {
-                            $save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
-                        }
-                    }
-                }
-            } elsif ($key eq 'email_rule') {
-                $curr_usercreation{$key} = $domconfig{'usercreation'}{$key};
-            } else {
-                $save_usercreate{$key} = $domconfig{'usercreation'}{$key};
-            }
-        }
-    }
-#
-# Retrieve current domain configuration for self-creation of usernames from $domconfig{'usermodification'}.
-#
-    if (ref($domconfig{'usermodification'}) eq 'HASH') {
-        foreach my $key (keys(%{$domconfig{'usermodification'}})) {
-            if ($key eq 'selfcreate') {
-                $curr_usermodify{$key} = $domconfig{'usermodification'}{$key};
-            } else {
-                $save_usermodify{$key} = $domconfig{'usermodification'}{$key};
-            }
-        }
-    }
-
-    my @contexts = ('selfcreate');
-    @{$cancreate{'selfcreate'}} = ();
-    %{$cancreate{'emailusername'}} = ();
-    @{$cancreate{'statustocreate'}} = ();
     my %selfcreatetypes = (
                              sso   => 'users authenticated by institutional single sign on',
                              login => 'users authenticated by institutional log-in',
-                             email => 'users who provide a valid e-mail address for use as username (automatic creation)',
-                             emailapproval => 'users who provide a valid e-mail address for use as username (queued for Domain Coordinator review)',
+                             email => 'users who provide a valid e-mail address for use as the username',
                           );
-#
-# Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts
-# is permitted.
-#
-    foreach my $item ('login','sso','email') { 
-        if ($item eq 'email') {
-            if ($env{'form.cancreate_email'} eq 'email') {
-                push(@{$cancreate{'selfcreate'}},'email');
-            } elsif ($env{'form.cancreate_email'} eq 'emailapproval') {
-                push(@{$cancreate{'selfcreate'}},'emailapproval');
-            }
-        } else {
-            if ($env{'form.cancreate_'.$item}) {
-                push(@{$cancreate{'selfcreate'}},$item);
-            }
-        }
-    }
-    my (@email_rule,%userinfo,%savecaptcha);
-    my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
-#
-# Populate $cancreate{'emailusername'} hash ref with information types (if new user will provide data
-# value set to one), if self-creation with e-mail address permitted.
-#
-    if (($env{'form.cancreate_email'} eq 'email') || ($env{'form.cancreate_email'} eq 'emailapproval')) {
-        push(@contexts,'emailusername'); 
-        map { $userinfo{$_} = 1; } &Apache::loncommon::get_env_multiple('form.canmodify_emailusername');
-        if (ref($infofields) eq 'ARRAY') {
-            foreach my $field (@{$infofields}) {
-                if ($userinfo{$field}) {
-                    $cancreate{'emailusername'}{$field} = 1;
-                }
-            }
-        }
-
-#
-# Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of
-# queued requests for self-creation of account using e-mail address as username
-#
-
-        my @approvalnotify = &Apache::loncommon::get_env_multiple('form.selfcreationnotifyapproval');
-        @approvalnotify = sort(@approvalnotify);
-        $cancreate{'notify'}{'approval'} = join(',',@approvalnotify);
-        if (ref($curr_usercreation{'cancreate'}) eq 'HASH') {
-            if (ref($curr_usercreation{'cancreate'}{'notify'}) eq 'HASH') {
-                if ($curr_usercreation{'cancreate'}{'notify'}{'approval'} ne $cancreate{'notify'}{'approval'}) {
-                    push(@{$changes{'cancreate'}},'notify');
-                }
-            } else {
-                if ($cancreate{'notify'}{'approval'}) {
-                    push(@{$changes{'cancreate'}},'notify');
-                }
-            }
-        } elsif ($cancreate{'notify'}{'approval'}) {
-            push(@{$changes{'cancreate'}},'notify');
-        }
-
-#
-# Retrieve rules (if any) governing types of e-mail address which may be used as a username
-#
-        @email_rule = &Apache::loncommon::get_env_multiple('form.email_rule');
-        &process_captcha('cancreate',\%changes,\%savecaptcha,$curr_usercreation{'cancreate'});
-        if (ref($curr_usercreation{'email_rule'}) eq 'ARRAY') {
-            if (@{$curr_usercreation{'email_rule'}} > 0) {
-                foreach my $type (@{$curr_usercreation{'email_rule'}}) {
-                    if (!grep(/^\Q$type\E$/,@email_rule)) {
-                        push(@{$changes{'email_rule'}},$type);
-                    }
-                }
-            }
-            if (@email_rule > 0) {
-                foreach my $type (@email_rule) {
-                    if (!grep(/^\Q$type\E$/,@{$curr_usercreation{'email_rule'}})) {
-                        push(@{$changes{'email_rule'}},$type);
-                    }
-                }
-            }
-        } elsif (@email_rule > 0) {
-            push(@{$changes{'email_rule'}},@email_rule);
-        }
-    }
-#  
-# Check if domain default is set appropriately, if selef-creation of accounts is to be available for
-# institutional log-in.
-#
-    if (grep(/^login$/,@{$cancreate{'selfcreate'}})) {
-        my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
-        if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) || 
-               ($domdefaults{'auth_def'} eq 'localauth'))) {
-            $warningmsg = &mt('Although account creation has been set to be available for institutional logins, currently default authentication in this domain has not been set to support this.').' '.
-                          &mt('You need to set the default authentication type to Kerberos 4 or 5 (with a Kerberos domain specified), or to Local authentication, if the localauth module has been customized in your domain to authenticate institutional logins.');
-        }
-    }
-    my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
-    my @fields = ('lastname','firstname','middlename','generation',
-                  'permanentemail','id');
-    my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
-#
-# Where usernames may created for institutional log-in and/or institutional single sign on:
-# (a) populate $cancreate{'statustocreate'} array reference with institutional status types who
-# may self-create accounts 
-# (b) populate $save_usermodify{'selfcreate'} hash reference with status types, and information fields
-# which the user may supply, if institutional data is unavailable.
-#
-    if (($env{'form.cancreate_login'}) || ($env{'form.cancreate_sso'})) {
-        if (ref($types) eq 'ARRAY') {
-            if (@{$types} > 0) {
-                @{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate');
-                push(@contexts,'statustocreate');
-            } else {
-                undef($cancreate{'statustocreate'});
-            } 
-            push(@{$types},'default');
-            $usertypes->{'default'} = $othertitle;
-            foreach my $type (@{$types}) {
-                my @modifiable =  &Apache::loncommon::get_env_multiple('form.canmodify_'.$type);
-                foreach my $field (@fields) {
-                    if (grep(/^\Q$field\E$/,@modifiable)) {
-                        $save_usermodify{'selfcreate'}{$type}{$field} = 1;
-                    } else {
-                        $save_usermodify{'selfcreate'}{$type}{$field} = 0;
-                    }
-                }
-            }
-            if (ref($curr_usermodify{'selfcreate'}) eq 'HASH') {
-                foreach my $type (@{$types}) {
-                    if (ref($curr_usermodify{'selfcreate'}{$type}) eq 'HASH') {
-                        foreach my $field (@fields) {
-                            if ($save_usermodify{'selfcreate'}{$type}{$field} ne
-                                $curr_usermodify{'selfcreate'}{$type}{$field}) {
-                                push(@{$changes{'selfcreate'}},$type);
-                                last;
-                            }
-                        }
-                    }
-                }
-            } else {
-                foreach my $type (@{$types}) {
-                    push(@{$changes{'selfcreate'}},$type);
-                }
-            }
-        }
-    }
-    foreach my $item (@contexts) {
-        if (ref($curr_usercreation{'cancreate'}{$item}) eq 'ARRAY') {
-            foreach my $curr (@{$curr_usercreation{'cancreate'}{$item}}) {
-                if (ref($cancreate{$item}) eq 'ARRAY') {
-                    if (!grep(/^$curr$/,@{$cancreate{$item}})) {
-                        if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
-                            push(@{$changes{'cancreate'}},$item);
-                        }
-                    }
-                }
-            }
-            if (ref($cancreate{$item}) eq 'ARRAY') {
-                foreach my $type (@{$cancreate{$item}}) {
-                    if (!grep(/^$type$/,@{$curr_usercreation{'cancreate'}{$item}})) {
-                        if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
-                            push(@{$changes{'cancreate'}},$item);
-                        }
-                    }
-                }
-            }
-        } elsif (ref($curr_usercreation{'cancreate'}{$item}) eq 'HASH') {
-            if (ref($cancreate{$item}) eq 'HASH') {
-                foreach my $curr (keys(%{$curr_usercreation{'cancreate'}{$item}})) {
-                    if (!$cancreate{$item}{$curr}) {
-                        if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
-                            push(@{$changes{'cancreate'}},$item);
-                        }
-                    }
-                }
-                foreach my $field (keys(%{$cancreate{$item}})) {
-                    if (!$curr_usercreation{'cancreate'}{$item}{$field}) {
-                        if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
-                            push(@{$changes{'cancreate'}},$item);
-                        }
-                    }
-                }
-            }
-        } elsif ($curr_usercreation{'cancreate'}{$item}) {
-            if (ref($cancreate{$item}) eq 'ARRAY') {
-                if (!grep(/^\Q$curr_usercreation{'cancreate'}{$item}\E$/,@{$cancreate{$item}})) {
-                    if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
-                        push(@{$changes{'cancreate'}},$item);
-                    }
-                }
-            } elsif (ref($cancreate{$item}) eq 'HASH') {
-                if (!$cancreate{$item}{$curr_usercreation{'cancreate'}{$item}}) {
-                    if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
-                        push(@{$changes{'cancreate'}},$item);
-                    }
-                }
-            }
-        } elsif ($item eq 'emailusername') {
-            if (keys(%userinfo) > 0) {
-                push(@{$changes{'cancreate'}},$item);
-            }
-        }
-    }
-#
-# Populate %save_usercreate hash with updates to self-creation configuration.
-#
-    $save_usercreate{'cancreate'}{'captcha'} = $savecaptcha{'captcha'};
-    $save_usercreate{'cancreate'}{'recaptchakeys'} = $savecaptcha{'recaptchakeys'};
-    $save_usercreate{'cancreate'}{'selfcreate'} = $cancreate{'selfcreate'};
-    if (ref($cancreate{'notify'}) eq 'HASH') {
-        $save_usercreate{'cancreate'}{'notify'} = $cancreate{'notify'};
-    }
-    if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {
-        $save_usercreate{'cancreate'}{'statustocreate'} = $cancreate{'statustocreate'};
-    }
-    $save_usercreate{'cancreate'}{'emailusername'} = $cancreate{'emailusername'};
-    $save_usercreate{'emailrule'} = \@email_rule;
-
-    my %userconfig_hash = (
-            usercreation     => \%save_usercreate,
-            usermodification => \%save_usermodify,
-    );
-    my $putresult = &Apache::lonnet::put_dom('configuration',\%userconfig_hash,
-                                             $dom);
-#
-# Accumulate details of changes to domain cofiguration for self-creation of usernames in $resulttext
-#
     if ($putresult eq 'ok') {
         if (keys(%changes) > 0) {
             $resulttext = &mt('Changes made:').'<ul>';
             if (ref($changes{'cancreate'}) eq 'ARRAY') {
-                my %lt = &selfcreation_types();
+                my %lt = &usercreation_types();
                 foreach my $type (@{$changes{'cancreate'}}) {
                     my $chgtext;
+                    unless (($type eq 'statustocreate') || ($type eq 'captcha') || ($type eq 'recaptchakeys')) {
+                        $chgtext = $lt{$type}.', ';
+                    }
                     if ($type eq 'selfcreate') {
                         if (@{$cancreate{$type}} == 0) {
-                            $chgtext .= &mt('Self creation of a new user account is not permitted.');
+                            $chgtext .= &mt('creation of a new user account is not permitted.');
                         } else {
-                            $chgtext .= &mt('Self-creation of a new account is permitted for:').
-                                        '<ul>';
+                            $chgtext .= &mt('creation of a new account is permitted for:').'<ul>';
                             foreach my $case (@{$cancreate{$type}}) {
                                 $chgtext .= '<li>'.$selfcreatetypes{$case}.'</li>';
                             }
@@ -7932,10 +7116,7 @@ sub modify_selfcreation {
                                 if (grep(/^(login|sso)$/,@{$cancreate{$type}})) {
                                     if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {
                                         if (@{$cancreate{'statustocreate'}} == 0) {
-                                            $chgtext .= '<br />'.
-                                                        '<span class="LC_warning">'.
-                                                        &mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").
-                                                        '</span>';
+                                            $chgtext .= '<br /><span class="LC_warning">'.&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").'</span>';
                                         }
                                     }
                                 }
@@ -7946,13 +7127,11 @@ sub modify_selfcreation {
                             (ref($cancreate{'statustocreate'}) eq 'ARRAY')) {
                             if (@{$cancreate{'selfcreate'}} > 0) {
                                 if (@{$cancreate{'statustocreate'}} == 0) {
+
                                     $chgtext .= &mt("Institutional affiliations permitted to create accounts set to 'None'.");
                                     if (!grep(/^email$/,@{$cancreate{'selfcreate'}})) {
-                                        $chgtext .= '<br />'.
-                                                    '<span class="LC_warning">'.
-                                                    &mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").
-                                                    '</span>';
-                                    }
+                                        $chgtext .= '<br /><span class="LC_warning">'.&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").'</span>';
+                                    } 
                                 } elsif (ref($usertypes) eq 'HASH') {
                                     if (grep(/^(login|sso)$/,@{$cancreate{'selfcreate'}})) {
                                         $chgtext .= &mt('Creation of a new account for an institutional user is restricted to the following institutional affiliation(s):');
@@ -7969,9 +7148,7 @@ sub modify_selfcreation {
                                     }
                                     $chgtext .= '</ul>';
                                     if (!grep(/^(login|sso)$/,@{$cancreate{'selfcreate'}})) {
-                                        $chgtext .= '<br /><span class="LC_warning">'.
-                                                    &mt('However, users authenticated by institutional login/single sign on are not currently permitted to create accounts.').
-                                                    '</span>';
+                                        $chgtext .= '<br /><span class="LC_warning">'.&mt('However, users authenticated by institutional login/single sign on are not currently permitted to create accounts.').'</span>';
                                     }
                                 }
                             } else {
@@ -7983,21 +7160,21 @@ sub modify_selfcreation {
                             }
                         }
                     } elsif ($type eq 'captcha') {
-                        if ($savecaptcha{$type} eq 'notused') {
+                        if ($cancreate{$type} eq 'notused') {
                             $chgtext .= &mt('No CAPTCHA validation in use for self-creation screen.');
                         } else {
                             my %captchas = &captcha_phrases();
-                            if ($captchas{$savecaptcha{$type}}) {
-                                $chgtext .= &mt("Validation for self-creation screen set to $captchas{$savecaptcha{$type}}.");
+                            if ($captchas{$cancreate{$type}}) {
+                                $chgtext .= &mt("Validation for self-creation screen set to $captchas{$cancreate{$type}}.");
                             } else {
                                 $chgtext .= &mt('Validation for self-creation screen set to unknown type.');
                             }
                         }
                     } elsif ($type eq 'recaptchakeys') {
                         my ($privkey,$pubkey);
-                        if (ref($savecaptcha{$type}) eq 'HASH') {
-                            $pubkey = $savecaptcha{$type}{'public'};
-                            $privkey = $savecaptcha{$type}{'private'};
+                        if (ref($cancreate{$type}) eq 'HASH') {
+                            $pubkey = $cancreate{$type}{'public'};
+                            $privkey = $cancreate{$type}{'private'};
                         }
                         $chgtext .= &mt('ReCAPTCHA keys changes').'<ul>';
                         if (!$pubkey) {
@@ -8011,35 +7188,51 @@ sub modify_selfcreation {
                             $chgtext .= '<li>'.&mt('Private key set to [_1]',$pubkey).'</li>';
                         }
                         $chgtext .= '</ul>';
-                    } elsif ($type eq 'emailusername') {
-                        if (ref($cancreate{'emailusername'}) eq 'HASH') {
-                            if (keys(%{$cancreate{'emailusername'}}) > 0) {
-                                $chgtext .= &mt('When self-creating account with e-mail as username, user will provide the following information:').
-                                            '<ul>';
-                                foreach my $field (@{$infofields}) {
-                                    if ($cancreate{'emailusername'}{$field}) {
-                                        $chgtext .= '<li>'.$infotitles->{$field}.'</li>';
-                                    }
-                                }
-                                $chgtext .= '</ul>';
-                            } else {
-                                $chgtext .= &mt('When self creating account with e-mail as username, user will not provide any information besides e-mail address');
-                            }
-                        }
-                    } elsif ($type eq 'notify') {
-                        $chgtext = &mt('No Domain Coordinators will receive notification of username requests requiring approval.');
-                        if (ref($changes{'cancreate'}) eq 'ARRAY') {
-                            if ((grep(/^notify$/,@{$changes{'cancreate'}})) && (ref($cancreate{'notify'}) eq 'HASH')) {
-                                if ($cancreate{'notify'}{'approval'}) {
-                                    $chgtext = &mt('Notification of username requests requiring approval will be sent to: ').$cancreate{'notify'}{'approval'};
-                                }
-                            }
+                    } else {
+                        if ($cancreate{$type} eq 'none') {
+                            $chgtext .= &mt('creation of new users is not permitted, except by a Domain Coordinator.');
+                        } elsif ($cancreate{$type} eq 'any') {
+                            $chgtext .= &mt('creation of new users is permitted for both institutional and non-institutional usernames.');
+                        } elsif ($cancreate{$type} eq 'official') {
+                            $chgtext .= &mt('creation of new users is only permitted for institutional usernames.');
+                        } elsif ($cancreate{$type} eq 'unofficial') {
+                            $chgtext .= &mt('creation of new users is only permitted for non-institutional usernames.');
                         }
                     }
-                    if ($chgtext) {
-                        $resulttext .= '<li>'.$chgtext.'</li>';
+                    $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>';
+                }
             }
             if (ref($changes{'email_rule'}) eq 'ARRAY') {
                 my ($emailrules,$emailruleorder) =
@@ -8052,48 +7245,37 @@ sub modify_selfcreation {
                 }
                 $chgtext .= '</ul>';
                 if (@email_rule > 0) {
-                    $resulttext .= '<li>'.
-                                   &mt('Accounts may not be created by users self-enrolling with e-mail addresses of the following types: ').
-                                       $chgtext.
-                                   '</li>';
+                    $resulttext .= '<li>'.&mt('Accounts may not be created by users self-enrolling with e-mail addresses of the following types: ').$chgtext.'</li>';
                 } else {
-                    $resulttext .= '<li>'.
-                                   &mt('There are now no restrictions on e-mail addresses which may be used as a username when self-enrolling.').
-                                   '</li>';
+                    $resulttext .= '<li>'.&mt('There are now no restrictions on e-mail addresses which may be used as a username when self-enrolling.').'</li>';
                 }
             }
-            if (ref($changes{'selfcreate'}) eq 'ARRAY') {
-                $resulttext .= '<li>'.&mt('When self-creating institutional account:').'<ul>';
-                my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
-                foreach my $type (@{$changes{'selfcreate'}}) {
-                    my $typename = $type;
-                    if (ref($usertypes) eq 'HASH') {
-                        if ($usertypes->{$type} ne '') {
-                            $typename = $usertypes->{$type};
-                        }
-                    }
-                    my @modifiable;
-                    $resulttext .= '<li>'.
-                                    &mt('Self-creation of account by users with status: [_1]',
-                                        '<span class="LC_cusr_emph">'.$typename.'</span>').
-                                    ' - '.&mt('modifiable fields (if institutional data blank): ');
-                    foreach my $field (@fields) {
-                        if ($save_usermodify{'selfcreate'}{$type}{$field}) {
-                            push(@modifiable,'<b>'.$fieldtitles{$field}.'</b>');
+
+            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});
                         }
                     }
-                    if (@modifiable > 0) {
-                        $resulttext .= join(', ',@modifiable);
+                    if (@allowed > 0) {
+                        $chgtext .= join(', ',@allowed).'</li>';
                     } else {
-                        $resulttext .= &mt('none');
+                        $chgtext .= &mt('none').'</li>';
                     }
-                    $resulttext .= '</li>';
                 }
-                $resulttext .= '</ul></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 self-creation settings');
+            $resulttext = &mt('No changes made to user creation settings');
         }
     } else {
         $resulttext = '<span class="LC_error">'.
@@ -8160,20 +7342,17 @@ sub process_captcha {
 
 sub modify_usermodification {
     my ($dom,%domconfig) = @_;
-    my ($resulttext,%curr_usermodification,%changes,%modifyhash);
+    my ($resulttext,%curr_usermodification,%changes);
     if (ref($domconfig{'usermodification'}) eq 'HASH') {
         foreach my $key (keys(%{$domconfig{'usermodification'}})) {
-            if ($key eq 'selfcreate') {
-                $modifyhash{$key} = $domconfig{'usermodification'}{$key};
-            } else {  
-                $curr_usermodification{$key} = $domconfig{'usermodification'}{$key};
-            }
+            $curr_usermodification{$key} = $domconfig{'usermodification'}{$key};
         }
     }
-    my @contexts = ('author','course');
+    my @contexts = ('author','course','selfcreate');
     my %context_title = (
                            author => 'In author context',
                            course => 'In course context',
+                           selfcreate => 'When self creating account', 
                         );
     my @fields = ('lastname','firstname','middlename','generation',
                   'permanentemail','id');
@@ -8181,7 +7360,14 @@ sub modify_usermodification {
                   author => ['ca','aa'],
                   course => ['st','ep','ta','in','cr'],
                 );
+    my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
+    if (ref($types) eq 'ARRAY') {
+        push(@{$types},'default');
+        $usertypes->{'default'} = $othertitle;
+    }
+    $roles{'selfcreate'} = $types;  
     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);
@@ -8227,13 +7413,26 @@ sub modify_usermodification {
                     if (ref($changes{$context}) eq 'ARRAY') {
                         foreach my $role (@{$changes{$context}}) {
                             my $rolename;
-                            if ($role eq 'cr') {
-                                $rolename = &mt('Custom');
+                            if ($context eq 'selfcreate') {
+                                $rolename = $role;
+                                if (ref($usertypes) eq 'HASH') {
+                                    if ($usertypes->{$role} ne '') {
+                                        $rolename = $usertypes->{$role};
+                                    }
+                                }
                             } else {
-                                $rolename = &Apache::lonnet::plaintext($role);
+                                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: ');
+                            if ($context eq 'selfcreate') {
+                                $resulttext .= '<li><span class="LC_cusr_emph">'.&mt('Self-creation of account by users with status: [_1]',$rolename).'</span> - '.&mt('modifiable fields (if institutional data blank): ');
+                            } else {
+                                $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});
@@ -8873,8 +8072,8 @@ sub modify_coursedefaults {
     my %defaultchecked = ('canuse_pdfforms' => 'off');
     my @toggles = ('canuse_pdfforms');
     my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial',
-                   'uploadquota_community','uploadquota_textbook');
-    my @types = ('official','unofficial','community','textbook');
+                   'uploadquota_community');
+    my @types = ('official','unofficial','community');
     my %staticdefaults = (
                            anonsurvey_threshold => 10,
                            uploadquota          => 500,
@@ -8939,25 +8138,21 @@ sub modify_coursedefaults {
             }
         }
         my $officialcreds = $env{'form.official_credits'};
-        $officialcreds =~ s/[^\d.]+//g;
+        $officialcreds =~ s/^[^\d\.]//g;
         my $unofficialcreds = $env{'form.unofficial_credits'};
-        $unofficialcreds =~ s/[^\d.]+//g;
-        my $textbookcreds = $env{'form.textbook_credits'};
-        $textbookcreds =~ s/[^\d.]+//g;
+        $unofficialcreds =~ s/^[^\d\.]//g;
         if (ref($domconfig{'coursedefaults'}{'coursecredits'} ne 'HASH') &&
                 ($env{'form.coursecredits'} eq '1')) {
                 $changes{'coursecredits'} = 1;
         } else {
             if (($domconfig{'coursedefaults'}{'coursecredits'}{'official'} ne $officialcreds)  ||
-                ($domconfig{'coursedefaults'}{'coursecredits'}{'unofficial'} ne $unofficialcreds) ||
-                ($domconfig{'coursedefaults'}{'coursecredits'}{'textbook'} ne $textbookcreds)) {
+                ($domconfig{'coursedefaults'}{'coursecredits'}{'unofficial'} ne $unofficialcreds)) {
                 $changes{'coursecredits'} = 1;
             }
         }
         $defaultshash{'coursedefaults'}{'coursecredits'} = {
             official   => $officialcreds,
             unofficial => $unofficialcreds,
-            textbook   => $textbookcreds,
         }
     }
     my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,
@@ -8975,8 +8170,6 @@ sub modify_coursedefaults {
                             $defaultshash{'coursedefaults'}{'coursecredits'}{'official'};
                         $domdefaults{'unofficialcredits'} =
                             $defaultshash{'coursedefaults'}{'coursecredits'}{'unofficial'};
-                        $domdefaults{'textbookcredits'} =
-                            $domdefaults{'coursedefaults'}{'coursecredits'}{'textbook'};
                     }
                 }
                 if ($changes{'uploadquota'}) {
@@ -9007,8 +8200,6 @@ sub modify_coursedefaults {
                         $resulttext .= '<li>'.&mt('Default quota for content uploaded to a course/community via Course Editor set as follows:').'<ul>'.
                                        '<li>'.&mt('Official courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'official'}.'</b>').'</li>'.
                                        '<li>'.&mt('Unofficial courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'unofficial'}.'</b>').'</li>'.
-                                       '<li>'.&mt('Textbook courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'textbook'}.'</b>').'</li>'.
-
                                        '<li>'.&mt('Communities: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'community'}.'</b>').'</li>'.
                                        '</ul>'.
                                        '</li>';
@@ -9018,14 +8209,12 @@ sub modify_coursedefaults {
                 } elsif ($item eq 'coursecredits') {
                     if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {
                         if (($domdefaults{'officialcredits'} eq '') &&
-                            ($domdefaults{'unofficialcredits'} eq '') &&
-                            ($domdefaults{'textbookcredits'} eq '')) {
+                            ($domdefaults{'unofficialcredits'} eq '')) {
                             $resulttext .= '<li>'.&mt('Student credits not in use for courses in this domain').'</li>';
                         } else {
                             $resulttext .= '<li>'.&mt('Student credits can be set per course by a Domain Coordinator, with the following defaults applying:').'<ul>'.
                                            '<li>'.&mt('Official courses: [_1]',$defaultshash{'coursedefaults'}{'coursecredits'}{'official'}).'</li>'.
                                            '<li>'.&mt('Unofficial courses: [_1]',$defaultshash{'coursedefaults'}{'coursecredits'}{'unofficial'}).'</li>'.
-                                           '<li>'.&mt('Textbook courses: [_1]',$defaultshash{'coursedefaults'}{'coursecredits'}{'textbook'}).'</li>'.
                                            '</ul>'.
                                            '</li>';
                         }
@@ -9498,7 +8687,7 @@ sub modify_loadbalancing {
                                 }
                             }
                         }
-                        my $cachekey = &escape('loadbalancing').':'.&escape($dom);
+                        my $cachekey = &scape('loadbalancing').':'.&escape($dom);
                         &Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]);
                     }
                 }
@@ -9631,31 +8820,21 @@ sub active_dc_picker {
                       '<input type="'.$inputtype.'" name="'.$name.'"'.
                       ' value="'.$domcoord[$i].'"'.$check.' />'.$user;
             if ($user ne $dcname.':'.$dcdom) {
-                $table .=  ' ('.$dcname.':'.$dcdom.')';
+                $table .=  ' ('.$dcname.':'.$dcdom.')'.
+                           '</label></span></td>';
             }
-            $table .= '</label></span></td>';
         }
         $table .= '</tr></table>';
     } elsif ($numdcs == 1) {
-        my ($dcname,$dcdom) = split(':',$domcoord[0]);
-        my $user = &Apache::loncommon::plainname($dcname,$dcdom);
         if ($inputtype eq 'radio') {
-            $table .= '<input type="hidden" name="'.$name.'" value="'.$domcoord[0].'" />'.$user;
-            if ($user ne $dcname.':'.$dcdom) {
-                $table .=  ' ('.$dcname.':'.$dcdom.')';
-            }
+            $table .= '<input type="hidden" name="'.$name.'" value="'.$domcoord[0].'" />';
         } else {
             my $check;
             if (exists($currhash{$domcoord[0]})) {
                 $check = ' checked="checked"';
             }
-            $table .= '<span class="LC_nobreak"><label>'.
-                      '<input type="checkbox" name="'.$name.'" '.
-                      'value="'.$domcoord[0].'"'.$check.' />'.$user;
-            if ($user ne $dcname.':'.$dcdom) {
-                $table .=  ' ('.$dcname.':'.$dcdom.')';
-            }
-            $table .= '</label></span>';
+            $table .= '<input type="checkbox" name="'.$name.'" '.
+                      'value="'.$domcoord[0].'"'.$check.' />';
             $rows ++;
         }
     }