summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--FS/FS/cust_svc.pm10
1 files changed, 3 insertions, 7 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 50d94452a..bed6a0ab3 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -380,7 +380,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;
@@ -393,7 +393,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;
@@ -407,7 +407,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;
@@ -438,10 +438,6 @@ sub seconds_since_sqlradacct {
=back
-=head1 VERSION
-
-$Id: cust_svc.pm,v 1.19 2002-10-17 14:16:17 ivan Exp $
-
=head1 BUGS
Behaviour of changing the svcpart of cust_svc records is undefined and should