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

21
lib/WebGUI/Form/Interval.pm
View file

@ -19,9 +19,9 @@ use warnings;
use base qw(WebGUI::Form::Control);
use Tie::IxHash;
use WebGUI::DateTime;
use WebGUI::Form::SelectBox;
use WebGUI::Form::Hidden;
use WebGUI::Form::Integer;
use WebGUI::Form::SelectList;
use WebGUI::International;
use WebGUI::Session;
@ -67,6 +67,9 @@ sub definition {
my $class = shift;
my $definition = shift || [];
push(@{$definition}, {
formName=>{
defaultValue=>WebGUI::International::get("interval","WebGUI"),
},
defaultValue=>{
defaultValue=>1,
},
@ -77,20 +80,6 @@ sub definition {
return $class->SUPER::definition($definition);
}
#-------------------------------------------------------------------
=head2 getName ()
Returns the human readable name or type of this form control.
=cut
sub getName {
return WebGUI::International::get("interval","WebGUI");
}
#-------------------------------------------------------------------
=head2 getValueFromPost ( )
@ -133,7 +122,7 @@ sub toHtml {
extras=>$self->{extras},
id=>$self->{id}."_interval",
)->toHtml;
$cmd = "WebGUI::Form::SelectList";
$cmd = "WebGUI::Form::SelectBox";
$out .= $cmd->new(
options=>\%units,
name=>$self->{name}."_units",