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

sub set_tarif_varkonto($;$) {
	my($tari,$kn) = @_;

	my $pr = line_in "Konto variable Beträge: ";
	return undef unless $pr =~ /^\d+$/ or $pr eq "-";
	$pr = "NULL" if $pr eq "-";

	log_update("tarif","id",$tari,undef,"vkonto",undef,
		DoFn("select vkonto from tarif where id=$tari"));
	Do("update tarif set vkonto=$pr where id=$tari");
}
1;
