5 |
use Jifty::DBI::Schema; |
use Jifty::DBI::Schema; |
6 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
7 |
|
|
|
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 ); |
|
|
} |
|
|
|
|
8 |
use A3C::Record schema { |
use A3C::Record schema { |
9 |
|
|
10 |
# hrEduOrg super: organization |
# hrEduOrg super: organization |