# NOTE: Derived from web_diary_dir/lib/TDS/Cache/Recent.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package TDS::Cache::Recent;

#line 51 "web_diary_dir/lib/TDS/Cache/Recent.pm (autosplit into web_diary_dir/lib/auto/TDS/Cache/Recent/NewerThanDatafile.al)"
sub NewerThanDatafile($)
{
    my $self = shift;

    my $data_dir = GetDataDir();

    # PIM: todo, schedule
    my $year = $TDS::Status->start_time->year;
    return 0 if $self->newer_than_cache("$data_dir/schedule.dat");
    return 0 if $self->newer_than_cache(GetDiaryDir() . "/$year/schedule.dat");
    $year++;
    return 0 if $self->newer_than_cache(GetDiaryDir() . "/$year/schedule.dat");

    return 0 if $self->newer_than_cache("$data_dir/todo.dat");

    return $self->SUPER::NewerThanDatafile;
}

# end of TDS::Cache::Recent::NewerThanDatafile
1;
