- my ($time,@events) = @_;
- my $output = ' \Fee{\begin{itemize*}'."\n";
- $output .= join('',map {" \\item $_\n"} @events);
- $output .= ' \end{itemize*}}{50.00}{'.$time.'}'."\n";
+ my ($date,$time,@events) = @_;
+ $date =~ s/\s+\d+\:\d+\:\d+\s+[A-Z]{0,3}\s*//;
+ my $output = ' \Fee{'.$date."\n".
+ ' \begin{itemize*}'."\n";
+ $output .= join('',map {" \\item $_\n"} @events);
+ $output .= ' \end{itemize*}}{50.00}{'.$time.'}'."\n";