15 if ($textid eq 'new') {
16 my $ntextq = $dbh->prepare("SELECT textid FROM texts".
17 " ORDER BY textid DESC LIMIT 1");
19 my $ntextrow = $ntextq->fetchrow_hashref();
21 $textid = $ntextrow->{'textid'} + 1;
26 my $dtextq = $dbh->prepare("DELETE FROM texts WHERE textid = ?");
27 my $ndeleted = $dtextq->execute($textid);
32 $ins = $dbh->prepare("INSERT INTO texts VALUES (