}
);
+# 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'};
# 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