Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql 20 May 2004 18:54:33 -0000 1.5
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql 29 Nov 2005 11:28:26 -0000 1.6
@@ -44,7 +44,7 @@
delete from acs_mail_lite_bounce
- where user_id in (select user_id
+ where party_id in (select party_id
from acs_mail_lite_mail_log
where last_mail_date < sysdate - :max_days_to_bounce)
@@ -68,15 +68,15 @@
update acs_mail_lite_mail_log
set last_mail_date = sysdate
- where user_id = :user_id
+ where party_id = :user_id
- insert into acs_mail_lite_mail_log (user_id, last_mail_date)
+ insert into acs_mail_lite_mail_log (party_id, last_mail_date)
values (:user_id, sysdate)