loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.119, 2005/11/15 21:08:47
+version 1.120, 2005/11/21 21:20:06
  Line 207  sub checkbox {
      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;
+ }
  ##############################################
  ##############################################