projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT#42394: paycvv during cust_payby replace (v4+ only) [fixed paycvv removal]
[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;
package FS::rate_time_interval;
+use base qw(FS::Record);
use strict;
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
use List::Util 'first';
=head1 NAME
use List::Util 'first';
=head1 NAME
@@
-136,13
+135,6
@@
sub check {
Returns the L<FS::rate_time> comprising this interval.
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
=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],
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 );
int($_/60) % 60,
(($_/3600) % 24 < 12) ? 'AM' : 'PM' )
} ( $self->stime, $self->etime );