Add missing POD to these assets.

lib/WebGUI/Asset/FilePile.pm

@@ -38,7 +38,6 @@ Provides a mechanism to upload files to WebGUI.
 
 use WebGUI::Asset::FilePile;
 
-
 =head1 METHODS
 
 These methods are available from this class:
@@ -46,6 +45,13 @@ These methods are available from this class:
 =cut
 
 #-------------------------------------------------------------------
+
+=head2 edit 
+
+Hand draw a form where users can upload multiple files at a time.
+
+=cut
+
 sub edit {
 	my $self = shift;
 	my $tabform = WebGUI::TabForm->new($self->session,);
@@ -139,6 +145,13 @@ sub edit {
 }
 
 #-------------------------------------------------------------------
+
+=head2 editSave 
+
+Upload files and create assets for each one.
+
+=cut
+
 sub editSave {
 	my $self = shift;
     return $self->session->privilege->locked() unless $self->canEditIfLocked;
@@ -208,6 +221,13 @@ sub editSave {
 }
 
 #-------------------------------------------------------------------
+
+=head2 getIcon 
+
+Override the master class since FilePile does not use a definition subroutine.
+
+=cut
+
 sub getIcon {
 	my $self = shift;
 	my $small = shift;
@@ -229,12 +249,19 @@ Returns the displayable name of this asset.
 sub getName {
 	my $self = shift;
 	my $i18n = WebGUI::International->new($self->session);
-        return $i18n->get('assetName',"Asset_FilePile");
+    return $i18n->get('assetName',"Asset_FilePile");
 } 
 
 
 
 #-------------------------------------------------------------------
+
+=head2 www_edit 
+
+This method dispatches to edit, and editSave based on the form variable C<doit>
+
+=cut
+
 sub www_edit {
 	my $self = shift;
 	unless ($self->session->form->process("doit")) {

lib/WebGUI/Asset/Template.pm

@@ -609,6 +609,12 @@ sub process {
 
 #-------------------------------------------------------------------
 
+=head2 processPropertiesFromFormPost 
+
+Extends the master class to handle template parsers, namespaces and template attachments.
+
+=cut
+
 sub processPropertiesFromFormPost {
 	my $self = shift;
 	$self->SUPER::processPropertiesFromFormPost;
@@ -767,6 +773,14 @@ sub update {
 
 
 #-------------------------------------------------------------------
+
+=head2 www_edit 
+
+Hand draw this form so that a warning can be displayed to the user when editing a
+default template.
+
+=cut
+
 sub www_edit {
     my $self = shift;
     return $self->session->privilege->insufficient() unless $self->canEdit;
@@ -816,6 +830,14 @@ ENDHTML
 }
 
 #-------------------------------------------------------------------
+
+=head2 www_goBackToPage 
+
+If set, redirect the user to the URL set by the form variable C<returnUrl>.  Otherwise, it returns
+the user back to the site.
+
+=cut
+
 sub www_goBackToPage {
 	my $self = shift;
 	$self->session->http->setRedirect($self->session->form->get("returnUrl")) if ($self->session->form->get("returnUrl"));
@@ -870,6 +892,14 @@ sub www_editDuplicate {
 }
 
 #-------------------------------------------------------------------
+
+=head2 www_manage 
+
+If trying to use the assetManager on this asset, push them back to managing the
+template's parent instead.
+
+=cut
+
 sub www_manage {
 	my $self = shift;
 	#takes the user to the folder containing this template.
@@ -878,6 +908,13 @@ sub www_manage {
 
 
 #-------------------------------------------------------------------
+
+=head2 www_styleWizard 
+
+Edit form for building style templates in a WYSIWIG fashion.
+
+=cut
+
 sub www_styleWizard {
 	my $self = shift;
     return $self->session->privilege->insufficient() unless $self->canEdit;
@@ -1125,6 +1162,14 @@ sub www_styleWizard {
 }
 
 #-------------------------------------------------------------------
+
+=head2 www_view 
+
+Override the default behavior.  When a template is viewed, it redirects you
+to viewing the template's container instead.
+
+=cut
+
 sub www_view {
 	my $self = shift;
 	return $self->session->asset($self->getContainer)->www_view;