Check for a radio in that box
--#--
Checkboxes and radio buttons are deceptively similar. 
The main difference to watch out for is that radio buttons tend 
to come in groups, with the buttons in each group having the same 
<i>name</i> but different <i>value</i> fields.<br>
<br>
The bottom line is that you can treat checkboxes almost like text 
fields:<br>
<br>
<code>
@cbs = getCheckBoxes($html_file);
foreach(@cbs) {
	$val = $query->param($_);
	if (length($val) > 0) {
		$html_file =~ s/(name="?$_[^>]*)>/$1 CHECKED>/si;
	}
}

sub getCheckBoxes {
	my($html) = @_;
	my @c = ();
	my @boxes = split(/type="?checkbox/i, $html);
	for (1..@boxes - 1) {
		if ($boxes[$_] =~ /name="?([\-\w]*)"?/i) {
			push(@c, $1);
		}
	}
	return @c;
}
</code>
<br>
But radio buttons need different treatment altogether. The first thing 
to look out for, get a list of <i>unique</i> group names.  If you simply 
split on <i>radio</i> and push each name, you'll get an array full of 
duplicates.  You need to check the array <i>first</i> to see that 
name has already been pushed:<br>
<br>
<code>
if ($radios[$_] =~ /name="?([\-\w]*)"?\s+/i && !grep(/$1/, @r)) {
	push(@r, $1);
}
</code>
<br>
<i>grep</i> looks into the array to see if the backreferenced match is 
there. If not <i>!</i>, it gets pushed. Once you have an array of names, 
match on the name's <i>value</i>, not the name itself. Complete radio code:<br>
<br>
<code>
@radios = getRadios($html_content);
foreach(@radios) {
	$val = $query->param($_);
	$html_content =~ s/(value="?$val[^>]*)>/$1 CHECKED>/si;
}

sub getRadios {
	my($html) = @_;
	my @r = ();
	my @radios = split(/type="?radio/i, $html);
	for (1..@radios - 1) {
		if ($radios[$_] =~ /name="?([\-\w]*)"?\s+/i && !grep(/$1/, @r)) {
			push(@r, $1);
		}
	}
	return @r;
}
</code>
<br>