Fixed up timezone in Perl and formated time more consistently

diff --git a/maps/bin/MAPSUtil.pm b/maps/bin/MAPSUtil.pm
index e28a9d6..82f7bc7 100644 (file)
--- a/maps/bin/MAPSUtil.pm
+++ b/maps/bin/MAPSUtil.pm
@@ -17,6 +17,10 @@ package MAPSUtil;
 use strict;
 use vars qw (@ISA @EXPORT);
 
+BEGIN {
+  $ENV{TZ}='America/Los_Angeles';
+} # BEGIN
+
 @ISA = qw (Exporter);
 
 @EXPORT = qw (
@@ -42,6 +46,9 @@ sub FormatTime {
   my ($time) = @_;
 
   my $hours   = substr $time, 0, 2;
+
+  $hours = substr $hours, 1, 1 if $hours < 10;
+
   my $minutes = substr $time, 3, 2;
   my $seconds = substr $time, 6, 2;
   my $AmPm    = $hours > 12 ? 'Pm' : 'Am';

diff --git a/maps/php/MAPS.php b/maps/php/MAPS.php
index e676cf4..22110bb 100755 (executable)
--- a/maps/php/MAPS.php
+++ b/maps/php/MAPS.php
@@ -196,7 +196,7 @@ function GetStats($nbr_days, $date = "") {
 function displayquickstats() {
   $today = substr (Today2SQLDatetime(), 0, 10);
   $dates = getquickstats($today);
-  $current_time = date("g:i a");
+  $current_time = date("g:i:s a");
 
   // Start quickstats
   print "<div class=quickstats>";