loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.123, 2006/03/21 20:19:41	version 1.125, 2006/04/19 22:26:26
Line 524 sub get_date_from_form {	Line 524 sub get_date_from_form {
if (($year<70) \|\| ($year>137)) { return undef; }	if (($year<70) \|\| ($year>137)) { return undef; }
if (defined($sec) && defined($min) && defined($hour) &&	if (defined($sec) && defined($min) && defined($hour) &&
defined($day) && defined($month) && defined($year) &&	defined($day) && defined($month) && defined($year) &&
eval(&timelocal($sec,$min,$hour,$day,$month,$year))) {	eval('&timelocal($sec,$min,$hour,$day,$month,$year)')) {
return &timelocal($sec,$min,$hour,$day,$month,$year);	return &timelocal($sec,$min,$hour,$day,$month,$year);
} else {	} else {
return undef;	return undef;
Line 1015 ENDLINK	Line 1015 ENDLINK

# ------------------------------------------------- Output headers for HTMLArea	# ------------------------------------------------- Output headers for HTMLArea

	{
	my @htmlareafields;
	sub init_htmlareafields {
	undef(@htmlareafields);
	}

	sub add_htmlareafields {
	my (@newfields) = @_;
	push(@htmlareafields,@newfields);
	}

	sub get_htmlareafields {
	return @htmlareafields;
	}
	}

sub htmlareaheaders {	sub htmlareaheaders {
if (&htmlareablocked()) { return ''; }	if (&htmlareablocked()) { return ''; }
unless (&htmlareabrowser()) { return ''; }	unless (&htmlareabrowser()) { return ''; }