UBB.Developers Forums UBB.classic V6.4 - 6.7 Modifications V6 Mod Ideas Registration Dropdown, Code Check

my @gender = qw(Male Female);
#my $es=ah = (keys %select_list)[0];
my $array1_index = 0;
foreach (@gender) {
	last if $select_list{$_} =~ m/selected/;
	$array1_index++
}

# Custom 3
print &GenerateLineHTML($vars_registration{custom3_field_use},
$vars_registration{customfield3}, "", "customfield3", "dropdown", { Male => "$vars_wordlets_mods{male_option}", Female => 

"$vars_wordlets_mods{female_option}", },$array1_index, @gender);

	# check Gender
	if ($in{customfield3} =~ "blank1") {

		#print qq%Content-type: text/htmlnn%;
		print header(
			-charset => "$masterCharset",
			-type    => "text/html",
		);

		&StandardHTML("$vars_wordlets_err{gender_invalid}");
	}