diff options
| author | cvs2git <cvs2git> | 2004-01-09 22:11:55 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2004-01-09 22:11:55 +0000 |
| commit | c420525265a83210f1f829e901dde872363ea811 (patch) | |
| tree | 92085a9c1e3064f5ae37811c9176774083039721 | |
| parent | 6826cb8eeb3f3211199fb0f1614cef14623a3942 (diff) | |
| parent | f3212b82d6d54500bbe31c02c8ffa456f018a067 (diff) | |
This commit was manufactured by cvs2svn to create branch
'FREESIDE_1_4_BRANCH'.
| -rwxr-xr-x | httemplate/misc/delete-cust_credit.cgi | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/httemplate/misc/delete-cust_credit.cgi b/httemplate/misc/delete-cust_credit.cgi new file mode 100755 index 000000000..30de04d27 --- /dev/null +++ b/httemplate/misc/delete-cust_credit.cgi @@ -0,0 +1,16 @@ +<% + +#untaint crednum +my($query) = $cgi->keywords; +$query =~ /^(\d+)$/ || die "Illegal crednum"; +my $crednum = $1; + +my $cust_credit = qsearchs('cust_credit',{'crednum'=>$crednum}); +my $custnum = $cust_credit->custnum; + +my $error = $cust_credit->delete; +eidiot($error) if $error; + +print $cgi->redirect($p. "view/cust_main.cgi?". $custnum); + +%> |