From 93d048a3fdda5877c4ee9cda7e10bcf1ceaf34cb Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Thu, 26 May 2016 13:18:28 -0700
Subject: [PATCH] Find only entries that gave a year later.

---
 scripts/find-already-renewed.plx | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/scripts/find-already-renewed.plx b/scripts/find-already-renewed.plx
index 6962c04..82fe837 100755
--- a/scripts/find-already-renewed.plx
+++ b/scripts/find-already-renewed.plx
@@ -35,7 +35,11 @@ foreach my $id (@supporterIds) {
   my $amount = $sp->donorTotalGaveInPeriod(donorId => $id);
   my $lastGaveDate = $sp->donorLastGave($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 $type = $sp->{ledgerData}{$ledgerEntityId}{__TYPE__};
     my $shirt1 = $sp->getRequest({ donorId => $id, requestType => 't-shirt-1' });