Browse Source

bug_7467: Printing Transfer Slips for transfers that do not have holds

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
3.8.x
Srdjan Jankovic 11 years ago
committed by Paul Poulain
parent
commit
f771cc8e26
  1. 65
      circ/transfer-slip.pl
  2. 3
      koha-tmpl/intranet-tmpl/prog/en/modules/circ/returns.tt
  3. 24
      koha-tmpl/intranet-tmpl/prog/en/modules/circ/transfer-slip.tt

65
circ/transfer-slip.pl

@ -0,0 +1,65 @@
#!/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 2 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
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 vars qw($debug);
BEGIN {
$debug = $ENV{DEBUG} || 0;
}
my $input = new CGI;
my $itemnumber = $input->param('transferitem');
my $branchcode = $input->param('branchcode');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "circ/transfer-slip.tmpl",
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { circulate => "circulate_remaining_permissions" },
debug => $debug,
}
);
my $pulldate = C4::Dates->new();
my $item = GetItem( $itemnumber );
my ( undef, $biblio ) = GetBiblio($item->{biblionumber});
$template->param(
pulldate => $pulldate->output(),
branchname => GetBranchName($branchcode),
biblio => $biblio,
item => $item,
);
output_html_with_http_headers $input, $cookie, $template->output;

3
koha-tmpl/intranet-tmpl/prog/en/modules/circ/returns.tt

@ -212,6 +212,9 @@ function Dopop(link) {
<div id="item-transfer" class="dialog message"><h3> This item needs to be transferred to [% homebranchname %]</h3>
Transfer Now?<br />
<form method="post" action="returns.pl" name="mainform" id="mainform">
[% IF itemnumber %]
<input type="submit" name="dotransfer" value="Yes, Print slip" class="print" onclick="Dopop('transfer-slip.pl?transferitem=[% itemnumber %]&amp;&amp;branchcode=[% homebranch %]&amp;op=slip'); return true;" />
[% END %]
<input type="submit" name="dotransfer" value="Yes" class="submit" />
<input type="submit" name="notransfer" value="No" class="submit" />
<input type="hidden" name="tobranch" value="[% homebranch %]" />

24
koha-tmpl/intranet-tmpl/prog/en/modules/circ/transfer-slip.tt

@ -0,0 +1,24 @@
[% INCLUDE 'doc-head-open.inc' %]
<title>Koha -- Circulation: Transfers</title>
[% INCLUDE 'doc-head-close-receipt.inc' %]
<script language="javascript">
function printandclose()
{
window.print();
window.close();
}
</script>
</head>
<body onload="printandclose();"><div id="main">
<h5>Date: [% pulldate %]</h5>
<h3>Transfer to [% branchname %]</h3>
<h3>ITEM</h3>
<h4>[% biblio.title |html %]</h4>
<h5>[% biblio.author %] </h5>
<ul>
[% IF ( item.barcode ) %]<li>[% item.barcode %]</li>[% END %]
[% IF ( item.itemcallnumber ) %]<li>[% item.itemcallnumber %]</li>[% END %]
</ul>
[% INCLUDE 'intranet-bottom.inc' %]
Loading…
Cancel
Save