RT/Invoicing/rt_invoices.pl - diff

Return to rt_invoices.pl CVS log

Up to [local] / RT / Invoicing

version 1.25, 2011/04/19 04:18:13

version 1.26, 2011/04/19 04:19:27

Line 1

#!/usr/bin/perl

# $AFresh1: rt_invoices.pl,v 1.24 2011/04/12 19:32:15 andrew Exp $

# $AFresh1: rt_invoices.pl,v 1.25 2011/04/19 03:18:13 andrew Exp $

########################################################################

Line 76

my $iterator = $results->get_iterator;

while ( my $ticket = &$iterator ) {

if (!$ticket->time_worked) {

say "Ticket " . $ticket->id . " has no time worked";

next;

}

my $cust = find_customer_for_ticket( $ticket );

if ( !$cust ) {

warn "No customer found for ticket " . $ticket->id;