From 9b7858843be54ef319807951eb9b16d78caf0e2f Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 22 Jul 2018 14:33:02 -0700
Subject: [PATCH] Add Entity lookup.

---
 scripts/rt-outreachy-payment-next.plx | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/scripts/rt-outreachy-payment-next.plx b/scripts/rt-outreachy-payment-next.plx
index d132dde..92f5c2c 100755
--- a/scripts/rt-outreachy-payment-next.plx
+++ b/scripts/rt-outreachy-payment-next.plx
@@ -101,7 +101,11 @@ while (my $file = readdir $dh) {
   }
 
   # Find the ticket number for this intern.
-
+  my $entity = LedgerTagFromTicket($ticket, 'Entity');
+  if (not defined $entity) {
+    print STDERR "\"$file\": \"$ticket\": Skipping: cannot determine Entity from ticket." ;
+    next;
+  }
   my(@nameComponents) = split(/\s*-\s*/, $name);
   my(@searchTerms);
   foreach my $name (@nameComponents) {