use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update check_perm);
use Dbase::Help qw(Do DoFn qquote);
use Fehler qw(problem);

sub set_buchung_inhalt($$;$) {
	my($rech,$seq,$kn) = @_;

	return undef unless check_perm("verwaltung");

	my $info = line_in "Inhalt: ";
	return undef unless $info;
	return problem "Buchungen ohne Text gibt es nicht!\n"
		if $info eq "-";

	log_update("buchung","rnr",$rech,"seq",$seq,undef,"buchtext",undef,def_or_minus(DoFn("select buchtext from buchung where rnr=$rech and seq=$seq")));
	Do("update buchung set buchtext=${\qquote $info,1} where rnr=$rech and seq=$seq");
	1;
}

1;
