--- lib/A3C/Record.pm	2008/06/19 19:52:43	207
+++ lib/A3C/Record.pm	2008/06/19 21:24:26	208
@@ -5,6 +5,8 @@
 
 use base 'Jifty::Record';
 
+use Data::Dump qw/dump/;
+
 =head1 NAME
 
 Custom Record class for A3C
@@ -58,4 +60,23 @@
 	return ( $id, $msg );
 }
 
+=head2 create
+
+Serialize ARRAY values into single scalar separated by magic C<< <*> >> marker
+
+=cut
+
+sub create {
+	#warn "# create",dump(@_);
+	my $self = shift;
+	my %data = @_ or die "no data?";
+	foreach my $col ( keys %data ) {
+		#warn "## ref($col)=",ref($col);
+		$data{$col} = join(' <*> ', @{$data{$col}}) if ref( $data{$col} ) eq 'ARRAY';
+	}
+	#warn "## data = ",dump( %data );
+	$self->SUPER::create( %data );
+}
+
+
 1;