From 421dd769cb3cb110b16cba08f13c64405d2ef9da Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 22 Jul 2018 18:05:23 -0700
Subject: [PATCH] Match better what is typical in the ticket subject

---
 scripts/rt-outreachy-payment-next.plx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/rt-outreachy-payment-next.plx b/scripts/rt-outreachy-payment-next.plx
index 607880c..8bb6ef8 100755
--- a/scripts/rt-outreachy-payment-next.plx
+++ b/scripts/rt-outreachy-payment-next.plx
@@ -101,7 +101,7 @@ sub FindReimbursementTicketFromList(@) {
   foreach my $ticket (@_) {
     $ticket =~ s%\s*ticket/?\s*(\d+)\s*%$1%;
     open(my $rtReimburseFH, "-|", "$RT_CMD", "ls", "-i", 'Queue = accounts-payable AND ' .
-         "Subject LIKE 'reimbursement' and Subject LIKE 'travel' and id = " . $ticket);
+         "(Subject LIKE 'reimbursement' OR Subject LIKE 'travel') and id = " . $ticket);
     while (my $reimburseLine = <$rtReimburseFH>) {
       if ($reimburseLine =~ m%\s*ticket\s*/?\s*(\d+)\s*$%) {
         my $tt = $1;