bug_7467: Printing Transfer Slips for transfers that do not have holds
authorSrdjan Jankovic <srdjan@catalyst.net.nz>
Wed, 25 Jan 2012 05:58:58 +0000 (18:58 +1300)
committerPaul Poulain <paul.poulain@biblibre.com>
Mon, 27 Feb 2012 13:57:10 +0000 (14:57 +0100)
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
circ/transfer-slip.pl [new file with mode: 0755]
koha-tmpl/intranet-tmpl/prog/en/modules/circ/returns.tt
koha-tmpl/intranet-tmpl/prog/en/modules/circ/transfer-slip.tt [new file with mode: 0644]

diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl
new file mode 100755 (executable)
index 0000000..f054ca4
--- /dev/null
@@ -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;
index 525e9b4..1c30c5b 100644 (file)
@@ -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 (file)
index 0000000..9d9ac99
--- /dev/null
@@ -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' %]