--- loncom/interface/domainprefs.pm	2008/02/29 19:07:06	1.44
+++ loncom/interface/domainprefs.pm	2008/02/29 21:01:36	1.45
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.44 2008/02/29 19:07:06 raeburn Exp $
+# $Id: domainprefs.pm,v 1.45 2008/02/29 21:01:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1300,7 +1300,7 @@ sub print_directorysrch {
         }
     }
     my ($searchtitles,$titleorder) = &sorted_searchtitles();
-    my ($othertitle,$usertypes,$types) = &Apache::Loncommon::sorted_inst_types($dom);
+    my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
 
     my $numinrow = 4;
     my $cansrchrow = 0;
@@ -1509,7 +1509,7 @@ sub print_usercreation {
             $rowcount ++;
         }
     } elsif ($position eq 'middle') {
-        my @creators = ('author','course','selfenroll');
+        my @creators = ('author','course','selfcreate');
         my ($rules,$ruleorder) =
             &Apache::lonnet::inst_userrules($dom,'username');
         my %lt = &usercreation_types();
@@ -1531,7 +1531,7 @@ sub print_usercreation {
         foreach my $item (@creators) {
             $rownum ++;
             if ($checked{$item} eq '') {
-                if ($item eq 'selfenroll') {
+                if ($item eq 'selfcreate') {
                     $checked{$item} = 'none';
                 } else {
                     $checked{$item} = 'any';
@@ -1547,7 +1547,7 @@ sub print_usercreation {
                          '<td><span class="LC_nobreak">'.$lt{$item}.
                          '</span></td><td align="right">';
             my @options = ('any');
-            if ($item eq 'selfenroll') {
+            if ($item eq 'selfcreate') {
                 push(@options,('email','login','sso'));
             } else {
                 if (ref($rules) eq 'HASH') {
@@ -1626,7 +1626,7 @@ sub user_formats_row {
     my %text = (
                    'username' => 'new usernames',
                    'id'       => 'IDs',
-                   'email'    => 'e-mail addresses of self-enrollers',
+                   'email'    => 'self-created accounts (e-mail)',
                );
     my $css_class = $rowcount%2?' class="LC_odd_row"':'';
     $output = '<tr '.$css_class.'>'.
@@ -1677,7 +1677,7 @@ sub usercreation_types {
     my %lt = &Apache::lonlocal::texthash (
                     author     => 'When adding a co-author',
                     course     => 'When adding a user to a course',
-                    selfenroll => 'When a user is self-enrolling', 
+                    selfcreate => 'User creates own account', 
                     any        => 'Any',
                     official   => 'Institutional only ',
                     unofficial => 'Non-institutional only',
@@ -3181,10 +3181,10 @@ sub modify_usercreation {
     my @username_rule = &Apache::loncommon::get_env_multiple('form.username_rule');
     my @id_rule = &Apache::loncommon::get_env_multiple('form.id_rule');
     my @email_rule = &Apache::loncommon::get_env_multiple('form.email_rule');
-    my @contexts = ('author','course','selfenroll');
+    my @contexts = ('author','course','selfcreate');
     foreach my $item(@contexts) {
         $cancreate{$item} = $env{'form.can_createuser_'.$item};
-        if ($item eq 'selfenroll') {
+        if ($item eq 'selfcreate') {
             my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
             if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) || ($domdefaults{'auth_def'} eq 'localauth'))) {
                 if (($cancreate{$item} eq 'any') || ($cancreate{$item} eq 'login')) {
@@ -3311,7 +3311,7 @@ sub modify_usercreation {
                 my %lt = &usercreation_types();
                 foreach my $type (@{$changes{'cancreate'}}) {
                     my $chgtext =  $lt{$type}.', ';
-                    if ($type eq 'selfenroll') {
+                    if ($type eq 'selfcreate') {
                         if ($cancreate{$type} eq 'none') {
                             $chgtext .= &mt('creation of a new user account is not permitted.');
                         } elsif ($cancreate{$type} eq 'any') {