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 -N -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/acs-admin/www/users/one.adp 17 Dec 2002 14:27:02 -0000 1.5.2.1
+++ openacs-4/packages/acs-admin/www/users/one.adp 2 Aug 2003 06:04:11 -0000 1.5.2.2
@@ -23,6 +23,15 @@
Portrait: @portrait_title@
+
+
+
+
+ WARNING: 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.
+
+
+
Member state: @member_state@ @user_finite_state_links@
This user is a member of the following groups:
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'"] {