X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=make_invoice;h=d8cf50f12e3a037ffe73808d6bdca8213c9f77c2;hb=4073a35c892f07e9872bede823781cb215f1abcf;hp=bce9c8aa4a9d083fc805be2a4fd7f92b6e67ac02;hpb=62f6d609f229925b70858abbb93b19a304407da9;p=bin.git

diff --git a/make_invoice b/make_invoice
index bce9c8a..d8cf50f 100755
--- a/make_invoice
+++ b/make_invoice
@@ -85,7 +85,7 @@ Display this manual.
 use vars qw($DEBUG);
 
 use Date::Manip;
-use POSIX qw(ceil);
+use POSIX qw(ceil strftime);
 use Cwd qw(cwd);
 use Text::Template;
 
@@ -270,8 +270,8 @@ if ($options{svn}) {
 
 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";