# 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 32 "web_diary_dir/lib/TDS/Cache/Recent.pm (autosplit into web_diary_dir/lib/auto/TDS/Cache/Recent/IsFresh.al)"
################################################################
sub IsFresh($)
{

    my $self = shift;

##    warn " Recent IsFresh start";
    # super class
    return 0 unless $self->SUPER::IsFresh;
    # mode check
    return 0 unless $TDS::Status->mode eq 'RECENT';

    # today's check
    my $cache_lm = $self->GetCacheLastModified;
    my $dt = new DateTime::Date;
    $dt->SetTime($cache_lm, $TDS::System::TZ);
    return 0 unless $dt == $TDS::Status->start_time;	    
    
    return 1;
}

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