diff options
| author | lpsolit%gmail.com <> | 2007-06-17 23:07:13 +0000 |
|---|---|---|
| committer | lpsolit%gmail.com <> | 2007-06-17 23:07:13 +0000 |
| commit | cc9913464d0ae6ea5df6d0debcd2d622c001457e (patch) | |
| tree | 31958f9f376eec49c75aafbefd480e43c9e4b404 /contrib | |
| parent | 54c992f744ce383044456266efcad6b1048576d9 (diff) | |
| download | bugs-cc9913464d0ae6ea5df6d0debcd2d622c001457e.tar bugs-cc9913464d0ae6ea5df6d0debcd2d622c001457e.tar.gz bugs-cc9913464d0ae6ea5df6d0debcd2d622c001457e.tar.bz2 bugs-cc9913464d0ae6ea5df6d0debcd2d622c001457e.tar.xz bugs-cc9913464d0ae6ea5df6d0debcd2d622c001457e.zip | |
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
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/bz_webservice_demo.pl | 12 |
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"; + } } } |