This commit is contained in:
Craig Earls 2013-05-10 13:37:36 -07:00
commit 0cf46d024e

View file

@ -216,7 +216,7 @@ my %incomeGroups = ('INTEREST INCOME' => { args => ['/^Income.*Interest/' ] },
{ args => [ '/^Income.*(Royalt|Affilate)/' ] }, { args => [ '/^Income.*(Royalt|Affilate)/' ] },
'CONFERENCES, REGISTRATION' => {args => [ '/^Income.*Reg/' ] }, 'CONFERENCES, REGISTRATION' => {args => [ '/^Income.*Reg/' ] },
'CONFERENCES, RELATED BUSINESS INCOME' => { args => [ '/^Income.*(Conferences?:.*Sponsor|Booth|RBI)/'] }, 'CONFERENCES, RELATED BUSINESS INCOME' => { args => [ '/^Income.*(Conferences?:.*Sponsor|Booth|RBI)/'] },
'LICENSE ENFORCEMENT' => { args => [ '/^Income.*Enforce/' ]}, 'LICENSE COMPLIANCE' => { args => [ '/^Income.*(Enforce|Compliance)/' ]},
'TRADEMARKS' => {args => [ '/^Income.*Trademark/' ]}, 'TRADEMARKS' => {args => [ '/^Income.*Trademark/' ]},
'ADVERSITING' => {args => [ '/^Income.*Advertising/' ]}); 'ADVERSITING' => {args => [ '/^Income.*Advertising/' ]});
@ -265,7 +265,7 @@ print INCOME "\"INCOME\",",
my $overallTotal = $ZERO; my $overallTotal = $ZERO;
$formatStrTotal = "\"%-90s\",\"\$%14s\"\n"; $formatStrTotal = "\"%-90s\",\"\$%14s\"\n";
foreach my $type ('DONATIONS', 'LICENSE ENFORCEMENT', foreach my $type ('DONATIONS', 'LICENSE COMPLIANCE',
'CONFERENCES, REGISTRATION', 'CONFERENCES, RELATED BUSINESS INCOME', 'CONFERENCES, REGISTRATION', 'CONFERENCES, RELATED BUSINESS INCOME',
'BOOK ROYALTIES & AFFILIATE PROGRAMS', 'ADVERSITING', 'BOOK ROYALTIES & AFFILIATE PROGRAMS', 'ADVERSITING',
'TRADEMARKS', 'INTEREST INCOME', 'OTHER') { 'TRADEMARKS', 'INTEREST INCOME', 'OTHER') {
@ -288,7 +288,7 @@ my %expenseGroups = ('BANKING FEES' => { regex => '^Expenses.*(Banking Fees|Curr
'COMPUTING, HOSTING AND EQUIPMENT' => { regex => '^Expenses.*(Hosting|Computer Equipment)' }, 'COMPUTING, HOSTING AND EQUIPMENT' => { regex => '^Expenses.*(Hosting|Computer Equipment)' },
'CONFERENCES' => { regex => '^Expenses.*(Conferences|Sprint)' }, 'CONFERENCES' => { regex => '^Expenses.*(Conferences|Sprint)' },
'DEVELOPER MENTORING' => {regex => '^Expenses.*Mentor' }, 'DEVELOPER MENTORING' => {regex => '^Expenses.*Mentor' },
'LICENSE ENFORCEMENT' => { regex => '^Expenses.*Enforce' }, 'LICENSE COMPLIANCE' => { regex => '^Expenses.*(Enforce|Compliance)' },
'ACCOUNTING' => { regex => '^Expenses.*(Accounting|Annual Audit)' }, 'ACCOUNTING' => { regex => '^Expenses.*(Accounting|Annual Audit)' },
'PAYROLL' => { regex => '^Expenses.*Payroll' }, 'PAYROLL' => { regex => '^Expenses.*Payroll' },
'OFFICE' => { regex => '^Expenses.*(Office|Phones)' }, 'OFFICE' => { regex => '^Expenses.*(Office|Phones)' },
@ -357,7 +357,7 @@ my %verifyAllGroups;
foreach my $key (keys %expenseGroups) { foreach my $key (keys %expenseGroups) {
$verifyAllGroups{$key} = 1; $verifyAllGroups{$key} = 1;
} }
foreach my $type ('PAYROLL', 'SOFTWARE DEVELOPMENT', 'LICENSE ENFORCEMENT', 'CONFERENCES', foreach my $type ('PAYROLL', 'SOFTWARE DEVELOPMENT', 'LICENSE COMPLIANCE', 'CONFERENCES',
'DEVELOPER MENTORING', 'TRAVEL', 'BANKING FEES', 'ADVOCACY AND PROMOTION', 'DEVELOPER MENTORING', 'TRAVEL', 'BANKING FEES', 'ADVOCACY AND PROMOTION',
'COMPUTING, HOSTING AND EQUIPMENT', 'ACCOUNTING', 'COMPUTING, HOSTING AND EQUIPMENT', 'ACCOUNTING',
'OFFICE', 'RENT', 'ADVERSITING', 'OTHER PROGRAM ACTIVITY', 'OTHER') { 'OFFICE', 'RENT', 'ADVERSITING', 'OTHER PROGRAM ACTIVITY', 'OTHER') {