use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(isodate);

sub export_fibunet_datum($) {
	my($d) = @_;
	return "0" unless $d;
	my($j,$m,$t) = isodate($d);
	$t = "0$t" if length($t) == 1;
	$m = "0$m" if length($m) == 1;
	"$t.$m.$j";
}
1;
