use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(delete_land list_land flip_land_eu line_in valid_land
	warn_arbeit strip_kn set_land_name);
use Fehler qw(report_fehler);
use Dbase::Help qw(DoFn);

sub edit_land($;$) {
	my($id,$okn) = @_;
	return unless valid_land($id);
	$okn = strip_kn($okn);

	my $lname = DoFn("select name from land where id=$id");
	my $kn = $okn."Land_$id:$lname";
	my $work = warn_arbeit("land",$id,"*",$kn);

	while(1) {
		my $act = line_in "$kn >",4; last if $act eq "";
		if($act eq '?') {
			print <<'END';
l   auflisten
n   Namen ändern          e   EU-Kennzeichen ändern
ne  Namen (Eng.) ändern

del löschen

END
			next;
		}
		if($act eq "del") { return undef if delete_land($id); next; }
		if($act eq "H") { log_view($kn,"land","id",$id); next; }

		if($act eq "l") { list_land($id); next; }
		if($act eq "e") { flip_land_eu($id); next; }
		if($act eq "n") { set_land_name($id);
			$lname = DoFn("select name from land where id=$id");
			$kn = $okn."Land_$id:$lname";
			next; }
		if($act eq "ne") { set_land_name_en($id); next; }
		print "Aktion '$act' kenne ich nicht. Liste mit '?'.\n";
		next; fehler: report_fehler(4);
	}
	$id;
}
1;
