version 1.107, 2005/06/06 15:54:28
|
version 1.108, 2005/06/14 02:33:18
|
Line 258 The method used to restrict user input w
|
Line 258 The method used to restrict user input w
|
############################################## |
############################################## |
sub date_setter { |
sub date_setter { |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
$no_hh_mm_ss) = @_; |
$no_hh_mm_ss,$defhour,$defmin,$defsec) = @_; |
my $wasdefined=1; |
my $wasdefined=1; |
if (! defined($state) || $state ne 'disabled') { |
if (! defined($state) || $state ne 'disabled') { |
$state = ''; |
$state = ''; |
Line 282 sub date_setter {
|
Line 282 sub date_setter {
|
$year += 1900; |
$year += 1900; |
} |
} |
unless ($wasdefined) { |
unless ($wasdefined) { |
$sec=0; |
$sec=($defsec?$defsec:0); |
$min=0; |
$min=($defmin?$defmin:0); |
|
$hour=($defhour?$defhour:0); |
} |
} |
my $result = "\n<!-- $dname date setting form -->\n"; |
my $result = "\n<!-- $dname date setting form -->\n"; |
$result .= <<ENDJS; |
$result .= <<ENDJS; |