oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add missing POD to these assets.

Browse source
This commit is contained in:
Colin Kuskie 2009-07-04 20:22:21 +00:00
parent 3cd1e13051
commit cc1110a48d
2 changed files with 74 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lib/WebGUI/Asset/FilePile.pm
View file

@ -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")) {