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, 47 insertions, 0 deletions
diff --git a/httemplate/edit/process/cust_pkg_discount.html b/httemplate/edit/process/cust_pkg_discount.html new file mode 100644 index 0000000..e3249d7 --- /dev/null +++ b/httemplate/edit/process/cust_pkg_discount.html @@ -0,0 +1,47 @@ +% 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> |