Bug 8559 - conflicting item statuses - QA Followup

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>

diff --git a/C4/Reserves.pm b/C4/Reserves.pm
index 40e59a3..a380bf0 100644 (file)
--- a/C4/Reserves.pm
+++ b/C4/Reserves.pm
@@ -2008,7 +2008,7 @@ sub MoveReserve {
         }
 
         if ( $cancelreserve eq 'revert' ) { ## Revert waiting reserve to priority 1
-            RevertWaitingStatus( itemnumber => $itemnumber );
+            RevertWaitingStatus({ itemnumber => $itemnumber });
         }
         elsif ( $cancelreserve eq 'cancel' || $cancelreserve ) { # cancel reserves on this item
             CancelReserve(0, $res->{'itemnumber'}, $res->{'borrowernumber'});
@@ -2063,7 +2063,7 @@ sub MergeHolds {
 
 =head2 RevertWaitingStatus
 
-  $success = RevertWaitingStatus( itemnumber => $itemnumber );
+  $success = RevertWaitingStatus({ itemnumber => $itemnumber });
 
   Reverts a 'waiting' hold back to a regular hold with a priority of 1.
 
@@ -2076,8 +2076,8 @@ sub MergeHolds {
 =cut
 
 sub RevertWaitingStatus {
-    my ( %params ) = @_;
-    my $itemnumber = $params{'itemnumber'};
+    my ( $params ) = @_;
+    my $itemnumber = $params->{'itemnumber'};
 
     return unless ( $itemnumber );