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

sub set_ktarif_anzahl($;$) {
	my($tari,$kn) = @_;
	my($id,$oanz) = DoFn("select kunde,anzahl from tarifkunde where id = $tari");

	my $anz = line_in "Anzahl ('-': unbekannt): ";
	return undef if $anz eq "";
	$anz = 'NULL' if $anz eq "-";
	log_update("tarifkunde","id",$tari,undef,"anzahl",undef,$oanz);
	Do("update tarifkunde set anzahl = $anz where id = $tari");

	if($id > 0) {
		Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id = $id");
	}
}
1;
