use utf8;
use warnings; no warnings "redefine";
use strict;

use Fehler qw(report_fehler);
use Loader qw(add_nicdata edit_nicdata list_nicdatas log_view select_descr);

sub edit_nicdatas(;$) {
	my($kn) = @_;

	while(1) {
		my $act = select_descr("nic",1|256|512|32768|65536,<<END,"$kn NIC","!hide");
l    auflisten
a    neu anlegen
NIC  editieren

Eingetragene NICs:
END
		last unless $act;
		if($act == -1) { list_nicdatas($kn); next; }
		if($act == -2) { add_nicdata($kn); next; }
		if($act == -3) { log_view($kn,"nicdata"); next; }
		edit_nicdata($act,$kn);
		next; fehler: report_fehler(4);
	}
	undef;
}

1;
