+
+[% IF plain %]
+
+[% slip %]
+
+[% ELSE %]
+[% slip %]
+[% END %]
diff --git a/opac/sco/printslip.pl b/opac/sco/printslip.pl
new file mode 100755
index 0000000..3a499cd
--- /dev/null
+++ b/opac/sco/printslip.pl
@@ -0,0 +1,92 @@
+#!/usr/bin/perl
+
+# Copyright 2000-2002 Katipo Communications
+# Copyright 2010 BibLibre
+#
+# 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.
+
+
+=head1 moremember.pl
+
+ script to do a borrower enquiry/bring up borrower details etc
+ Displays all the details about a borrower
+ written 20/12/99 by chris at katipo.co.nz
+ last modified 21/1/2000 by chris at katipo.co.nz
+ modified 31/1/2001 by chris at katipo.co.nz
+ to not allow items on request to be renewed
+
+ needs html removed and to use the C4::Output more, but its tricky
+
+=cut
+
+use strict;
+#use warnings; FIXME - Bug 2505
+use CGI;
+use C4::Context;
+use C4::Auth qw/:DEFAULT get_session/;
+use C4::Output;
+use C4::Members;
+use C4::Koha;
+
+#use Smart::Comments;
+#use Data::Dumper;
+
+use vars qw($debug);
+
+BEGIN {
+ $debug = $ENV{DEBUG} || 0;
+}
+
+my $input = new CGI;
+my $sessionID = $input->cookie("CGISESSID");
+my $session = get_session($sessionID);
+
+$debug or $debug = $input->param('debug') || 0;
+my $print = $input->param('print');
+my $error = $input->param('error');
+
+# circ staff who process checkouts but can't edit
+# patrons still need to be able to print receipts
+my $flagsrequired = { circulate => "circulate_remaining_permissions" };
+
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ {
+ template_name => "circ/printslip.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => $flagsrequired,
+ debug => 1,
+ }
+);
+
+my $borrowernumber = $input->param('borrowernumber');
+my $branch=C4::Context->userenv->{'branch'};
+my ($slip, $is_html);
+if (my $letter = IssueSlip ($session->param('branch') || $branch, $borrowernumber, $print eq "qslip")) {
+ $slip = $letter->{content};
+ $is_html = $letter->{is_html};
+}
+
+$template->param(
+ slip => $slip,
+ plain => !$is_html,
+ title => "Print Receipt for $borrowernumber",
+ stylesheet => C4::Context->preference("SlipCSS"),
+ error => $error,
+);
+
+output_html_with_http_headers $input, $cookie, $template->output;
--
1.7.2.5
From elliott at bywatersolutions.com Thu Jul 5 19:55:45 2012
From: elliott at bywatersolutions.com (Elliott Davis)
Date: Thu, 5 Jul 2012 12:55:45 -0500
Subject: [Koha-patches] [PATCH 2/2] Adds a print receipt to Self Checkout
In-Reply-To: <8033>
References: <8033>
Message-ID: <1341510945-2071-2-git-send-email-elliott@bywatersolutions.com>
To Test:
Log in to self checkout
Enter a barcode and click submit
You will be asked if you would like a receipt
If you click ok you should be taken to the print receipt page and the item should check out
if you click cancel the item should be checked out
http://bugs.koha-community.org/show_bug.cgi?id=8033
---
.../opac-tmpl/prog/en/modules/sco/sco-main.tt | 10 ++++++++++
opac/sco/printslip.pl | 8 ++------
opac/sco/sco-main.pl | 1 +
3 files changed, 13 insertions(+), 6 deletions(-)
diff --git a/koha-tmpl/opac-tmpl/prog/en/modules/sco/sco-main.tt b/koha-tmpl/opac-tmpl/prog/en/modules/sco/sco-main.tt
index 8eb9f08..baac23a 100644
--- a/koha-tmpl/opac-tmpl/prog/en/modules/sco/sco-main.tt
+++ b/koha-tmpl/opac-tmpl/prog/en/modules/sco/sco-main.tt
@@ -8,6 +8,7 @@
+
-
[% INCLUDE 'header.inc' %]
@@ -237,7 +173,7 @@
Basket |
Order line |
Summary |
-
View record |
+
View record |
Quantity |
Unit cost |
Order cost |
@@ -421,7 +357,7 @@