Index: openacs-4/contrib/obsolete-packages/postcard/www/add-picture-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/postcard/www/add-picture-2.tcl,v
diff -u -r1.6 -r1.6.8.1
--- openacs-4/contrib/obsolete-packages/postcard/www/add-picture-2.tcl	5 Sep 2002 12:57:45 -0000	1.6
+++ openacs-4/contrib/obsolete-packages/postcard/www/add-picture-2.tcl	7 Oct 2004 18:58:03 -0000	1.6.8.1
@@ -13,9 +13,13 @@
     {description:notnull}
 }
 
-set user_id [ad_verify_and_get_user_id]
+set user_id    [ad_conn user_id]
+set package_id [ad_conn package_id]
 
-ad_require_permission [ad_conn package_id] "postcard_create_image"
+permission::require_permission \
+    -party_id $user_id \
+    -privilege create \
+    -object_id $package_id
 
 set tmp_filename [ns_queryget upload_file.tmpfile]