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

sub set_hardware_name($;$$) {
	my ( $idi, $kn, $template ) = @_;
	content( my $name = line_in 'Name: ', undef, undef, $template ) or return;
	return problem
	  "Das ist ein Pflichtfeld und kann daher nicht gelöscht werden.\n"
	  if $name eq '-';
	$name = qquote $name;
	return $name unless defined $idi;
	log_update hardware => id => $idi, undef, 'name', undef,
		DoFn("select name from hardware WHERE id=$idi");
	Do "UPDATE hardware SET name=$name WHERE id=$idi";
}

1;
