From cc9913464d0ae6ea5df6d0debcd2d622c001457e Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Sun, 17 Jun 2007 23:07:13 +0000
Subject: [PATCH] =?utf8?q?Bug=20382060:=20contrib/bz=5Fwebservice=5Fdemo.p?=
 =?utf8?q?l=20is=20unable=20to=20display=20bug=20data=20correctly=20-=20Pa?=
 =?utf8?q?tch=20by=20Fr=C3=83=C2=A9d=C3=83=C2=A9ric=20Buclin=20<LpSolit@gm?=
 =?utf8?q?ail.com>=20r/a=3Dmkanat?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 contrib/bz_webservice_demo.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/contrib/bz_webservice_demo.pl b/contrib/bz_webservice_demo.pl
index d438bc6795..70fb6c2943 100755
--- a/contrib/bz_webservice_demo.pl
+++ b/contrib/bz_webservice_demo.pl
@@ -224,8 +224,16 @@ if ($bug_id) {
     _die_on_fault($soapresult);
     $result = $soapresult->result;
     my $bug = $result->{bugs}->[0];
-    foreach (keys(%$bug)) {
-        print "$_: $$bug{$_}\n";
+    foreach my $field (keys(%$bug)) {
+        my $value = $bug->{$field};
+        if (ref($value) eq 'HASH') {
+            foreach (keys %$value) {
+                print "$_: " . $value->{$_} . "\n";
+            }
+        }
+        else {
+            print "$field: $value\n";
+        }
     }
 }
 
-- 
2.47.2