Attachment 15098 Details for Bug 8735 – Bug 8735 - Expire holds waiting only on days the library is open

[patch] Bug 8735 - Expire holds waiting only on days the library is open

Bug-8735---Expire-holds-waiting-only-on-days-the-l.patch (text/plain), 5.07 KB, created by Kyle M Hall (khall) on 2013-02-06 14:05:47 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2013-02-06 14:05:47 UTC

Size: 5.07 KB

patch

obsolete

>From 3e3174f9c7a5ac7e7886425c4a1f560c43511488 Mon Sep 17 00:00:00 2001
>From: Kyle M Hall <kyle@bywatersolutions.com>
>Date: Thu, 6 Sep 2012 11:15:21 -0400
>Subject: [PATCH] Bug 8735 - Expire holds waiting only on days the library is open
>
>---
> C4/Reserves.pm                                     |   24 ++++++++++++++++---
> installer/data/mysql/sysprefs.sql                  |    1 +
> installer/data/mysql/updatedatabase.pl             |    6 +++++
> .../en/modules/admin/preferences/circulation.pref  |    6 +++++
> 4 files changed, 33 insertions(+), 4 deletions(-)
>
>diff --git a/C4/Reserves.pm b/C4/Reserves.pm
>index a380bf0..3d26cd9 100644
>--- a/C4/Reserves.pm
>+++ b/C4/Reserves.pm
>@@ -36,6 +36,7 @@ use C4::Members qw();
> use C4::Letters;
> use C4::Branch qw( GetBranchDetail );
> use C4::Dates qw( format_date_in_iso );
>+use C4::Calendar;
> 
> use Koha::DateUtils;
> 
>@@ -887,17 +888,32 @@ sub CancelExpiredReserves {
>     if ( C4::Context->preference("ExpireReservesMaxPickUpDelay") ) {
>         my $max_pickup_delay = C4::Context->preference("ReservesMaxPickUpDelay");
>         my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge");
>+        my $cancel_on_holidays = C4::Context->preference('ExpireReservesOnHolidays');
>+
>+        my $today = C4::Dates->new();
> 
>         my $query = "SELECT * FROM reserves WHERE TO_DAYS( NOW() ) - TO_DAYS( waitingdate ) > ? AND found = 'W' AND priority = 0";
>         $sth = $dbh->prepare( $query );
>         $sth->execute( $max_pickup_delay );
> 
>-        while (my $res = $sth->fetchrow_hashref ) {
>-            if ( $charge ) {
>-                manualinvoice($res->{'borrowernumber'}, $res->{'itemnumber'}, 'Hold waiting too long', 'F', $charge);
>+        while ( my $res = $sth->fetchrow_hashref ) {
>+            my $do_cancel = 1;
>+            unless ( $cancel_on_holidays ) {
>+                my $calendar = C4::Calendar->new( branchcode => $res->{'branchcode'} );
>+                my $is_holiday = $calendar->isHoliday( split( '/', $today->output('metric') ) );
>+
>+                if ( $is_holiday ) {
>+                    $do_cancel = 0;
>+                }
>             }
> 
>-            CancelReserve( $res->{'biblionumber'}, '', $res->{'borrowernumber'} );
>+            if ( $do_cancel ) {
>+                if ( $charge ) {
>+                    manualinvoice($res->{'borrowernumber'}, $res->{'itemnumber'}, 'Hold waiting too long', 'F', $charge);
>+                }
>+
>+                CancelReserve( $res->{'biblionumber'}, '', $res->{'borrowernumber'} );
>+            }
>         }
>     }
> 
>diff --git a/installer/data/mysql/sysprefs.sql b/installer/data/mysql/sysprefs.sql
>index 9032bfa..0b1513e 100644
>--- a/installer/data/mysql/sysprefs.sql
>+++ b/installer/data/mysql/sysprefs.sql
>@@ -411,3 +411,4 @@ INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES (
> INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo');
> INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo');
> INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo');
>+INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesOnHolidays', '1', NULL, 'If false, reserves at a library will not be canceled on days the library is not open.', 'YesNo');
>diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
>index ed922b8..4525345 100755
>--- a/installer/data/mysql/updatedatabase.pl
>+++ b/installer/data/mysql/updatedatabase.pl
>@@ -6399,6 +6399,12 @@ if ( CheckVersion($DBversion) ) {
>     SetVersion($DBversion);
> }
> 
>+$DBversion ="3.11.00.XXX";
>+if(C4::Context->preference("Version") < TransformToNum($DBversion) ) {
>+    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ExpireReservesOnHolidays', '1', NULL, 'If false, reserves at a library will not be canceled on days the library is not open.', 'YesNo')");
>+    print "Upgrade to $DBversion done (Add syspref ExpireReservesOnHolidays\n";
>+    SetVersion ($DBversion);
>+}
> 
> =head1 FUNCTIONS
> 
>diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref
>index 82c1c02..c41f3c0 100644
>--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref
>+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref
>@@ -442,6 +442,12 @@ Circulation:
>                   no: "Don't allow"
>             - holds to be suspended from the OPAC.
>         -
>+            - pref: ExpireReservesOnHolidays
>+              choices:
>+                  yes: Allow
>+                  no: "Don't allow"
>+            - expired holds to be canceled on days the library is closed..
>+        -
>             - pref: decreaseLoanHighHolds
>               choices:
>                   yes: Enable
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 8735: 12019 | 12020 | 13364 | 13365 | 15074 | 15075 | 15096 | 15097 | 15098 | 16508 | 17625 | 17892 | 17893 | 24598 | 24599 | 24898 | 24899 | 27268 | 28660 | 28661 | 28662 | 28663 | 30395 | 30396 | 30397 | 30398 | 30399 | 30400 | 30401 | 30402