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

use Dbase::Help qw(DoSelect);
use Loader qw(line_printer);

sub list_laender() {
	line_printer;

	my $hdr;
	my $res = DoSelect {
		my($id,$eu,$kfz,$iso2,$iso3,$name) = @_;

		print $Db::pr_fh <<END unless $hdr++;
ID kfz iso iso3 EU Name
END
		goto out unless
		printf $Db::pr_fh "%2d %3s %2s  %3s  %s  %s\n", $id,$kfz,$iso2,$iso3,$eu,$name;
	} "select id,eu,kfz,iso2,iso3,name from land order by iso2"
		or print "(leer)\n";
out:
	$res;
}

1;
