From 5250c44bd7f282c7d782bf0e8349af12376929df Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 22 Sep 2010 19:16:20 +0000
Subject: prepayment discounts rt#5318

---
 httemplate/elements/tr-select-discount_term.html | 25 ++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 httemplate/elements/tr-select-discount_term.html

(limited to 'httemplate/elements/tr-select-discount_term.html')

diff --git a/httemplate/elements/tr-select-discount_term.html b/httemplate/elements/tr-select-discount_term.html
new file mode 100644
index 000000000..58582675d
--- /dev/null
+++ b/httemplate/elements/tr-select-discount_term.html
@@ -0,0 +1,25 @@
+% if ( scalar(@discount_term) ) {
+  <TR>
+    <TD ALIGN="right">Prepayment for</TD>
+    <TD COLSPAN=2>
+      <% include('select-discount_term.html',
+                   'discount_term' => \@discount_term,
+                   'cgi'           => $opt{'cgi'},
+                )
+      %>
+    </TD>
+  </TR>
+
+% }
+
+<%init>
+my %opt = @_;
+
+my $custnum = $opt{'custnum'};
+
+my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
+  or die "unknown custnum $custnum\n";
+
+my @discount_term = $cust_main->discount_terms;
+
+</%init>
-- 
cgit v1.2.1