Select Code to Download

<dl compact>
<dt><b>ChangeButton</b>
...
<h1>Error: Missing field FName
</h1>

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