diff options
author | mark <mark> | 2010-10-29 08:51:51 +0000 |
---|---|---|
committer | mark <mark> | 2010-10-29 08:51:51 +0000 |
commit | 4ad8b72c0dde10d4907298277181ddfaa99dafb6 (patch) | |
tree | ce3d5a696fbc5b94fc42572d270410317aa0e80b /FS/FS/part_pkg/prorate_Mixin.pm | |
parent | 9d662c980e98fe536214269e7d07fbcc806b17ef (diff) |
prorate option to round to full day, RT#7353
Diffstat (limited to 'FS/FS/part_pkg/prorate_Mixin.pm')
-rw-r--r-- | FS/FS/part_pkg/prorate_Mixin.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/part_pkg/prorate_Mixin.pm b/FS/FS/part_pkg/prorate_Mixin.pm index ed532ee..b77d898 100644 --- a/FS/FS/part_pkg/prorate_Mixin.pm +++ b/FS/FS/part_pkg/prorate_Mixin.pm @@ -66,6 +66,10 @@ sub calc_prorate { # only works for freq >= 1 month; probably can't be fixed my $mnow = $$sdate; my ($sec, $min, $hour, $mday, $mon, $year) = (localtime($mnow))[0..5]; + if ( $self->option('prorate_round_day',1) ) { + $mday++ if $hour >= 12; + $mnow = timelocal(0,0,0,$mday,$mon,$year); + } my $mend; my $mstart; if ( $mday >= $cutoff_day ) { |