oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

some http header changes

Browse source
This commit is contained in:
JT Smith 2006-04-18 14:22:42 +00:00
parent 4a3dab3ddb
commit e8c073b9df
23 changed files with 206 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Asset/Wobject/SQLReport.pm
View file

@ -326,7 +326,7 @@ sub view {
#use Data::Dumper; return '<pre>'.Dumper($var).'</pre>';
my $out = $self->processTemplate($var,undef,$self->{_viewTemplate});
if (!$self->session->var->isAdminOn && $self->get("cacheTimeout") > 10) {
WebGUI::Cache->new($self->session,"view_".$self->getId)->set($out,$self->get("visitorCacheTimeout"));
WebGUI::Cache->new($self->session,"view_".$self->getId)->set($out,$self->get("cacheTimeout"));
}
return $out;
}
@ -491,5 +491,20 @@ sub _processQuery {
}
return \%var;
}
#-------------------------------------------------------------------
=head2 www_view ()
See WebGUI::Asset::Wobject::www_view() for details.
=cut
sub www_view {
my $self = shift;
$self->session->http->setCacheControl($self->get("cacheTimeout"));
$self->SUPER::www_view(@_);
}
1;