4 use FS::UID qw(adminsuidsetup);
5 use FS::Record qw(qsearch);
9 my $user = shift or die &usage;
10 my $dbh = adminsuidsetup $user;
12 # apply payments to invoices
14 foreach my $cust_pay ( qsearch('cust_pay', {} ) ) {
15 my $error = $cust_pay->upgrade_replace;
16 warn $error if $error;
19 # apply refunds to credits
21 foreach my $cust_refund ( qsearch('cust_refund') ) {
22 my $error = $cust_refund->upgrade_replace;
23 warn $error if $error;
26 # ? apply credits to invoices
29 die "Usage:\n fs-migrate-payref user\n";