X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fchange_pkg.cgi;h=f5b807566c40a15ada8192b2543033794de08a67;hb=71231d6bd803d2a3977c3ce2fa1f3c0ed4746b2d;hp=5b4a3dea920c700bdf76ebfbb7853bbc76b3fbaf;hpb=8caec1039528538d542a941d58374d6045415527;p=freeside.git diff --git a/httemplate/misc/change_pkg.cgi b/httemplate/misc/change_pkg.cgi index 5b4a3dea9..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 &> @@ -28,6 +40,14 @@ 'curr_value' => $cust_pkg->quantity &> +% if ($use_contract_end) { + <& /elements/tr-input-date-field.html, { + 'name' => 'contract_end', + 'value' => ($cgi->param('contract_end') || $cust_pkg->get('contract_end')), + 'label' => 'Contract End', + } &> +% } +
@@ -59,13 +79,38 @@ 'name' => 'start_date', 'value' => ($cgi->param('start_date') || $cust_main->next_bill_date), } &> -
+% 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') %> @@ -126,6 +171,18 @@ my $part_pkg = $cust_pkg->part_pkg; 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); @@ -133,6 +190,9 @@ if ( $cust_pkg->change_to_pkgnum ) { foreach(qw( start_date pkgpart locationnum quantity )) { $cgi->param($_, $change_to->get($_)); } + if ($use_contract_end) { + $cgi->param('contract_end', $change_to->get('contract_end')); + } $title = "Edit Scheduled Package Change"; }