Disable PrintError on DB

This commit is contained in:
felix.suarez 2023-12-14 16:21:22 -06:00
parent e3d408ea44
commit d6c47ca069
1 changed files with 4 additions and 1 deletions

View File

@ -1263,6 +1263,7 @@ sub db_delete_limit ($$$$;@) {
sub db_insert ($$$;@) {
my ($dbh, $index, $query, @values) = @_;
my $insert_id = undef;
$dbh->{PrintError} = 0;
eval {
$dbh->do($query, undef, @values);
@ -1288,6 +1289,7 @@ sub db_insert ($$$;@) {
sub db_update ($$;@) {
my ($dbh, $query, @values) = @_;
my $rows;
$dbh->{PrintError} = 0;
eval {
$rows = $dbh->do($query, undef, @values);
@ -1533,7 +1535,8 @@ sub get_agent_addr_id ($$$) {
########################################################################
sub db_do ($$;@) {
my ($dbh, $query, @values) = @_;
$dbh->{PrintError} = 0;
#DBI->trace( 3, '/tmp/dbitrace.log' );
eval {
$dbh->do($query, undef, @values);