insert new borrowers in koha

[ferlib2koha.git] / ferweb-xmlrpc.pl

diff --git a/ferweb-xmlrpc.pl b/ferweb-xmlrpc.pl
index 2b19cd2..0fc459e 100755 (executable)
--- a/ferweb-xmlrpc.pl
+++ b/ferweb-xmlrpc.pl
@@ -17,11 +17,12 @@ my $code = shift @ARGV;
 my $auth = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_auth.php');
 
 my $login_id = $auth->send_request('auth.rlogin', '_koha', $ENV{PASSWD} )->value;
+die dump $login_id if ref $login_id eq 'HASH';
 
 warn "# login_id $login_id\n";
 
 my $users = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_users.php');
-my $res = $users->send_request('users.getinfobycode',$login_id, $code)->value;
+my $res = $users->send_request('users.getinfobycode',$login_id, RPC::XML::string->new($code) )->value;
 
-print "[$code] = ", dump $res;
+print "[$code] = ", dump($res), $/;