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 @@
    <fullquery name="acs_mail_lite::check_bounces.send_notification_to_bouncing_email">
      <querytext>
 
-       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
 
      </querytext>
    </fullquery>
 
    <fullquery name="acs_mail_lite::check_bounces.get_recent_bouncing_users">
      <querytext>
 
-       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
 
      </querytext>
@@ -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'))
 
      </querytext>
    </fullquery>