=head1 delete_zustands

Löscht einen Teil einer Zustandsübergangstabelle.

=head2 Argumente

=over 4

=item $typ

Tabelle.

=item $von

Aktueller Zustand der Domain / des Handles.

=item $kn

Standard-Prompt.

=item $tkn

'Lesbarer' Name der Tabelle.

=back

=head2 Ergebnis

Nix.

=head2 Änderungen

2001-11-23 smurf angelegt

=cut

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

sub delete_zustands($$;$$) {
	my($typ,$von,$kn,$tkn) = @_;
	$tkn = ucfirst($typ) unless defined $tkn;
	my $vtext = get_descr("${typ}status",$von);

	my $resp = line_in "Sollen wirklich ALLE ${tkn}-Übergänge aus Zustand '$vtext'\ngelöscht werden? ";
	return if $resp eq "";
	if($resp !~ /^j/i) {
		print "Abgebrochen.\n";
		return;
	}

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