POD Coverage for Event, SQLReport, Survey, Navigation, Article, and Form/HTMLArea

This commit is contained in:
Colin Kuskie 2009-04-10 02:02:07 +00:00
parent 17cd847378
commit 4a5d907d77
6 changed files with 125 additions and 3 deletions

View file

@ -220,6 +220,13 @@ sub definition {
}
#-------------------------------------------------------------------
=head2 getEditForm ( )
Manually make the edit form due to javascript for adding more queries.
=cut
sub getEditForm {
my $self = shift;
my $tabform = $self->SUPER::getEditForm();
@ -495,6 +502,14 @@ sub purgeCache {
}
#-------------------------------------------------------------------
=head2 view ( )
See WebGUI::Asset::view() for details. This method also performs content caching
if the user is not in Admin Mode.
=cut
sub view {
my $self = shift;
if (!$self->session->var->isAdminOn && $self->get("cacheTimeout") > 10) {