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

more various changes

Browse source
This commit is contained in:
JT Smith 2006-04-18 21:01:30 +00:00
parent 5da0204a28
commit 19f0f7fd72
6 changed files with 23 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/File.pm
View file

@ -19,6 +19,7 @@ use WebGUI::Asset;
use WebGUI::Cache;
use WebGUI::Storage;
use WebGUI::SQL;
use WebGUI::Utility;
our @ISA = qw(WebGUI::Asset);
@ -339,6 +340,7 @@ sub view {
$var{controls} = $self->getToolbar;
$var{fileUrl} = $self->getFileUrl;
$var{fileIcon} = $self->getFileIconUrl;
$var{fileSize} = formatBytes($self->get("assetSize"));
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("cacheTimeout"));

1
lib/WebGUI/Asset/Wobject.pm
View file

@ -537,6 +537,7 @@ sub www_view {
my $self = shift;
my $check = $self->checkView;
return $check if (defined $check);
$self->session->http->setLastModified($self->get("revisionDate"));
$self->session->http->sendHeader;
$self->prepareView;
my $style = $self->processStyle("~~~");

1
lib/WebGUI/Asset/Wobject/Layout.pm
View file

@ -286,6 +286,7 @@ sub www_view {
my $ad = $adSpace->displayImpression if (defined $adSpace);
$out =~ s/\Q$code/$ad/ges;
}
$self->session->http->setLastModified($self->get("revisionDate"));
$self->session->http->sendHeader;
$self->session->output->print($out, 1);
return "chunked";