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

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

    my ($kid) = DoFn "SELECT kunde FROM hardware WHERE id = $idi";
	content( my $idk = edit_ktarife( $kid, 1 | 4, $kn ) )
      or return defined $idi ? () : 'NULL';

	$idk = $idk eq '-' ? 'NULL' : qquote $idk;
    return $idk unless defined $idi;

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

1;
