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

sub set_arechnung_fusstext_template ($;$) {
	my($rech,$kn) = @_;
	return unless valid_arechnung($rech);

	my $fusstext = "NULL";
	my $data = DoFn("select fusstext from rechnungen where rnr = $rech");

	content ( my $rid = edit_templates("rech_fuss","!Rechnungs-Fußtext",1+4) )
		or return;
	return unless defined $rid;
	if($rid ne "-") {
		$fusstext = DoFn("select inhalt from template where real_id=$rid");
		return problem "Text nicht gefunden?" if not defined $fusstext;
		$fusstext = qquote($fusstext);
	} else {
		$fusstext = "NULL";
	}

	log_update("rechnungen","rnr",$rech,undef,"fusstext");
	Do("update rechnungen set fusstext=$fusstext where rnr=$rech");
	$rech;
}
1;
