loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;