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

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

	return unless valid_handle($pers,$nic,1,$kn);

	my $hand = line_in "NIC-Passwort: ";
	return undef if $hand eq "";

	if($hand ne "-") {
		$hand = qquote($hand);
	} else {
		$hand = "NULL";
	}
	log_update("nic","person",$pers,"nic",$nic,undef,"passwort");
	Do("update nic set passwort=$hand where person=$pers and nic=$nic");
	1;
}
1;
