--- lib/A3C/Model/hrEduOrg.pm	2008/05/25 16:43:36	127
+++ lib/A3C/Model/hrEduOrg.pm	2008/05/26 17:51:43	128
@@ -3,6 +3,19 @@
 use warnings;
 
 use Jifty::DBI::Schema;
+use Data::Dump qw/dump/;
+
+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 );
+}
 
 use A3C::Record schema {