my $h = CGI::Untaint->new( %{ $r->{params} } );
my $creating = 0;
my ($obj) = @{ $r->objects || [] };
+ my $fatal;
if ($obj) {
-
# We have something to edit
- $obj->update_from_cgi( $h =>
- { required => $r->{config}{ $r->{table} }{required_cols} || [], }
- );
+ eval {
+ $obj->update_from_cgi( $h =>
+ { required => $r->{config}{ $r->{table} }{required_cols} || [], }
+ );
+ };
+ $fatal = $@;
}
else {
- $obj =
- $self->create_from_cgi( $h =>
- { required => $r->{config}{ $r->{table} }{required_cols} || [], }
- );
+ eval {
+ $obj =
+ $self->create_from_cgi( $h =>
+ { required => $r->{config}{ $r->{table} }{required_cols} || [], }
+ );
+ };
+ $fatal = $@;
$creating++;
}
- if ( my %errors = $obj->cgi_update_errors ) {
+ if ( my %errors = $fatal ? (FATAL => $fatal) : $obj->cgi_update_errors ) {
# Set it up as it was:
$r->{template_args}{cgi_params} = $r->{params};
$r->{template_args}{errors} = \%errors;
- $r->{template} = "edit";
- undef $obj if $creating; # Couldn't create
+
+ if ($creating) {
+ undef $obj;
+ $r->template("addnew");
+ } else {
+ $r->template("edit");
+ }
}
else {
$r->{template} = "view";