nik/davical
1
0
Fork 0
mirror of https://gitlab.com/davical-project/davical.git synced 2026-05-19 01:34:26 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Output the database error when a query fails.

Browse Source 
Signed-off-by: Andrew McMillan <andrew@morphoss.com>
This commit is contained in:
Andrew McMillan 2010-12-27 18:23:53 +13:00
parent 34a27d126d
commit 1e4c7e7a26
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
testing/dav_test
View File

@ -229,6 +229,10 @@ if ( defined(@{$queries}) && @{$queries} ) {
foreach $sql_statement ( @$queries ) { foreach $sql_statement ( @$queries ) {
# run SQL statement and dump results, into array of hashes # run SQL statement and dump results, into array of hashes
my $results = $dbh->selectall_arrayref($sql_statement, { Slice => {} } ); my $results = $dbh->selectall_arrayref($sql_statement, { Slice => {} } );
if ( $dbh->err ) {
print $dbh->errstr, "\n";
next;
}
foreach my $row ( @$results ) { foreach my $row ( @$results ) {
print "Query result ================================================\n" if ( $debug ); print "Query result ================================================\n" if ( $debug );
my $sep = ""; my $sep = "";
@ -258,6 +262,10 @@ sub get_sql_value {
opendb() unless defined($dbh); opendb() unless defined($dbh);
my $results = $dbh->selectall_arrayref($sql); my $results = $dbh->selectall_arrayref($sql);
if ( $dbh->err ) {
print $dbh->errstr, "\n";
return;
}
print STDERR "RESULT for $varname is ", $results->[0][0], "\n" if ( $debug ); print STDERR "RESULT for $varname is ", $results->[0][0], "\n" if ( $debug );
$values->{$varname} = (defined($results->[0][0]) ? $results->[0][0] : ""); $values->{$varname} = (defined($results->[0][0]) ? $results->[0][0] : "");
} }