X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=BusinessOnlinePayment.pm;h=5c1a167bbee6cd037028f7195ba052bfbf6574d1;hb=ae59e4df81d0870925c66fe85430627d7146d63a;hp=63e8c967383292c59584ab299896d95c2ecf1a1a;hpb=e4ba988a963aa70a0d0f7ac370b45c3b1d16a853;p=Vend-Payment-BusinessOnlinePayment.git

diff --git a/BusinessOnlinePayment.pm b/BusinessOnlinePayment.pm
index 63e8c96..5c1a167 100644
--- a/BusinessOnlinePayment.pm
+++ b/BusinessOnlinePayment.pm
@@ -134,6 +134,16 @@ for details on what options are required, if any.
 
 Ivan Kohler <ivan-interchange@420.am>
 
+Initial development of this module was sponsored in part by Simply Marketing,
+Inc. <http://www.simplymarketinginc.com/>.
+
+=head1 COPYRIGHT
+
+Copyright 2004 Ivan Kohler.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
 =cut
 
 package Vend::Payment;
@@ -273,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 {