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

Properly sort so most in need get shirts first.

Browse source 
The idea behind this sort is to give monthlies top priority based on
their id number (i.e., when they hit $60, just get that shirt out to
them), and for annuals, make sure we prioritize based on how long it has
been since their last donation.
This commit is contained in:
Bradley M. Kuhn 2016-05-26 20:38:48 -07:00
parent f3a6debdf7
commit 6a6ec1fca2
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
scripts/t-shirt-label-print.plx
View file

@ -63,7 +63,20 @@ my(@supporterIds) = $sp->findDonor({});
my $overallCount = 0;
my %lines;
foreach my $id (@supporterIds) {
sub sortFunction($$) {
my $lastGaveDate0 = $sp->donorLastGave($_[0]);
my $lastGaveDate1 = $sp->donorLastGave($_[1]);
my $ledgerEntityId0 = $sp->getLedgerEntityId($_[0]);
my $ledgerEntityId1 = $sp->getLedgerEntityId($_[1]);
my $type0 = $sp->{ledgerData}{$ledgerEntityId0}{__TYPE__};
my $type1 = $sp->{ledgerData}{$ledgerEntityId1}{__TYPE__};
if ( (defined $type0 and $type =~ /month/i) or (defined $type1 and $type =~ /month/i)) {
return ($_[0] <=> $_[1]);
} else {
return ($lastGaveDate0 cmp $lastGaveDate1);
}
}
foreach my $id (sort { sortFunction($a, $b); } @supporterIds) {
my $sizeNeeded;
foreach my $type (qw/t-shirt-0 t-shirt-1/) {
my $request = $sp->getRequest({ donorId => $id, requestType => 't-shirt-0', ignoreFulfilledRequests => 1 });