loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.67, 2004/04/23 17:49:25	version 1.68, 2004/05/05 14:12:54
Line 163 sub textbox {	Line 163 sub textbox {
##############################################	##############################################
##############################################	##############################################
sub checkbox {	sub checkbox {
my ($name,$value) = @_;	my ($name,$checked,$value) = @_;
my $Str = '<input type="checkbox" name="'.$name.'"'.	my $Str = '<input type="checkbox" name="'.$name.'" ';
($value?' checked="1"':'').' />';	if (defined($value)) {
	$Str .= 'value="'.$value.'"';
	}
	if ($checked) {
	$Str .= ' checked="1"';
	}
	$Str .= ' />';
return $Str;	return $Str;
}	}