--- /var/www/twiki/lib/TWiki/User.pm	2004-12-22 20:04:29.000000000 -0800
+++ User.pm	2005-04-07 09:47:53.000000000 -0700
@@ -151,6 +151,31 @@
     return $handler->UpdateUserPassword($user, $oldUserPassword, $newUserPassword);
 }
 
+#=========================
+=pod
+
+---++ OverwriteUserPassword( $user, $newUserPasword ) => $success
+| Description: | used to overwrite existing user's password |
+| Parameter: =$user= | the username we are replacing |
+| Parameter: =$newUserPassword= | unencrypted password |
+| Return: =$success= | "1" if success |
+| TODO: | same as UpdateUserPassword (see upwards) |
+| Notes: | ditto |
+
+=cut
+
+sub OverwriteUserPassword
+{
+    my ($user,$newUserPassword) = @_;
+
+        if($user =~ /AnonymousContributor/) { 
+		return;
+	}
+
+    my $handler = _getUserHandler();
+    return $handler->OverwriteUserPassword($user,$newUserPassword);
+}
+
 #========================= 
 =pod