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_name($;$) {
	my ( $id, $kn ) = @_;
	while () {
		my $name  = line_in 'Name           : ' or return;
		my $qname = quote $name;
		if (
			defined(
				my $other =
				  DoFn "SELECT id FROM wartungsvertrag WHERE name='$qname'"
				  . ( defined $id && " AND id != $id" )
			)
		  )
		{
			print
			  "Dieser Name ist bereits bei Wartungsvertrag #$other vergeben!\n";
		}
		elsif ( defined $id ) {
			log_update( wartungsvertrag => id => $id, undef, 'name',undef,
				DoFn("select name from wartungsvertrag WHERE id=$id"));
			Do "UPDATE wartungsvertrag SET name='$qname' WHERE id=$id";
			return $name;
		}
		else {
			return $name;
		}
	}
}

1;
