From: khoff <khoff>
Date: Fri, 1 Apr 2005 22:34:32 +0000 (+0000)
Subject: so we can pass in a time if we're back-filling history records
X-Git-Tag: SQL_LEDGER_2_4_4~1^2~377
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;ds=sidebyside;h=40861f48bd2987133783f6b086adb1988f9872be;p=freeside.git

so we can pass in a time if we're back-filling history records
---

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).
     ")"
   ;
 }