Add missing POD to Layout.

This commit is contained in:
Colin Kuskie 2009-07-04 20:49:31 +00:00
parent 5458d1a679
commit 8405f79002

View file

@ -100,7 +100,7 @@ sub definition {
=head2 getEditForm ( ) =head2 getEditForm ( )
Returns the TabForm object that will be used in generating the edit page for this asset. Extends the base method to handle the optional mobileTemplateId and assetsToHide.
=cut =cut
@ -180,6 +180,13 @@ sub getEditForm {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 prepareView
Extends the base class to handle the optional mobile style template, to handle asset dragging
and to put children in their places.
=cut
sub prepareView { sub prepareView {
my $self = shift; my $self = shift;
$self->SUPER::prepareView; $self->SUPER::prepareView;
@ -300,6 +307,15 @@ sub prepareView {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 view
Render all the children.
Show performance indicators for the Layout and all children if enabled.
=cut
sub view { sub view {
my $self = shift; my $self = shift;
my $session = $self->session; my $session = $self->session;
@ -337,6 +353,14 @@ sub view {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 www_setContentPositions
Method called via iFrame to handle reordering content positions. This action creates
a new asset revision.
=cut
sub www_setContentPositions { sub www_setContentPositions {
my $self = shift; my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit); return $self->session->privilege->insufficient() unless ($self->canEdit);
@ -348,6 +372,14 @@ sub www_setContentPositions {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getContentLastModified
Extend the base class to include looking at the last modified times of all children
of the page, by lineage.
=cut
sub getContentLastModified { sub getContentLastModified {
# Buggo: this is a little too conservative. Children that are hidden maybe shouldn't count. Hm. # Buggo: this is a little too conservative. Children that are hidden maybe shouldn't count. Hm.
my $self = shift; my $self = shift;
@ -360,6 +392,13 @@ sub getContentLastModified {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 www_view
Extend the base method to handle caching and ad rotation.
=cut
sub www_view { sub www_view {
my $self = shift; my $self = shift;
my $session = $self->session; my $session = $self->session;