sub dt_from_string {
my ( $date_string, $date_format, $tz ) = @_;
return if $date_string and $date_string =~ m|^0000-0|;
return undef if $date_string and $date_string =~ m|^0000-0|;
$tz = C4::Context->tz unless $tz;;
-