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

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

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

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

1;
