4 use FS::UID qw(adminsuidsetup dbh);
5 use FS::Record qw( qsearch );
7 use FS::cust_credit_bill;
9 $FS::CurrentUser::upgrade_hack = 1;
10 adminsuidsetup(shift) or die "Usage: breakdown-bill-applications username\n";
12 #quick and dirty conversion script if you have enough memory to throw at it
14 my @tables = qw( cust_bill_pay cust_credit_bill );
18 push @apps, qsearch($table,
25 foreach my $cust_bill_