loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.109, 2005/06/18 17:23:25	version 1.110, 2005/06/18 18:51:50
Line 266 sub date_setter {	Line 266 sub date_setter {
if (! defined($no_hh_mm_ss)) {	if (! defined($no_hh_mm_ss)) {
$no_hh_mm_ss = 0;	$no_hh_mm_ss = 0;
}	}
if (! defined($currentvalue) \|\| $currentvalue eq 'now') {	if ($currentvalue eq 'now') {
unless ($includeempty) {	$currentvalue=time;
$currentvalue = time;	}
$wasdefined=0;	if ((!defined($currentvalue)) \|\| ($currentvalue eq '')) {
} else {	$wasdefined=0;
	if ($includeempty) {
$currentvalue = 0;	$currentvalue = 0;
	} else {
	$currentvalue = time;
}	}
}	}
# other potentially useful values: wkday,yrday,is_daylight_savings	# other potentially useful values: wkday,yrday,is_daylight_savings
Line 282 sub date_setter {	Line 285 sub date_setter {
$year += 1900;	$year += 1900;
}	}
unless ($wasdefined) {	unless ($wasdefined) {
$sec=($defsec?$defsec:0);	if (($defhour) \|\| ($defmin) \|\| ($defsec)) {
$min=($defmin?$defmin:0);	($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) =
$hour=($defhour?$defhour:0);	localtime(time);
	$year += 1900;
	$sec=($defsec?$defsec:0);
	$min=($defmin?$defmin:0);
	$hour=($defhour?$defhour:0);
	} elsif (!$includeempty) {
	$sec=0;
	$min=0;
	$hour=0;
	}
}	}
my $result = "\n<!-- $dname date setting form -->\n";	my $result = "\n<!-- $dname date setting form -->\n";
$result .= <<ENDJS;	$result .= <<ENDJS;