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.4 -r1.5
--- openacs-4/contrib/obsolete-packages/postcard/www/send-card.tcl	18 Sep 2002 12:02:33 -0000	1.4
+++ openacs-4/contrib/obsolete-packages/postcard/www/send-card.tcl	13 Jan 2005 13:54:32 -0000	1.5
@@ -18,8 +18,14 @@
   url: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 pickup_code [ns_crypt $card_id foobar]
 
 # Don't take the email from the poster. Pull it out of the db instead.
@@ -57,10 +63,13 @@
 set message  "
 You have received a postcard from $first_names $last_name ($sender).
 
-You may go to $url to pick up your card!
+You may go to $url to pick up your card!"
 
-"
-ns_sendmail $recipient $sender $subject $message
+acs_mail_lite::send \
+    -to_addr $recipient \
+    -from_addr $sender \
+    -subject $subject \
+    -body $message