r1653@llin: dpavlin | 2007-11-20 11:08:49 +0100

 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

diff --git a/lib/WebPAC/Output/Jifty.pm b/lib/WebPAC/Output/Jifty.pm
index 299fc03..4a53eaf 100644 (file)
--- a/lib/WebPAC/Output/Jifty.pm
+++ b/lib/WebPAC/Output/Jifty.pm
@@ -101,6 +101,10 @@ sub add {
 
        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 );

diff --git a/t/5-output-jifty.t b/t/5-output-jifty.t
index e527516..aa8b0d4 100755 (executable)
--- a/t/5-output-jifty.t
+++ b/t/5-output-jifty.t
@@ -33,7 +33,7 @@ my $ds = {
                display => 'Somewhere',
        },
        comment => {
-               display => 'test data',
+               display => [ 'test data', 'and more' ],
        }
 };