return;
}
- my $required_cols = $config->{$table}->{required_cols} || [];
- my $ignored_cols = $r->{config}{ $r->{table} }{ignore_cols} || [];
+ my $required_cols = $config->{$table}{required_cols} || [];
+ my $ignored_cols = $config->{$table}{ignore_cols} || [];
($obj, my $fatal, my $creating) = $self->_do_update_or_create($r, $obj, $required_cols, $ignored_cols);
# update or create
if ($obj) {
# We have something to edit
- eval { $obj->update_from_cgi( $h => {
+ eval { $obj->update_from_cgi( $r => {
required => $required_cols,
ignore => $ignored_cols,
- } );
+ });
$obj->update(); # pos fix for bug 17132 'autoupdate required by do_edit'
};
$fatal = $@;
} else {
eval {
- $obj = $self->create_from_cgi( $h => {
+ $obj = $self->create_from_cgi( $r => {
required => $required_cols,
ignore => $ignored_cols,
} );
$fatal = $@;
$creating++;
}
-
return $obj, $fatal, $creating;
}
+# split out from do_edit to be reported by Mp::P::Trace
+#sub _do_update_or_create {
+# my ($self, $r, $obj, $required_cols, $ignored_cols) = @_;
+#
+# my $fatal;
+# my $creating = 0;
+#
+# my $h = $self->Untainter->new( %{$r->params} );
+#
+# # update or create
+# if ($obj) {
+# # We have something to edit
+# eval { $obj->update_from_cgi( $h => {
+# required => $required_cols,
+# ignore => $ignored_cols,
+# } );
+# $obj->update(); # pos fix for bug 17132 'autoupdate required by do_edit'
+# };
+# $fatal = $@;
+# } else {
+# eval {
+# $obj = $self->create_from_cgi( $h => {
+# required => $required_cols,
+# ignore => $ignored_cols,
+# } );
+# };
+# $fatal = $@;
+# $creating++;
+# }
+#
+# return $obj, $fatal, $creating;
+#}
+
=head2 delete
Deprecated method that calls do_delete or a given classes delete method, please