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

Added: Packing of templates, snippets, and head tags.

Browse source
This commit is contained in:
Doug Bell 2009-04-30 17:57:26 +00:00
parent 026f7ff47e
commit faca68256c
9 changed files with 233 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

45
lib/WebGUI/Asset/Template.pm
View file

@ -20,7 +20,7 @@ use WebGUI::International;
use WebGUI::Asset::Template::HTMLTemplate;
use WebGUI::Utility;
use Clone qw/clone/;
use HTML::Packer;
=head1 NAME
@ -72,6 +72,7 @@ sub definition {
fieldType => 'codearea',
syntax => "html",
defaultValue => undef,
filter => 'packTemplate',
},
isEditable => {
noFormPost => 1,
@ -95,6 +96,14 @@ sub definition {
fieldType => 'combo',
defaultValue => undef,
},
templatePacked => {
fieldType => 'hidden',
defaultValue => undef,
},
usePacked => {
fieldType => 'yesNo',
defaultValue => 1,
},
},
};
return $class->SUPER::definition($session,$definition);
@ -137,6 +146,27 @@ sub duplicate {
#-------------------------------------------------------------------
=head2 packTemplate ( template )
Pack the template into a minified version for faster downloads.
=cut
sub packTemplate {
my ( $self, $template ) = @_;
my $packed = $template;
HTML::Packer::minify( \$packed, {
remove_comments => 1,
remove_newlines => 1,
do_javascript => "shrink",
do_stylesheet => "minify",
} );
$self->update({ templatePacked => $packed });
return $template;
}
#-------------------------------------------------------------------
sub processPropertiesFromFormPost {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost;
@ -207,6 +237,12 @@ sub getEditForm {
-syntax => "html",
-value=>$self->getValue("template")
);
$tabform->getTab('properties')->yesNo(
name => "usePacked",
label => $i18n->get('usePacked label'),
hoverHelp => $i18n->get('usePacked description'),
value => $self->getValue("usePacked"),
);
if($self->session->config->get("templateParsers")){
my @temparray = @{$self->session->config->get("templateParsers")};
tie my %parsers, 'Tie::IxHash';
@ -365,7 +401,12 @@ sub process {
my $self = shift;
my $vars = shift;
$self->prepare unless ($self->{_prepared});
return $self->getParser($self->session, $self->get("parser"))->process($self->get("template"), $vars);
my $parser = $self->getParser($self->session, $self->get("parser"));
my $template = $self->get('usePacked')
? $self->get('templatePacked')
: $self->get('template')
;
return $parser->process($template, $vars);
}