05c47d5040
To Test: Sign in to self checkout. Enter a barcode and click submit. Click the finish button You should be prompted with a message asking if you would like a receipt. If you click OK you should be taken to the page with the receipt. If you click Cancel you should not see the reciept and you should be logged out. Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz> Added copyright to print slip for SCO Modified POD and copyright. Also perltidied updated print slip option to show on the click of the finish button instead of the submit button Signed-off-by: Paul Poulain <paul.poulain@biblibre.com> Signed-off-by: Elliott Davis <elliott@bywatersolutions.com> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
68 lines
2 KiB
Perl
Executable file
68 lines
2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2012 ByWater Solutions
|
|
#
|
|
# 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 printslip.pl
|
|
|
|
Script to allow SCO patrons to print a receipt for their checkout.
|
|
|
|
It is called from sco-main.pl
|
|
|
|
=cut
|
|
|
|
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
use C4::Context;
|
|
use C4::Auth qw/:DEFAULT get_session/;
|
|
use C4::Output;
|
|
use C4::Members;
|
|
use C4::Koha;
|
|
|
|
my $input = new CGI;
|
|
my $sessionID = $input->cookie("CGISESSID");
|
|
my $session = get_session($sessionID);
|
|
|
|
my $print = $input->param('print');
|
|
my $error = $input->param('error');
|
|
|
|
# patrons still need to be able to print receipts
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "/sco/printslip.tmpl",
|
|
query => $input,
|
|
type => "opac",
|
|
}
|
|
);
|
|
|
|
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->{VARS}->{slip} = $slip;
|
|
$template->{VARS}->{plain} = !$is_html;
|
|
$template->{VARS}->{title} = "Print Receipt for $borrowernumber";
|
|
$template->{VARS}->{stylesheet} = C4::Context->preference("SlipCSS");
|
|
$template->{VARS}->{error} = $error;
|
|
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|