=head1 edit_zustandss

Editiere die Zustandstabellen eines Typs.

=head2 Argumente

=over 4

=item $typ

Name der Zustandstabellen ("domain", "handle")

=item $kn

Standard-Prompttext.

=item $tkn

Textform des Tabellennamens ("Domain").

Default: C<ucfirst($typ)>.

=back

=head2 Ergebnis

Nix.

=cut

use utf8;
use strict;
use warnings; no warnings "redefine";
use Fehler qw(fehler report_fehler);
use Loader qw(select_descr list_zustandss
	edit_zustands);

sub edit_zustandss($;$$$) {
	my($typ,$flag,$kn,$tkn) = @_;
	$tkn = ucfirst($typ) unless defined $tkn;
	$flag=0 unless defined $flag;
	my $vn = ($flag&1) ? "Event" : "Status";

	while(1) {
		my $act = select_descr("${typ}status",1+128+256+4096+32768,<<END,"$kn ${tkn}zustand $vn","hide");
l    auflisten
NAME anlegen/aufrufen

Bekannte ${tkn}zustände:
END
		last unless $act;
		if($act == -1) { list_zustandss($typ,$flag,$kn,$tkn); next; }
		edit_zustands($typ,$act,$flag,$kn,$tkn);
		next; fehler: report_fehler(4);
	}
	undef;
}
1;
