Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl	29 Oct 2003 13:07:59 -0000	1.28
+++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl	29 Oct 2003 13:28:44 -0000	1.29
@@ -344,6 +344,13 @@
                     # Updating/deleting a user that doesn't exist
                     set success_p 0
                     set result(message) "A user with username '$username' does not exist"
+                } else {
+                    acs_user::get -user_id $user_id -array existing_user_info
+                    if { [string equal $existing_user_info(member_state) "banned"] } {
+                        # Updating/deleting a user that's already deleted
+                        set success_p 0
+                        set result(message) "The user with username '$username' has been deleted (banned)"
+                    }
                 }
             }
             insert {