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

more conversion to the new streaming/chunking/bucketing system

Browse source
This commit is contained in:
JT Smith 2006-01-30 22:15:27 +00:00
parent 46fa7e78e7
commit 6c4ae02f34
15 changed files with 219 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -229,17 +229,29 @@ sub view {
my $showPerformance = $self->session->errorHandler->canShowPerformanceIndicators();
my $out = $self->processTemplate($self->{_viewVars},undef,$self->{_viewTemplate});
my @parts = split("~~~",$self->processTemplate($self->{_viewVars},undef,$self->{_viewTemplate}));
my $output = "";
foreach my $part (@parts) {
$self->session->output->print($part);
if ($self->{_viewPrintOverride}) {
$self->session->output->print($part);
} else {
$output .= $part;
}
my $asset = shift @{$self->{_viewPlaceholders}};
if (defined $asset) {
my $t = [Time::HiRes::gettimeofday()] if ($showPerformance);
$self->session->output->print($asset->view);
$self->session->output->print("Asset:".Time::HiRes::tv_interval($t)) if ($showPerformance);
my $assetOutput = $asset->view;
$assetOutput .= "Asset:".Time::HiRes::tv_interval($t) if ($showPerformance);
if ($self->{_viewPrintOverride}) {
$self->session->output->print($assetOutput);
} else {
$output .= $assetOutput;
}
}
}
return $output;
}
#-------------------------------------------------------------------
sub www_setContentPositions {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
@ -249,5 +261,12 @@ sub www_setContentPositions {
return "Map set: ".$self->session->form->process("map");
}
#-------------------------------------------------------------------
sub www_view {
my $self = shift;
$self->{_viewPrintOverride} = 1; # we do this to make it output each easset as it goes, rather than waiting until the end
return $self->SUPER::www_view;
}
1;