diff options
| author | ivan <ivan> | 2004-05-10 14:48:44 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-05-10 14:48:44 +0000 |
| commit | ae59e4df81d0870925c66fe85430627d7146d63a (patch) | |
| tree | 8b7992382d7748e52bda40a8b7c8848218fe2ef7 | |
| parent | b155a7ab4084d3a9242dd118ae2e942061188105 (diff) | |
| -rw-r--r-- | BusinessOnlinePayment.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/BusinessOnlinePayment.pm b/BusinessOnlinePayment.pm index 4df0e49..5c1a167 100644 --- a/BusinessOnlinePayment.pm +++ b/BusinessOnlinePayment.pm @@ -283,7 +283,9 @@ sub onlinepayment { if ( $transaction->is_success() ) { $result{MStatus} = 'success'; - $result{'order-id'} = $transaction->order_number || $opt->{'order_id'}; + $result{'order-id'} = + ( $transaction->can('order_number') && $transaction->order_number ) + || $opt->{'order_id'}; } else { |