use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do quote);
use Dbase::Globals qw(content);
use Fehler qw(problem);
use Loader qw(edit_leitung line_in log_update valid_kunde);

sub add_kunde_leitung($;$) {
	my ( $id, $kn ) = @_;
	return problem "Kunde $id nicht gefunden.\n" unless valid_kunde( $id, 1 );
	content( my $name = line_in 'Name: ' ) or return;

	my $idi = Do "INSERT INTO leitung SET kunde=$id, name='${\quote $name}', beginn=UNIX_TIMESTAMP(NOW())";
	log_update('leitung', 'id', $idi, undef, '*');

	log_update('kunde', 'id', $id, undef, 'leitung','*', undef, $idi);
	Do( "UPDATE kunde SET geaendert=UNIX_TIMESTAMP(NOW()) WHERE id = $id" );
	edit_leitung( $idi, $id, $kn );
}

1
