[Koha-patches] [PATCH] Bug 11702 - Can't specify date for automatic resumption of suspended hold

Owen Leonard oleonard at myacpl.org
Thu Feb 6 18:30:39 CET 2014


When suspending an individual hold in the OPAC or staff client the date
of resumption is saved as '000-00-00' no matter what dateformat setting
you use. This is not true of performing a suspend-all action.

This patch changes the date handling in C4::Reserves::ToggleSuspend to
match that in C4::Reserves::SuspendAll.

To test in the OPAC:

1. Turn on RequestOnOpac, AutoResumeSuspendedHolds, and
   SuspendHoldsOpac.
2. Log in to the OPAC and place a hold.
3. View the list of your existing holds (opac-user.pl).
4. Choose an individual hold to suspend, specify a suspend-until date,
   and submit.
5. When the page reloads the suspension should be saved with the correct
   resumption date.

Test using all dateformat system preference options. Also test
suspensions without resumption dates.

To test in the staff client:

1. Turn on AutoResumeSuspendedHolds and SuspendHoldsIntranet.
2. Place a hold for a patron, or find an existing hold.
3. View the hold details page for that hold
   (/cgi-bin/koha/reserve/request.pl?biblionumber=XX).
4. Specify a suspend-until date for the hold and submit.
5. When the page reloads the hold should say "Unsuspend on" and show the
   correct resumption date.

Test using all dateformat system preference options. Also test
suspensions without resumption dates.
---
 C4/Reserves.pm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Reserves.pm b/C4/Reserves.pm
index 8fe0fd0..f9e45ce 100644
--- a/C4/Reserves.pm
+++ b/C4/Reserves.pm
@@ -1537,7 +1537,7 @@ be cleared when it is unsuspended.
 sub ToggleSuspend {
     my ( $reserve_id, $suspend_until ) = @_;
 
-    $suspend_until = output_pref({ dt => dt_from_string( $suspend_until ), dateformat => 'iso' }) if ( $suspend_until );
+    $suspend_until = C4::Dates->new( $suspend_until )->output("iso") if ( defined( $suspend_until ) );
 
     my $do_until = ( $suspend_until ) ? '?' : 'NULL';
 
-- 
1.7.9.5


More information about the Koha-patches mailing list