use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do);
use Fehler qw(problem ffehler);

sub delete_land($) {
	my($id)=@_;
	ffehler {
		Do "delete from land where id=$id";
		$id;
	} sub {
		problem "Dieses Land wird noch in min. einer Adresse verwendet.\n";
	};
}

1;
