RT/Invoicing/report_time - diff

Return to report_time CVS log

Up to [local] / RT / Invoicing

version 1.2, 2020/08/04 02:22:44

version 1.3, 2020/08/04 02:23:48

Line 1

#!/usr/bin/perl

# $AFresh1: report_time,v 1.1 2020/08/04 01:14:42 afresh1 Exp $

# $AFresh1: report_time,v 1.2 2020/08/04 01:22:44 afresh1 Exp $

use v5.16;

use warnings;

Line 76

foreach my $date ( sort keys %total ) {

foreach my $key ( sort keys %{ $total{$date} } ) {

my $hours = $total{$date}{$key}->hours;

# round to the quarter hour

my $hours = sprintf "%.2f",

$hours = sprintf "%.2f",

25 * sprintf "%.2f", $total{$date}{$key}->hours / 25;

25 * sprintf "%.2f", $hours / 25;

say "$date $hours $key";# if $hours != 0;

}