=================================================================== RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v retrieving revision 1.38 retrieving revision 1.39 diff -u -r1.38 -r1.39 --- RT/Invoicing/rt_invoices.pl 2011/06/21 01:20:28 1.38 +++ RT/Invoicing/rt_invoices.pl 2011/12/21 02:21:54 1.39 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $AFresh1: rt_invoices.pl,v 1.37 2011/05/26 01:09:36 andrew Exp $ +# $AFresh1: rt_invoices.pl,v 1.38 2011/06/21 00:20:28 andrew Exp $ ######################################################################## # Copyright (c) 2011 Andrew Fresh # @@ -206,7 +206,7 @@ } } } - $state->{invoice}->{ $li{end} }{ $invoice->{id} } = \%li; + $state->{invoice}->{ $invoice->{id} } = \%li; foreach my $key (qw/ start end /) { if ( exists $invoice->{$key} ) {