From: Owen Leonard <owen@balawis.leonard.fam>
Date: Thu, 21 Oct 2010 18:04:37 +0000 (-0600)
Subject: fixed import script so it creates the visit data properly
X-Git-Tag: release_1_1_0~4
X-Git-Url: http://git.pippins.net/embedvideo/.git/static/images/%7Bdelete%7D?a=commitdiff_plain;h=54467297cc7f4ec43a62007e9c4ce6f700ad3fc7;p=eq%2F.git

fixed import script so it creates the visit data properly
---

diff --git a/bin/import_ward_data b/bin/import_ward_data
index e0fbb2b..57d450f 100755
--- a/bin/import_ward_data
+++ b/bin/import_ward_data
@@ -596,7 +596,7 @@ sub update_tc_visit_table
 			my $importing_status = $visit_status{$history[$i]};
 			#print "importing_status = $importing_status\n";
 			#print "select * from tc_visit where family=$family_id and companionship=$comp_id and date='$visit_date'\n";
-			$sth = $dbh->prepare("select * from tc_visit where family=$family_id and companionship=$comp_id and date='$visit_date'");
+			$sth = $dbh->prepare("select * from tc_visit where family=$family_id and date='$visit_date'");
 			$sth->execute or die "-E- DB error: $DBI::errstr\n";
 			my @visit_data = ();
 			while($sqlhashref = $sth->fetchrow_hashref) { push(@visit_data, $sqlhashref); }