--- loncom/lcpasswd	2003/02/03 18:03:52	1.19
+++ loncom/lcpasswd	2005/03/26 20:40:18	1.20
@@ -7,7 +7,7 @@
 # YEAR=2002
 # 02/19 Matthew Hall
 #
-# $Id: lcpasswd,v 1.19 2003/02/03 18:03:52 harris41 Exp $
+# $Id: lcpasswd,v 1.20 2005/03/26 20:40:18 albertel Exp $
 ###
 
 ###############################################################################
@@ -159,9 +159,9 @@ open OUT,"|pwchange $safeusername";
 print OUT $password1;
 print OUT "\n";
 close OUT;
-($>,$<)=(0,500);
+($>,$<)=(0,$wwwid);
 
-print "pwchange done, back to uid 500" unless $noprint;
+print "pwchange done, back to uid $wwwid" unless $noprint;
 
 if ($?) {
     exit 8;