changed visit_type to type

[eq/.git] / bin / import_ward_data

diff --git a/bin/import_ward_data b/bin/import_ward_data
index e0fbb2be93f6caa26e4ccbfea87205d9c761b484..3f08fc065f2326f2e2ced703980e55e141224d52 100755 (executable)
--- 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); }
@@ -615,7 +615,7 @@ sub update_tc_visit_table
                                if ($importing_status ne '')
                                {
                                        # add visit if it doesn't exist in tc_visit
-                                       $sth = $dbh->prepare("insert into tc_visit values (NULL, '$family_id', '$comp_id', '', '', '$visit_date', '', '$importing_status', 'hometeaching')");
+                                       $sth = $dbh->prepare("insert into tc_visit values (NULL, '$family_id', '$comp_id', '', '', '$visit_date', '', '$importing_status', 'H')");
                                        $sth->execute or die "-E- DB error: $DBI::errstr\n";
                                }
                        }