use utf8;
use warnings; no warnings "redefine";
use strict;

use Loader qw(line_in log_update);
use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content def_or_minus);

sub set_dienst_rechnungstext($) {
	my ($dienst_id) = @_;

	content( my $rechnungstext = line_in('Rechnungstext: ') ) or return undef;

	log_update(
		dienst =>
		  id   => $dienst_id,
		undef,
		rechnungstext => undef,
		def_or_minus(
			DoFn("SELECT rechnungstext FROM dienst WHERE id=$dienst_id")
		)
	);
	Do(
"UPDATE dienst SET rechnungstext = ${\qquote($rechnungstext,1)} WHERE id = $dienst_id"
	);
}

1;
