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

sub set_registrar_email($;$) {
	my($id,$kn) = @_;

	my $email = line_in "Adresse: "; return undef unless defined $email;
	return undef if $email eq "";
	if($email eq "-") {
		$email = "NULL";
	} else {
		$email = qquote($email);
	}

	log_update("registrar","id",$id,undef,"email",undef,
		DoFn("select email from registrar where id=$id"));
	Do("update registrar set email=$email where id=$id");

	1;
}
1;
