|
Lines 189-196
sub days_between {
Link Here
|
| 189 |
sub hours_between { |
189 |
sub hours_between { |
| 190 |
my ($self, $start_dt, $end_dt) = @_; |
190 |
my ($self, $start_dt, $end_dt) = @_; |
| 191 |
my $duration = $end_dt->delta_ms($start_dt); |
191 |
my $duration = $end_dt->delta_ms($start_dt); |
| 192 |
$start_dt->truncate( to => 'days' ); |
192 |
$start_dt->truncate( to => 'day' ); |
| 193 |
$end_dt->truncate( to => 'days' ); |
193 |
$end_dt->truncate( to => 'day' ); |
| 194 |
# NB this is a kludge in that it assumes all days are 24 hours |
194 |
# NB this is a kludge in that it assumes all days are 24 hours |
| 195 |
# However for hourly loans the logic should be expanded to |
195 |
# However for hourly loans the logic should be expanded to |
| 196 |
# take into account open/close times then it would be a duration |
196 |
# take into account open/close times then it would be a duration |
| 197 |
- |
|
|