Index: openacs-4/contrib/obsolete-packages/postcard/www/send-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/postcard/www/send-card.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/postcard/www/send-card.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/postcard/www/send-card.tcl	21 Aug 2001 22:22:29 -0000	1.2
@@ -7,6 +7,7 @@
   @creation-date 2000-10-23
   @cvs-id $Id$
 } {
+  card_id:integer,notnull
   image_id:integer,notnull
   sender:notnull
   recipient:notnull
@@ -18,19 +19,26 @@
   url:onevalue
 }
 
-set card_id [db_nextval postcard_seq]
+ad_require_permission [ad_conn package_id] "postcard_create_card"
 
 set pickup_code [ns_crypt $card_id foobar]
 
-db_dml add_message {
-    insert into postcards (card_id, pickup_code, card_picture, recipient, sender, message)
-    values (:card_id, :pickup_code, :image_id, :recipient, :sender, :message)
-}
+db_transaction {
 
-db_0or1row select_card_id {
-    select max(card_id) as card_id from postcards
+    db_dml add_message {
+	insert into postcards (card_id, pickup_code, card_picture, recipient, sender, message)
+	values (:card_id, :pickup_code, :image_id, :recipient, :sender, :message)
+    }
+
+    db_0or1row select_card_id {
+	select max(card_id) as card_id from postcards
+    }
+
+} on_error { # most likely a double click
+    ad_returnredirect "."
 }
 
+
 set url "[util_current_location][ad_conn package_url]show-card?pickup_code=$pickup_code"
 
 
@@ -50,3 +58,5 @@
 "
 ns_sendmail $recipient $sender $subject $message
 
+
+