projects
/
ferlib2koha.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6fc812e
)
force string for $code
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 18 Jun 2011 13:25:43 +0000
(15:25 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 18 Jun 2011 13:25:43 +0000
(15:25 +0200)
ferweb-xmlrpc.pl
patch
|
blob
|
history
diff --git
a/ferweb-xmlrpc.pl
b/ferweb-xmlrpc.pl
index
2b19cd2
..
3453564
100755
(executable)
--- 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), $/
;