X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fchange_pkg.cgi;h=f5b807566c40a15ada8192b2543033794de08a67;hb=71231d6bd803d2a3977c3ce2fa1f3c0ed4746b2d;hp=e74747e8210f2d4c3868ef675379cd7156a8c3b3;hpb=0c76afbb717e1716e6126bc4a120b8d9471614a0;p=freeside.git
diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi
index e74747e82..f5b807566 100755
--- a/httemplate/misc/change_pkg.cgi
+++ b/httemplate/misc/change_pkg.cgi
@@ -1,5 +1,17 @@
<& /elements/header-popup.html, mt($title) &>
+
+
<& /elements/error.html &>
@@ -72,6 +84,33 @@
+% my $discount_cust_pkg = $curuser->access_right('Discount customer package');
+% my $waive_setup_fee = $curuser->access_right('Waive setup fee');
+%
+% if ( $discount_cust_pkg || $waive_setup_fee ) {
+ <% mt('Discounting') |h %>
+ <% ntable("#cccccc") %>
+
+% if ( $waive_setup_fee ) {
+
+ <% mt('Waive setup fee') |h %> |
+ |
+
+% }
+
+% if ( $discount_cust_pkg ) {
+<% include('/elements/tr-select-discount.html',
+ 'empty_label' => 'Select discount',
+ #'onchange' => 'enable_discount_pkg()',
+ 'cgi' => $cgi,
+ 'carry_value' => $carry_value,
+ 'td_width' => '125',
+ #'setup_only' => $setup_only,
+ ) %>
+% }
+
+
+% }
<% mt('Location') |h %>
<% ntable('#cccccc') %>
@@ -134,6 +173,16 @@ my $title = "Change Package";
my $use_contract_end = $cust_pkg->get('contract_end') ? 1 : 0;
+# Pass previous discountnum to change screen
+my $cust_pkg_discount = qsearchs(cust_pkg_discount => {
+ disabled => '',
+ pkgnum => $cust_pkg->pkgnum,
+});
+my $carry_value =
+ $cust_pkg_discount
+ ? $cust_pkg_discount->discountnum
+ : undef;
+
# if there's already a package change ordered, preload it
if ( $cust_pkg->change_to_pkgnum ) {
my $change_to = FS::cust_pkg->by_key($cust_pkg->change_to_pkgnum);