use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Circulation;
use C4::Output;
use C4::Reserves;
# Make the page .....
my ($template, $user, $cookie) = get_template_and_user(
{
- template_name => "circ/branchtransfers.tmpl",
+ template_name => "circ/branchtransfers.tt",
query => $query,
type => "intranet",
authnotrequired => 0,
# Deal with the requests....
if ( $request eq "KillWaiting" ) {
my $item = $query->param('itemnumber');
- CancelReserve( 0, $item, $borrowernumber );
+ CancelReserve({
+ itemnumber => $item,
+ borrowernumber => $borrowernumber
+ });
$cancelled = 1;
$reqmessage = 1;
}
}
elsif ( $request eq 'KillReserved' ) {
my $biblio = $query->param('biblionumber');
- CancelReserve( $biblio, 0, $borrowernumber );
+ CancelReserve({
+ biblionumber => $biblio,
+ borrowernumber => $borrowernumber
+ });
$cancelled = 1;
$reqmessage = 1;
}