diff options
Diffstat (limited to 'httemplate/edit/process/cust_pkg_discount.html')
-rw-r--r-- | httemplate/edit/process/cust_pkg_discount.html | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/httemplate/edit/process/cust_pkg_discount.html b/httemplate/edit/process/cust_pkg_discount.html deleted file mode 100644 index e3249d79c..000000000 --- a/httemplate/edit/process/cust_pkg_discount.html +++ /dev/null @@ -1,47 +0,0 @@ -% if ($error) { -% $cgi->param('error', $error); -% $cgi->redirect(popurl(3). 'edit/cust_pkg_discount.html?'. $cgi->query_string ); -% } else { - - <% header("Discount applied") %> - <SCRIPT TYPE="text/javascript"> - window.top.location.reload(); - </SCRIPT> - </BODY> - </HTML> - -% } -<%init> - -my $curuser = $FS::CurrentUser::CurrentUser; - -die "access denied" - unless $curuser->access_right('Discount customer package'); - -#this search is really for security wrt agent virt... -#maybe move it to the cust_pkg_discount->insert call? -my $cust_pkg = qsearchs({ - #'select' => 'cust_pkg.*', - 'table' => 'cust_pkg', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'pkgnum' => scalar($cgi->param('pkgnum')), }, - 'extra_sql' => ' AND '. $curuser->agentnums_sql, -}); -die 'unknown pkgnum' unless $cust_pkg; - -my $cust_pkg_discount = new FS::cust_pkg_discount { - 'pkgnum' => $cust_pkg->pkgnum, - 'discountnum' => scalar($cgi->param('discountnum')), - 'months_used' => 0, - 'end_date' => '', #XXX - 'otaker' => $curuser->username, - #for the create a new discount case - '_type' => scalar($cgi->param('discountnum__type')), - 'amount' => scalar($cgi->param('discountnum_amount')), - 'percent' => scalar($cgi->param('discountnum_percent')), - 'months' => scalar($cgi->param('discountnum_months')), - #'disabled' => $self->discountnum_disabled, -}; -my $error = $cust_pkg_discount->insert; - -</%init> |