@@ -, +, @@
---
C4/Members.pm | 1 +
api/v1/swagger/definitions/patron.json | 4 ++
.../prog/en/modules/admin/preferences/opac.pref | 7 +++
.../prog/en/modules/admin/preferences/patrons.pref | 6 ++
.../prog/en/modules/members/memberentrygen.tt | 16 +++++
.../prog/en/modules/members/moremember.tt | 9 +++
.../bootstrap/en/modules/opac-memberentry.tt | 73 +++++++++++++++++-----
.../opac-tmpl/bootstrap/en/modules/opac-privacy.tt | 38 +++++++----
opac/opac-memberentry.pl | 2 +-
opac/opac-privacy.pl | 10 +--
opac/svc/patron/show_fines_to_relatives | 59 +++++++++++++++++
11 files changed, 194 insertions(+), 31 deletions(-)
create mode 100755 opac/svc/patron/show_fines_to_relatives
--- a/C4/Members.pm
+++ a/C4/Members.pm
@@ -438,6 +438,7 @@ sub AddMember {
: undef;
$data{'privacy_guarantor_checkouts'} = 0 unless defined( $data{'privacy_guarantor_checkouts'} );
+ $data{'privacy_guarantor_fines'} = 0 unless defined( $data{'privacy_guarantor_fines'} );
# Make a copy of the plain text password for later use
my $plain_text_password = $data{'password'};
--- a/api/v1/swagger/definitions/patron.json
+++ a/api/v1/swagger/definitions/patron.json
@@ -243,6 +243,10 @@
"type": "integer",
"description": "controls if relatives can see this patron's checkouts"
},
+ "privacy_guarantor_fines": {
+ "type": "integer",
+ "description": "controls if relatives can see this patron's fines"
+ },
"check_previous_checkout": {
"type": "string",
"description": "produce a warning for this patron if this item has previously been checked out to this patron if 'yes', not if 'no', defer to category setting if 'inherit'"
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref
@@ -655,6 +655,13 @@ OPAC:
yes: Allow
no: "Don't allow"
- patrons to choose their own privacy settings for showing the patron's checkouts to the patron's guarantor".
+ -
+ - pref: AllowPatronToSetFinesVisibilityForGuarantor
+ default: 0
+ choices:
+ yes: Allow
+ no: "Don't allow"
+ - patrons to choose their own privacy settings for showing the patron's fines to the patron's guarantor".
-
- Use borrowernumber
- pref: AnonymousPatron
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref
@@ -164,6 +164,12 @@ Patrons:
yes: Allow
no: "Don't allow"
- staff to set the ability for a patron's checkouts to be viewed by linked patrons in the OPAC.
+ -
+ - pref: AllowStaffToSetFinesVisibilityForGuarantor
+ choices:
+ yes: Allow
+ no: "Don't allow"
+ - staff to set the ability for a patron's fines to be viewed by linked patrons in the OPAC.
-
- Card numbers for patrons must be
- pref: CardnumberLength
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt
@@ -448,6 +448,22 @@
Allow guarantors of this patron to view this patron's checkouts from the OPAC
[% END %]
+
+ [% IF relationships && Koha.Preference('AllowStaffToSetFinesVisibilityForGuarantor') %]
+
+
+
+
Allow guarantors of this patron to view this patron's fines from the OPAC
+
+ [% END %]
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt
@@ -323,6 +323,15 @@
[% END %]
+
+ Show fines to guarantor
+ [% IF privacy_guarantor_fines %]
+ Yes
+ [% ELSE %]
+ No
+ [% END %]
+
+
[% IF ( patron.sort1 ) %]
Sort field 1:[% AuthorisedValues.GetByCode('Bsort1', patron.sort1) |html %]
[% END %]
[% IF ( patron.sort2 ) %]
Sort field 2:[% AuthorisedValues.GetByCode('Bsort2', patron.sort2) |html %]
[% END %]
@@ -1002,20 +1026,39 @@
}
});
- [% IF borrower.guarantorid && !Koha.Preference('OPACPrivacy') && Koha.Preference('AllowPatronToSetCheckoutsVisibilityForGuarantor') %]
- $('#update_privacy_guarantor_checkouts').click( function() {
- $.post( "/cgi-bin/koha/svc/patron/show_checkouts_to_relatives", { privacy_guarantor_checkouts: $('#privacy_guarantor_checkouts').val() }, null, 'json')
- .done(function( data ) {
- var message;
- if ( data.success ) {
- message = _("Your setting has been updated!");
- } else {
- message = _("Unable to update your setting!");
- }
-
- $('#update_privacy_guarantor_checkouts_message').fadeIn("slow").text( message ).delay( 5000 ).fadeOut("slow");
- });
- });
+ [% IF patron.guarantor_relationships && !Koha.Preference('OPACPrivacy') %]
+
+ [% IF Koha.Preference('AllowPatronToSetCheckoutsVisibilityForGuarantor') %]
+ $('#update_privacy_guarantor_checkouts').click( function() {
+ $.post( "/cgi-bin/koha/svc/patron/show_checkouts_to_relatives", { privacy_guarantor_checkouts: $('#privacy_guarantor_checkouts').val() }, null, 'json')
+ .done(function( data ) {
+ var message;
+ if ( data.success ) {
+ message = _("Your setting has been updated!");
+ } else {
+ message = _("Unable to update your setting!");
+ }
+
+ $('#update_privacy_guarantor_checkouts_message').fadeIn("slow").text( message ).delay( 5000 ).fadeOut("slow");
+ });
+ });
+ [% END %]
+
+ [% IF Koha.Preference('AllowPatronToSetFinesVisibilityForGuarantor') %]
+ $('#update_privacy_guarantor_fines').click( function() {
+ $.post( "/cgi-bin/koha/svc/patron/show_fines_to_relatives", { privacy_guarantor_fines: $('#privacy_guarantor_fines').val() }, null, 'json')
+ .done(function( data ) {
+ var message;
+ if ( data.success ) {
+ message = _("Your setting has been updated!");
+ } else {
+ message = _("Unable to update your setting!");
+ }
+
+ $('#update_privacy_guarantor_fines_message').fadeIn("slow").text( message ).delay( 5000 ).fadeOut("slow");
+ });
+ });
+ [% END %]
[% END %]
$(".patron-attributes").on( 'click', '.clear-attribute', function() {
--- a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-privacy.tt
+++ a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-privacy.tt
@@ -71,18 +71,34 @@
- [% IF borrower.guarantor_relationships && Koha.Preference('AllowPatronToSetCheckoutsVisibilityForGuarantor') %]
+ [% IF borrower.guarantor_relationships &&
+ Koha.Preference('AllowPatronToSetCheckoutsVisibilityForGuarantor') || Koha.Preference('AllowPatronToSetFinesVisibilityForGuarantor')
+ %]
-
-
+ [% IF Koha.Preference('AllowPatronToSetCheckoutsVisibilityForGuarantor') %]
+
+
+ [% END %]
+ [% IF Koha.Preference('AllowPatronToSetFinesVisibilityForGuarantor') %]
+
+
+ [% END %]
Guaranteed by
[% FOREACH gr IN borrower.guarantor_relationships %]
--- a/opac/opac-memberentry.pl
+++ a/opac/opac-memberentry.pl
@@ -320,7 +320,7 @@ my $captcha = random_string("CCCCC");
$template->param(
captcha => $captcha,
captcha_digest => md5_base64($captcha),
- patron => Koha::Patrons->find( $borrowernumber ),
+ patron => scalar Koha::Patrons->find( $borrowernumber ),
);
output_html_with_http_headers $cgi, $cookie, $template->output, undef, { force_no_caching => 1 };
--- a/opac/opac-privacy.pl
+++ a/opac/opac-privacy.pl
@@ -45,15 +45,17 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
}
);
-my $op = $query->param("op");
-my $privacy = $query->param("privacy");
+my $op = $query->param("op");
+my $privacy = $query->param("privacy");
my $privacy_guarantor_checkouts = $query->param("privacy_guarantor_checkouts");
+my $privacy_guarantor_fines = $query->param("privacy_guarantor_fines");
if ( $op eq "update_privacy" ) {
ModMember(
- borrowernumber => $borrowernumber,
- privacy => $privacy,
+ borrowernumber => $borrowernumber,
+ privacy => $privacy,
privacy_guarantor_checkouts => $privacy_guarantor_checkouts,
+ privacy_guarantor_fines => $privacy_guarantor_fines,
);
$template->param( 'privacy_updated' => 1 );
}
--- a/opac/svc/patron/show_fines_to_relatives
+++ a/opac/svc/patron/show_fines_to_relatives
@@ -0,0 +1,59 @@
+#!/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,
+ }
+);
--