[freeside-commits] freeside/httemplate/misc unvoid-cust_pay_void.cgi, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory wavetail:/tmp/cvs-serv6117/httemplate/misc

Added Files:
	unvoid-cust_pay_void.cgi 
Log Message:
payment "un-void"ing

--- NEW FILE: unvoid-cust_pay_void.cgi ---
<%

#untaint paynum
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ || die "Illegal paynum";
my $paynum = $1;

my $cust_pay_void = qsearchs('cust_pay_void', { 'paynum' => $paynum } );
my $custnum = $cust_pay_void->custnum;

my $error = $cust_pay_void->unvoid;
eidiot($error) if $error;

print $cgi->redirect($p. "view/cust_main.cgi?". $custnum);

%>