From: Alan Jack Pippin <ajp@pippin.(none)>
Date: Fri, 13 Jul 2007 03:32:22 +0000 (-0600)
Subject: Fixed bug related to not setting the valid bit to 1 when adding new families
X-Git-Tag: release_0_1_0~36
X-Git-Url: http://git.pippins.net/.%24link.?a=commitdiff_plain;h=3ceab85dc8b7434df82b8a42d70a1ed491409716;p=eq%2F.git

Fixed bug related to not setting the valid bit to 1 when adding new families
---

diff --git a/import_ward_data b/import_ward_data
index 5d9b754..405784a 100755
--- a/import_ward_data
+++ b/import_ward_data
@@ -387,7 +387,7 @@ sub update_eq_family_table
 		if($rows == 0) {
 		    # No existing records found for this family, make a new entry
 		    print "   Adding new Family: $family_name\n";
-		    $sth = $dbh->prepare("insert into eq_family values (NULL,$id,'$family_name','$name_id','0','0',1,1,'')");
+		    $sth = $dbh->prepare("insert into eq_family values (NULL,$id,'$family_name','$name_id','0','0','1','',1)");
 		    $sth->execute or die "-E- DB error: $DBI::errstr\n";
 		} elsif($rows == 1) {
 		    # An existing record was found for this family, update it
@@ -522,9 +522,11 @@ sub update_eq_parent_table
 		    $sth->execute or die "-E- DB error: $DBI::errstr\n";
 		    $sth = $dbh->prepare("update eq_parent set indiv_id='$id' where name='$parent_name'");
 		    $sth->execute or die "-E- DB error: $DBI::errstr\n";
-	    } else {
+		} elsif($rows > 1) {
 		    # More than one record was found. Error! This shouldn't happen.
-		    print "   -E- More than one record found with same parent name: $parent_name\n";
+		    print "   -E- More than one record found with same parent name: $parent_name with hofh_id: $hofh_id\n";
+		} else {
+		    print "   -E- Unable to find a family to attach this parent to: $parent_name with hofh_id: $hofh_id\n";
 		}
 		$sth->finish();
 	    }