From: ivan <ivan>
Date: Wed, 5 Aug 2009 02:27:35 +0000 (+0000)
Subject: export negative byte values to chillispot attributes as 0, RT#5815
X-Git-Tag: root_of_svc_elec_features~947
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=d6107b6ae3fce55df974ac0a603443adb1d14ba7

export negative byte values to chillispot attributes as 0, RT#5815
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index ac978640d..74bbd1ac4 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -1455,7 +1455,7 @@ sub radius_reply {
       my $is = $whatis{$what}.'bytes';
       if ( $self->$is() =~ /\d/ ) {
         my $big = new Math::BigInt $self->$is();
-        $big = new Math::BigInto '0' if $big->is_neg();
+        $big = new Math::BigInt '0' if $big->is_neg();
         my $att = "Chillispot-Max-\u$what";
         $reply{"$att-Octets"}    = $big->copy->band(0xffffffff)->bstr;
         $reply{"$att-Gigawords"} = $big->copy->brsft(32)->bstr;