[freeside-commits] freeside/bin breakdown-bill-applications, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail:/tmp/cvs-serv29125

Added Files:
	breakdown-bill-applications 
Log Message:
not done yet

--- NEW FILE: breakdown-bill-applications ---
#!/usr/bin/perl -w

use strict;
use FS::UID qw(adminsuidsetup dbh);
use FS::Record qw( qsearch );
use FS::cust_bill_pay;
use FS::cust_credit_bill;

$FS::CurrentUser::upgrade_hack = 1;
adminsuidsetup(shift) or die "Usage: breakdown-bill-applications username\n";

#quick and dirty conversion script if you have enough memory to throw at it

my @tables = qw( cust_bill_pay cust_credit_bill );

my @apps = ();
foreach my $table {
  push @apps, qsearch($table, 


) {

}

foreach my $cust_bill_