diff options
| author |   lpsolit%gmail.com <> | 2007-01-06 22:20:16 +0000 |
|---|---|---|
| committer | lpsolit%gmail.com <> | 2007-01-06 22:20:16 +0000 |
| commit | 685d0e4e57f0bf6bef927fe3a1abb01331ca69f4 (patch) | |
| tree | 162d9251ab74fb3d5ee27edcfc0a825ae67f4247 /contrib | |
| parent | Bug 362996: email_in.pl throws warnings of uninitialized values when no conte... (diff) | |
| download | bugzilla-685d0e4e57f0bf6bef927fe3a1abb01331ca69f4.tar.gz bugzilla-685d0e4e57f0bf6bef927fe3a1abb01331ca69f4.tar.bz2 bugzilla-685d0e4e57f0bf6bef927fe3a1abb01331ca69f4.zip | |
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
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/bz_webservice_demo.pl | 8 |
1 files changed, 4 insertions, 4 deletions
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"; } } |