%db_def = (
ID => [0, 'alpha', 10 , 10, 1, '', '' ],
dept => [1, 'alpha', 50 , 50, 1, '', '' ],
dept_desc => [2, 'alpha', '50x4', 150, 1, '', '' ],
practice => [3, 'alpha', 30 , 150, 1, '', '' ],
practice_desc => [4, 'alpha', '50x4', 150, 1, '', '' ],
first_name => [5, 'alpha', 20 , 50, 1, '', '' ],
middle => [6, 'alpha', 20 , 50, 0, '', '' ],
last_name => [7, 'alpha', 20 , 50, 1, '', '' ],
degree => [8, 'alpha', 50 , 150, 0, '', '' ],
title => [9, 'alpha', 50 , 150, 0, '', '' ],
type_of_practice => [10, 'alpha', 50 , 100, 1, '', '' ],
clinical_interests => [11, 'alpha', '50x4', 150, 1, '', '' ],
medical_school => [11, 'alpha', 50 , 150, 0, '', '' ],
residency => [12, 'alpha', '50x5', 250, 0, '', '' ],
fellowship => [13, 'alpha', 50 , 150, 0, '', '' ],
board_certification => [14, 'alpha', 50 , 150, 0, '', '' ],
other_training => [15, 'alpha', 50 , 150, 0, '', '' ],
graduate_school => [16, 'alpha', 50 , 150, 0, '', '' ],
clinical_training => [17, 'alpha', 50 , 150, 0, '', '' ],
certification => [18, 'alpha', 50 , 150, 0, '', '' ],
professional_assoc => [19, 'alpha', '50x3', 200, 0, '', '' ],
languages => [20, 'alpha', 50 , 150, 0, '', '' ],
practice_office => [21, 'alpha', 50 , 100, 1, '', '' ],
practice_location => [22, 'alpha', '50x2', 150, 1, '', '' ],
practice_phone => [23, 'numer', 14 , 14, 1, '(757) ', '' ],
practice_fax => [24, 'numer', 14 , 14, 0, '(757) ', '' ],
email => [25, 'alpha', 50 , 50, 0, '@evms.edu', '.+\@.+\..+' ],
academic_office => [26, 'alpha', 50 , 100, 0, '', '' ],
academic_location => [27, 'alpha', '50x2', 150, 0, '', '' ],
academic_phone => [28, 'numer', 14 , 50, 0, '(757) ', '' ],
after_hours_phone => [29, 'numer', 14 , 50, 1, '(757) ', '' ],
photo => [30, 'alpha', 50 , 90, 0, 'http://www.evms.edu/services/doctors/photos', '' ],
authorized_user => [31, 'alpha', 20 , 50, 1, '', '' ]
);

