--- loncom/interface/loncreateuser.pm	2005/06/23 21:59:13	1.107
+++ loncom/interface/loncreateuser.pm	2005/09/13 19:13:22	1.109
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.107 2005/06/23 21:59:13 www Exp $
+# $Id: loncreateuser.pm,v 1.109 2005/09/13 19:13:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -665,7 +665,7 @@ END
 	my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
 	if ($currentauth=~/^krb(4|5):/) {
 	    $currentauth=~/^krb(4|5):(.*)/;
-	    my $krbdefdom=$1;
+	    my $krbdefdom=$2;
             my %param = ( formname => 'document.cu',
                           kerb_def_dom => $krbdefdom 
                           );
@@ -1550,6 +1550,7 @@ sub set_custom_role {
 						$env{'user.name'},
 						$rolename));
     }
+    $r->print('<p><a href="/adm/createuser">Create another role, or Create/Modify a user.</a></p>');
     $r->print('</body></html>');
 }