use vars qw($DEBUG);
use Date::Manip;
-use POSIX qw(ceil);
+use POSIX qw(ceil strftime);
use Cwd qw(cwd);
use Text::Template;
sub format_events{
my ($date,$date2,$time,@events) = @_;
- my $output = ' \Fee{'.UnixDate($date,'%A, %B %e, %H:%M').
- ' to '.UnixDate($date2,'%H:%M %Z')."\n".
+ my $output = ' \Fee{'.strftime('%A, %B %e, %H:%M',localtime(UnixDate($date,'%s'))).
+ ' to '.strftime('%H:%M %Z',localtime(UnixDate($date2,'%s')))."\n".
' \begin{itemize*}'."\n";
$output .= join('',map {" \\item $_\n"} @events);
$output .= ' \end{itemize*}}{50.00}{'.$time.'}'."\n";