use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update select_descr edit_land);
use Dbase::Globals qw(content);
use Dbase::Help qw(Do qquote);

sub add_land() {
	content ( my $iso2 = line_in "iso 2stellig: " ) or return;
	content ( my $iso3 = line_in "iso 3stellig: " ) or return;
	content ( my $kfz = line_in "Kfz: " ) or return;
	content ( my $name = line_in "Name: " ) or return;
	content ( my $name_en = line_in "Name (English): " ) or return;
	content ( my $eu = select_descr("jbool",2,"","EU-Mitglied?") ) or return;

	my $id = Do("insert into land set iso2=${\qquote lc($iso2)}, iso3=${\qquote lc($iso3)}, kfz=${\qquote $kfz}, name=${\qquote $name}, name_en=${\qquote $name_en}, eu=$eu");
	log_update("land","id",$id,undef,"*");
	print "... angelegt.\n";
	return edit_land($id);
}
1;
