Index: openacs-4/contrib/obsolete-packages/postcard/www/write-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/postcard/www/write-card.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/postcard/www/write-card.tcl	5 Sep 2002 12:57:45 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/postcard/www/write-card.tcl	13 Jan 2005 13:54:32 -0000	1.4
@@ -9,11 +9,18 @@
 } {
     image_id:integer,notnull
 } -properties {
-  image_id:onevalue
-  image_value:onevalue
+    image_id:onevalue
+    image_value:onevalue
 }
 
-ad_require_permission [ad_conn package_id] "postcard_create_card"
+set user_id    [ad_conn user_id]
+set package_id [ad_conn package_id]
 
+permission::require_permission \
+    -party_id $user_id \
+    -privilege create \
+    -object_id $package_id
+
 set card_id [db_nextval postcard_sequence]
 
+set export_vars [export_vars -form {image_id card_id}]