stray closing /TABLE in the no-ticket case

[freeside.git] / FS / FS / rate_time_interval.pm

diff --git a/FS/FS/rate_time_interval.pm b/FS/FS/rate_time_interval.pm
index 1a82edb..8d4e8b1 100644 (file)
--- a/FS/FS/rate_time_interval.pm
+++ b/FS/FS/rate_time_interval.pm
@@ -1,8 +1,7 @@
 package FS::rate_time_interval;
+use base qw(FS::Record);
 
 use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
 use List::Util 'first';
 
 =head1 NAME
@@ -136,13 +135,6 @@ sub check {
 
 Returns the L<FS::rate_time> comprising this interval.
 
-=cut
-
-sub rate_time {
-  my $self = shift;
-  FS::rate_time->by_key($self->ratetimenum);
-}
-
 =item description
 
 Returns two strings containing stime and etime, formatted 
@@ -158,7 +150,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 );