loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.106, 2005/06/03 15:47:29	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;
if (! defined($state) \|\| $state ne 'disabled') {	if (! defined($state) \|\| $state ne 'disabled') {
$state = '';	$state = '';
}	}
Line 268 sub date_setter {	Line 269 sub date_setter {
if (! defined($currentvalue) \|\| $currentvalue eq 'now') {	if (! defined($currentvalue) \|\| $currentvalue eq 'now') {
unless ($includeempty) {	unless ($includeempty) {
$currentvalue = time;	$currentvalue = time;
	$wasdefined=0;
} else {	} else {
$currentvalue = 0;	$currentvalue = 0;
}	}
Line 279 sub date_setter {	Line 281 sub date_setter {
localtime($currentvalue);	localtime($currentvalue);
$year += 1900;	$year += 1900;
}	}
	unless ($wasdefined) {
	$sec=($defsec?$defsec: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;
<script language="Javascript">	<script language="Javascript">