diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-10-10 18:00:03 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-10-10 18:00:03 -0700 |
commit | f5540dd87ad191257c3c1364993fc275bb68c881 (patch) | |
tree | 367826a4e0f490a8e3d4aac97843f470de662512 /FS/FS/part_export/acct_xmlrpc.pm | |
parent | 78f3e48a06323851ea2d656f5665d22fa425496f (diff) |
fix "no url defined" error, RT#19849
Diffstat (limited to 'FS/FS/part_export/acct_xmlrpc.pm')
-rw-r--r-- | FS/FS/part_export/acct_xmlrpc.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/FS/FS/part_export/acct_xmlrpc.pm b/FS/FS/part_export/acct_xmlrpc.pm index 3070f28..4c896b4 100644 --- a/FS/FS/part_export/acct_xmlrpc.pm +++ b/FS/FS/part_export/acct_xmlrpc.pm @@ -5,6 +5,7 @@ use vars qw( %info ); # $DEBUG ); #use Data::Dumper; use Tie::IxHash; use Frontier::Client; #to avoid adding a dependency on RPC::XML just now +use Frontier::RPC2; #use FS::Record qw( qsearch qsearchs ); use FS::Schema qw( dbdef ); @@ -189,18 +190,18 @@ sub _export_value { if ( $fields{$value} ) { my $type = dbdef->table('svc_acct')->column($value)->type; if ( $type =~ /^(int|serial)/i ) { - return Frontier::Client->new->int( $svc_acct->$value() ); + return Frontier::RPC2::Integer->new( $svc_acct->$value() ); } elsif ( $value =~ /^last_log/ ) { - return Frontier::Client->new->date_time( $svc_acct->$value() ); #conversion? + return Frontier::RPC2::DateTime::ISO8601->new( $svc_acct->$value() ); #conversion? } else { - return Frontier::Client->new->string( $svc_acct->$value() ); + return Frontier::RPC2::String->new( $svc_acct->$value() ); } } elsif ( $value eq 'domain' ) { - return Frontier::Client->new->string( $svc_acct->domain ); + return Frontier::RPC2::String->new( $svc_acct->domain ); } elsif ( $value eq 'crypt_password' ) { - return Frontier::Client->new->string( $svc_acct->crypt_password( $self->option('crypt') ) ); + return Frontier::RPC2::String->new( $svc_acct->crypt_password( $self->option('crypt') ) ); } elsif ( $value eq 'ldap_password' ) { - return Frontier::Client->new->string( $svc_acct->ldap_password($self->option('crypt') ) ); + return Frontier::RPC2::String->new( $svc_acct->ldap_password($self->option('crypt') ) ); } elsif ( $value eq 'radius_groups' ) { my @radius_groups = $svc_acct->radius_groups; #XXX |