File Coverage

erecipes/perl/lib/CGI/Ex/Recipes/Add.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch	0	2	0.0
condition	0	2	0.0
subroutine	4	7	57.1
pod	3	3	100.0
total	19	40	47.5

package CGI::Ex::Recipes::Add;
use utf8;
use warnings;
use strict;
use base qw(CGI::Ex::Recipes);
our $VERSION = sprintf "%d.%03d", q$Revision 0.001$ =~ /(\d+)/g;


sub skip { 0 }
sub name_step { 'edit' }


sub finalize {
    my $self = shift;
    my $form = $self->form;

    my $s = "SELECT COUNT(*) FROM recipes WHERE title = ?";
    my ($count) = $self->dbh->selectrow_array($s, {}, $form->{'title'});
    if ($count) {
        $self->add_errors(title => 'A recipe by this title already exists');
        return 0;
    }

    $s = "INSERT INTO recipes (pid, is_category, title, problem, analysis, solution, sortorder, tstamp, date_added)
          VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)";
    my $tstamp = $self->now;
    $self->dbh->prepare($s)->execute(
                           $form->{'pid'},
                           $form->{'is_category'}||0,
                           $form->{'title'},
                           $form->{'problem'},
                           $form->{'analysis'},
                           $form->{'solution'},
                           $form->{'sortorder'},
                           $tstamp,
                           $tstamp,);
    $self->add_to_form(success => "Recipe added to the database");
    return 1;
}

1; # End of CGI::Ex::Recipes::Add

__END__