X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fradiator.pm;h=2ac3edb2254ca967a682809db6a162c62b794ca0;hb=246e76618447bb7ac436e9bfb8c0b042f9613326;hp=7fa948593f535fe15d0e7082cc224512c17e7953;hpb=b0f8738e17758e071dd65b9d6574535d66595673;p=freeside.git

diff --git a/FS/FS/part_export/radiator.pm b/FS/FS/part_export/radiator.pm
index 7fa948593..2ac3edb22 100644
--- a/FS/FS/part_export/radiator.pm
+++ b/FS/FS/part_export/radiator.pm
@@ -68,7 +68,7 @@ sub _radiator_hash {
   my( $self, $svc_acct ) = @_;
   my %hash = (
     'username'  => $self->export_username($svc_acct),
-    'pass_word' => $svc_acct->_password,
+    'pass_word' => $svc_acct->crypt_password,
     'fullname'  => $svc_acct->finger,
     map { my $method = "radius_$_"; $_ => $svc_acct->$method(); }
         qw( framed_filter_id framed_mtu framed_netmask framed_protocol
@@ -82,7 +82,7 @@ sub _radiator_hash {
   $hash{'servicename'} = ( $svc_acct->radius_groups )[0];
 
   my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
-  $hash{validto} = $cust_pkg->bill
+  $hash{'validto'} = $cust_pkg->bill
     if $cust_pkg && $cust_pkg->part_pkg->is_prepaid && $cust_pkg->bill;
 
   #some other random stuff, should probably be attributes or virtual fields
@@ -93,6 +93,8 @@ sub _radiator_hash {
     if $cust_pkg && $cust_pkg->setup;
   $hash{'validfrom'} = $cust_pkg->last_bill || $cust_pkg->setup
     if $cust_pkg &&  ( $cust_pkg->last_bill || $cust_pkg->setup );
+  $hash{'state'} = $cust_pkg->susp ? 1 : 0
+    if $cust_pkg;
 
   %hash;
 }