X-Git-Url: http://git.pippins.net/embedvideo/.git/?a=blobdiff_plain;f=import_ward_data;h=8a7983b4d986b19380cd7437db3a402fae96d057;hb=0ba310089373dd8c0ddb7091c56a5b7c15c249b2;hp=522386eeb47786ab195f404b28a2753985f8adbe;hpb=f797899c6416d6731e4c014fd9b1cfd0dd94a829;p=eq%2F.git

diff --git a/import_ward_data b/import_ward_data
index 522386e..8a7983b 100755
--- 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)
     {