RT/Invoicing/report_time - diff

Return to report_time CVS log

Up to [local] / RT / Invoicing

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

version 1.4, 2020/08/04 02:24:44

Line 1

#!/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;

Line 91

my @key = split /\s+/, $descr;

$key[-1] = $conversions{ $key[-1] }

$key[-1] = $conversions{ lc $key[-1] }

if @key < 3 and $conversions{ $key[-1] };

if @key < 3 and $conversions{ lc $key[-1] };

return "@key";

}