Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql 14 Jan 2004 17:34:52 -0000 1.3 +++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql 2 May 2004 04:41:37 -0000 1.4 @@ -6,23 +6,24 @@ - insert into acs_mail_lite_bounce_notif - (select user_id, 0 as notification_count, - date_trunc('day',current_timestamp-1-:notification_interval) as notification_time + insert into acs_mail_lite_bounce_notif (user_id, notification_count, notification_time) + select user_id, 0 as notification_count, + date_trunc('day', current_timestamp - to_interval(1 + :notification_interval, 'days')) + as notification_time from acs_mail_lite_bounce - where bounce_count >= :max_bounce_count) + where bounce_count >= :max_bounce_count - select u.user_id, u.email, u.first_names || ' ' u.last_name as name + select u.user_id, u.email, u.first_names || ' ' || u.last_name as name from cc_users u, acs_mail_lite_bounce_notif n where u.user_id = n.user_id and u.email_bouncing_p = 't' - and n.notification_time < current_timestamp - :notification_interval + and n.notification_time < current_timestamp - to_interval(:notification_interval, 'days') and n.notification_count < :max_notification_count @@ -45,7 +46,7 @@ delete from acs_mail_lite_bounce where user_id in (select user_id from acs_mail_lite_mail_log - where last_mail_date < current_timestamp - :max_days_to_bounce) + where last_mail_date < current_timestamp - to_interval(:max_days_to_bounce, 'days'))