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_monitoring_person
	check_person_braucht_nicht
	check_rufnummern
	line_in
	list_person_domains
	log_update
  );

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

	my $old = DoFn("SELECT fon FROM person WHERE id = $pers")
	  and check_monitoring_person($pers);
	content ( my $fon = line_in "Telefon    : " ) or return;
	if($fon ne "-") {
		defined( $fon = check_rufnummern($fon) ) or return;
	}
	elsif ( !check_person_braucht_nicht( $pers, 'fon' ) ) { return }

	log_update("person","id",$pers,undef,"fon",undef, def_or_minus($old));
	Do("update person set fon=${\qquote $fon,1} where id=$pers");

	list_person_domains $pers, $kn, 2;
}

1;
