From: 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