blob: 44c3e36b03831f1845ff9dc9ce27b61cfd4adb8e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/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_
|
