diff options
Diffstat (limited to 'httemplate')
| -rwxr-xr-x | httemplate/edit/cust_credit.cgi | 3 | ||||
| -rwxr-xr-x | httemplate/edit/process/cust_credit.cgi | 5 |
2 files changed, 5 insertions, 3 deletions
diff --git a/httemplate/edit/cust_credit.cgi b/httemplate/edit/cust_credit.cgi index 63732f86c..e61463e07 100755 --- a/httemplate/edit/cust_credit.cgi +++ b/httemplate/edit/cust_credit.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: cust_credit.cgi,v 1.6 2001-12-26 04:25:04 ivan Exp $ --> +#<!-- $Id: cust_credit.cgi,v 1.7 2001-12-26 15:07:06 ivan Exp $ --> use strict; use vars qw( $cgi $query $custnum $otaker $p1 $_date $amount $reason ); @@ -45,6 +45,7 @@ print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'), print <<END, small_custview($custnum, $conf->config('countrydefault')); <FORM ACTION="${p1}process/cust_credit.cgi" METHOD=POST> <INPUT TYPE="hidden" NAME="crednum" VALUE=""> + <INPUT TYPE="hidden" NAME="custnum" VALUE="$custnum"> <INPUT TYPE="hidden" NAME="paybatch" VALUE=""> <INPUT TYPE="hidden" NAME="_date" VALUE="$_date"> <INPUT TYPE="hidden" NAME="credited" VALUE=""> diff --git a/httemplate/edit/process/cust_credit.cgi b/httemplate/edit/process/cust_credit.cgi index 2eb431bcc..415000f88 100755 --- a/httemplate/edit/process/cust_credit.cgi +++ b/httemplate/edit/process/cust_credit.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: cust_credit.cgi,v 1.3 2001-12-26 04:25:04 ivan Exp $ --> +#<!-- $Id: cust_credit.cgi,v 1.4 2001-12-26 15:07:06 ivan Exp $ --> use strict; use vars qw( $cgi $custnum $new $error ); @@ -9,6 +9,7 @@ use FS::UID qw(cgisuidsetup getotaker); use FS::CGI qw(popurl); use FS::Record qw(fields); use FS::cust_credit; +use FS::cust_main; $cgi = new CGI; cgisuidsetup($cgi); @@ -33,7 +34,7 @@ if ( $error ) { } else { if ( $cgi->param('apply') eq 'yes' ) { my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum }) - or die "unknown custnum $linknum"; + or die "unknown custnum $custnum"; $cust_main->apply_payments; } print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum"); |