Fix more POD whitespace problems in the EMS.

This commit is contained in:
Colin Kuskie 2009-11-05 16:16:06 -08:00
parent 0aab1c1114
commit 924686b8eb
2 changed files with 6 additions and 74 deletions

View file

@ -398,80 +398,6 @@ sub getQueueUrl {
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut
#sub indexContent {
# my $self = shift;
# my $indexer = $self->SUPER::indexContent;
# $indexer->setIsPublic(0);
#}
#-------------------------------------------------------------------
=head2 prepareView ( )
See WebGUI::Asset::prepareView() for details.
we shouldn't get here, there is nothing to view...
=cut
sub prepareView {
my $self = shift;
$self->SUPER::prepareView();
#my $template = WebGUI::Asset::Template->new( $self->session, $self->get("templateId") );
#$template->prepare($self->getMetaDataAsTemplateVariables);
#$self->{_viewTemplate} = $template;
}
#-------------------------------------------------------------------
=head2 processPropertiesFromFormPost ( )
Used to process properties from the form posted. Do custom things with
noFormPost fields here, or do whatever you want. This method is called
when /yourAssetUrl?func=editSave is requested/posted.
=cut
#sub processPropertiesFromFormPost {
# my $self = shift;
# $self->SUPER::processPropertiesFromFormPost;
#}
#-------------------------------------------------------------------
=head2 purge ( )
This method is called when data is purged by the system.
removes collateral data associated with a NewAsset when the system
purges it's data. This method is unnecessary, but if you have
auxiliary, ancillary, or "collateral" data or files related to your
asset instances, you will need to purge them here.
=cut
#sub purge {
# my $self = shift;
# return $self->SUPER::purge;
#}
#-------------------------------------------------------------------
=head2 purgeRevision ( )
This method is called when data is purged by the system.
=cut
#sub purgeRevision { # my $self = shift;
# return $self->SUPER::purgeRevision;
#}
#-------------------------------------------------------------------
=head2 view ( )

View file

@ -55,6 +55,7 @@ sub addGroupToSubmitList {
}
#-------------------------------------------------------------------
=head2 addSubmissionForm
creates a child of class WG::Asset::EMSSubmissionForm
@ -102,6 +103,7 @@ sub addSubmissionForm {
}
#-------------------------------------------------------------------
=head2 canSubmit
returns true is the current user can submit to any form attached to this EMS
@ -495,6 +497,7 @@ sub getRibbons {
}
#-------------------------------------------------------------------
=head2 getSubmissionLocations
retuns an arrayref of the locations found in the submission location list
@ -572,6 +575,7 @@ sub getTokens {
}
#-------------------------------------------------------------------
=head2 hasSubmissionForms
returns true if the EMS has subission forms attached
@ -588,6 +592,7 @@ sub hasSubmissionForms {
}
#-------------------------------------------------------------------
=head2 hasSubmissions
returns true if the current user has submission forms in this EMS
@ -2656,6 +2661,7 @@ sub www_viewSchedule {
}
#---------------------------------------------
=head2 www_viewSubmissionQueue
=cut