use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_init line_print_end);
use Cf qw($POPHOME);
use Dbase::Globals qw(rwdiff find_descr get_descr test_descr_flag);
use Fehler qw(report_status problem );

my $test_ende;

# flag 1: permanent
# flag 2: silent

sub line_set($;$) {
	my($res,$flag) = @_;
	$flag=0 unless defined $flag;
	my $pr = ($res eq "-") ? 0 : find_descr("ausgabe",$res);
	if(defined $pr) {
		$Db::pr_redo=0;
		if($flag&1 and test_descr_flag("ausgabe",$pr,"noperm")) {
			$flag &= ~1;
			$Db::pr_redo = $pr;
		}

		$Db::pr_modus = ($flag&1) ? -$pr : $pr;
		$pr = $Db::pr_modus;
		if($pr < 0 and ref $Db::pr_fd) {
			$Db::pr_fd->close;
			$Db::pr_fd = undef;
		}
		print "Ausgabe: ",($pr<0)?"permanent":$Db::pr_redo?"wiederholt":"einmalig"," an ",get_descr("ausgabe",abs($pr)),"\n" unless $flag&2;
	} else {
		problem "'$res' ist keine Ausgabe";
	}
}
1;

