From 2779cc10136f9d3e42e3ea919cec8f9d36fc228f Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 18 Jun 2011 15:25:43 +0200
Subject: [PATCH] force string for $code

---
 ferweb-xmlrpc.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ferweb-xmlrpc.pl b/ferweb-xmlrpc.pl
index 2b19cd2..3453564 100755
--- a/ferweb-xmlrpc.pl
+++ b/ferweb-xmlrpc.pl
@@ -21,7 +21,7 @@ my $login_id = $auth->send_request('auth.rlogin', '_koha', $ENV{PASSWD} )->value
 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), $/;
 
-- 
2.20.1