Fix for bug 1456
[koha_fer] / circ / branchtransfers.pl
index a92f54e..76b1d14 100755 (executable)
@@ -25,10 +25,9 @@ use strict;
 use CGI;
 use C4::Circulation;
 use C4::Output;
-use C4::Reserves2;
+use C4::Reserves;
 use C4::Biblio;
 use C4::Auth;
-use C4::Interface::CGI::Output;
 use C4::Branch; # GetBranches
 use C4::Koha;
 
@@ -79,7 +78,7 @@ if ( $request eq "KillWaiting" ) {
 my $ignoreRs = 0;
 if ( $request eq "SetWaiting" ) {
     my $item = $query->param('itemnumber');
-    $tobranchcd  = ReserveWaiting( $item, $borrowernumber );
+    ModReserveAffect( $item, $borrowernumber );
     $ignoreRs    = 1;
     $setwaiting  = 1;
     $reqmessage  = 1;