13 if ($textid eq 'new') {
14 my $ntextq = $dbh->prepare("SELECT textid FROM texts".
15 " ORDER BY textid DESC LIMIT 1");
17 my $ntextrow = $ntextq->fetchrow_hashref();
19 $textid = $ntextrow->{'textid'} + 1;
24 my $dtextq = $dbh->prepare("DELETE FROM texts WHERE textid = ?");
25 my $ndeleted = $dtextq->execute($textid);
27 </%perl><htmlhead, subpage => 'Error, editing deleted message'>
32 $ins = $dbh->prepare("INSERT INTO texts VALUES (