From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 15 Mar 2008 01:30:07 +0000 (+0000)
Subject: use the right timezone in make_invoice
X-Git-Url: https://git.donarmstrong.com/?p=bin.git;a=commitdiff_plain;h=4073a35c892f07e9872bede823781cb215f1abcf

use the right timezone in make_invoice
---

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";