use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Globals qw(find_descr info_descr in_period content);
use Dbase::Help qw(Do DoFn qquote);
use Fehler qw(problem);
use Loader qw(line_in log_update);

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

	{
		content ( my $period = line_in sprintf '%-15s: ', ucfirst($typ) ) or return;
		if ( $period ne '-' ) {
			if ( defined( my $p = find_descr 'time-period' => $period ) ) {
				$period = info_descr 'time-period' => $p
					or return problem "Deskriptor #$p nicht mehr gefunden!?";
			}
			if ( -1 == in_period $period ) {
				print qq('$period' ist keine gültige Zeit-Definition.\n"perldoc Time::Period" ist Dein Freund...\n);
				redo;
			}
		}
		log_update tarif => id => $tari, undef, $typ, undef,
			DoFn "select $typ from tarif where id=$tari";
		Do "UPDATE tarif SET $typ=${\qquote $period,1} WHERE id=$tari";
	}
}

1;
