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