Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.tcl	28 May 2001 20:43:16 -0000	1.2
@@ -18,7 +18,7 @@
 
 if [info exists update_clause] {
 
-    db_dml t "update ttl_prefs set [string trimright $update_clause ,] where user_id = :caller_id"
+    db_dml update_prefs "update ttl_prefs set [string trimright $update_clause ,] where user_id = :caller_id"
 
     if {[db_resultrows] == 0} {
 
@@ -27,7 +27,7 @@
         set mine_p  [ttl_util_default mine_p t]
         set area_id [ttl_util_default area_id]
 
-        db_dml t {
+        db_dml insert_pref {
         insert into ttl_prefs (user_id, sort, status, mine_p, area_id) 
         values (:caller_id, :sort, :status, :mine_p, :area_id)}
     }