--- 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 = '<input type="radio" name="'.$name.'" ';
+    if (defined($value)) {
+        $Str .= 'value="'.$value.'"';
+    } 
+    if ($checked eq $value) {
+        $Str .= ' checked="1"';
+    }
+    $Str .= ' />';
     return $Str;
 }