version 1.49, 2013/02/05 03:41:58 |
version 1.50, 2013/06/20 05:36:06 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.48 2012/11/28 02:23:34 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.49 2013/02/05 03:41:58 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
# XXX Only need $ticket for the alternate subject |
# XXX Only need $ticket for the alternate subject |
|
|
my $work_time = sprintf "%.03f", $txn->time_taken / 60; |
my $work_time = sprintf "%.03f", $txn->time_taken / 60; |
my $work_type = $txn->cf('WorkType'); |
my $work_type = $txn->cf('WorkType') || ''; |
|
|
if ( $work_type =~ s/\s*Onsite//i ) { |
if ( $work_type =~ s/\s*Onsite//i ) { |
|
|