Index: openacs.org-dev/packages/postcard/www/send-card.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/postcard/www/send-card.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/postcard/www/send-card.tcl	9 Jul 2002 17:35:11 -0000	1.1.1.1
+++ openacs.org-dev/packages/postcard/www/send-card.tcl	8 Oct 2002 15:47:18 -0000	1.1.1.2
@@ -9,7 +9,6 @@
 } {
   card_id:integer,notnull
   image_id:integer,notnull
-  sender:notnull
   recipient:notnull
   subject:notnull
   message:notnull
@@ -23,6 +22,10 @@
 
 set pickup_code [ns_crypt $card_id foobar]
 
+# Don't take the email from the poster. Pull it out of the db instead.
+ad_get_user_info
+set sender $email
+
 db_transaction {
 
     db_dml add_message {
@@ -36,6 +39,7 @@
 
 } on_error { # most likely a double click
     ad_returnredirect "."
+    # continue here to send mail!
 }
 
 
@@ -51,7 +55,7 @@
 }
 
 set message  "
-You have received a postcard from $sender.
+You have received a postcard from $first_names $last_name ($sender).
 
 You may go to $url to pick up your card!