RT# 82092 - Removed reload of DB Schema
[freeside.git] / httemplate / edit / process / cust_pay-pkgnum.html
1 %if ($error) {
2 %  $cgi->param('error', $error);
3 <% $cgi->redirect(popurl(2). 'cust_pay-pkgnum.html?'. $cgi->query_string ) %>
4 %} else {
5 <& /elements/header-popup.html, emt('Payment package changed') &>
6     <SCRIPT TYPE="text/javascript">
7       topreload();
8     </SCRIPT>
9
10     </BODY></HTML>
11 %}
12 <%init>
13
14 my $conf = FS::Conf->new;
15
16 die "access denied"
17   unless $FS::CurrentUser::CurrentUser->access_right('Apply credit'); #own ACL?
18
19 $cgi->param('paynum') =~ /^(\d+)$/
20   or die "Illegal paynum: ". $cgi->param('paynum');
21 my $paynum = $1;
22
23 my $cust_pay = qsearchs({
24   'select'    => 'cust_pay.*',
25   'table'     => 'cust_pay',
26   'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
27   'hashref'   => { paynum => scalar($cgi->param('paynum')), },
28   'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
29 })
30   or die 'unknown payment';
31
32 $cust_pay->pkgnum( $cgi->param('pkgnum') );
33 my $error = $cust_pay->replace;
34
35 </%init>