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

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

	my $offl = DoFn("select isrec from tarifeq where dienst = $dien");
	my $ffl;

	if($offl ne "j") {
		$ffl = "j";
		print "Passende Tarife werden in übergeordneten Diensten gesucht.\n";
	} else {
		$ffl = "n";
		print "Passende Tarife werden nur im '*'-Tarif gesucht.\n";
	}
	log_update("tarifeq","dienst",$dien,undef,"isrec",undef,$offl);
	Do("update tarifeq set isrec = '$ffl' where dienst = $dien");
	$ffl;
}
1;
