Index: openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl	13 Feb 2006 12:29:26 -0000	1.3
+++ openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl	27 Oct 2014 16:40:21 -0000	1.4
@@ -27,7 +27,7 @@
 set user_id [ad_conn user_id]
 
 set context [list]
-set create_p [ad_permission_p $package_id create]
+set create_p [permission::permission_p -object_id $package_id -privilege create]
 
 set actions [list]