before I begin sorry for the cross post but i'm desperate
The routine in question is below. It's pretty straight forward its a series of loops
which basically matches the row then dumps data stored in hash ref into the DB. for
some reason the script runs with no errors (ran with strict) I can verify that the
data is being iterated, but when I check the Db no data is updated, the int fields
have been updated to 0 as opposed to NULL. is anyone seeing somethign I'm not.
sub write_db_2 {
my ($ar_info,$table) = @_;
my ($dbh,$sth,$k,$rh_row);
$dbh = connect_try("rowan","5340brig");
foreach $k (keys (%{$ar_info->[1]})){
if ($table eq "prop_info"){
$sth = $dbh->prepare ("UPDATE prop_info
SET $k = ?
WHERE prop_str_addr = ?;") or
err_trap("failed to prepare statement\n");
}elsif ($table eq "own_info"){
$sth = $dbh->prepare ("UPDATE own_info
SET $k = ?
WHERE own_str_addr = ?;") or
err_trap("failed to prepare statement\n");
}
foreach $rh_row (@$ar_info) {
print "::$k=>$rh_row->{$k}";
$sth->bind_param (1,$rh_row->{$k});
if ($table eq "prop_str_addr") {
$sth->bind_param (2,$rh_row->{prop_str_addr});
}elsif ($table eq "own_str_addr") {
$sth->bind_param (2,$rh_row->{own_str_addr});
}
$sth->execute() or
err_trap("failed to execute statement\n");
}
print "\n===========================\n";
}
$sth->finish();
$dbh->disconnect or
err_trap("failed to disconnect statement\n");
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
