Match better what is typical in the ticket subject
This commit is contained in:
		
							parent
							
								
									5c28767692
								
							
						
					
					
						commit
						421dd769cb
					
				
					 1 changed files with 1 additions and 1 deletions
				
			
		| 
						 | 
					@ -101,7 +101,7 @@ sub FindReimbursementTicketFromList(@) {
 | 
				
			||||||
  foreach my $ticket (@_) {
 | 
					  foreach my $ticket (@_) {
 | 
				
			||||||
    $ticket =~ s%\s*ticket/?\s*(\d+)\s*%$1%;
 | 
					    $ticket =~ s%\s*ticket/?\s*(\d+)\s*%$1%;
 | 
				
			||||||
    open(my $rtReimburseFH, "-|", "$RT_CMD", "ls", "-i", 'Queue = accounts-payable AND ' .
 | 
					    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>) {
 | 
					    while (my $reimburseLine = <$rtReimburseFH>) {
 | 
				
			||||||
      if ($reimburseLine =~ m%\s*ticket\s*/?\s*(\d+)\s*$%) {
 | 
					      if ($reimburseLine =~ m%\s*ticket\s*/?\s*(\d+)\s*$%) {
 | 
				
			||||||
        my $tt = $1;
 | 
					        my $tt = $1;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		
		Reference in a new issue