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

Adding POD for DataForm

Browse source
This commit is contained in:
Diona Kidd 2007-09-11 17:45:32 +00:00
parent 3c37f3af00
commit 0dd8cf75e2
1 changed files with 38 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

47
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -1,14 +1,18 @@
package WebGUI::Asset::Wobject::DataForm;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2007 Plain Black Corporation.
-------------------------------------------------------------------
Please read the legal notices (docs/legal.txt) and the license
(docs/license.txt) that came with this distribution before using
this software.
-------------------------------------------------------------------
http://www.plainblack.com info@plainblack.com
-------------------------------------------------------------------
=cut
use strict qw(vars subs);
use Tie::CPHash;
@ -26,6 +30,21 @@ use WebGUI::Utility;
our @ISA = qw(WebGUI::Asset::Wobject);
=head1 NAME
Package WebGUI::Asset::Wobject::DataForm
=head1 DESCRIPTION
A subclass of lib/WebGUI/Wobject. DataForm creates custom forms to save data in the WebGUI database.
=head1 METHODS
These methods are available from this class:
=cut
#-------------------------------------------------------------------
sub _createField {
my $self = shift;
@ -130,6 +149,16 @@ sub defaultViewForm {
}
#-------------------------------------------------------------------
=head2 definition ( session, [definition] )
Returns an array reference of definitions. Adds tableName, className, properties to array definition.
=head3 definition
An array of hashes to prepend to the list
=cut
sub definition {
my $class = shift;
my $session = shift;