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.2.1 -r1.3.2.2 --- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql 4 May 2004 04:32:12 -0000 1.3.2.1 +++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql 20 May 2004 18:48:31 -0000 1.3.2.2 @@ -6,8 +6,7 @@ - insert into acs_mail_lite_bounce_notif (user_id, - notification_count, 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 @@ -24,8 +23,7 @@ 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 - - to_interval(:notification_interval, 'days') + and n.notification_time < current_timestamp - to_interval(:notification_interval, 'days') and n.notification_count < :max_notification_count @@ -48,8 +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 - - to_interval(:max_days_to_bounce, 'days')) + where last_mail_date < current_timestamp - to_interval(:max_days_to_bounce, 'days'))