<%init>
use AwayMsg;
db_connect();
-</%init>
-<%args>
-$textid
+</%init><%args>
$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>
-
-
- $ins = $dbh->prepare("INSERT INTO texts VALUES (
- $sth = $dbh->
+</%perl><htmlhead, subpage => 'Error, editing deleted message'>
+Message was deleted.
+<form action="main" method="get">
+<input type="submit" value="OK">
+</form><%perl>
+ }
+ return;
+ }
}
+$m->redirect("main");
+</%perl>