--- loncom/interface/lonhtmlcommon.pm 2005/11/15 21:08:47 1.119
+++ loncom/interface/lonhtmlcommon.pm 2005/11/21 21:20:06 1.120
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.119 2005/11/15 21:08:47 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.120 2005/11/21 21:20:06 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -204,6 +204,28 @@ sub checkbox {
$Str .= ' checked="1"';
}
$Str .= ' />';
+ return $Str;
+}
+
+
+=pod
+
+=item radiobutton
+
+=cut
+
+##############################################
+##############################################
+sub radio {
+ my ($name,$checked,$value) = @_;
+ my $Str = '