Add MID to error message to make it more useful.
Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
parent
48c8d4bb8e
commit
6deb7dbaa4
|
@ -258,9 +258,9 @@ while (my $HeadersR = $DBQuery->fetchrow_hashref) {
|
||||||
split(/ /,'? ' x scalar(@DBFields)))
|
split(/ /,'? ' x scalar(@DBFields)))
|
||||||
));
|
));
|
||||||
$DBWrite->execute(@SQLBindVars)
|
$DBWrite->execute(@SQLBindVars)
|
||||||
or &Bleat(2,sprintf("Can't write parsed data for %s to %s.%s: ".
|
or &Bleat(2,sprintf("Can't write parsed data for %s to %s.%s for %s: ".
|
||||||
"$DBI::errstr\n",$Period,
|
"$DBI::errstr\n",$Period,
|
||||||
$Conf{'DBDatabase'},$Conf{'DBTableParse'}));
|
$Conf{'DBDatabase'},$Conf{'DBTableParse'}, $Headers{'mid'}));
|
||||||
$DBWrite->finish;
|
$DBWrite->finish;
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
|
Loading…
Reference in a new issue