From f771cc8e265b20760c813f592b3f82ee400c2f99 Mon Sep 17 00:00:00 2001
From: Srdjan Jankovic <srdjan@catalyst.net.nz>
Date: Wed, 25 Jan 2012 18:58:58 +1300
Subject: [PATCH] bug_7467: Printing Transfer Slips for transfers that do not
 have holds

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 circ/transfer-slip.pl                         | 65 +++++++++++++++++++
 .../prog/en/modules/circ/returns.tt           |  3 +
 .../prog/en/modules/circ/transfer-slip.tt     | 24 +++++++
 3 files changed, 92 insertions(+)
 create mode 100755 circ/transfer-slip.pl
 create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/circ/transfer-slip.tt

diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl
new file mode 100755
index 0000000000..f054ca4455
--- /dev/null
+++ b/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;
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/returns.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/returns.tt
index 525e9b4a3c..1c30c5b588 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/returns.tt
+++ b/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 %]" />
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/transfer-slip.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/transfer-slip.tt
new file mode 100644
index 0000000000..9d9ac9947c
--- /dev/null
+++ b/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' %]
-- 
2.39.5