sub dt_from_string {
my ( $date_string, $date_format, $tz ) = @_;
if ( $date_string =~ /^9999-/ ) {
return DateTime::Format::DateParse->parse_datetime($date_string);
}
if ( !$tz ) {
$tz = C4::Context->tz;
-