From: lpsolit%gmail.com <>
Date: Sun, 17 Jun 2007 23:08:36 +0000 (+0000)
Subject: Bug 382060: contrib/bz_webservice_demo.pl is unable to display bug data correctly... 
X-Git-Tag: bugzilla-3.0.1~63
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f514f4ae76d7d907aa0ae492d8a8154751fd65ff;p=thirdparty%2Fbugzilla.git

Bug 382060: contrib/bz_webservice_demo.pl is unable to display bug data correctly - Patch by Frédéric Buclin <LpSolit@gmail.com> r/a=mkanat
---

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";
+        }
     }
 }