From 40861f48bd2987133783f6b086adb1988f9872be Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Fri, 1 Apr 2005 22:34:32 +0000
Subject: [PATCH] so we can pass in a time if we're back-filling history
 records

---
 FS/FS/Record.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 3e7da0dd6..2b74da43a 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -1101,7 +1101,9 @@ sub check {
 }
 
 sub _h_statement {
-  my( $self, $action ) = @_;
+  my( $self, $action, $time ) = @_;
+
+  $time ||= time;
 
   my @fields =
     grep defined($self->getfield($_)) && $self->getfield($_) ne "",
@@ -1112,7 +1114,7 @@ sub _h_statement {
   "INSERT INTO h_". $self->table. " ( ".
       join(', ', qw(history_date history_user history_action), @fields ).
     ") VALUES (".
-      join(', ', time, dbh->quote(getotaker()), dbh->quote($action), @values).
+      join(', ', $time, dbh->quote(getotaker()), dbh->quote($action), @values).
     ")"
   ;
 }
-- 
2.11.0