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

began adding streaming support for view method

Browse source
This commit is contained in:
JT Smith 2006-01-30 21:26:22 +00:00
parent 80fc76691f
commit 46fa7e78e7
15 changed files with 240 additions and 188 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Asset/File/Image.pm
View file

@ -188,6 +188,23 @@ sub getToolbar {
return $self->SUPER::getToolbar();
}
#-------------------------------------------------------------------
=head2 prepareView ( )
See WebGUI::Asset::prepareView() for details.
=cut
sub prepareView {
my $self = shift;
$self->SUPER::prepareView();
my $template = WebGUI::Asset::Template->new($self->session, $self->get("templateId"));
$template->prepare;
$self->{_viewTemplate} = $template;
}
#-------------------------------------------------------------------
sub processPropertiesFromFormPost {
my $self = shift;
@ -220,7 +237,7 @@ sub view {
$var{fileUrl} = $self->getFileUrl;
$var{fileIcon} = $self->getFileIconUrl;
$var{thumbnail} = $self->getThumbnailUrl;
return $self->processTemplate(\%var,$self->get("templateId"));
return $self->processTemplate(\%var,undef,$self->{_viewTemplate});
}
#-------------------------------------------------------------------

43
lib/WebGUI/Asset/File/ZipArchive.pm
View file

@ -186,6 +186,23 @@ sub getIcon {
}
#-------------------------------------------------------------------
=head2 prepareView ( )
See WebGUI::Asset::prepareView() for details.
=cut
sub prepareView {
my $self = shift;
$self->SUPER::prepareView();
my $template = WebGUI::Asset::Template->new($self->session, $self->get("templateId"));
$template->prepare;
$self->{_viewTemplate} = $template;
}
#-------------------------------------------------------------------
=head2 processPropertiesFromFormPost ( )
@ -224,30 +241,6 @@ sub processPropertiesFromFormPost {
}
#-------------------------------------------------------------------
=head2 purge ( )
This method is called when data is purged by the system.
=cut
sub purge {
my $self = shift;
return $self->SUPER::purge;
}
#-------------------------------------------------------------------
=head2 purgeRevision ( )
This method is called when data is purged by the system.
=cut
sub purgeRevision {
my $self = shift;
return $self->SUPER::purgeRevision;
}
#-------------------------------------------------------------------
=head2 view ( )
@ -273,7 +266,7 @@ sub view {
unless($self->get("showPage")) {
$var{pageError} = "true";
}
return $self->processTemplate(\%var,$self->get("templateId"));
return $self->processTemplate(\%var,undef,$self->{_viewTemplate});
}