From: ivan <ivan>
Date: Thu, 17 Oct 2002 14:37:56 +0000 (+0000)
Subject: fix sqlradacct calculations for old Pg
X-Git-Tag: freeside_1_4_1beta5~40
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=37c0ba2a91246a5dcc24893481d9c67357500062;p=freeside.git

fix sqlradacct calculations for old Pg
---

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 78087e9ec..c56e1be52 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -384,7 +384,7 @@ sub seconds_since_sqlradacct {
                                WHERE UserName = ?
                                  AND $str2time AcctStartTime) >= ?
                                  AND $str2time AcctStopTime ) <  ?
-                                 AND AcctStopTime =! 0
+                                 AND $str2time AcctStopTime ) =! 0
                                  AND AcctStopTime IS NOT NULL"
     ) or die $dbh->errstr;
     $sth->execute($username, $start, $end) or die $sth->errstr;
@@ -396,7 +396,7 @@ sub seconds_since_sqlradacct {
                             WHERE UserName = ?
                               AND $str2time AcctStartTime ) >= ?
                               AND ( ? - $str2time AcctStartTime ) < 86400
-                              AND (    AcctStopTime = 0
+                              AND (    $str2time AcctStopTime ) = 0
                                     OR AcctStopTime IS NULL )"
     ) or die $dbh->errstr;
     $sth->execute($end, $username, $start, $end) or die $sth->errstr;
@@ -410,7 +410,7 @@ sub seconds_since_sqlradacct {
                               AND $str2time AcctStartTime ) < ?
                               AND $str2time AcctStopTime  ) >= ?
                               AND $str2time AcctStopTime  ) <  ?
-                              AND AcctStopTime != 0
+                              AND $str2time AcctStopTime ) != 0
                               AND AcctStopTime IS NOT NULL"
     ) or die $dbh->errstr;
     $sth->execute($start, $username, $start, $start, $end ) or die $sth->errstr;
@@ -440,10 +440,6 @@ sub seconds_since_sqlradacct {
 
 =back
 
-=head1 VERSION
-
-$Id: cust_svc.pm,v 1.15.4.2 2002-10-17 14:16:20 ivan Exp $
-
 =head1 BUGS
 
 Behaviour of changing the svcpart of cust_svc records is undefined and should