oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make sure SQL parameters are stringified (for overloaded entries) before converting to json for debug output

Browse source
This commit is contained in:
Graham Knop 2008-12-03 00:32:25 +00:00
parent 5a1619f4f7
commit 83a3ed6983
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Session/ErrorHandler.pm
View file

@ -330,8 +330,9 @@ sub query {
my $placeholders = shift; my $placeholders = shift;
$self->{_queryCount}++; $self->{_queryCount}++;
my $plac; my $plac;
if (defined $placeholders and ref $placeholders eq "ARRAY" && scalar(@{$placeholders})) { if (defined $placeholders and ref $placeholders eq "ARRAY" && scalar(@$placeholders)) {
$plac = "\n with placeholders: " . JSON->new->encode($placeholders); my @placeholders = map {ref $_ ? "$_" : $_} @$placeholders; # stringify objects
$plac = "\n with placeholders: " . JSON->new->encode(\@placeholders);
} }
else { else {
$plac = ''; $plac = '';

2
lib/WebGUI/Session/Form.pm
View file

@ -16,7 +16,7 @@ package WebGUI::Session::Form;
use strict qw(vars subs); use strict qw(vars subs);
use WebGUI::HTML; use WebGUI::HTML;
use Encode; use Encode ();
use base 'WebGUI::FormValidator'; use base 'WebGUI::FormValidator';
=head1 NAME =head1 NAME