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.1 -r1.2
--- openacs-4/contrib/obsolete-packages/postcard/www/write-card.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/postcard/www/write-card.tcl	21 Aug 2001 22:22:29 -0000	1.2
@@ -13,4 +13,8 @@
   image_value:onevalue
 }
 
+ad_require_permission [ad_conn package_id] "postcard_create_card"
+
+set card_id [db_nextval postcard_sequence]
+
 ad_return_template