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); }
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";
}
}