Index: openacs-4/packages/acs-admin/www/users/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/one.tcl,v
diff -u -N -r1.5.2.3 -r1.5.2.4
--- openacs-4/packages/acs-admin/www/users/one.tcl	15 Apr 2003 09:13:04 -0000	1.5.2.3
+++ openacs-4/packages/acs-admin/www/users/one.tcl	2 Aug 2003 06:04:11 -0000	1.5.2.4
@@ -30,6 +30,18 @@
     return
 }
 
+#
+# RBM: Check if the requested user is a site-wide admin and warn the 
+# viewer in that case (so that a ban/deletion can be avoided).
+#
+
+set site_wide_admin_p [acs_user::site_wide_admin_p -user_id $user_id]
+set warning_p 0
+
+if { $site_wide_admin_p } {
+    set warning_p 1
+}
+
 set public_link [acs_community_member_url -user_id $user_id]
 set sec_context_root [acs_magic_object "security_context_root"] 
 if [db_0or1row user_is_admin "select privilege from acs_permissions where object_id = :sec_context_root and grantee_id = :user_id and privilege = 'admin'"] {