From 103527d74c16f4427b57ce88fc9b8eeb9a79cbda Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 1 Jun 2008 05:43:39 +0000
Subject: add date to "applied to Invoice#" messages in history

---
 FS/FS/cust_bill_ApplicationCommon.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'FS/FS/cust_bill_ApplicationCommon.pm')

diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm
index 24274e7..803239d 100644
--- a/FS/FS/cust_bill_ApplicationCommon.pm
+++ b/FS/FS/cust_bill_ApplicationCommon.pm
@@ -359,6 +359,18 @@ sub cust_bill {
   qsearchs( 'cust_bill', { 'invnum' => $self->invnum } );
 }
 
+=item applied_to_invoice
+
+Returns a string representing the invoice (see L<FS::cust_bill), for example:
+"applied to Invoice #54 (3/20/2008)"
+
+=cut
+
+sub applied_to_invoice {
+  my $self = shift;
+  'applied to '. $self->cust_bill->invnum_date_pretty;
+}
+
 =item lineitem_breakdown_table 
 
 =cut
-- 
cgit v1.1