From 685d0e4e57f0bf6bef927fe3a1abb01331ca69f4 Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Sat, 6 Jan 2007 22:20:16 +0000
Subject: 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

---
 contrib/bz_webservice_demo.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'contrib')

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";
     }
 }
 
-- 
cgit v1.2.3-24-g4f1b