12 if ($textid eq 'new') {
13 my $ntextq = $dbh->prepare("SELECT textid FROM texts".
14 " ORDER BY textid DESC LIMIT 1");
16 my $ntextrow = $ntextq->fetchrow_hashref();
18 $textid = $ntextrow->{'textid'} + 1;
23 my $dtextq = $dbh->prepare("DELETE FROM texts WHERE textid = ?");
24 my $ndeleted = $dtextq->execute($textid);
26 </%perl><htmlhead, subpage => 'Error, editing deleted message'>
28 <form action="main" method="get">
29 <input type="submit" value="OK">