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

Cleaned the pollution from the forms system.

Browse source
This commit is contained in:
JT Smith 2008-04-16 16:11:10 +00:00
parent 53b81b36d0
commit 8500c4d506
81 changed files with 2675 additions and 1570 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Form/Slider.pm
View file

@ -60,21 +60,13 @@ Defaults to "0". The minimum value that the slider can go to.
Defaults to 1. Setting this option to 0 will hide the input element tied to the
slider.
=head4 profileEnabled
Flag that tells the User Profile system that this is a valid form element in a User Profile
=cut
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
formName=>{
defaultValue=> "No name",
},
maximum=>{
defaultValue=> "100",
},
@ -84,9 +76,6 @@ sub definition {
editable=>{
defaultValue=> "1",
},
profileEnabled=>{
defaultValue=>0,
},
});
return $class->SUPER::definition($session, $definition);
}
@ -156,6 +145,19 @@ sub getInputVariable {
#-------------------------------------------------------------------
=head2 getName ( session )
Returns the human readable name of this control.
=cut
sub getName {
my ($self, $session) = @_;
return WebGUI::International->new($session, 'WebGUI')->get('slider');
}
#-------------------------------------------------------------------
=head2 getOnChangeInputElement ( )
This method should return the javascript code that should be executed on an