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.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl	28 May 2001 20:43:16 -0000	1.2
@@ -19,7 +19,7 @@
 
 db_transaction {
 
-    db_dml t {
+    db_dml add_ticket {
         declare
             v_object_id     integer;
         begin
@@ -41,7 +41,7 @@
         end;
     }
 
-    db_dml t {
+    db_dml insert_assignment {
         insert into ttl_assignments (user_id, ticket_id)
         select user_id, :ticket_id
         from ttl_area_assignments
@@ -51,7 +51,7 @@
 
 # now that the transaction is over, let's send out the email
 
-db_foreach t {
+db_foreach get_recipient_email {
     select p.email 
     from parties p, ttl_assignments a
     where a.ticket_id = :ticket_id
@@ -61,7 +61,7 @@
 }
 
 if [exists_and_not_null people_to_email] {
-    db_1row t {
+    db_1row get_sender_email {
         select 
             p1.first_names || ' ' || p1.last_name as ticket_creator_name,
             p2.email as ticket_creator_email,