diff options
| -rw-r--r-- | FS/FS/Record.pm | 6 |
1 files 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). ")" ; } |