mod_perl warnings fixes

This commit is contained in:
JT Smith 2003-05-26 04:41:24 +00:00
parent 938ccbb565
commit 53f0b7c0f3
5 changed files with 34 additions and 23 deletions

View file

@ -56,6 +56,11 @@ Package that makes HTML forms typed data and significantly reduces the code need
-label=>"End Date",
-value=>$endDate
);
$f->dateTime(
-name=>"endDate",
-label=>"End Date",
-value=>$endDate
);
$f->email(
-name=>"emailAddress",
-label=>"Email Address"
@ -142,6 +147,11 @@ Package that makes HTML forms typed data and significantly reduces the code need
-name=>"emailMessage",
-label=>"Email Message"
);
$f->timeField(
-name=>"endDate",
-label=>"End Date",
-value=>$endDate
);
$f->url(
-name=>"homepage",
-label=>"Home Page"
@ -1985,7 +1995,7 @@ sub textarea {
#-------------------------------------------------------------------
=head2 time ( name [ label, value, extras, subtext, size, noDate, uiLevel ] )
=head2 timeField ( name [ label, value, extras, subtext, size, noDate, uiLevel ] )
Adds a date row to this form.
@ -2025,7 +2035,7 @@ The UI level for this field. See the WebGUI developer's site for details. Defaul
=cut
sub time {
sub timeField {
my ($output);
my ($self, @p) = @_;
my ($name, $label, $value, $extras, $subtext, $size, $uiLevel) =