Aleisha Amohia
e2377d67f4
To test: 1. Search for an item that was last seen at a library different from your logged in library i.e the holding library is Fairview but your logged in library is Centerville 2. Use the barcode to check in the item 3. When the popup to 'please return this item to <home library>' is triggered, click the Print slip button 4. Confirm your format settings for TRANSFERSLIP are applied Signed-off-by: Lucas Gass <lucas@bywatersolutions.com> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
65 lines
1.9 KiB
Perl
Executable file
65 lines
1.9 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
# Copyright 2012 Koha
|
|
#
|
|
# 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 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.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use C4::Context;
|
|
use C4::Output qw( output_html_with_http_headers );
|
|
use CGI qw ( -utf8 );
|
|
use C4::Auth qw( get_session get_template_and_user );
|
|
use C4::Circulation qw( TransferSlip );
|
|
|
|
my $input = CGI->new;
|
|
my $sessionID = $input->cookie("CGISESSID");
|
|
my $session = get_session($sessionID);
|
|
|
|
my $itemnumber = $input->param('transferitem');
|
|
my $barcode = $input->param('barcode');
|
|
my $branchcode = $input->param('branchcode');
|
|
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "circ/printslip.tt",
|
|
query => $input,
|
|
type => "intranet",
|
|
flagsrequired => { circulate => "circulate_remaining_permissions" },
|
|
}
|
|
);
|
|
|
|
|
|
my $userenv = C4::Context->userenv;
|
|
my ( $slip, $is_html, $style );
|
|
if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $barcode, $branchcode) ) {
|
|
$slip = $letter->{content};
|
|
$is_html = $letter->{is_html};
|
|
$style = $letter->{style};
|
|
}
|
|
else {
|
|
$slip = "Item not found";
|
|
}
|
|
$template->param(
|
|
slip => $slip,
|
|
plain => !$is_html,
|
|
caller => 'cud-transfer',
|
|
stylesheet => C4::Context->preference("SlipCSS"),
|
|
style => $style,
|
|
);
|
|
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|