diff options
author | spaette <spaette@outlook.com> | 2023-01-06 12:35:59 -0600 |
---|---|---|
committer | Martin Michlmayr <tbm@cyrius.com> | 2023-01-07 18:23:38 +0800 |
commit | 3dc3d70ebcca73da73f95acd86594e9c5443d4ef (patch) | |
tree | 983bbf6c69602d686af9d06c14d47ff55101a5b8 /contrib | |
parent | c66ca93b2e9d8db82d196f144ba60482fb92d716 (diff) | |
download | fork-ledger-3dc3d70ebcca73da73f95acd86594e9c5443d4ef.tar.gz fork-ledger-3dc3d70ebcca73da73f95acd86594e9c5443d4ef.tar.bz2 fork-ledger-3dc3d70ebcca73da73f95acd86594e9c5443d4ef.zip |
typos
Diffstat (limited to 'contrib')
-rwxr-xr-x | contrib/non-profit-audit-reports/fund-report.plx | 4 | ||||
-rwxr-xr-x | contrib/non-profit-audit-reports/summary-reports.plx | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/contrib/non-profit-audit-reports/fund-report.plx b/contrib/non-profit-audit-reports/fund-report.plx index ce59da96..65de85f7 100755 --- a/contrib/non-profit-audit-reports/fund-report.plx +++ b/contrib/non-profit-audit-reports/fund-report.plx @@ -133,7 +133,7 @@ my %tot; my %beforeEndings = ('Income' => 1, 'Expenses' => 1); my %afterEndings; -# For other @possibleTypes, build up @fieldsList to just thoes that are present. +# For other @possibleTypes, build up @fieldsList to just those that are present. foreach my $fund (keys %funds) { foreach my $type (@possibleTypes) { @@ -216,7 +216,7 @@ foreach my $fund (sort { $tot{$type} += $funds{$fund}{$type}; } print "\n"; - # Santity check: + # Sanity check: if (abs($funds{$fund}{ending} - ($funds{$fund}{starting} - $funds{$fund}{Income} - $funds{$fund}{Expenses})) diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx index bf3abc4a..d7626bf5 100755 --- a/contrib/non-profit-audit-reports/summary-reports.plx +++ b/contrib/non-profit-audit-reports/summary-reports.plx @@ -218,7 +218,7 @@ my %incomeGroups = ('INTEREST INCOME' => { args => ['/^Income.*Interest/' ] }, 'CONFERENCES, RELATED BUSINESS INCOME' => { args => [ '/^Income.*(Conferences?:.*Sponsor|Booth|RBI)/'] }, 'LICENSE COMPLIANCE' => { args => [ '/^Income.*(Enforce|Compliance)/' ]}, 'TRADEMARKS' => {args => [ '/^Income.*Trademark/' ]}, - 'ADVERSITING' => {args => [ '/^Income.*Advertising/' ]}); + 'ADVERTISING' => {args => [ '/^Income.*Advertising/' ]}); my @otherArgs; foreach my $type (keys %incomeGroups) { @@ -267,7 +267,7 @@ my $overallTotal = $ZERO; $formatStrTotal = "\"%-90s\",\"\$%14s\"\n"; foreach my $type ('DONATIONS', 'LICENSE COMPLIANCE', 'CONFERENCES, REGISTRATION', 'CONFERENCES, RELATED BUSINESS INCOME', - 'BOOK ROYALTIES & AFFILIATE PROGRAMS', 'ADVERSITING', + 'BOOK ROYALTIES & AFFILIATE PROGRAMS', 'ADVERTISING', 'TRADEMARKS', 'INTEREST INCOME', 'OTHER') { next if ($incomeGroups{$type}{output} =~ /^\s*$/ and $incomeGroups{$type}{total} == $ZERO); print INCOME "\n\"$type\"\n", @@ -296,7 +296,7 @@ my %expenseGroups = ('BANKING FEES' => { regex => '^Expenses.*(Banking Fees|Curr 'SOFTWARE DEVELOPMENT' => { regex => '^Expenses.*Development' }, 'OTHER PROGRAM ACTIVITY' => {regex => '^Expenses.*Gould' }, 'ADVOCACY AND PROMOTION' => {regex => '^Expenses.*(Slipstream|Advocacy Merchandise|Promotional)' }, - 'ADVERSITING' => {regex => '^Expenses.*Advertising' }); + 'ADVERTISING' => {regex => '^Expenses.*Advertising' }); foreach my $type (keys %expenseGroups, 'TRAVEL') { $expenseGroups{$type}{total} = $ZERO; @@ -360,7 +360,7 @@ foreach my $key (keys %expenseGroups) { foreach my $type ('PAYROLL', 'SOFTWARE DEVELOPMENT', 'LICENSE COMPLIANCE', 'CONFERENCES', 'DEVELOPER MENTORING', 'TRAVEL', 'BANKING FEES', 'ADVOCACY AND PROMOTION', 'COMPUTING, HOSTING AND EQUIPMENT', 'ACCOUNTING', - 'OFFICE', 'RENT', 'ADVERSITING', 'OTHER PROGRAM ACTIVITY', 'OTHER') { + 'OFFICE', 'RENT', 'ADVERTISING', 'OTHER PROGRAM ACTIVITY', 'OTHER') { delete $verifyAllGroups{$type}; die "$type is not defined!" if not defined $expenseGroups{$type}; |