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 ( )
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
@ -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 {
my $self = shift;
$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 {
my $self = shift;
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 {
my $self = shift;
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 {
# Buggo: this is a little too conservative. Children that are hidden maybe shouldn't count. Hm.
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 {
my $self = shift;
my $session = $self->session;