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

sub set_ticket_wichtig($;$) {
	my($tid,$kn) = @_;

	my $prio = line_in "Priorität: ";
	return undef unless $prio =~ /^\d+$/;

	log_update("ticket","id",$tid,undef,"wichtig",undef,
		DoFn("select wichtig from ticket where id=$tid"));
	Do("update ticket set wichtig=$prio where id=$tid");

	return $prio;
}

1;
