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

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

	my $fakt = select_descr("folge",4,"","Folgenr: ","!hide");
	return unless defined $fakt;
	$fakt = "NULL" if $fakt eq "-";
	
	log_update("tarifeq","dienst",$dien,undef,"folge",undef,
		get_descr("folge",DoFn("select folge from tarifeq where dienst=$dien"),1));
	Do("update tarifeq set folge=$fakt where dienst=$dien");
	$fakt;
}
1;
