summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorlpsolit%gmail.com <>2007-06-18 01:07:13 +0200
committerlpsolit%gmail.com <>2007-06-18 01:07:13 +0200
commitcc9913464d0ae6ea5df6d0debcd2d622c001457e (patch)
tree31958f9f376eec49c75aafbefd480e43c9e4b404
parent54c992f744ce383044456266efcad6b1048576d9 (diff)
downloadbugzilla-cc9913464d0ae6ea5df6d0debcd2d622c001457e.tar.gz
bugzilla-cc9913464d0ae6ea5df6d0debcd2d622c001457e.tar.xz
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
-rwxr-xr-xcontrib/bz_webservice_demo.pl12
1 files changed, 10 insertions, 2 deletions
diff --git a/contrib/bz_webservice_demo.pl b/contrib/bz_webservice_demo.pl
index d438bc679..70fb6c294 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";
+ }
}
}