time/data/etc. unit pricing add-ons, RT#24392

1 files changed, 15 insertions, 0 deletions

diff --git a/httemplate/browse/part_pkg.cgi b/httemplate/browse/part_pkg.cgi
index 8b50a509f..b07386618 100755
--- a/httemplate/browse/part_pkg.cgi
+++ b/httemplate/browse/part_pkg.cgi
@@ -277,6 +277,21 @@ push @fields, sub {
         : ()
       ),
     ],
+    (
+      map { my $amount = $_->amount
+              / (FS::part_pkg_usageprice->targets->{$_->target}{multiplier}||1);
+            my $label = FS::part_pkg_usageprice->targets->{$_->target}{label};
+            [
+              { data    => "Plus $money_char". $_->price. ' '.
+                           ( $_->action eq 'increment' ? 'per' : 'for' ).
+                           " $amount $label",
+                align   => 'center', #left?
+                colspan => 2,
+              },
+            ];
+          }
+        $part_pkg->part_pkg_usageprice
+    ),
     ( map { my $dst_pkg = $_->dst_pkg;
             [
               { data => 'Supplemental:  '.