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

sub set_arechnung_inhalt($$;$) {
	my($rech,$id,$kn) = @_;

	return undef unless check_perm("rechnung");

	my $info = line_in "Inhalt: ";
	return undef unless $info;
	$info eq "-" and return problem "Rechnungen ohne Gegenleistung gibt es nicht!\n";
	return $info unless $rech;

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

1;
