Attachment 92843 Details for Bug 23623 – Bug 23623: Remove the svc/patron/show* scripts

[patch] Bug 23623: Remove the svc/patron/show* scripts

Bug-23623-Remove-the-svcpatronshow-scripts.patch (text/plain), 4.33 KB, created by Tomás Cohen Arazi (tcohen) on 2019-09-16 19:05:00 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Tomás Cohen Arazi (tcohen)

Created: 2019-09-16 19:05:00 UTC

Size: 4.33 KB

patch

obsolete

>From 791d28a0b5733f1a60012827c82a665d1189a95b Mon Sep 17 00:00:00 2001
>From: Tomas Cohen Arazi <tomascohen@theke.io>
>Date: Mon, 16 Sep 2019 15:56:36 -0300
>Subject: [PATCH] Bug 23623: Remove the svc/patron/show* scripts
>
>---
> 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.23.0

Actions: View | Diff | Splinter Review

Attachments on bug 23623: 92842 | 92843 | 92914 | 92915 | 92916 | 92917 | 93001 | 93002 | 93003 | 93004