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

Find only entries that gave a year later.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-05-26 13:18:28 -07:00
parent d72431cdce
commit 93d048a3fd
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scripts/find-already-renewed.plx
View file

@ -35,7 +35,11 @@ foreach my $id (@supporterIds) {
my $amount = $sp->donorTotalGaveInPeriod(donorId => $id); my $amount = $sp->donorTotalGaveInPeriod(donorId => $id);
my $lastGaveDate = $sp->donorLastGave($id); my $lastGaveDate = $sp->donorLastGave($id);
my $firstGaveDate = $sp->donorFirstGave($id); my $firstGaveDate = $sp->donorFirstGave($id);
if ($amount > 180.00 and $lastGaveDate ne $firstGaveDate and $firstGaveDate le $ONE_YEAR_AGO) { # Ok, so they gave more than the minimum a year later my $oneYearSinceFirstGave = UnixDate(DateCalc(ParseDate($firstGaveDate), "+ 1 year"), '%Y-%m-%d');
if ($amount > 180.00 and
$lastGaveDate ne $firstGaveDate and
$firstGaveDate le $ONE_YEAR_AGO and
$lastGaveDate ge $oneYearSinceFirstGave ) {
my $ledgerEntityId = $sp->getLedgerEntityId($id); my $ledgerEntityId = $sp->getLedgerEntityId($id);
my $type = $sp->{ledgerData}{$ledgerEntityId}{__TYPE__}; my $type = $sp->{ledgerData}{$ledgerEntityId}{__TYPE__};
my $shirt1 = $sp->getRequest({ donorId => $id, requestType => 't-shirt-1' }); my $shirt1 = $sp->getRequest({ donorId => $id, requestType => 't-shirt-1' });