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_