--- loncom/lond	2000/12/13 16:41:43	1.31
+++ loncom/lond	2000/12/13 22:45:56	1.33
@@ -477,6 +477,8 @@ sub make_new_child {
                        my 
                        ($cmd,$udom,$uname,$upass,$npass)=split(/:/,$userinput);
                        chomp($npass);
+                       $upass=&unescape($upass);
+                       $npass=&unescape($npass);
                        my $proname=propath($udom,$uname);
                        my $passfilename="$proname/passwd";
                        if (-e $passfilename) {
@@ -511,6 +513,7 @@ sub make_new_child {
                        my 
                        ($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput);
                        chomp($npass);
+                       $npass=&unescape($npass);
                        my $proname=propath($udom,$uname);
                        my $passfilename="$proname/passwd";
                        if (-e $passfilename) {
@@ -531,10 +534,10 @@ sub make_new_child {
                            }
                            unless ($fperror) {
 			     if ($umode eq 'none') {
-			     } elsif ($umode eq 'kerberos') {
+			     } elsif ($umode eq 'krb4') {
                                { 
                                  my $pf = IO::File->new(">$passfilename");
- 	  		         print $pf "kerberos:$npass\n"; 
+ 	  		         print $pf "krb4:$npass\n"; 
                                }             
                                print $client "ok\n";
                              } elsif ($umode eq 'internal') {