projects
/
Business-OnlinePayment-Skipjack.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added environment variables for overriding HTML and developer serial numbers.
[Business-OnlinePayment-Skipjack.git]
/
Skipjack.pm
diff --git
a/Skipjack.pm
b/Skipjack.pm
index
c0bf838
..
5c6565e
100644
(file)
--- a/
Skipjack.pm
+++ b/
Skipjack.pm
@@
-429,12
+429,14
@@
sub parse_SJAPI_TransactionChangeStatusRequest
my @records = split(/\r\n/, $page);
my @records = split(/\r\n/, $page);
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@CHANGE_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
@output{@CHANGE_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@CHANGE_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;
@output{@CHANGE_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;
@@
-451,12
+453,15
@@
sub parse_SJAPI_TransactionStatusRequest
my @records = split(/\r\n/, $page);
my @records = split(/\r\n/, $page);
- $csv->parse(shift @records) or die $csv->error;
+ #$csv->parse(shift @records)
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@GET_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
@output{@GET_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@GET_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;
@output{@GET_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;