Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.tcl	28 May 2001 20:43:16 -0000	1.2
@@ -14,7 +14,7 @@
 
     db_transaction {
     
-        set area_id [db_exec_plsql T {
+        set area_id [db_exec_plsql new_area {
           begin
            :1 := acs_object.new(
                 object_type   => 'ticket_tracker_lite_area',
@@ -25,14 +25,14 @@
           end;
         }]
     
-        db_dml t {
+        db_dml insert_area {
             insert into ttl_areas (area_id, name)
             values (:area_id, :name)
         }
     }
 
 } else {
-    db_dml t {
+    db_dml update_area {
         update ttl_areas set name = :name where area_id = :area_id
     }
 }