Improve output.
This commit is contained in:
		
							parent
							
								
									2b06c9f8bd
								
							
						
					
					
						commit
						d352fc5322
					
				
					 1 changed files with 4 additions and 3 deletions
				
			
		|  | @ -234,6 +234,7 @@ foreach my $ticket (@processList)  { | |||
| 
 | ||||
|   open(my $logFH, "-|", $RT_CMD, "show", $ticketNum); | ||||
|   while (my $line = <$logFH>) { | ||||
|     print STDERR "\"$ticket\": rt show $ticketNum line evaluation: $line" if ($VERBOSE > 8); | ||||
|     if ($line =~ /^\s*([^:]+)\s*:\s*(.+)$/) { | ||||
|       my($key, $val) = ($1, $2); | ||||
|       # Note that this will take the last one used, since rt log gives ticket traffic IN ORDER. | ||||
|  | @ -262,7 +263,7 @@ foreach my $ticket (@processList)  { | |||
|   } | ||||
|   close $logFH; | ||||
|   if (not defined $pass) { | ||||
|     print STDERR "\"$ticket\": Skipping: pass/fail information not found" ; | ||||
|     print STDERR "\"$ticket\": Skipping: pass/fail information not found\n" ; | ||||
|     next; | ||||
|   } | ||||
|   if ($pass and not defined $mentorDate) { | ||||
|  | @ -270,7 +271,7 @@ foreach my $ticket (@processList)  { | |||
|     next; | ||||
|   } | ||||
|   if ($pass and not defined $approvalTag) { | ||||
|     print STDERR "\"$ticket\": Skipping: there was a pass here for this payment, but unable to the attachment number of the approval tag." ; | ||||
|     print STDERR "\"$ticket\": Skipping: there was a pass here for this payment, but unable to the attachment number of the approval tag.\n" ; | ||||
|     next; | ||||
|   } | ||||
|   my $completedInternshipField = GetCustomFieldForTicket($ticket, "completed-internship"); | ||||
|  | @ -396,7 +397,7 @@ foreach my $ticket (@processList)  { | |||
|     foreach my $key (keys %paymentVals) { | ||||
|       print $paymentValsFH sprintf(" %20s: ", $key), "$paymentVals{$key}\n"; | ||||
|     } | ||||
|     print $paymentValsFH sprintf(" %20s", 'TOTAL AMOUNT'), "$rightA\n\n LEDGER ENTRY:\n"; | ||||
|     print $paymentValsFH sprintf(" %20s: ", 'TOTAL AMOUNT'), "$rightA\n\n LEDGER ENTRY:\n"; | ||||
| 
 | ||||
|     my $ledgerEntryFile = File::Spec->catfile($PAYMENT_DIR, "entry.ledger"); | ||||
|     open(my $ledgerEntryFH, ">>", $ledgerEntryFile); | ||||
|  |  | |||
		Loading…
	
	Add table
		
		Reference in a new issue
	
	 Bradley M. Kuhn
						Bradley M. Kuhn