Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

A few changes that I had yet to commit.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-12-07 17:07:43 -08:00
parent 0333ea45fa
commit 9733aff0f3
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
Supporters/lib/Supporters.pm
View file

@ -1497,6 +1497,29 @@ sub donorTotalGaveInPeriod($$) {
}
return $amount;
}
######################################################################
=begin getType
FIXME DOCS
=cut
sub getType ($$) {
my($self, $donorId) = @_;
confess "donorFirstGave: donorId, \"$donorId\" not found in supporter database"
unless $self->_verifyId($donorId);
return undef unless $self->isSupporter($donorId);
$self->_readLedgerData() if not defined $self->{ledgerData};
my $entityId = $self->getLedgerEntityId($donorId);
return undef unless defined $self->{ledgerData}{$entityId};
return $self->{ledgerData}{$entityId}{__TYPE__};
}
######################################################################
=begin supporterExpirationDate