=================================================================== RCS file: /cvs/RT/Invoicing/report_time,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- RT/Invoicing/report_time 2020/08/04 02:23:48 1.3 +++ RT/Invoicing/report_time 2020/08/04 02:24:44 1.4 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $AFresh1: report_time,v 1.2 2020/08/04 01:22:44 afresh1 Exp $ +# $AFresh1: report_time,v 1.3 2020/08/04 01:23:48 afresh1 Exp $ use v5.16; use warnings; @@ -91,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"; }