# Checkbox fields. Field name => Checkbox value.
%db_checkbox_fields = ( practice1 => 'Behavioral Medicine',
practice2 => 'Geriatrics',
practice3 => 'Ghent Family Practice',
practice4 => 'Portsmouth Family Medicine',
practice5 => 'Weight and Well Being',
practice6 => 'General Internal Medicine/Primary Care - Hofheimer Hall',
practice7 => 'General Internal Medicine/Primary Care - DePaul Hospital',
practice8 => 'Cardiology',
practice9 => 'Dermatology',
practice10 => 'Endocrinology and Diabetes - Diabetes Institutes',
practice11 => 'Endocrinology and Diabetes - DePaul Endocrinology',
practice12 => 'Geriatrics - Hofheimer Hall',
practice13 => 'Geriatrics - Westminster Canterbury',
practice14 => 'Infectious Diseases',
practice15 => 'Pulmonary and Critical Care',
practice16 => 'Sleep Disorders - Sentara/EVMS Center - Norfolk',
practice17 => 'Sleep Disorders - Sentara/EVMS Center - South Hampton'

# Checkbox fields. Field name => Checkbox value.
%db_checkbox_fields = (
Area => 'Accounting,Administration of Justice,Allied Health Sciences',
Department => 'Accounting and Budget,Admissions and Records,Continuing Education'
);

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

my (%rec) = @_;

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 = (
'Area' => [
['---','Choose one of the following:'],
['Accounting','Accounting (ACC)'],
['Armed Forces ROTC','Armed Forces ROTC (AES)'],
['Agriculture','Agriculture (AGR)'],
['Allied Health Sciences','Allied Health Sciences (AHS)'],
['Administration of Justice','Administration of Justice (AJS)'],
['Anthropology','Anthropology (ANT)'],
['Art','Art (ART)'],
['American Sign Language','American Sign Language (ASL)'],
['Automotive','Automotive (AUT)'],
['Aviation','Aviation (AVT)'],
['Biology','Biology (BIO)'],
['Business','Business (BUS)'],
['Chemistry','Chemistry (CHM)'],
['Computer Information Systems','Computer Information Systems (CIS)'],
['Criminal Justice','Criminal Justice (CJC)'],
['Cooperative Education','Cooperative Education (COE)'],
['Counseling','Counseling (COU)'],
['Construction Technology','Construction Technology (CRP)'],
['Dance','Dance (DAN)'],
['Drafting','Drafting (DFT)'],
['Economics','Economics (ECN)'],
['Education','Education (EDU)'],
['Engineering','Engineering (EGR)'],
['Elective-Transfer Credit Only','Elective-Transfer Credit Only (ELE)'],
['Electronics','Electronics (ELT)'],
['Emergency Medical Services','Emergency Medical Services (EMS)'],
['English','English (ENG)'],
['Environmental Studies','Environmental Studies (ENV)'],
['French','French (FRE)'],
['Fire Science','Fire Science (FSC)'],
['Geography','Geography (GEO)'],
['German','German (GER)'],
['Geology','Geology (GLG)'],
['Human Development Education','Human Development Education (HDE)'],
['Home Economics','Home Economics (HEC)'],
['History','History (HIS)'],
['Hotel Restaurant Management','Hotel Restaurant Management (HRM)'],
['Humanities','Humanities (HUM)'],
['Industrial Tech Construction','Industrial Tech Construction (ITC)'],
['Journalism','Journalism (JRN)'],
['Leadership','Leadership (LDR)'],
['Math','Math (MAT)'],
['Manufacturing Industrial Tech','Manufacturing Industrial Tech (MIT)'],
['Music Performance (MUP)','Music Performance (MUP)'],
['Music (MUS)','Music (MUS)'],
['Navajo (NAV)','Navajo (NAV)'],
['Nutrition (NTR)','Nutrition (NTR)'],
['Nursing (NUR)','Nursing (NUR)'],
['Office Information Systems','Office Information Systems (OIS)'],
['Physical Education','Physical Education (PHE)'],
['Philosophy','Philosophy (PHI)'],
['Physics','Physics (PHY)'],
['Political Science','Political Science (POS)'],
['Psychology','Psychology (PSY)'],
['Recreation','Recreation (REC)'],
['Religious Studies','Religious Studies (REL)'],
['Real Estate','Real Estate (RES)'],
['Science','Science (SCI)'],
['Sign Language','Sign Language (SLG)'],
['Sociology','Sociology (SOC)'],
['Spanish','Spanish (SPA)'],
['Speech','Speech (SPC)'],
['Threatre','Theatre (THR)'],
['Welding','Welding (WLD)'],
],
'Department' => [
['---','Choose one of the following:'],
['Account and Budget','Accounting and Budget'],
['Admissions and Records','Admissions and Records'],
['Continuing Education','Continuing Education'],
['CCC-NAU Office','CCC-NAU Office'],
['College Store','College Store'],
['Curriculum','Curriculum'],
['Disability Resources Center','Disability Resources Center'],
['Facilities Management','Facilities Management'],
['Faculty Support','Faculty Support'],
['Financial Aid','Financial Aid'],
['Human Resources','Human Resources'],
['Information Resources Center','Information Resources Center'],
['Information Technology','Information Technology'],
['Institutional Research and Assessment','Institutional Research and Assessment'],
['Learning Enhancement Center','Learning Enhancement Center'],
['Office of the President','Office of the President'],
['Office of the VP for Administrative Support','Office of the VP for Administrative Support'],
['Office of the VP for Educational Services','Office of the VP for Educational Services'],
['Page Dean Office','Page Dean Office'],
['Public Information and Relations','Public Information and Relations'],
['Purchasing and Special Projects','Purchasing and Special Projects'],
['Receptionist','Receptionist'],
['SelfPRIDE','SelfPRIDE'],
['Student Employment Services','Student Employment Services'],
['Small Business Development Center','Small Business Development Center'],
['Tech Prep','Tech Prep'],
['Vocational Counseling','Vocational Counseling'],
],
'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;

}

$prac_desc{'Family Practice'} = "This is where one doctor takes care of the whole family";
$prac_desc{'Geriatrics'} = "This is a practice that focuses on problems of the aged."

# User-defined variables: Practice/specialty descriptions
# Format is $prac_desc{'practice name'} = "description";

# Family and Community Medicine
$prac_desc{'Behavioral Medicine'} = "description";
$prac_desc{'Geriatrics'} = "description";
$prac_desc{'Ghent Family Practice'} = "description";
$prac_desc{'Portsmouth Family Medicine'} = "description";
$prac_desc{'Weight and Well Being'} = "description";

# Internal Medicine
$prac_desc{'General Internal Medicine/Primary Care - Hofheimer Hall'} = "description";
$prac_desc{'General Internal Medicine/Primary Care - DePaul Hospital'} = "description";
$prac_desc{'Cardiology'} = "description";

$dept_desc{'Department Name'} = "description";

<tr><td>Department Description</td>
<td>$dept_desc{$rec{'dept'}}</td></tr>

$prac_desc{'practice#'} = "description";

|; # to close off any previous print qq| statement
foreach $practice (%prac_desc) {
if ($rec{$practice}}) {
print qq|<tr><td>$rec{$practice}</td>
<td>$prac_desc{$practice}</td></tr>|;
}
}