From ae59e4df81d0870925c66fe85430627d7146d63a Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 10 May 2004 14:48:44 +0000
Subject: [PATCH] check for order_number method before using it

---
 BusinessOnlinePayment.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 {
 
-- 
2.11.0