From d1f2f7f8286ce366efe7c72b731fd3536d751ef1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 1 Jun 2008 20:16:03 +0000
Subject: backport cust_bill_ApplicationCommon::applied_to_invoice and
 cust_bill::invnum_date_pretty to 1.7

---
 FS/FS/cust_bill.pm                   | 12 ++++++++++++
 FS/FS/cust_bill_ApplicationCommon.pm | 12 ++++++++++++
 2 files changed, 24 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 844204d02..b5b0f4eda 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -2386,6 +2386,18 @@ sub balance_due_msg {
   $msg;
 }
 
+=item invnum_date_pretty
+
+Returns a string with the invoice number and date, for example:
+"Invoice #54 (3/20/2008)"
+
+=cut
+
+sub invnum_date_pretty {
+  my $self = shift;
+  'Invoice #'. $self->invnum. ' ('. time2str('%x', $self->_date). ')';
+}
+
 sub _items {
   my $self = shift;
 
diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm
index 24274e701..803239d04 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.2.1