Move Entity lookup until after ticket is found.
This commit is contained in:
		
							parent
							
								
									cb49fb5c3e
								
							
						
					
					
						commit
						cebb1d813b
					
				
					 1 changed files with 8 additions and 7 deletions
				
			
		|  | @ -169,12 +169,6 @@ while (my $file = readdir $dh) { | |||
|     next; | ||||
|   } | ||||
| 
 | ||||
|   # 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) { | ||||
|  | @ -196,7 +190,14 @@ while (my $file = readdir $dh) { | |||
|       die "interactive mode not yet supported"; | ||||
|     } | ||||
|   } | ||||
|   if ($PAYMENT_NUMBER == 1) { | ||||
|   # 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; | ||||
|   } | ||||
| 
 | ||||
|   if ($PAYMENT_NUMBER <= 1) { | ||||
|     print STDERR "Sorry, script does not yet support first payment\n"; | ||||
|     exit 1; | ||||
|   } | ||||
|  |  | |||
		Loading…
	
	Add table
		
		Reference in a new issue
	
	 Bradley M. Kuhn
						Bradley M. Kuhn