# Setzt das Exportdatum

use utf8;
use strict;
use warnings; no warnings "redefine";
use Loader qw(export_fibunet_datum);

sub set_export_datum($) {
	my ($dat) = @_;
	$Db::export_datum = export_fibunet_datum($dat);
	$Db::db_export_datum = $dat;

	no warnings 'void';
	$Db::export_datum; # once-Warnung
	$Db::db_export_datum; # once-Warnung
}
1;
