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

sub set_wartungsvertrag_sla($;$) {
	my ( $id, $kn ) = @_;
	my $sla = line_in 'SLA            : ' or return;
	return $sla unless defined $id;

	log_update( wartungsvertrag => id => $id, undef, 'sla', undef,
		DoFn("select sla from wartungsvertrag WHERE id=$id"));
	Do "UPDATE wartungsvertrag SET sla='${\ quote $sla }' WHERE id=$id";
	$sla;
}

1;
