Index: openacs-4/packages/acs-subsite/www/user/portrait/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	15 Aug 2003 21:18:13 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	28 Aug 2003 09:41:43 -0000	1.6
@@ -25,12 +25,15 @@
 
 if [empty_string_p $user_id] {
     set user_id $current_user_id
-    set admin_p 0
-} else {
+}
+
+if { $current_user_id == $user_id } {
     set admin_p 1
+    ad_require_permission $user_id "write"
+} else {
+    set admin_p 0
 }
 
-ad_require_permission $user_id "write"
 
 if ![db_0or1row user_info "select 
   first_names,