<%
-#<!-- $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 );
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="">
<%
-#<!-- $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 );
use FS::CGI qw(popurl);
use FS::Record qw(fields);
use FS::cust_credit;
+use FS::cust_main;
$cgi = new CGI;
cgisuidsetup($cgi);
} 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");