Attachment 75480 Details for Bug 17983 – Bug 17983: Add minute loans

[patch] Bug 17983: Add minute loans

Bug-17983-Add-minute-loans.patch (text/plain), 15.28 KB, created by David Bourgault on 2018-05-22 19:42:48 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: David Bourgault

Created: 2018-05-22 19:42:48 UTC

Size: 15.28 KB

patch

obsolete

>From 57fb326a8394df8598013e4fb7346fc65d3ec9ee Mon Sep 17 00:00:00 2001
>From: David Bourgault <david.bourgault@inlibro.com>
>Date: Tue, 10 Oct 2017 11:15:59 -0400
>Subject: [PATCH] Bug 17983: Add minute loans
>
>Rebased patch:
>+ Adds minute loans logic to DiscreteCalendar
>+ Enables minutes loans in Koha code
>+ Adds tests for minute loans
>---
> C4/Circulation.pm                                  |  21 ++-
> C4/Overdues.pm                                     |  12 ++
> Koha/DiscreteCalendar.pm                           |  96 ++++++++++
> .../prog/en/modules/admin/smart-rules.tt           |   1 +
> t/db_dependent/MinuteLoans.t                       | 206 +++++++++++++++++++++
> 5 files changed, 334 insertions(+), 2 deletions(-)
> create mode 100644 t/db_dependent/MinuteLoans.t
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index ea354b8..60bf77e 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -3460,12 +3460,14 @@ sub CalcDateDue {
>           ->truncate( to => 'minute' );
>     }
> 
>-
>+    my $calendar = Koha::DiscreteCalendar->new({ branchcode => $branch });
>     # calculate the datedue as normal
>     if ( C4::Context->preference('useDaysMode') eq 'Days' )
>     {    # ignoring calendar
>         if ( $loanlength->{lengthunit} eq 'hours' ) {
>             $datedue->add( hours => $loanlength->{$length_key} );
>+        } elsif ( $loanlength->{lengthunit} eq 'minutes' ) {
>+            $datedue->add( minutes => $loanlength->{$length_key});
>         } else {    # days
>             $datedue->add( days => $loanlength->{$length_key} );
>             $datedue->set_hour(23);
>@@ -3476,10 +3478,12 @@ sub CalcDateDue {
>         if ($loanlength->{lengthunit} eq 'hours') {
>             $dur = DateTime::Duration->new( hours => $loanlength->{$length_key});
>         }
>+        elsif ($loanlength->{lengthunit} eq 'minutes') {
>+            $dur = DateTime::Duration->new( minutes => $loanlength->{$length_key});
>+        }
>         else { # days
>             $dur = DateTime::Duration->new( days => $loanlength->{$length_key});
>         }
>-        my $calendar = Koha::DiscreteCalendar->new({ branchcode => $branch });
>         $datedue = $calendar->addDate( $datedue, $dur, $loanlength->{lengthunit} );
>         if ($loanlength->{lengthunit} eq 'days') {
>             $datedue->set_hour(23);
>@@ -3525,6 +3529,19 @@ sub CalcDateDue {
>           }
>         }
>     }
>+
>+    #check if it's minutes or hourly loan and set due date to close hour, if the current due date is passed closing hours.
>+    if ($loanlength->{lengthunit} eq 'hours' || $loanlength->{lengthunit} eq 'minutes'){
>+        my $dateInfo = $calendar->get_date_info($datedue);
>+        my $close = dt_from_string($dateInfo->{date} ." ". $dateInfo->{close_hour}, 'iso', C4::Context->tz());
>+
>+        my $close_datetime = $datedue->clone()->set(hour => $close->hour(), minute=> $close->minute());
>+
>+        if(DateTime->compare($datedue, $close_datetime) > 0) {
>+            $datedue = $close_datetime->clone();
>+        }
>+    }
>+
>     return $datedue;
> }
> 
>diff --git a/C4/Overdues.pm b/C4/Overdues.pm
>index 3f1436a..8b1d34c 100644
>--- a/C4/Overdues.pm
>+++ b/C4/Overdues.pm
>@@ -304,6 +304,18 @@ sub get_chargeable_units {
>         }
>         return $charge_duration->in_units('hours');
>     }
>+    elsif($unit eq 'minutes'){
>+        if(C4::Context->preference('finesCalendar') eq 'noFinesWhenClosed') {
>+            my $calendar = Koha::DiscreteCalendar->new({ branchcode => $branchcode });
>+            $charge_duration = $calendar->open_minutes_between( $date_due, $date_returned );
>+        } else {
>+            $charge_duration = $date_returned->delta_ms( $date_due );
>+        }
>+        if($charge_duration->in_units('minutes') == 0 && $charge_duration->in_units('seconds') > 0){
>+            return 1;
>+        }
>+        return $charge_duration->in_units('minutes');
>+    }
>     else { # days
>         if(C4::Context->preference('finesCalendar') eq 'noFinesWhenClosed') {
>             my $calendar = Koha::DiscreteCalendar->new({ branchcode => $branchcode });
>diff --git a/Koha/DiscreteCalendar.pm b/Koha/DiscreteCalendar.pm
>index c8c1e31..250beea 100644
>--- a/Koha/DiscreteCalendar.pm
>+++ b/Koha/DiscreteCalendar.pm
>@@ -1178,6 +1178,75 @@ sub open_hours_between {
>     return ($working_hours_between->next()->get_column('hours_between') - $not_used_hours->next()->get_column('not_used_hours'));
> }
> 
>+=head2 open_minutes_between
>+
>+  $minutes = $calendar->open_minutes_between($start_date, $end_date)
>+
>+Returns the number of minutes between C<$start_date> and C<$end_date>, taking into
>+account the opening hours of the library.
>+
>+=cut
>+
>+sub open_minutes_between {
>+    my ($self, $start_date, $end_date) = @_;
>+    my $branchcode = $self->{branchcode};
>+    my $schema = Koha::Database->new->schema;
>+    my $dtf = $schema->storage->datetime_parser;
>+    $start_date = $dtf->format_datetime($start_date);
>+    $end_date = $dtf->format_datetime($end_date);
>+
>+    my $working_minutes_between = $schema->resultset('DiscreteCalendar')->search(
>+        {
>+            branchcode  => $branchcode,
>+            is_opened    => 1,
>+        },
>+        {
>+            select  => \['sum(time_to_sec(timediff(close_hour, open_hour)) / 60)'],
>+            as      => [qw /minutes_between/],
>+            where   => \['date BETWEEN DATE(?) AND DATE(?)', $start_date, $end_date]
>+        }
>+    );
>+
>+    my $loan_day = $schema->resultset('DiscreteCalendar')->search(
>+        {
>+            branchcode  => $branchcode,
>+        },
>+        {
>+            order_by => \[ 'ABS(DATEDIFF(date, ?))', $start_date ],
>+            rows => 1,
>+        }
>+    );
>+
>+    my $return_day = $schema->resultset('DiscreteCalendar')->search(
>+        {
>+            branchcode  => $branchcode,
>+        },
>+        {
>+            order_by => \[ 'ABS(DATEDIFF(date, ?))', $end_date ],
>+            rows => 1,
>+        }
>+    );
>+
>+    #Capture the time portion of the date
>+    $start_date =~ /\s(.*)/;
>+    my $loan_date_time = $1;
>+    $end_date =~ /\s(.*)/;
>+    my $return_date_time = $1;
>+
>+    my $not_used_minutes = $schema->resultset('DiscreteCalendar')->search(
>+        {
>+            branchcode  => $branchcode,
>+            is_opened    => 1,
>+        },
>+        {
>+            select  => \[ '(time_to_sec(timediff(?, ?)) + time_to_sec(timediff(?, ?)) ) / 60', $return_day->next()->close_hour(), $return_date_time, $loan_date_time, $loan_day->next()->open_hour()],
>+            as      => [qw /not_used_minutes/],
>+        }
>+    );
>+
>+    return DateTime::Duration->new( minutes => $working_minutes_between->next()->get_column('minutes_between') - $not_used_minutes->next()->get_column('not_used_minutes'));
>+}
>+
> =head2 addDate
> 
>   my $dt = $calendar->addDate($date, $dur, $unit)
>@@ -1204,6 +1273,8 @@ sub addDate {
>         my $return_by_hour = 10;
> 
>         $dt = $self->addHours($startdate, $add_duration, $return_by_hour);
>+    } elsif($unit eq 'minutes') {
>+        $dt = $self->addMinutes($startdate, $add_duration);
>     } else {
>         # days
>         $dt = $self->addDays($startdate, $add_duration);
>@@ -1246,6 +1317,31 @@ sub addHours {
>     return $base_date;
> }
> 
>+=head2 addMinutes
>+
>+  $end = $calendar->addMinutes($date, $dur)
>+
>+Add C<$dur> minutes to C<$start> date.
>+
>+=cut
>+
>+sub addMinutes {
>+    my ( $self, $startdate, $minutes_duration) = @_;
>+    my $base_date = $startdate->clone();
>+
>+    $base_date->add_duration($minutes_duration);
>+
>+    my $dateInfo = $self->get_date_info($base_date);
>+
>+    my $close_datetime = dt_from_string($dateInfo->{date} ." ". $dateInfo->{close_hour}, 'iso');
>+
>+    if(DateTime->compare($base_date, $close_datetime) > 0) {
>+        return $close_datetime;
>+    }
>+
>+    return $base_date;
>+}
>+
> =head2 addDays
> 
>   $date = $calendar->addDays($start, $duration)
>diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt
>index 86226cb..92d33aa 100644
>--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt
>+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt
>@@ -248,6 +248,7 @@
>                       <select name="lengthunit" id="lengthunit">
>                         <option value="days" selected="selected">Days</option>
>                         <option value="hours">Hours</option>
>+                        <option value="minutes">Minutes</option>
>                       </select>
>                     </td>
>                     <td>
>diff --git a/t/db_dependent/MinuteLoans.t b/t/db_dependent/MinuteLoans.t
>new file mode 100644
>index 0000000..dd5461b
>--- /dev/null
>+++ b/t/db_dependent/MinuteLoans.t
>@@ -0,0 +1,206 @@
>+#!/usr/bin/env perl
>+
>+use strict;
>+use warnings;
>+
>+use DateTime;
>+use DateTime::Duration;
>+use Test::More tests => 10;
>+use Test::MockModule;
>+
>+use C4::Circulation;
>+use C4::Overdues;
>+use Koha::DateUtils;
>+use Koha::DiscreteCalendar;
>+
>+use t::lib::Mocks;
>+use t::lib::TestBuilder;
>+
>+my $dbh = C4::Context->dbh();
>+my $today = DateTime->today;
>+my $branch1 = "";
>+my $schema = Koha::Database->new->schema;
>+my $calendar = Koha::DiscreteCalendar->new( { branchcode => $branch1 } );
>+
>+$schema->storage->txn_begin;
>+$schema->resultset('DiscreteCalendar')->search({
>+    branchcode  => ""
>+})->update_all({
>+    is_opened    => 1,
>+    holiday_type => $Koha::DiscreteCalendar::HOLIDAYS->{NONE},
>+    note         => '',
>+    open_hour    => '08:00:00',
>+    close_hour   => '16:00:00'
>+});
>+
>+
>+#######################################
>+# Add minutes and open minutes between
>+#######################################
>+
>+my $start_date = dt_from_string->set( hour => 14, minute => 15, second => 0);
>+my $end_date = dt_from_string->set( hour => 14, minute => 20, second => 0);
>+
>+is($calendar->open_minutes_between($start_date, $end_date)->in_units('minutes'), 5, "Item returned 5 minutes late");
>+
>+#Adding 10 minutes
>+my $ten_mins_duration = DateTime::Duration->new( minutes => 10);
>+is($calendar->addDate($start_date, $ten_mins_duration, 'minutes' ),
>+    dt_from_string->set( hour => 14, minute => 25, second => 0),
>+        'Added 10 minutes to loan' );
>+
>+#Adding 10 minutes, passed closing hour
>+$start_date = dt_from_string->set( hour => 15, minute => 51, second =>0 );
>+is($calendar->addDate($start_date, $ten_mins_duration, 'minutes' ),
>+    dt_from_string->set( hour => 16, minute => 0, second => 0),
>+        'Added 10 minutes, due date passed closing hours, set due date to same day at close hour' );
>+
>+#Item returened next open day after a holiday.
>+my $open_minutes_today = DateTime->today->add(hours =>10, minutes => 10);
>+my $open_minutes_tomorrow = DateTime->today->add(days =>1);
>+my $open_minutes_day_after_tomorrow = DateTime->today->add(days => 2, hours =>11);
>+
>+$calendar->edit_holiday({
>+    title => "Single holiday Today",
>+    holiday_type => $Koha::DiscreteCalendar::HOLIDAYS->{EXCEPTION},
>+    start_date => $open_minutes_tomorrow,
>+    end_date =>$open_minutes_tomorrow
>+});
>+
>+is($calendar->open_minutes_between($open_minutes_today, $open_minutes_day_after_tomorrow)->in_units('minutes'),
>+    530,
>+    "Correct open minutes, with a holiday in between");
>+
>+######################
>+# DueDate calculation
>+######################
>+
>+#Set syspref ReturnBeforeExpiry = 1 and useDaysMode = 'Days'
>+t::lib::Mocks::mock_preference('ReturnBeforeExpiry', 1);
>+t::lib::Mocks::mock_preference('useDaysMode', 'Days');
>+
>+my $issuelength = 25;
>+my $renewalperiod = 5;
>+my $lengthunit = 'minutes';
>+my $dateexpiry = DateTime->today->add(years => 1);
>+
>+my $mock_loan_length = [
>+    ['issuelength', 'renewalperiod', 'lengthunit'],
>+    [$issuelength, $renewalperiod, $lengthunit]
>+];
>+
>+my $categorycode = 'X';
>+my $itemtype = 'MINUTES';
>+my $borrower = {categorycode => 'X', dateexpiry => $dateexpiry};
>+$dbh->do("INSERT INTO issuingrules (categorycode, branchcode, itemtype, issuelength, lengthunit) VALUES('$categorycode', '$branch1', '$itemtype', '$issuelength', '$lengthunit')");
>+
>+my $date = C4::Circulation::CalcDateDue( $today, $itemtype, $branch1, $borrower );
>+is($date, DateTime->today->add(minutes => $issuelength), "Due date calculated correctly");
>+
>+#passed closing hour
>+$issuelength = 1300;
>+$dbh->do("UPDATE issuingrules SET issuelength=$issuelength where branchcode='$branch1' and itemtype='$itemtype'");
>+
>+$date = C4::Circulation::CalcDateDue( $today, $itemtype, $branch1, $borrower );
>+is($date, DateTime->today->add(hours =>16), "Due date passed close hour, item due at close hour");
>+
>+#############################
>+# Chargeable minutes between
>+############################
>+
>+$issuelength = 25;
>+$dbh->do("UPDATE issuingrules SET issuelength=$issuelength where branchcode='$branch1' and itemtype='$itemtype'");
>+
>+my $date_due = DateTime->today;
>+my $date_returned = DateTime->today->add(minutes => 40);
>+
>+my $chargeable_units = C4::Overdues::get_chargeable_units('minutes', $date_due, $date_returned, $branch1);
>+is($chargeable_units, 40, "40 minutes of use");
>+
>+######################
>+# Fines calculation
>+#####################
>+
>+my $builder = t::lib::TestBuilder->new();
>+
>+my $category = $builder->build(
>+    {
>+        source => 'Category',
>+    }
>+);
>+
>+my $patron = $builder->build(
>+    {
>+        source => 'Borrower',
>+        value  => {
>+            categorycode => $category->{categorycode},
>+            branchcode   => $branch1
>+        },
>+    }
>+);
>+
>+my $biblio = $builder->build(
>+    {
>+        source => 'Biblio',
>+        value  => {
>+            branchcode => $branch1,
>+        },
>+    }
>+);
>+
>+my $item = $builder->build(
>+    {
>+        source => 'Item',
>+        value  => {
>+            biblionumber     => $biblio->{biblionumber},
>+            homebranch       => $branch1,
>+            holdingbranch    => $branch1,
>+            replacementprice => '5.00',
>+        },
>+    }
>+);
>+
>+my $rule = $builder->schema->resultset('Issuingrule')->find({
>+    branchcode                    => '*',
>+    categorycode                  => '*',
>+    itemtype                      => '*',
>+});
>+$rule->delete if $rule;
>+# FinesIncludeGracePeriod included
>+t::lib::Mocks::mock_preference('FinesIncludeGracePeriod', 1);
>+my $issuingrule = $builder->build(
>+    {
>+        source => 'Issuingrule',
>+        value  => {
>+            branchcode                    => '*',
>+            categorycode                  => '*',
>+            itemtype                      => '*',
>+            fine                          => '1',
>+            lengthunit                    => 'minutes',
>+            finedays                      => 0,
>+            firstremind                   => 5,
>+            chargeperiod                  => 1,
>+            overduefinescap               => undef,
>+            cap_fine_to_replacement_price => 0,
>+        },
>+    }
>+);
>+my $start_dt = dt_from_string('2017-01-02 15:00:00', 'iso');
>+my $end_dt = dt_from_string('2017-01-02 15:04:00', 'iso');
>+
>+my ($amount) = C4::Overdues::CalcFine( $item, $patron->{categorycode}, $branch1, $start_dt, $end_dt );
>+is($amount, 0, "No fine when under the fine grace periode");
>+
>+$end_dt = dt_from_string('2017-01-02 15:06:00', 'iso');
>+($amount) = C4::Overdues::CalcFine( $item, $patron->{categorycode}, $branch1, $start_dt, $end_dt );
>+is($amount, 6, "6\$ fine for 6 minutes delay, fine grace periode included");
>+
>+# FinesIncludeGracePeriod not included
>+t::lib::Mocks::mock_preference('FinesIncludeGracePeriod', 0);
>+
>+($amount) = C4::Overdues::CalcFine( $item, $patron->{categorycode}, $branch1, $start_dt, $end_dt );
>+is($amount, 1, "1\$ fine for 6 minutes delay, fine grace periode not included");
>+
>+$schema->storage->txn_rollback;
>+
>+1;
>-- 
>2.7.4

Actions: View | Diff | Splinter Review

Attachments on bug 17983: 59521 | 59522 | 59523 | 67880 | 67881 | 67882 | 67969 | 68016 | 68017 | 73353 | 73354 | 73355 | 75480 | 131929 | 131930 | 131931 | 131932 | 136414 | 136415 | 139519 | 144267 | 151452 | 167846