nik/davical
1
0
Fork 0
mirror of https://gitlab.com/davical-project/davical.git synced 2026-08-28 18:16:05 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Present SQL results in a more readable manner.

Browse Source
This commit is contained in:
Andrew McMillan 2008-11-10 11:48:24 +13:00
parent 6047058865
commit 7994e8e011
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
testing/dav_test
View File

@ -193,15 +193,15 @@ while( <RESULTS> ) {
if ( defined(@{$queries}) && @{$queries} ) {
print STDERR "Processing special queries\n" if ( $debug );
foreach $sql_statement ( @$queries ) {
# run SQL statement and dump results
my $results = $dbh->selectall_arrayref($sql_statement);
# run SQL statement and dump results, into array of hashes
my $results = $dbh->selectall_arrayref($sql_statement, { Slice => {} } );
foreach my $row ( @$results ) {
print STDERR "Processing results row\n" if ( $debug );
print "Query result ================================================\n" if ( $debug );
my $sep = "";
foreach my $column ( @$row ) {
$column = 'NULL' unless ( defined($column) );
print $sep, $column;
$sep = " --- ";
foreach my $name ( sort keys %$row ) {
my $value = $row->{$name};
$value = 'NULL' unless ( defined($value) );
printf("%17.17s: >%s<\n", $name, $value );
}
print "\n";
}