<%init>
use AwayMsg;
db_connect();
-</%init>
-<%args>
+</%init><%args>
$textid
$save => 0
$cancel => 0
$textid => undef
-</%args>
-<%perl>
+</%args><%perl>
if ($save) {
my $ins;
$dbh->do('BEGIN');
my $dtextq = $dbh->prepare("DELETE FROM texts WHERE textid = ?");
my $ndeleted = $dtextq->execute($textid);
if (!$ndeleted) {
-</%perl>
+</%perl><htmlhead, subpage => 'Error, editing deleted message'>
+Message was deleted.
+<form><
$ins = $dbh->prepare("INSERT INTO texts VALUES (