Checkpoint. Too many changes to enumerate.

This commit is contained in:
Colin Kuskie 2009-04-01 14:43:50 -07:00
parent 537bd17224
commit 3c7e7ab231
4 changed files with 57 additions and 5 deletions

View file

@ -34,7 +34,9 @@ readonly module => my %module;
public method => my %method;
public uid => my %uid;
public store => my %store; #This is an all purpose hash to store stuff in: $self->store->{something} = "something"
public bare => my %bare; #This flag indicates that neither the layout nor style template should be applied
#to the output of the method. Think JSON/XML, etc.
#-------------------------------------------------------------------
=head2 appendCommonVars ( var )
@ -139,6 +141,9 @@ sub displayContent {
my $noStyle = shift;
my $session = $self->session;
##Don't do any templating if we're sending back data like JSON or XML.
return $content if $self->bare;
#Wrap content into the layout
my $var = {};
$var->{content} = $content;
@ -344,6 +349,7 @@ sub new {
$store { $id } = {};
$method { $id } = "view";
$uid { $id } = undef;
$bare { $id } = 0;
return $self;
}