projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5e48986
)
SureTax: additional debugging, RT#76987
author
Ivan Kohler
<ivan@freeside.biz>
Sun, 27 Aug 2017 18:31:13 +0000
(11:31 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Sun, 27 Aug 2017 18:31:13 +0000
(11:31 -0700)
FS/FS/TaxEngine/suretax.pm
patch
|
blob
|
history
diff --git
a/FS/FS/TaxEngine/suretax.pm
b/FS/FS/TaxEngine/suretax.pm
index
fe8764b
..
356f5f3
100644
(file)
--- a/
FS/FS/TaxEngine/suretax.pm
+++ b/
FS/FS/TaxEngine/suretax.pm
@@
-347,7
+347,10
@@
sub make_taxlines {
'Accept' => 'application/json',
);
'Accept' => 'application/json',
);
- warn "received SureTax response\n" if $DEBUG;
+ warn 'received SureTax response: '. $http_response->status_line. "\n"
+ if $DEBUG;
+ die $http_response->status_line. "\n" unless $http_response->is_success;
+
my $raw_response = $http_response->content;
warn $raw_response if $DEBUG > 2;
my $response;
my $raw_response = $http_response->content;
warn $raw_response if $DEBUG > 2;
my $response;
@@
-360,7
+363,7
@@
sub make_taxlines {
warn "decoding SureTax response\n" if $DEBUG;
$response = eval { $json->decode($raw_response) }
warn "decoding SureTax response\n" if $DEBUG;
$response = eval { $json->decode($raw_response) }
- or die "$raw_response\n";
+ or die "
Can't JSON-decode response:
$raw_response\n";
# documentation implies this might be necessary
$response = $response->{'d'} if exists $response->{'d'};
# documentation implies this might be necessary
$response = $response->{'d'} if exists $response->{'d'};