=head1 delete_zustand

Löscht einen Eintrag einer Zustandsübergangstabelle.

=head2 Argumente

=over 4

=item $typ

Tabelle.

=item $id

ID des Eintrags.

=item $kn

Standard-Prompt.

=item $tkn

'Lesbarer' Name der Tabelle.

=back

=head2 Ergebnis

Nix.

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Loader qw(log_update);

sub delete_zustand($$;$$) {
	my($typ,$id,$kn,$tkn) = @_;
	$tkn = ucfirst($typ) unless defined $tkn;

	my($von,$mail) = DoFn("select von,erkannt from ${typ}zustand where id = $id");
	return unless defined $von;

	log_update("${typ}zustand","von",$von,"mail",$mail,undef,"-");
	Do("delete from ${typ}zustand where id = $id");
	return;
}
1;
