diff --git a/lib/WebGUI/Asset/FilePile.pm b/lib/WebGUI/Asset/FilePile.pm index c9e8caaae..1806e78c4 100644 --- a/lib/WebGUI/Asset/FilePile.pm +++ b/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 + +=cut + sub www_edit { my $self = shift; unless ($self->session->form->process("doit")) { diff --git a/lib/WebGUI/Asset/Template.pm b/lib/WebGUI/Asset/Template.pm index 0e8a2be25..9cc0510cc 100644 --- a/lib/WebGUI/Asset/Template.pm +++ b/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. 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;