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

use Loader qw(line_in line_printer valid_nic valid_registrar
	add_registrar edit_registrar list_registrare log_view);
use Fehler qw(report_fehler);
use Dbase::Help qw(DoFn Do DoSelect);
use Dbase::Globals qw(find_descr);

sub edit_registrare($;$) {
	my($nic,$kn) = @_;

	return undef unless valid_nic($nic);

	while(1) {
		my $id = line_in "$kn Registrare >",4; return undef unless $id;
		if($id eq '?') {
			print <<END;
l   auflisten
##  Daten editieren
a   neuen Eintrag hinzufügen
END
			next;
		}
		if($id eq "H") { log_view($kn,"template"); next; }
		if($id eq "l") { list_registrare($nic,$kn); next; }
		if($id eq "a") { add_registrar($nic,$kn); next; }
		if($id =~/^\d+$/ and valid_registrar($id)) {
			edit_registrar($id,$kn);
			next;
		}
		print "Aktion '$id' kenne ich nicht. Liste mit '?'.\n";
		next; fehler: report_fehler(4);
	}
}

1;
