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

sub set_umrechnung_faktor($;$) {
	my($dien,$kn) = @_;

	my $fakt = line_in "Faktor *100: ";
	$fakt = 100 if $fakt eq ""; return undef if $fakt !~ /^\d+$/;
	
	log_update("tarifeq","dienst",$dien,undef,"faktor",undef,
		DoFn("select faktor from tarifeq where dienst=$dien"));
	Do("update tarifeq set faktor=$fakt where dienst=$dien");
	$fakt;
}
1;
