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(line_in log_update check_rufnummern);

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

	content ( my $isdn = line_in "ISDN-Nr    : " ) or return;

	if($isdn ne "-") {
    defined( $isdn = check_rufnummern( $isdn, qr/[<>]/ ) ) or return;
	}

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