X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=703c06fe05db7cf3ba5cb1d1967889470cdeffd1;hb=0770f043ba43f47b76e65204248cfb67b044072f;hp=0480a397f3f2e44bb057146aed8452169a712772;hpb=327fbdcae418952049c9a8cb5b93165cd03f649a;p=freeside.git

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 0480a397f..703c06fe0 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -2131,6 +2131,19 @@ sub h_search {
 
 }
 
+=item h_date ACTION
+
+Given an ACTION, either "insert", or "delete", returns the timestamp of the
+appropriate history record corresponding to this record, if any.
+
+=cut
+
+sub h_date {
+  my($self, $action) = @_;
+  my $h = $self->h_search($action);
+  $h ? $h->history_date : '';
+}
+
 =back
 
 =head1 SUBROUTINES