sub build_select_field {
# --------------------------------------------------------
# Builds a SELECT field based on information found
# in the database definition. Parameters are the column to build
# and a default value (optional).

my ($column, $value) = @_;
my (@fields, $ouptut);

@fields = split (/\,/, $db_select_fields{$column});
if ($#fields == -1) {
$output = "error building select field:
no select fields specified in config for field '$column'!";
}
else {
$output = qq|<SELECT NAME="$column"><OPTION>---|;
foreach $field (@fields) {
$showfield = $field;
$showfield =~ s/_/ /g;
$field eq $value ?
($output .= "<OPTION SELECTED value="$field">$showfield\n") :
($output .= "<OPTION value="$field">$showfield");
}
$output .= "</SELECT>";
}
return $output;
}

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

sub build_fancy_select_field {
# --------------------------------------------------------
#
# To call this subroutine from html_record_form, use the following syntax:
#
# print &build_fancy_select_field("FieldName",$rec{'FieldName'});
#
# Be sure to express the field name *exactly* as it is defined in your .cfg file.
#
my $field = $_[0];
my $compare = $_[1];
my %selector = (
'Employee_Type' => [
['---','Choose one of the following:'],
['Adminstrator','Administrator'],
['Classified_Staff','Classified Staff'],
['Faculty','Faculty'],
['Professional_Staff','Professional Staff'],
['Temporary_Staff','Temporary Staff']
],
'Location' => [
['---','Choose one of the following:'],
['Flagstaff Campus','Flagstaff Campus'],
['Grand Canyon','Grand Canyon'],
['Page Campus','Page Campus'],
['Williams','Williams']
],
);
$output = qq|<SELECT NAME="$field">\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;
}