use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Dbase::Help qw(Do DoFn);

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

	my $mlink = line_in "Multilink# : ";
	return undef if $mlink =~ /^\s*$/;
	log_update("person","id",$pers,undef,"maxconn",undef,
		DoFn("select maxconn from person where id=$pers"));
	if($mlink eq "-") {
		Do("update person set maxconn=NULL where id=$pers");
	} else {
		Do("update person set maxconn=$mlink where id=$pers");
	}
}
1;
