# 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 Modern::Perl;
use CGI qw ( -utf8 );
use C4::Circulation;
use C4::Output;
}
);
+# Check transfers is allowed from system preference
+if ( C4::Context->preference("IndependentBranchesTransfers") && !C4::Context->IsSuperLibrarian() ) {
+ print $query->redirect("/cgi-bin/koha/errors/403.pl");
+ exit;
+}
+
my $messages;
my $found;
my $reserved;
} # FIXME else?
}
-# collect the stack of books already transfered so they can printed...
+# collect the stack of books already transferred so they can printed...
my @trsfitemloop;
-my $transfered;
+my $transferred;
my $barcode = $query->param('barcode');
# remove leading/trailing whitespace
defined $barcode and $barcode =~ s/^\s*|\s*$//g; # FIXME: barcodeInputFilter
# warn "barcode : $barcode";
if ($barcode) {
- ( $transfered, $messages ) =
+ ( $transferred, $messages ) =
transferbook( $tobranchcd, $barcode, $ignoreRs );
my $item = Koha::Items->find({ barcode => $barcode });
$found = $messages->{'ResFound'};
- if ($transfered) {
+ if ($transferred) {
my %item;
my $biblio = $item->biblio;
my $frbranchcd = C4::Context->userenv->{'branch'};
$err{tbr} = $tbr;
$err{code} = $typecode;
}
- elsif ( $code eq 'IsPermanent' ) {
- $err{errispermanent} = 1;
- $err{msg} = $messages->{'IsPermanent'};
- }
elsif ( $code eq 'WasReturned' ) {
$err{errwasreturned} = 1;
$err{borrowernumber} = $messages->{'WasReturned'};
my $patron = Koha::Patrons->find( $messages->{'WasReturned'} );
if ( $patron ) { # Just in case...
- $err{title} = $patron->title;
- $err{firstname} = $patron->firstname;
- $err{surname} = $patron->surname;
- $err{cardnumber} = $patron->cardnumber;
+ $err{patron} = $patron;
}
}
$err{errdesteqholding} = ( $code eq 'DestinationEqualsHolding' );
# use Data::Dumper;
# warn "FINAL ============= ".Dumper(@trsfitemloop);
+
$template->param(
found => $found,
reserved => $reserved,
setwaiting => $setwaiting,
trsfitemloop => \@trsfitemloop,
errmsgloop => \@errmsgloop,
- CircAutocompl => C4::Context->preference("CircAutocompl")
+ CircAutocompl => C4::Context->preference("CircAutocompl"),
);
# Checking if there is a Fast Cataloging Framework