Listing 5: add-news.html %# -*- mmm-classes: mason -*- % if ($successful_insert) { News story added

News story added

The news story headlined "<% $headline %>" was added successfully.

% } else { Error: News story not added

Error: News story not added

The news story headlined "<% $headline %>" was not added successfully. Error message:

<% $DBI::errstr %>
% } <%once> my $dbh; <%init> # Connect to the database, if we haven't already done so $dbh = $m->comp("database-connect.comp"); # Now insert the news story my $sql = "INSERT INTO Articles "; $sql .= " (category_id, headline, body) "; $sql .= "VALUES "; $sql .= " (?, ?, ?) "; my $sth = $dbh->prepare($sql); my $successful_insert = $sth->execute($category_id, $headline, $body); <%args> $category_id $headline $body