open (DBASE,"$hrdata/$qfile");
@ODB=<DBASE>;
close (DBASE);
open (DATABASE,">$hrdata/$qfile");
foreach $rec (@ODB){
 chomp($rec);
 ($oldpositionid,$oldinstitution,$olddepartment,$oldconfirstname,$oldconlastname,$oldconemail,$oldconphone,$oldtitleposition,$oldposnumber,$oldtypeposition,$oldprogramtype,$olddvmonth,$olddvday,$olddvyear,$oldedmonth,$oldedday,$oldedyear,$oldnumposition,$oldnumvacunit,$oldtotsalary,$oldbudgetsalary,$oldstatefundsources,$oldfedfundsources,$oldstatebudgetcat,$oldpriclass,$oldsubip,$oldthetime,$oldapproved) = split(/\t/,$rec);
 if ($oldpositionid != $viewpositionid) {
  print DATABASE "$oldpositionid\t$oldinstitution\t$olddepartment\t$oldconfirstname\t$oldconlastname\t$oldconemail\t$oldconphone\t$oldtitleposition\t$oldposnumber\t$oldtypeposition\t$oldprogramtype\t$olddvmonth\t$olddvday\t$olddvyear\t$oldedmonth\t$oldedday\t$oldedyear\t$oldnumposition\t$oldnumvacunit\t$oldtotsalary\t$oldbudgetsalary\t$oldstatefundsources\t$oldfedfundsources\t$oldstatebudgetcat\t$oldpriclass\t$oldsubip\t$oldthetime\t$oldapproved\n";
 } else {
  print DATABASE "$viewpositionid\t$institution\t$department\t$confirstname\t$conlastname\t$conemail\t$conphone\t$titleposition\t$posnumber\t$typeposition\t$programtype\t$dvmonth\t$dvday\t$dvyear\t$edmonth\t$edday\t$edyear\t$numposition\t$numvacunit\t$totsalary\t$budgetsalary\t$statefundsources\t$fedfundsources\t$statebudgetcat\t$priclass\t$ENV{REMOTE_ADDR}\t$thetime\tNo\n";
 }
}
close (DATABASE);