Press Releases with Mason

Listing 3. add-category.html

%# -*- mmm-classes: mason -*-
% if ($successful_insert) {
<Head><Title>Category added</Title></Head>
<Body>
<H1>Category added</H1>
<P>The category "<% $new_category_name %>" was
added successfully.</P>
</Body>
% } else {
<Head><Title>Error: Category not added</Title></Head>
<Body>
<H1>Error: Category not added</H1>
<P>The category "<% $new_category_name %>" was not added
successfully. Error message: </P>
<pre>
<% $DBI::errstr %>
</pre>
</Body>
% }
<%once>
my $dbh;
</%once>
<%init>
# Connect to the database, if we haven't already
# done so
$dbh = $m->comp("database-connect.comp");
# Now insert the new category
my $sql = "INSERT INTO Categories ";
  $sql .= " (category_name) ";
  $sql .= "VALUES ";
  $sql .= " (?) ";
my $sth = $dbh->prepare($sql);
my $successful_insert = $sth->execute($new_category_name);
</%init>
<%args>
$new_category_name
</%args>