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

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

	my $omfl = DoFn("select extern from ticketid where ticket = $tid and seq = $seq");
	my $mfl;

	if($omfl eq "n") {
		$mfl = "y";
		print "Der Text ist jetzt für die Kunden bestimmt.\n";
	} else {
		$mfl = "n";
		print "Der Text ist jetzt als POP-intern markiert.\n";
	}

	log_update("ticketid","ticket",$tid,"seq",$seq,undef,"extern",undef,$omfl);
	Do("update ticketid set timestamp=timestamp, extern = '$mfl' where ticket = $tid and seq = $seq");
	$mfl;
}
1;
