-# foreach my $f ( @$form_select ) {
-# $html .= "what.$f.value = document.$form_name.$f.options[document.$form_name.$f.selectedIndex].value;\n";
-# }
+ foreach my $f ( @$form_radio ) {
+ $html .= "what.$f.value = '';
+ for ( i=0; i< document.$form_name.$f.length; i++ )
+ if ( document.$form_name.${f}[i].checked )
+ what.$f.value = document.$form_name.${f}[i].value;\n";
+ }
+
+ foreach my $f ( @$form_select ) {
+ $html .= "what.$f.value = document.$form_name.$f.options[document.$form_name.$f.selectedIndex].value;\n";
+ }