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

some new tweaks

Browse source
This commit is contained in:
JT Smith 2003-12-08 21:04:46 +00:00
parent 979b2a3e8c
commit d99c033411
9 changed files with 73 additions and 367 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/HTMLForm.pm
View file

@ -587,13 +587,9 @@ Extra text to describe this form element or to provide special instructions.
The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
=item dateExtras
=item extras
Extra parameters such as javascript or style sheet information that you wish to add to the date form element.
=item timeExtras
Extra parameters such as javascript or style sheet information that you wish to add to the time form element.
Extra parameters such as javascript or style sheet information that you wish to add to the form element.
=back
@ -602,14 +598,13 @@ Extra parameters such as javascript or style sheet information that you wish to
sub dateTime {
my ($output);
my ($self, @p) = @_;
my ($name, $label, $value, $subtext, $uiLevel, $dateExtras, $timeExtras) =
rearrange([qw(name label value subtext uiLevel dateExtras timeExtras)], @p);
my ($name, $label, $value, $subtext, $uiLevel, $extras) =
rearrange([qw(name label value subtext uiLevel extras)], @p);
if (_uiLevelChecksOut($uiLevel)) {
$output = WebGUI::Form::dateTime({
"name"=>$name,
"value"=>$value,
"dateExtras"=>$dateExtras,
"timeExtras"=>$timeExtras
"extras"=>$extras
});
$output .= _subtext($subtext);
$output = $self->_tableFormRow($label,$output);