# 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 44 "web_diary_dir/lib/TDS/Cache/Display.pm (autosplit into web_diary_dir/lib/auto/TDS/Cache/Display/WriteCache.al)"
################################################################
sub WriteCache($$)
{
    my ($self, $html) = @_;
    $self->has_secret($TDS::Status->has_secret);
    $self->SUPER::WriteCache($html);
}

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