=================================================================== RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v retrieving revision 1.33 retrieving revision 1.34 diff -u -r1.33 -r1.34 --- RT/Invoicing/rt_invoices.pl 2011/05/07 03:27:34 1.33 +++ RT/Invoicing/rt_invoices.pl 2011/05/07 03:34:17 1.34 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $AFresh1: rt_invoices.pl,v 1.32 2011/05/07 01:09:43 andrew Exp $ +# $AFresh1: rt_invoices.pl,v 1.33 2011/05/07 02:27:34 andrew Exp $ ######################################################################## # Copyright (c) 2011 Andrew Fresh # @@ -507,6 +507,13 @@ my $work_time = sprintf "%.03f", $txn->time_taken / 60; my $work_type = $txn->cf('WorkType'); + + if ( $work_type =~ s/\s*Onsite//i ) { + # XXX Do something special for onsite activities + } + + $work_type =~ s/^\s+|\s+$//g; + $work_type ||= 'Normal'; my %fee = ( id => $txn->id,