Improve output.
This commit is contained in:
parent
ace578089c
commit
5936b5eec5
1 changed files with 8 additions and 2 deletions
|
@ -238,6 +238,12 @@ while (my $file = readdir $dh) {
|
|||
}
|
||||
next;
|
||||
}
|
||||
my $expectVal = 'payment-' . $PAYMENT_NUMBER . "-approved";
|
||||
if ($completedInternshipField eq $expectVal) {
|
||||
print STDERR "\"$file\": \"$ticket\": $PAYMENT_NUMBER PAYMENT-DONE: Skipped: completed-internship is ",
|
||||
"\"$completedInternshipField\" which indicates this payment round is in process.\n";
|
||||
next;
|
||||
}
|
||||
my $expectVal = 'payment-' . $prevPayNum . "-approved";
|
||||
if ($completedInternshipField ne $expectVal) {
|
||||
print STDERR "\"$file\": \"$ticket\": Skipped: completed-internship field was ",
|
||||
|
@ -257,13 +263,13 @@ while (my $file = readdir $dh) {
|
|||
print STDERR "\"$file\": \"$ticket\": found a tax ticket of \"$taxTicket\"\n" if ($VERBOSE > 5);
|
||||
my $taxTicketStatus = GetStatusFromTicket($taxTicket);
|
||||
if ($taxTicketStatus ne "resolved") {
|
||||
print STDERR "\"$file\": \"$ticket\": Tax Ticket: \"$taxTicket\": Skipped: ",
|
||||
print STDERR "\"$file\": \"$ticket\": TAX-TICKET-PENDING: \"$taxTicket\": Skipped: ",
|
||||
"tax ticket is in status \"$taxTicketStatus\" instead of \"resolved\"\n";
|
||||
next;
|
||||
}
|
||||
my $mainTicketStatus = GetStatusFromTicket($ticket);
|
||||
if ($mainTicketStatus ne "needs-project-ok") {
|
||||
print STDERR "\"$file\": \"$ticket\": Skipped: ",
|
||||
print STDERR "\"$file\": \"$ticket\": PREV-PAYMENT-INCOMPLETE: Skipped: ",
|
||||
"ticket is in status \"$mainTicketStatus\" instead of \"needs-project-ok\"\n";
|
||||
next;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue