bulk credit import, RT#26319
[freeside.git] / bin / breakdown-bill-applications
1 #!/usr/bin/perl -w
2
3 use strict;
4 use FS::UID qw(adminsuidsetup dbh);
5 use FS::Record qw( qsearch );
6 use FS::cust_bill_pay;
7 use FS::cust_credit_bill;
8
9 $FS::CurrentUser::upgrade_hack = 1;
10 adminsuidsetup(shift) or die "Usage: breakdown-bill-applications username\n";
11
12 #quick and dirty conversion script if you have enough memory to throw at it
13
14 my @tables = qw( cust_bill_pay cust_credit_bill );
15
16 my @apps = ();
17 foreach my $table {
18   push @apps, qsearch($table, 
19
20
21 ) {
22
23 }
24
25 foreach my $cust_bill_