3 |
use warnings; |
use warnings; |
4 |
|
|
5 |
use Jifty::DBI::Schema; |
use Jifty::DBI::Schema; |
6 |
|
use Data::Dump qw/dump/; |
7 |
|
|
8 |
|
sub create { |
9 |
|
warn "# create",dump(@_); |
10 |
|
my $self = shift; |
11 |
|
my %data = @_ or die "no data?"; |
12 |
|
foreach my $col ( keys %data ) { |
13 |
|
warn "## ref($col)=",ref($col); |
14 |
|
$data{$col} = join(' <*> ', @{$data{$col}}) if ref( $data{$col} ) eq 'ARRAY'; |
15 |
|
} |
16 |
|
warn "## data = ",dump( %data ); |
17 |
|
$self->SUPER::create( %data ); |
18 |
|
} |
19 |
|
|
20 |
use A3C::Record schema { |
use A3C::Record schema { |
21 |
|
|
218 |
|
|
219 |
use A3C::DefaultACL; |
use A3C::DefaultACL; |
220 |
|
|
221 |
|
# added to make Jifty::View::Declare::CRUD happy because it |
222 |
|
# tries to capitalize first letter of model creating |
223 |
|
# A3C::Model::HrEduOrg which is invalid |
224 |
|
sub object_type { 'A3C::Model::hrEduOrg' } |
225 |
|
sub collection_class { 'A3C::Model::hrEduOrgCollection' } |
226 |
|
|
227 |
1; |
1; |