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

sub set_person_fax($;$) {
	my($pers,$kn) = @_;

	content ( my $fax = line_in "Fax        : " ) or return;
	if($fax ne "-") {
    defined( $fax = check_rufnummern($fax) ) or return;
	}

	log_update("person","id",$pers,undef,"fax",undef,
		def_or_minus(DoFn("select fax from person where id=$pers")));
	Do("update person set fax=${\qquote $fax,1} where id=$pers");

	list_person_domains $pers, $kn, 2;
}

1;
