#
# This file is part of Koha.
#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along
-# with Koha; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
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;
}
# collect the stack of books already transfered so they can printed...
my @trsfitemloop;
-my %transfereditems;
my $transfered;
my $barcode = $query->param('barcode');
-# strip whitespace
-defined $barcode and $barcode =~ s/\s*//g; # FIXME: barcodeInputFilter
+# remove leading/trailing whitespace
+defined $barcode and $barcode =~ s/^\s*|\s*$//g; # FIXME: barcodeInputFilter
# warn "barcode : $barcode";
if ($barcode) {
}
}
-#####################
-
-# Used for branch transfer limits error messages.
-my $codeTypeDescription = 'Collection Code';
-my $codeType = C4::Context->preference("BranchTransferLimitsType");
-if ( $codeType eq 'itemtype' ) {
- $codeTypeDescription = 'Item Type';
-}
-
my @errmsgloop;
foreach my $code ( keys %$messages ) {
if ( $code ne 'WasTransfered' ) {
my ( $tbr, $typecode ) = split( /::/, $messages->{'NotAllowed'} );
$err{tbr} = $branches->{ $tbr }->{'branchname'};
$err{code} = $typecode;
- $err{codeType} = $codeTypeDescription;
}
elsif ( $code eq 'IsPermanent' ) {
$err{errispermanent} = 1;