sub build_fancy_mult_field {
# --------------------------------------------------------
#
# To call this subroutine from html_record_form, use the following syntax:
#
# print &build_fancy_mult_field("FieldName",$rec{'FieldName'});
#
# Be sure to express the field name *exactly* as it is defined in your .cfg file.
#
$size = "5";
my $field = $_[0];
my $compare = $_[1];
my %selector = (
'Category' => [
['---','Choose as many that apply:'],
['Academic','Academic Position'],
['Applied','Applied Anthropology'],
['Archaeology','Archaeology'],
['Biological','Biological-Physical Anthropology'],
['Business','Business Anthropology'],
['Cultural','Cultural Anthropology'],
['CRM','Cultural Resource Management'],
['Design','Design Anthropology'],
['Development','Development Anthropology'],
['Environmental','Environmental Anthropology'],
['Internship','Internship'],
['Linguistic','Linguistic Anthropology'],
['Medical','Medical Anthropology'],
['Other','Other'],
['Paleontology','Paleontology'],
['Political','Political Anthropology'],
['Primatology','Primatology'],
['Psychological','Psychological Anthropology'],
['Visual','Visual Anthropology'],
],
);

$output = qq|<SELECT NAME="$field" MULTIPLE SIZE="$size">\n|;
$i = 0;
while ( $selector{$field}[$i][0] ) {
$selector{$field}[$i][0] eq $compare ?
($output .= qq|<OPTION VALUE="$selector{$field}[$i][0]" SELECTED>$selector{$field}[$i][1]\n|) :
($output .= qq|<OPTION VALUE="$selector{$field}[$i][0]">$selector{$field}[$i][1]\n|);
++$i;
}
if ($i) {
$output .= "</SELECT>";
}
else {
$output = "Incorrect field definition";
}
return $output;
}

foreach $column (@db_cols) {
$rec{$column} =~ s/~~/, /g;
}

print &build_fancy_mult_field("Category",$rec{'Category'});

<SELECT NAME="Category" MULTIPLE SIZE="5">
<OPTION VALUE="---">Choose as many that apply:
<OPTION VALUE="Academic">Academic Position
<OPTION VALUE="Applied">Applied Anthropology
<OPTION VALUE="Archaeology">Archaeology
<OPTION VALUE="Biological">Biological-Physical Anthropology
<OPTION VALUE="Business">Business Anthropology
<OPTION VALUE="Cultural">Cultural Anthropology
<OPTION VALUE="CRM">Cultural Resource Management
<OPTION VALUE="Design">Design Anthropology
<OPTION VALUE="Development">Development Anthropology
<OPTION VALUE="Environmental">Environmental Anthropology
<OPTION VALUE="Internship">Internship
<OPTION VALUE="Linguistic">Linguistic Anthropology
<OPTION VALUE="Medical">Medical Anthropology
<OPTION VALUE="Other">Other
<OPTION VALUE="Paleontology">Paleontology
<OPTION VALUE="Political">Political Anthropology
<OPTION VALUE="Primatology">Primatology
<OPTION VALUE="Psychological">Psychological Anthropology
<OPTION VALUE="Visual">Visual Anthropology
</SELECT>

|;
&html_submit_record(%in);
print qq|
<p>
<form action="$db_script_url" method="POST" name="form1" onSubmit="return formCheck()">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<center>
<hr noshade size="2" width="80%">
<INPUT TYPE="SUBMIT" NAME="add_record" VALUE="Submit Job Posting!">  
<INPUT TYPE="SUBMIT" name="logoff" VALUE="Log Off">
<hr noshade size="2" width="80%">
</center>
<P>
|;
if ($per_admin) {
&html_admin_record_form(%in);
}
else {
&html_record_form(%in);
}
print qq|
<p><center>
<INPUT TYPE="SUBMIT" NAME="preview_record" VALUE="Edit Job Posting">
<INPUT TYPE="RESET" VALUE="Reset Form"></center></p></form>
|;

$selector{$field}[$i][0] eq $compare ?

$compare =~/$selector{$field}[$i][0]/ ?