projects
/
Business-OnlinePayment-Skipjack.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
512974f
)
$csv->error is not a method.
author
khoff
<khoff>
Wed, 11 Apr 2007 20:38:32 +0000
(20:38 +0000)
committer
khoff
<khoff>
Wed, 11 Apr 2007 20:38:32 +0000
(20:38 +0000)
Skipjack.pm
patch
|
blob
|
history
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;