Fixed HT apps to sort families under a companionship in alphabetical order.

[eq/.git] / import_ward_data

diff --git a/import_ward_data b/import_ward_data
index 522386eeb47786ab195f404b28a2753985f8adbe..8a7983b4d986b19380cd7437db3a402fae96d057 100755 (executable)
--- a/import_ward_data
+++ b/import_ward_data
@@ -317,6 +317,8 @@ sub update_eq_family_table
     # Set all records to be invalid. Only mark them as valid if they appear on the new list.
     $sth = $dbh->prepare("update eq_family set valid=0");
     $sth->execute or die "-E- DB error: $DBI::errstr\n";
+    $sth = $dbh->prepare("update eq_family set companionship=0");
+    $sth->execute or die "-E- DB error: $DBI::errstr\n";
     
     foreach $index (keys %membership_data)
     {