-
-END
-
-die unless $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );
-
-print qq!Credit #!, $crednum, qq!!;
-
-print qq!\nInvoice # ";
-
-print qq!\nDate: !, time2str("%D",$_date), qq!!;
-
-print qq!\nAmount \$!;
-
-#print qq! Also post refund!;
-
-print <
-
-
-END
-
-print < 'process/cust_credit_bill.cgi',
+ 'src_table' => 'cust_credit',
+ 'src_thing' => 'credit',
+ 'dst_table' => 'cust_bill',
+ 'dst_thing' => 'invoice',
+ )
+%>
+<%init>
-
-