diff options
author | lpsolit%gmail.com <> | 2007-01-06 23:20:16 +0100 |
---|---|---|
committer | lpsolit%gmail.com <> | 2007-01-06 23:20:16 +0100 |
commit | 685d0e4e57f0bf6bef927fe3a1abb01331ca69f4 (patch) | |
tree | 162d9251ab74fb3d5ee27edcfc0a825ae67f4247 /contrib | |
parent | f831ad08bc165c3b6ca609c1798bab7285bdbbd7 (diff) | |
download | bugzilla-685d0e4e57f0bf6bef927fe3a1abb01331ca69f4.tar.gz bugzilla-685d0e4e57f0bf6bef927fe3a1abb01331ca69f4.tar.xz |
Bug 365593: bz_webservices_demo.pl does not match the API as defined in the Webservices code - Patch by Mads Bondo Dydensborg <mbd@dbc.dk> r=mkanat a=myk
Diffstat (limited to 'contrib')
-rwxr-xr-x | contrib/bz_webservice_demo.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/bz_webservice_demo.pl b/contrib/bz_webservice_demo.pl index 19bbcc59e..aa92d1dd9 100755 --- a/contrib/bz_webservice_demo.pl +++ b/contrib/bz_webservice_demo.pl @@ -212,12 +212,12 @@ The call will return a C<Bugzilla::Bug> object. =cut if ($bug_id) { - $soapresult = $proxy->call('Bug.get_bug', { ids => [$bug_id] }); + $soapresult = $proxy->call('Bug.get_bugs', { ids => [$bug_id] }); _die_on_fault($soapresult); $result = $soapresult->result; - - foreach (keys(%$result)) { - print "$_: $$result{$_}\n"; + my $bug = $result->{bugs}->[0]; + foreach (keys(%$bug)) { + print "$_: $$bug{$_}\n"; } } |