From: ivan <ivan>
Date: Tue, 10 Sep 2002 03:31:00 +0000 (+0000)
Subject: Business::OnlinePaymet fix for processors w/o order numbers, like VirtualNet
X-Git-Tag: freeside_1_5_0pre1~249
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=27b1e8e41b7d4ace60b286ec02a171009aee83f2

Business::OnlinePaymet fix for processors w/o order numbers, like VirtualNet
---

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 5e041ea59..d49657e2e 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -674,7 +674,9 @@ sub realtime_card {
 
   if ( $transaction->is_success() && $action2 ) {
     my $auth = $transaction->authorization;
-    my $ordernum = $transaction->order_number;
+    my $ordernum = $transaction->can('order_number')
+                   ? $transaction->order_number
+                   : '';
 
     #warn "********* $auth ***********\n";
     #warn "********* $ordernum ***********\n";
@@ -1112,7 +1114,7 @@ sub print_text {
 
 =head1 VERSION
 
-$Id: cust_bill.pm,v 1.41 2002-09-05 16:51:49 ivan Exp $
+$Id: cust_bill.pm,v 1.42 2002-09-10 03:31:00 ivan Exp $
 
 =head1 BUGS