Parent Directory | Revision Log | Patch
revision 1057 by dpavlin, Tue Nov 20 10:08:00 2007 UTC | revision 1058 by dpavlin, Tue Nov 20 10:08:55 2007 UTC | |
---|---|---|
# | Line 101 sub add { | Line 101 sub add { |
101 | ||
102 | my $hash = $self->ds_to_hash( $ds, 'display' ) || next; | my $hash = $self->ds_to_hash( $ds, 'display' ) || next; |
103 | ||
104 | foreach my $f ( keys %$hash ) { | |
105 | $hash->{$f} = join(' ', @{ $hash->{$f} }) if ref($hash->{$f}) eq 'ARRAY'; | |
106 | } | |
107 | ||
108 | $log->debug("data: ", sub { dump( $hash ) }); | $log->debug("data: ", sub { dump( $hash ) }); |
109 | ||
110 | my ( $m_id, $msg ) = $self->{_model}->load_or_create( %$hash ); | my ( $m_id, $msg ) = $self->{_model}->load_or_create( %$hash ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |