Skip to content

Commit

Permalink
typos
Browse files Browse the repository at this point in the history
  • Loading branch information
spaette authored and tbm committed Jan 7, 2023
1 parent c66ca93 commit 3dc3d70
Show file tree
Hide file tree
Showing 6 changed files with 10 additions and 10 deletions.
4 changes: 2 additions & 2 deletions contrib/non-profit-audit-reports/fund-report.plx
Original file line number Diff line number Diff line change
Expand Up @@ -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) {
Expand Down Expand Up @@ -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}))
Expand Down
8 changes: 4 additions & 4 deletions contrib/non-profit-audit-reports/summary-reports.plx
Original file line number Diff line number Diff line change
Expand Up @@ -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) {
Expand Down Expand Up @@ -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",
Expand Down Expand Up @@ -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;
Expand Down Expand Up @@ -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};
Expand Down
2 changes: 1 addition & 1 deletion test/regress/786A3DD0.test
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,7 @@ D 1000.00 EUR
Expenses:Banking:Fees USD 2.50
Assets:Chequing CAD -203.42
Epenses:Banking:Fees CAD 2.00
Assets:Chqeuing CAD -2.00
Assets:Chequing CAD -2.00

test pricedb
P 2011/02/27 00:00:00 AUD 0.746 EUR
Expand Down
2 changes: 1 addition & 1 deletion test/regress/89233B6D-a.dat
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
1994/01/02 * Salary
Asssets:Bank:Checking 200.00
Assets:Bank:Checking 200.00
Income:Salary -200.00

2 changes: 1 addition & 1 deletion test/regress/89233B6D-b.dat
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
1994/01/02 * Rent
Expenses:Rent 100.00
Asssets:Bank:Checking -100.00
Assets:Bank:Checking -100.00

2 changes: 1 addition & 1 deletion test/regress/89233B6D.test
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
!end

test reg "^A:"
94-Jan-02 Salary A:Assset:Bank:Checking 200 200
94-Jan-02 Salary A:Assets:Bank:Checking 200 200
A:Income:Salary -200 0
end test

0 comments on commit 3dc3d70

Please sign in to comment.