From ea88f5b995213a8ac05d01f8883c8a0e9e57dfb7 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 3 Jun 2015 13:54:21 -0400 Subject: [PATCH] Bug 9303 [QA Followup] - Restore missing svc script Signed-off-by: Nick Clemens --- opac/svc/patron/show_checkouts_to_relatives | 56 +++++++++++++++++++++++++++ 1 files changed, 56 insertions(+), 0 deletions(-) create mode 100755 opac/svc/patron/show_checkouts_to_relatives diff --git a/opac/svc/patron/show_checkouts_to_relatives b/opac/svc/patron/show_checkouts_to_relatives new file mode 100755 index 0000000..b59386e --- /dev/null +++ b/opac/svc/patron/show_checkouts_to_relatives @@ -0,0 +1,56 @@ +#!/usr/bin/perl + +# Copyright 2014 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 3 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 Modern::Perl; + +use CGI; + +use C4::Auth; +use C4::Context; +use Koha::Database; + +use JSON qw( to_json ); + +my $cgi = CGI->new(); + +my $privacy_guarantor_checkouts = $cgi->param('privacy_guarantor_checkouts'); + +my ( $userid, $cookie, $sessionID, $flags ) = checkauth( $cgi, 1, {}, 'opac' ); + +my $borrowernumber = C4::Context->userenv ? C4::Context->userenv->{number} : undef; + +my $success = 0; +if ( $borrowernumber && defined($privacy_guarantor_checkouts) ) { + my $patron = Koha::Database->new()->schema()->resultset('Borrower')->find($borrowernumber); + + $success = $patron->update( { privacy_guarantor_checkouts => $privacy_guarantor_checkouts } ); +} + +binmode STDOUT, ":encoding(UTF-8)"; +print $cgi->header( + -type => 'application/json', + -charset => 'UTF-8' +); + +print to_json( + { + success => $success ? 1 : 0, + privacy_guarantor_checkouts => $privacy_guarantor_checkouts, + } +); -- 1.7.2.5