$companionship = $hometeaching_data{$index}{'Comp ID'};
$sth = $dbh->prepare("update eq_family set companionship='$companionship' where name_id='$name_id'");
$sth->execute or die "-E- DB error: $DBI::errstr\n";
+
+ # In addition to changing the hometeaching assignment, update the eq_visit table
+ # so that all previous visits made by the old hometeaching companionship, get
+ # updated with the id of the new companionship. This will allow us to go in and
+ # edit the history as needed for the family being hometaught under their new
+ # companionship. Otherwise, we will not be able to update this history.
+ #$family_id = $data[0]->{family};
+ #print " update eq_visit set companionship='$companionship' where family='$family_id' and companionship!='0'\n";
+ #$sth = $dbh->prepare("update eq_visit set companionship='$companionship' where companionship='$old_companionship'");
+ #$sth->execute or die "-E- DB error: $DBI::errstr\n";
}
}
}