diff options
Diffstat (limited to 'httemplate/misc')
| -rwxr-xr-x | httemplate/misc/cancel_pkg.html | 19 | ||||
| -rw-r--r-- | httemplate/misc/process/payment.cgi | 2 |
2 files changed, 20 insertions, 1 deletions
diff --git a/httemplate/misc/cancel_pkg.html b/httemplate/misc/cancel_pkg.html index d3ca9964f..7af106d85 100755 --- a/httemplate/misc/cancel_pkg.html +++ b/httemplate/misc/cancel_pkg.html @@ -8,6 +8,8 @@ <BR> <% emt(ucfirst($method)." [_1]", $part_pkg->pkg_comment(cust_pkg=>$cust_pkg) ) %> +<BR> +<font color="red"><% $unprovision_warning |h %></font> <table style="background-color: #cccccc; border-spacing: 2; width: 100%"> % my $date_init = 0; @@ -191,6 +193,23 @@ my $cust_pkg = qsearchs('cust_pkg', {'pkgnum' => $pkgnum}) my $part_pkg = $cust_pkg->part_pkg; +my $unprovision_warning = ''; +{ + my @services_w_export; + for ( $cust_pkg->cust_svc ) { + push( @services_w_export, ($_->label)[0] . ': ' . ($_->label)[1], ) + if $_->part_svc->export_svc; + } + if ( @services_w_export ) { + $unprovision_warning = 'NOTE: This package has ' . @services_w_export + . ' ' . PL( "service", @services_w_export ) + . ' that will be unprovisioned'; + $unprovision_warning .= ' (' . join( ', ', @services_w_export, ) . ')' + if @services_w_export < 10; + $unprovision_warning .= '.'; + } +} + $date ||= $cust_pkg->get($method); $date ||= time; diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi index 6226ebd2f..717d57c85 100644 --- a/httemplate/misc/process/payment.cgi +++ b/httemplate/misc/process/payment.cgi @@ -256,7 +256,7 @@ if ( $cgi->param('batch') ) { #and generate an invoice for it now too $error = $cust_main->bill( 'pkg_list' => [ $cust_pkg ] ); - errorpage("payment processed and fee ordered sucessfully, but error billing fee: $error") + errorpage("payment processed and fee ordered successfully, but error billing fee: $error") if $error; } |