Edit this recipe
';
return 0;
}
#####################################################
sub NewRecipe () {
my %var = @_;
print $var{q}->start_form(-method=>"post",
-action=>$var{path});
print $var{q}->hidden("create", "1");
print "Title:
";
print $var{q}->textfield('title','',30,80);
print "Category:
";
print $var{q}->popup_menu(-name => 'category', -values => $var{catkeys}, -default => "Uncategorized");
print " Instructions:
";
print $var{q}->textarea('instructions','',30,70);
print " ";
print $var{q}->submit('Submit','Create');
print $var{q}->end_form();
print " ";
return 0;
}
#####################################################
sub EditRecipe () {
my %var = @_;
if (length($var{q}->param('instructions'))>0) {
Update(%var);
return 0;
}
my $query = "SELECT * FROM recipes WHERE id = $var{recipe}";
my $recipeHashRef = $var{dbh}->selectall_hashref($query, 'id');
#uncomment to debug
#print $query, "
", $DBI::errstr, "
";
print $var{q}->start_form(-method=>"post",
-action=>$var{path});
print $var{q}->hidden("edit", "1");
print $var{q}->hidden("recipe", $var{recipe});
print "Title:
";
print $var{q}->textfield('title',$recipeHashRef->{$var{recipe}}->{title},30,80);
print "Category:
";
print $var{q}->popup_menu(-name => 'category', -values => $var{catkeys}, -default => $var{catidref}->{$recipeHashRef->{$var{recipe}}->{category_id}}->{name});
print " Instructions:
";
my $instr = $recipeHashRef->{$var{recipe}}->{instructions};
$instr =~ s/
| /\n/g;
print $var{q}->textarea('instructions',$instr,30,70);
print " ";
print $var{q}->submit('Submit','Update');
print $var{q}->end_form();
print " ";
return 0;
}
#####################################################
sub Create () {
my %var = @_;
my @d = localtime;
my $date = $d[5]+1900 . "-" . $d[4] . "-" . $d[3];
my $query = "INSERT INTO recipes (title, description, date, instructions, category_id) VALUES (\'$var{title}\', \'$var{title}\', \'$date\', \'$var{instr}\', $var{cathashref}->{$var{category}}->{id})";
$var{dbh}->do($query);
#uncomment to debug
#print $query, "
", $DBI::errstr, "
";
&GetRecipe(%var);
return 0;
}
#####################################################
sub Update () {
my %var = @_;
my @d = localtime;
my $mo = $d[4] + 1;
my $yr = $d[5] + 1900;
my $day = $d[3];
my $date = "$yr-$mo-$day";
my $query = "UPDATE recipes SET instructions = \'$var{instr}\', date = \'$date\', category_id = $var{cathashref}->{$var{category}}->{id} WHERE id = $var{recipe}";
$var{dbh}->do($query);
#uncomment to debug
#print $query, "
", $DBI::errstr, "
";
&GetRecipe(%var);
return 0;
}
#####################################################
sub Bye () {
my %var = @_;
#Print out the tail
print '
Search for recipies |
Create a new recipe |
';
$var{dbh}->disconnect();
return 0;
}
# Start the program #
start();
|