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

sub set_tarif_description($;$) {
	my ( $tari, $kn ) = @_;
	my $odesc = DoFn "SELECT description FROM tarif WHERE id=$tari";
	my $desc = editor $odesc,"$kn Tarifbeschreibung";

	unless(defined $desc) {
		print "Abbruch.\n";
		return undef;
	}

	if ( defined $odesc and $desc eq $odesc ) {
		print "keine Änderung.\n";
	} else {
		log_update 'tarif', 'id', $tari, undef, 'description';
		Do "UPDATE tarif SET description=${\qquote $desc,2} WHERE id=$tari";
	}
}

1;
