Index: openacs.org-dev/packages/acs-admin/www/users/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-admin/www/users/one.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-admin/www/users/one.tcl	9 Jul 2002 17:34:56 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-admin/www/users/one.tcl	8 Oct 2002 15:46:41 -0000	1.1.1.2
@@ -8,7 +8,7 @@
 } {
     user_id
 } -properties {
-    context_bar:onevalue
+    context:onevalue
     first_names:onevalue
     last_name:onevalue
     email:onevalue
@@ -30,9 +30,15 @@
     return
 }
 
+if [db_0or1row user_is_admin "select privilege from acs_permissions where object_id = 0 and grantee_id = :user_id and privilege = 'admin'"] {
+    set admin_p 1
+} else {
+    set admin_p 0
+}
+
 set return_url "/acs-admin/users/one?user_id=$user_id"
 
-set context_bar [ad_admin_context_bar [list "index.tcl" "Users"] "One User"]
+set context [list [list "./" "Users"] "One User"]
 set export_edit_vars [export_url_vars user_id return_url]
 set registration_date [util_AnsiDatetoPrettyDate $creation_date]