use utf8;
use warnings;
no warnings 'redefine';
use strict;
use Dbase::Help qw(Do qquote DoFn);
use Dbase::Globals qw(content);
use Loader qw(line_in log_update);

sub set_hostgroup_beschreibung(;$$$) {
	my ( $idi, $kn, $template ) = @_;

	content( my $beschreibung =
		  line_in( 'Beschreibung: ', undef, undef, $template ) )
	  or return;

	$beschreibung = qquote($beschreibung);

	return $beschreibung unless defined $idi;

	log_update(
		hostgroup =>
		  id => $idi,
		undef,
		beschreibung => undef,
		DoFn("SELECT beschreibung FROM hostgroup WHERE id = $idi")
	);
	Do("UPDATE hostgroup SET beschreibung = $beschreibung WHERE id = $idi");
}

1;
