===================================================================
RCS file: /cvs/RT/Invoicing/report_time,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- RT/Invoicing/report_time	2020/08/04 02:22:44	1.2
+++ RT/Invoicing/report_time	2020/08/04 02:23:48	1.3
@@ -1,5 +1,5 @@
 #!/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;
 
@@ -76,9 +76,12 @@
 
 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",
-		    25 * sprintf "%.2f", $total{$date}{$key}->hours / 25;
+		$hours = sprintf "%.2f",
+		    25 * sprintf "%.2f", $hours / 25;
+
 		say "$date $hours $key";# if $hours != 0;
 	}
 }