From: mark <mark>
Date: Fri, 24 Sep 2010 01:04:07 +0000 (+0000)
Subject: fix display of 12:00 hour in time intervals
X-Git-Tag: TORRUS_1_0_9~269
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6117058d0e3ca504bbf5ad87cc8ddeb394e2381f

fix display of 12:00 hour in time intervals
---

diff --git a/FS/FS/rate_time_interval.pm b/FS/FS/rate_time_interval.pm
index 1a82edbe5..6a9986b0c 100644
--- a/FS/FS/rate_time_interval.pm
+++ b/FS/FS/rate_time_interval.pm
@@ -158,7 +158,7 @@ sub description {
   return map { 
             sprintf('%s %02d:%02d %s',
             $days[int($_/86400) % 7],
-            int($_/3600) % 12,
+            (int($_/3600) % 12 || 12),
             int($_/60) % 60,
             (($_/3600) % 24 < 12) ? 'AM' : 'PM' )
        } ( $self->stime, $self->etime );
diff --git a/httemplate/edit/process/rate_time.cgi b/httemplate/edit/process/rate_time.cgi
index 4fa78ce6d..2b00be3ea 100644
--- a/httemplate/edit/process/rate_time.cgi
+++ b/httemplate/edit/process/rate_time.cgi
@@ -4,7 +4,6 @@
 % } else {
 <% $cgi->redirect(popurl(3). "browse/rate_time.html" ) %>
 % }
-%# dumper_html(\%vars, \%old_ints, {$rate_time->intervals}) %>
 <%init>
 my $error = '';
 die "access denied" 
@@ -87,7 +86,7 @@ if(!$error) {
 
 sub l2wtime {
   my ($d, $h, $m, $a) = @_;
-  $h += 24*$d + 12*$a;
+  $h = ($h % 12) + 24*$d + 12*$a;
   $m += 60*$h;
   return 60*$m
 }
diff --git a/httemplate/edit/rate_time.cgi b/httemplate/edit/rate_time.cgi
index eca8fbb61..7ee39efca 100644
--- a/httemplate/edit/rate_time.cgi
+++ b/httemplate/edit/rate_time.cgi
@@ -39,7 +39,7 @@ my $day = [ 0 => 'Sun',
             4 => 'Thu',
             5 => 'Fri',
             6 => 'Sat', ];
-my $hour = [ map( {$_, sprintf('%02d',$_) } 0..11 )];
+my $hour = [ map( {$_, sprintf('%02d',$_) } 12, 1..11 )];
 my $min  = [ map( {$_, sprintf('%02d',$_) } 0,30  )];
 my $ampm = [ 0 => 'AM', 1 => 'PM' ];
 
@@ -57,7 +57,7 @@ if($ratetimenum) {
   else {
     foreach my $interval ($rate_time->intervals) {
       push @data, [ map { int($_/86400) % 7,
-                          int($_/3600) % 12,
+                          (int($_/3600) % 12 || 12),
                           int($_/60) % 60,
                           int($_/43200) % 2, } 
                     ( $interval->stime, $interval->etime )