Index: openacs-4/packages/acs-subsite/www/admin/parties/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/parties/one.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/parties/one.tcl	18 Sep 2002 14:54:52 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/parties/one.tcl	27 Oct 2014 16:39:52 -0000	1.5
@@ -9,7 +9,7 @@
     @creation-date 2001-02-06
     @cvs-id $Id$
 } {
-    party_id:integer,notnull
+    party_id:naturalnum,notnull
 } -properties {
     context:onevalue
     party_id:onevalue
@@ -60,8 +60,8 @@
 }
 
 set user_id [ad_conn user_id]
-set write_p [ad_permission_p $party_id "write"]
-set admin_p [ad_permission_p $party_id "admin"]
+set write_p [permission::permission_p -object_id $party_id -privilege "write"]
+set admin_p [permission::permission_p -object_id $party_id -privilege "admin"]
 
 set context [list [list "" "Parties"] "One Party"]