--- loncom/interface/lonhtmlcommon.pm	2003/12/29 21:17:00	1.37
+++ loncom/interface/lonhtmlcommon.pm	2004/01/01 20:13:17	1.38
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.37 2003/12/29 21:17:00 www Exp $
+# $Id: lonhtmlcommon.pm,v 1.38 2004/01/01 20:13:17 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -91,8 +91,9 @@ sub textbox {
 ##############################################
 ##############################################
 sub checkbox {
-    my ($name) = @_;
-    my $Str = '<input type="checkbox" name="'.$name.'" />';
+    my ($name,$value) = @_;
+    my $Str = '<input type="checkbox" name="'.$name.'"'.
+	($value?' checked="1"':'').' />';
     return $Str;
 }