===================================================================
RCS file: /cvs/RT/Invoicing/report_time,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -r1.2 -r1.4
--- RT/Invoicing/report_time	2020/08/04 02:22:44	1.2
+++ RT/Invoicing/report_time	2020/08/04 02:24:44	1.4
@@ -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.3 2020/08/04 01:23:48 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;
 	}
 }
@@ -88,8 +91,8 @@
 
 	my @key = split /\s+/, $descr;
 
-	$key[-1] = $conversions{ $key[-1] }
-	    if @key < 3 and $conversions{ $key[-1] };
+	$key[-1] = $conversions{ lc $key[-1] }
+	    if @key < 3 and $conversions{ lc $key[-1] };
 
 	return "@key";
 }