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 -N -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	2 May 2004 04:41:37 -0000	1.4
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql	27 Sep 2005 16:48:40 -0000	1.4.2.1
@@ -8,7 +8,8 @@
 
        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'))
+           date_trunc('day', current_timestamp - ( (1 +
+       :notification_interval || 'days') :: interval ) )
            as notification_time
         from acs_mail_lite_bounce
         where bounce_count >= :max_bounce_count
@@ -23,7 +24,8 @@
        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 -
+       ((:notification_interval || 'days') :: interval)
        and n.notification_count < :max_notification_count
 
      </querytext>
@@ -46,7 +48,8 @@
        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 -
+       ((:max_days_to_bounce || 'days') :: interval))
 
      </querytext>
    </fullquery>