Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.tcl	28 May 2001 20:43:16 -0000	1.2
@@ -15,11 +15,11 @@
 
 if [string equal $action restore] {
 
-    db_dml t {
+    db_dml activate_area {
         update ttl_areas set active_p = 't' where area_id = :area_id
     }
 } else {
-    db_dml t {
+    db_dml inactivate_area {
         update ttl_areas set
             active_p = 'f'
         where area_id = :area_id
@@ -33,10 +33,10 @@
         # so we'll really delete it.
     
         db_transaction {
-            db_dml t {
+            db_dml delete_assignment {
                 delete from ttl_area_assignments where area_id = :area_id
             }
-            db_dml t {
+            db_dml delete_area {
                 delete from ttl_areas where area_id = :area_id
             }
         }