fix WebPAC::Output::Jifty to join multiple values with space
when inserting into Jifty
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1058
07558da8-63fa-0310-ba24-
9fe276d99e06
my $hash = $self->ds_to_hash( $ds, 'display' ) || next;
my $hash = $self->ds_to_hash( $ds, 'display' ) || next;
+ foreach my $f ( keys %$hash ) {
+ $hash->{$f} = join(' ', @{ $hash->{$f} }) if ref($hash->{$f}) eq 'ARRAY';
+ }
+
$log->debug("data: ", sub { dump( $hash ) });
my ( $m_id, $msg ) = $self->{_model}->load_or_create( %$hash );
$log->debug("data: ", sub { dump( $hash ) });
my ( $m_id, $msg ) = $self->{_model}->load_or_create( %$hash );
display => 'Somewhere',
},
comment => {
display => 'Somewhere',
},
comment => {
- display => 'test data',
+ display => [ 'test data', 'and more' ],