use utf8;
use warnings; no warnings "redefine";
use strict;

use Dbase::Help qw(Do DoFn);
use Dbase::Globals qw(get_descr);
use Loader qw(select_descr log_update);

sub set_kunde_passwort($;$) {
	my($id,$passwort) = @_;

	unless ( defined $passwort ) {
		$passwort = select_descr( passwort => 1024|16384, '', 'Passwortklasse', '!hide' );
		return undef unless defined $passwort;
	}

	log_update("kunde","id",$id,undef,"pwklasse",undef,
		get_descr("passwort",DoFn("select pwklasse from kunde where id=$id"),1));
	Do("update kunde set pwklasse=$passwort where id=$id");
	$passwort;
}

1;
