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

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

    # *.tdf
    my $cache_lm = $self->GetCacheLastModified;
    return 0 if $TDS::Status->lmo->lm > $cache_lm;

    return $self->SUPER::IsFresh;
}    

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