X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=circ%2Ftransfer-slip.pl;h=d9f22d302e7291bf3398d5fbfb699ea4f75420e2;hb=de03c263f0579d28a735e3b1261121e439263a82;hp=f054ca44559bbb769a07dab828800018ea0f264d;hpb=e7da536551623337aed4ac6f14a127d0f50bd265;p=koha_fer diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl index f054ca4455..d9f22d302e 100755 --- a/circ/transfer-slip.pl +++ b/circ/transfer-slip.pl @@ -24,11 +24,8 @@ use warnings; use C4::Context; use C4::Output; use CGI; -use C4::Auth; -use C4::Biblio; -use C4::Items; -use C4::Branch; -use C4::Dates qw/format_date format_date_in_iso/; +use C4::Auth qw/:DEFAULT get_session/; +use C4::Circulation; use vars qw($debug); @@ -37,12 +34,15 @@ BEGIN { } my $input = new CGI; +my $sessionID = $input->cookie("CGISESSID"); +my $session = get_session($sessionID); + my $itemnumber = $input->param('transferitem'); my $branchcode = $input->param('branchcode'); my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { - template_name => "circ/transfer-slip.tmpl", + template_name => "circ/printslip.tmpl", query => $input, type => "intranet", authnotrequired => 0, @@ -51,15 +51,21 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); -my $pulldate = C4::Dates->new(); -my $item = GetItem( $itemnumber ); -my ( undef, $biblio ) = GetBiblio($item->{biblionumber}); +my $userenv = C4::Context->userenv; +my ($slip, $is_html); +if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $branchcode) ) { + $slip = $letter->{content}; + $is_html = $letter->{is_html}; +} +else { + $slip = "Item not found"; +} $template->param( - pulldate => $pulldate->output(), - branchname => GetBranchName($branchcode), - biblio => $biblio, - item => $item, + slip => $slip, + plain => !$is_html, + caller => 'transfer', + stylesheet => C4::Context->preference("SlipCSS"), ); output_html_with_http_headers $input, $cookie, $template->output;