+%
+% } elsif ( $href->{$field}{'type'} eq 'radio' ) {
+%
+% my $radio =
+% qq!<INPUT TYPE="radio" NAME="$field" onChange="fchanged(this)"!;
+%
+% foreach my $key ( keys %{ $href->{$field}{'options'} } ) {
+% my $label = $href->{$field}{'options'}{$key};
+% $html .= qq!$radio VALUE="$key"!.
+% ( $plandata{$field} =~ /(^|, *)$key *(,|$)/ #XXX fix
+% ? ' CHECKED'
+% : ''
+% ).
+% "> $label<BR>";
+% }
+%