diff --git a/lib/WebGUI/ErrorHandler.pm b/lib/WebGUI/ErrorHandler.pm index dd905ec6a..625f2f29c 100644 --- a/lib/WebGUI/ErrorHandler.pm +++ b/lib/WebGUI/ErrorHandler.pm @@ -79,14 +79,24 @@ sub fatalError { } else { print '
| '.$section.'.'.$key.': | '.$value.' | '; - } + if (ref $hash eq 'HASH') { + while (my ($key, $value) = each %$hash) { + if (ref $value eq 'ARRAY') { + $value = '['.join(', ',@$value).']'; + } elsif (ref $value eq 'HASH') { + $value = '{'.join(', ',map {"$_ => $value->{$_}"} keys %$value).'}'; + } + unless (lc($key) eq "password" || lc($key) eq "identifier") { + print '
| '.$section.'.'.$key.': | '.$value.' | '; + } + } + } elsif (ref $hash eq 'ARRAY') { + my $i = 1; + foreach (@$hash) { + $debug .= '
| '.$section.'.'.$i.': | '.$_.' | '; + $i++; + } + } print '
|   |