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

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

	content ( my $mail = line_in "Email      : " ) or return;

	if($mail eq "-") {
		return undef unless $id;
	} else {
		unless($mail =~ /\@/) {
			return problem "Ach nee, eine Mailadresse ohne '\@'-Zeichen...","Lerne mal tippen. Oder denken.\n";
		}

		$mail =~ tr/A-Z/a-z/;

        my $res = DoFn("select count(*) from person where email=${\qquote $mail}") ||
                  DoFn("select count(*) from queue where email=${\qquote $mail}");
		if($res) {
			return problem "Sorry, existiert bereits...\n";
		}
		return $mail unless $id;
	}
	log_update("queue","id",$id,undef,"email",undef,
		DoFn("select email from queue where id=$id"));
	Do("update queue set email=${\qquote $mail,1} where id=$id");
}
1;
