Press Releases with Mason

Listing 5. add-news.html

%# -*- mmm-classes: mason -*-
% if ($successful_insert) {
<Head><Title>News story added</Title></Head>
<Body>
<H1>News story added</H1>
<P>The news story headlined "<% $headline %>" was added
successfully.</P>
</Body>
% } else {
<Head><Title>Error: News story not added</Title></Head>
<Body>
<H1>Error: News story not added</H1>
<P>The news story headlined "<% $headline %>"
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 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);
</%init>
<%args>
$category_id
$headline
$body
</%args>
Archive Index Issue Table of Contents Article