+
+ # Now update the elder_id field for this family
+ $sth = $dbh->prepare("select * from eq_elder WHERE name='$family_name'");
+ $sth->execute or die "-E- DB error: $DBI::errstr\n";
+ while($sqlhashref = $sth->fetchrow_hashref) {
+ $elder_id = $sqlhashref->{elder};
+ print " Updating family elder_id: $family_name -> $elder_id\n";
+ $sth = $dbh->prepare("update eq_family set elder_id=$elder_id where name_id='$name_id'");
+ $sth->execute or die "-E- DB error: $DBI::errstr\n";
+ }
+