Change regex to handle currency conversation USD hint.
I found a ticket today with payment-amount set as: "CUR AMOUNT ($OTHER_AMOUNT)" Since the field is free-from I figured I probably need to accept this.
This commit is contained in:
		
							parent
							
								
									927bb55547
								
							
						
					
					
						commit
						7d24d42788
					
				
					 1 changed files with 2 additions and 1 deletions
				
			
		|  | @ -60,7 +60,8 @@ sub FindMostRecentPaymentMethodForTicket ($) { | |||
|     chomp $curAndAmount; $curAndAmount =~ s/^\s*cf.\{payment-amount\}\s*:\s+(.*)$/$1/i; | ||||
|     $ticketSpec =~ s%^\s*ticket\s*/\s*%%; | ||||
|     $curAndAmount = "USD -32767.69" if not defined $curAndAmount; | ||||
|     $curAndAmount =~ /^\s*([A-Z]{3,3})\s+([\-\d\,\.]+)\s*$/ or die "Ticket, $ticketSpec, has amount of $curAndAmount"; | ||||
|     $curAndAmount =~ /^\s*([A-Z]{3,3})\s+([\-\d\,\.]+)(\s+\(\s*\$\s*[\-\d\,\.]+\s*\))?\s*$/ | ||||
|       or die "Ticket, $ticketSpec, has amount of $curAndAmount"; | ||||
|     ($AMOUNTS{$ticketSpec}{currency}, $AMOUNTS{$ticketSpec}{amount}) = ($1, $2); | ||||
|     $AMOUNTS{$ticketSpec}{amount} =~ s/\$//g; $AMOUNTS{$ticketSpec}{amount} =~ s/,//g; | ||||
|     $AMOUNTS{$ticketSpec}{currency} =~ s/\s//g; | ||||
|  |  | |||
		Loading…
	
	Add table
		
		Reference in a new issue
	
	 Bradley M. Kuhn
						Bradley M. Kuhn