ChangeButton: :Change:
Department: :Information Systems:
FName: :Kelly:
HireDate: :12/04/00:
LName: :Berry:
Picture: :03_02:
RecID: :5:
Title: :Web Developer:

Content-type: text/html Error: Missing field FName

Error: Missing field FName

##


foreach $field (qw(FName LName Department Title HireDate Picture RecID)) {
    &CgiDie("Error: Missing field $field\n") unless defined $input->{$field};
  }