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

Form inheritance work for lists, removal of $session{os}{slash}

Browse source
This commit is contained in:
Colin Kuskie 2005-12-01 20:46:55 +00:00
parent abe85d439e
commit 99df1f414e
90 changed files with 1364 additions and 1168 deletions
Download patch file Download diff file Expand all files Collapse all files

35
lib/WebGUI/Form/Template.pm
View file

@ -15,9 +15,8 @@ package WebGUI::Form::Template;
=cut
use strict;
use base 'WebGUI::Form::Control';
use base 'WebGUI::Form::SelectBox';
use WebGUI::Asset::Template;
use WebGUI::Form::SelectList;
use WebGUI::Icon;
use WebGUI::International;
use WebGUI::Session;
@ -33,7 +32,7 @@ Creates a template chooser control.
=head1 SEE ALSO
This is a subclass of WebGUI::Form::Control.
This is a subclass of WebGUI::Form::SelectBox.
=head1 METHODS
@ -69,8 +68,11 @@ sub definition {
my $class = shift;
my $definition = shift || [];
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("assetName","Asset_Template")
},
label=>{
defaultValue=>$class->getName()
defaultValue=>WebGUI::International::get("assetName","Asset_Template")
},
name=>{
defaultValue=>"templateId"
@ -84,18 +86,6 @@ sub definition {
#-------------------------------------------------------------------
=head2 getName ()
Returns the human readable name or type of this form control.
=cut
sub getName {
return WebGUI::International::get("assetName","Asset_Template");
}
#-------------------------------------------------------------------
=head2 toHtml ( )
Renders a database connection picker control.
@ -112,17 +102,8 @@ sub toHtml {
delete $templateList->{$assetId};
}
}
# not sure why, but for some reason this fails under certain circumstances unless defined
# in this manner. The syndicated content asset is an example where it fails.
my $cmd = "WebGUI::Form::SelectList";
my $selectList = $cmd->new(
id=>$self->{id},
name=>$self->{name},
options=>$templateList,
value=>[$self->{value}],
extras=>$self->{extras}
);
return $selectList->toHtml;
$self->{options} = $templateList;
return $self->SUPER::toHtml();
}
#-------------------------------------------------------------------