[freeside-commits] freeside/FS/FS cust_pay.pm,1.58,1.59

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv26556

Modified Files:
	cust_pay.pm 
Log Message:
don't bomb out on this transition on old databases without history records for everything...

Index: cust_pay.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -d -r1.58 -r1.59
--- cust_pay.pm	14 Feb 2008 03:52:36 -0000	1.58
+++ cust_pay.pm	22 Feb 2008 00:57:37 -0000	1.59
@@ -698,7 +698,11 @@
     return unless $cust_pay;
 
     my $h_cust_pay = $cust_pay->h_search('insert');
-    $cust_pay->otaker($h_cust_pay->history_user);
+    if ( $h_cust_pay ) {
+      $cust_pay->otaker($h_cust_pay->history_user);
+    } else {
+      $cust_pay->otaker('legacy');
+    }
     my $error = $cust_pay->replace;
     die $error if $error;