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

sub set_tarif_preis_paket($;$) {
	my($tari,$kn) = @_;

	my($beg,$opr) = DoFn("select beginn,unitpreis from tarif where id=$tari");
	my $EUR = in_euro($beg) ? "EUR" : "DM";
	my $pr = line_in "$EUR / Datenpaket: ";
	return undef if not defined preis($pr);

	log_update("tarif","id",$tari,undef,"unitpreis",undef,$opr);
	Do("update tarif set unitpreis=$pr where id=$tari");
}
1;
