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

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

	content ( my $name_en = line_in "Name English: " ) or return;
	
	log_update("land","id",$id,undef,"name_en",undef,
		DoFn("select name from land where id=$id"));
	Do("update land set name_en=${\qquote $name_en,1} where id=$id");
}
1;
