From cb62a47bbf6fde22ac3bc4e33481c403b8c2c193 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 27 Feb 2014 08:40:55 -0500 Subject: [PATCH] Bug 11694: [QA Followup] strip out time portion when setting suspension date for individual hold This patch fixes an issue originally reported by bug 11702. RM note: the patch is clear enough and doesn't break existing tests, but on the other hand, I have been completely unable to reproduce the original issue. To test: [1] Verify that prove -v t/db_dependent/Holds.t passes Signed-off-by: Katrin Fischer Signed-off-by: Galen Charlton --- C4/Reserves.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index 7a914e3b33..eb1ae2b6b8 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -1545,7 +1545,13 @@ 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 = output_pref( + { + dt => dt_from_string($suspend_until), + dateformat => 'iso', + dateonly => 1 + } + ) if ($suspend_until); my $do_until = ( $suspend_until ) ? '?' : 'NULL'; -- 2.39.5