Tvheadend

# minimize the chance of an error causing the day to be off by one.

sub parse_original_airdate {

	my ($year, $month, $day) = ($_[0] =~ /(\d+)-(\d+)-(\d+)/);

	return DateTime->new(

		year       => $year,

		month      => $month,

# The xmltv docs state this field is "When and where the programme was last shown".

# However mythtv expects the original air date to be in this field.

sub get_program_previously_shown {

	my %previously_shown;

	my $date = $details->{'originalAirDate'};

	if($date) {

		my $dt = parse_original_airdate($date);

			'episode-num'      => get_program_episode($program, $details),

			'video'            => get_program_video($program),

			'audio'            => get_program_audio($program),

			'premiere'         => get_program_premiere($program),

#			'last-chance'      => undef,

			'new'              => get_program_new($program),