Fix bug field conversion in webservice, fix printing it out in demo script
parent
3cd8adb954
commit
62f7651872
|
@ -887,9 +887,12 @@ sub _bug_to_hash {
|
||||||
my @values = map { $self->type('string', $_->name) } @{ $bug->get_object($name) };
|
my @values = map { $self->type('string', $_->name) } @{ $bug->get_object($name) };
|
||||||
$item{$name} = \@values;
|
$item{$name} = \@values;
|
||||||
}
|
}
|
||||||
else {
|
elsif ($field->type == FIELD_TYPE_SINGLE_SELECT) {
|
||||||
$item{$name} = $self->type('string', $bug->$name && $bug->get_object($name)->name);
|
$item{$name} = $self->type('string', $bug->$name && $bug->get_object($name)->name);
|
||||||
}
|
}
|
||||||
|
else {
|
||||||
|
$item{$name} = $self->type('string', $bug->$name);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
# Timetracking fields are only sent if the user can see them.
|
# Timetracking fields are only sent if the user can see them.
|
||||||
|
|
|
@ -276,11 +276,11 @@ if ($bug_id) {
|
||||||
my $value = $bug->{$field};
|
my $value = $bug->{$field};
|
||||||
if (ref($value) eq 'HASH') {
|
if (ref($value) eq 'HASH') {
|
||||||
foreach (keys %$value) {
|
foreach (keys %$value) {
|
||||||
print "$_: " . $value->{$_} . "\n";
|
print "$_: " . (ref($value->{$_}) eq 'ARRAY' ? join(', ', @{$value->{$_}}) : $value->{$_}) . "\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
print "$field: $value\n";
|
print "$field: " . (ref($value) eq 'ARRAY' ? join(', ', @$value) : $value) . "\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue