use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(log_update);
use Dbase::Help qw(Do DoFn);

sub flip_land_eu($) {
	my($id) = @_;

	my($name,$ofl) = DoFn("select name,eu from land where id=$id");
	my $fl;

	if($ofl ne "j") {
		$fl = "j";
		print "EU-Mitglied.\n";
	} else {
		$fl = "n";
		print "kein EU-Mitglied.\n";
	}
	log_update("land","name",$name,undef,"eu",undef,$ofl);
	Do("update land set eu='$fl' where id=$id");
	$fl;
}
1;
