From a94fd8e51bbca2f27dce6aef93e3aff9a931a869 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 16 Sep 2019 15:56:36 -0300 Subject: [PATCH] Bug 23623: Remove the svc/patron/show* scripts Signed-off-by: Josef Moravec --- opac/svc/patron/show_checkouts_to_relatives | 56 --------------------------- opac/svc/patron/show_fines_to_relatives | 59 ----------------------------- 2 files changed, 115 deletions(-) delete mode 100755 opac/svc/patron/show_checkouts_to_relatives delete mode 100644 opac/svc/patron/show_fines_to_relatives diff --git a/opac/svc/patron/show_checkouts_to_relatives b/opac/svc/patron/show_checkouts_to_relatives deleted file mode 100755 index b59386e82c..0000000000 --- a/opac/svc/patron/show_checkouts_to_relatives +++ /dev/null @@ -1,56 +0,0 @@ -#!/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, - } -); diff --git a/opac/svc/patron/show_fines_to_relatives b/opac/svc/patron/show_fines_to_relatives deleted file mode 100644 index 223e5b9f3b..0000000000 --- a/opac/svc/patron/show_fines_to_relatives +++ /dev/null @@ -1,59 +0,0 @@ -#!/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 JSON qw( to_json ); - -use C4::Auth; -use C4::Context; - -use Koha::Patrons; - -my $cgi = CGI->new(); - -my $privacy_guarantor_fines = $cgi->param('privacy_guarantor_fines'); - -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_fines) ) { - my $patron = Koha::Patrons->find($borrowernumber); - - if ( $patron ) { - $patron->privacy_guarantor_fines($privacy_guarantor_fines); - $success = $patron->store(); - } -} - -binmode STDOUT, ":encoding(UTF-8)"; -print $cgi->header( - -type => 'application/json', - -charset => 'UTF-8' -); - -print to_json( - { - success => $success ? 1 : 0, - privacy_guarantor_fines => $privacy_guarantor_fines, - } -); -- 2.11.0