From f771cc8e265b20760c813f592b3f82ee400c2f99 Mon Sep 17 00:00:00 2001 From: Srdjan Jankovic 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 --- 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) {

This item needs to be transferred to [% homebranchname %]

Transfer Now?
+ [% IF itemnumber %] + + [% END %] 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' %] +Koha -- Circulation: Transfers +[% INCLUDE 'doc-head-close-receipt.inc' %] + + +
+ +
Date: [% pulldate %]
+

Transfer to [% branchname %]

+ +

ITEM

+

[% biblio.title |html %]

+
[% biblio.author %]
+
    + [% IF ( item.barcode ) %]
  • [% item.barcode %]
  • [% END %] + [% IF ( item.itemcallnumber ) %]
  • [% item.itemcallnumber %]
  • [% END %] +
+[% INCLUDE 'intranet-bottom.inc' %] -- 2.39.5