Index: openacs-4/packages/acs-admin/www/users/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/one.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-admin/www/users/one.adp	22 May 2003 14:00:20 -0000	1.7
+++ openacs-4/packages/acs-admin/www/users/one.adp	2 Aug 2003 06:22:37 -0000	1.8
@@ -23,8 +23,17 @@
   <li>Portrait:  <a href="/shared/portrait?user_id=@user_id@">@portrait_title@</a></li>
 </if>
 </ul>
-Member state: @member_state@ @user_finite_state_links;noquote@
 
+<if @warning_p@>
+    <!-- RBM: Added August 1, 2003 --!>
+    <p>
+      <b>WARNING:</b> This user is a site-wide administrator (maybe the only one).
+      Deleting or banning this user may mean you will be unable to administrate the site.
+    </p>
+</if>
+
+Member state: @member_state@ @user_finite_state_links@
+
 <h2>This user is a member of the following groups:</h2>
 <p>Note: These are the groups to which the user has been granted 
 <em>direct</em> membership.</p>
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 -r1.8 -r1.9
--- openacs-4/packages/acs-admin/www/users/one.tcl	17 May 2003 09:36:54 -0000	1.8
+++ openacs-4/packages/acs-admin/www/users/one.tcl	2 Aug 2003 06:22:37 -0000	1.9
@@ -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'"] {