%# -*- 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>