Index: openacs-4/packages/postcard/www/confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/postcard/www/confirm.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/postcard/www/confirm.tcl	5 Sep 2002 12:57:45 -0000	1.5
+++ openacs-4/packages/postcard/www/confirm.tcl	13 Jan 2005 13:58:37 -0000	1.6
@@ -21,7 +21,21 @@
   message:onevalue
 }
 
+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 export_vars [export_vars -form {image_id recipient subject message card_id}]
+
 # Insert a new postcard in the database, set card_id to the card id value
-ad_require_permission [ad_conn package_id] "postcard_create_card"
 ad_get_user_info
 set sender $email
+
+
+set formatted_message $message
+regsub -all "\n" $message "<br>" formatted_message
+