Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl,v
diff -u -r1.4 -r1.4.4.1
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl	1 Mar 2002 19:47:15 -0000	1.4
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl	20 Jan 2003 14:20:06 -0000	1.4.4.1
@@ -72,12 +72,25 @@
         and p1.person_id = :caller_id
     }
 
-    ns_sendmail "[join $people_to_email ,]" $ticket_creator_email $name "
-Ticket added by $ticket_creator_name in '$area_name'
+    set recipients "[join $people_to_email ,]"
 
-$message
+    set notif_message "Ticket added by $ticket_creator_name in '$area_name'
 
-[util_current_location][ad_conn package_url]ticket?ticket_id=$ticket_id"
+       $message
+
+       [util_current_location][ad_conn package_url]ticket?ticket_id=$ticket_id"
+
+
+    if { [catch {ns_sendmail \
+                     $recipients \
+                     $ticket_creator_email \
+                     $name \
+                     $notif_message } errmsg ] } {
+        ad_return_error \
+            "Email failed" \
+            "ticket-tracker-lite - ticket-add-2.tcl: \n
+             The email could not be sent. Error was : $errmsg"
+    }
 }
 
 ad_returnredirect ticket?ticket_id=$ticket_id