| version 1.33, 2011/05/07 03:27:34 |
version 1.34, 2011/05/07 03:34:17 |
|
|
| #!/usr/bin/perl |
#!/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 <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
| # |
# |
|
|
| |
|
| 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 ) { |
| |
# XXX Do something special for onsite activities |
| |
} |
| |
|
| |
$work_type =~ s/^\s+|\s+$//g; |
| |
$work_type ||= 'Normal'; |
| |
|
| my %fee = ( |
my %fee = ( |
| id => $txn->id, |
id => $txn->id, |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to rt_invoices.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / RT / Invoicing