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

fix getEditForm

Browse source
This commit is contained in:
Doug Bell 2010-06-16 11:40:56 -05:00
parent 1caef590cc
commit 3934a6704c
27 changed files with 357 additions and 809 deletions
Download patch file Download diff file Expand all files Collapse all files

45
lib/WebGUI/Asset/Wobject/DataTable.pm
View file

@ -20,6 +20,7 @@ define assetName => ['assetName', 'Asset_DataTable'];
define icon => 'DataTable.gif';
define tableName => 'DataTable';
property data => (
tab => "data",
fieldType => 'DataTable',
default => undef,
label => '',
@ -119,50 +120,6 @@ sub getDataTemplateVars {
#----------------------------------------------------------------------------
=head2 getEditForm ( )
Add the data table to the edit form.
=cut
# TODO Get the DataSource's edit form
override getEditForm => sub {
my $self = shift;
my $tabform = super();
$tabform->getTab("data")->raw(
q{<tr><td>}
. WebGUI::Form::DataTable->new(
$self->session, {
name => "data",
value => $self->data,
defaultValue => undef,
showEdit => 1,
}
)->toHtml
. q{</td></tr>}
);
return $tabform;
}; ## end sub getEditForm
#----------------------------------------------------------------------------
=head2 getEditTabs ( )
Add a tab for the data table.
override getEditTabs => sub {
my $self = shift;
my $i18n = WebGUI::International->new( $self->session, "Asset_DataTable" );
return ( super(), [ "data" => $i18n->get("tab label data") ], );
};
=cut
#----------------------------------------------------------------------------
=head2 getTemplateVars ( )
Get the template vars for this asset.