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_hardware_console($;$) {
	my ( $idi, $kn ) = @_;
	content( my $console =
		  line_in 'Console' . ( !defined $idi && ' (optional)' ) . ': ' )
	  or return defined $idi ? () : 'NULL';
	$console = $console eq '-' ? 'NULL' : qquote $console;
	return $console unless defined $idi;
	log_update hardware =>
	  id                => $idi,
	  undef, 'console', undef,
	  DoFn "SELECT console FROM hardware WHERE id=$idi";
	Do "UPDATE hardware SET console=$console WHERE id=$idi";
}

1;
