HTML-FormFu-Model-DBIC
view release on metacpan or search on metacpan
lib/HTML/FormFu/Model/DBIC.pm view on Meta::CPAN
388389390391392393394395396397398399400401402403404405406407408
||
$form
->model_config->{resultset}
or croak
'could not find resultset name'
;
$resultset
=
$schema
->resultset(
$resultset
);
my
$dbic
=
$resultset
->new_result( {} );
return
$self
->update(
$dbic
, {
%$attrs
,
base
=>
$base
} );
}
sub
update {
my
(
$self
,
$dbic
,
$attrs
) =
@_
;
croak
"row object missing"
if
!
defined
$dbic
;
my
$form
=
$self
->form;
my
$base
=
defined
$attrs
->{base} ?
delete
$attrs
->{base} :
$form
;
$base
=
$form
->get_all_element( {
nested_name
=>
$attrs
->{nested_base} } )
if
defined
$attrs
->{nested_base}
&& ( !
defined
$base
->nested_name
( run in 0.954 second using v1.01-cache-2.11-cpan-49f99fa48dc )