use utf8;
use warnings; no warnings "redefine";
use strict;
use Fehler qw(problem);
use Loader qw(line_printer);
use Dbase::Help qw(isotime DoSelect);
use Dbase::Globals qw(get_descr);

sub list_land($;$$) {
	my($id) = @_;
	line_printer;

	DoSelect {
		my($timestamp,$id,$name,$name_en,$iso2,$iso3,$kfz,$eu) = @_;
		print $Db::pr_fh "ID       : $id\n";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Name     : $name\n";
		print $Db::pr_fh "Name Eng.: $name_en\n";
		print $Db::pr_fh "ISO 2    : $iso2\n";
		print $Db::pr_fh "ISO 3    : $iso3\n";
		print $Db::pr_fh "KFZ      : $kfz\n";
		print $Db::pr_fh "EU-Mitgl : ".get_descr("jbool",$eu)."\n";
	} <<_ or problem "Land '$id' unbekannt";
	SELECT timestamp,
		   id,
	       name,
	       name_en,
	       iso2,
	       iso3,
	       kfz,
	       eu
	FROM   land
	WHERE  id=$id
_
}

1;
