--- loncom/Attic/lcuseradd	2000/10/30 02:42:17	1.9
+++ loncom/Attic/lcuseradd	2000/10/30 02:50:23	1.10
@@ -169,7 +169,7 @@ if (!defined($userid)) {
 }
 
 # Construct new password entry (random salt)
-my $newcryptpwd=crypt($newpwd,(join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]));
+my $newcryptpwd=crypt($password1,(join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]));
 $U[1]=$newcryptpwd;
 my $userline=join(':',@U);
 my $rootid=&enable_root_capability;
@@ -205,8 +205,8 @@ unless ($smbexist) {
     close OUT;
 }
 open(OUT,"|/usr/bin/smbpasswd -s $safeusername>/dev/null");
-print OUT $newpwd; print OUT "\n";
-print OUT $newpwd; print OUT "\n";
+print OUT $password1; print OUT "\n";
+print OUT $password1; print OUT "\n";
 close OUT;
 $<=$wwwid; # unfool the program