- my ($time,@events) = @_;
- my $output = ' \Fee{\begin{itemize*}'."\n";
- $output .= join('',map {" \\item $_\n"} @events);
- $output .= ' \end{itemize*}}{50.00}{'.$time.'}'."\n";
+ my %param = validate_with(params => \@_,
+ spec => {time => {type => SCALAR,
+ },
+ date => {type => SCALAR,
+ },
+ total => {type => SCALARREF,
+ },
+ events => {type => ARRAYREF,
+ },
+ },
+ );
+ ${$param{total}} += $param{time} * $hourly_rate;
+
+ $param{date} =~ s/\s+\d+\:\d+\:\d+\s+[A-Z]{0,3}\s*//;
+ my $output = '\hline'."\n".' \mbox{'.$param{date}."}\n\n".
+ ' \begin{itemize*}'."\n";
+ $output .= join('',map {" \\item $_\n"} @{$param{events}});
+ $output .= ' \end{itemize*} & \$'.sprintf('%.2f',$hourly_rate).' & '.sprintf('%.2f',$param{time}).
+ ' & \$'.sprintf('%.2f',$param{time}*$hourly_rate).' & \$'.
+ sprintf('%.2f',${$param{total}}) .
+ ' \\'."\n";