From 52013c89319153749cd7c485fa4a67a957abcf3f Mon Sep 17 00:00:00 2001
From: Jeremy Davis <jeremyd@freeside.biz>
Date: Mon, 24 Nov 2014 12:50:55 -0500
Subject: Ticket #32336 Unit prices not showing on quotations

---
 FS/FS/quotation_pkg.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

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

diff --git a/FS/FS/quotation_pkg.pm b/FS/FS/quotation_pkg.pm
index 79cce80fa..33c761ef6 100644
--- a/FS/FS/quotation_pkg.pm
+++ b/FS/FS/quotation_pkg.pm
@@ -164,6 +164,26 @@ sub recur {
   sprintf('%.2f', $recur);
 }
 
+sub unitsetup {
+  my $self = shift;
+  return '0.00' if $self->waive_setup eq 'Y' || $self->{'_NO_SETUP_KLUDGE'};
+  my $part_pkg = $self->part_pkg;
+  my $setup = $part_pkg->option('setup_fee');
+
+  #XXX discounts
+  sprintf('%.2f', $setup);
+}
+
+sub unitrecur {
+  my $self = shift;
+  return '0.00' if $self->{'_NO_RECUR_KLUDGE'};
+  my $part_pkg = $self->part_pkg;
+  my $recur = $part_pkg->can('base_recur') ? $part_pkg->base_recur
+                                           : $part_pkg->option('recur_fee');
+  #XXX discounts
+  sprintf('%.2f', $recur);
+}
+
 =item part_pkg_currency_option OPTIONNAME
 
 Returns a two item list consisting of the currency of this quotation's customer
-- 
cgit v1.2.1