Attachment 144815 Details for Bug 32373 – Bug 32373: Show patron restriction date

[patch] Bug 32373: Show patron restriction date

Bug-32373-Show-patron-restriction-date.patch (text/plain), 4.02 KB, created by Matt Blenkinsop on 2022-12-23 11:32:55 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Matt Blenkinsop

Created: 2022-12-23 11:32:55 UTC

Size: 4.02 KB

patch

obsolete

>From ff03dc9e6e94d7bb073aaaca5b0d2faa95b5fa71 Mon Sep 17 00:00:00 2001
>From: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
>Date: Thu, 22 Dec 2022 15:22:24 +0000
>Subject: [PATCH] Bug 32373: Show patron restriction date
>
>When viewing a patron account with a restriction there is no way to see when the restriction was placed. This is available in the borrower_debarrments table and has now been added to the UI and matched to the 'dateformat' syspref. (Previous commit missed the moremember.tt render and the syspref formatting)
>
>Test plan:
>1) Create a restriction on a patron and navigate to that patron in Checkouts or the patron details page
>2) There should be a message with details about the restriction but the creation date of the restriction won't be included in the message
>3) Apply patch
>4) The message should now say "Restricted since DATE" as in the screenshot attached.
>5) Change the 'dateformat' syspref and refresh, the date should change to reflect the syspref
>---
> circ/circulation.pl                                        | 7 ++++++-
> .../intranet-tmpl/prog/en/includes/patron_messages.inc     | 2 +-
> members/moremember.pl                                      | 7 ++++++-
> 3 files changed, 13 insertions(+), 3 deletions(-)
>
>diff --git a/circ/circulation.pl b/circ/circulation.pl
>index b7270bfe56a..42caeb15a30 100755
>--- a/circ/circulation.pl
>+++ b/circ/circulation.pl
>@@ -45,7 +45,7 @@ use Koha::AuthorisedValues;
> use Koha::CsvProfiles;
> use Koha::Patrons;
> use Koha::Patron::Debarments qw( GetDebarments );
>-use Koha::DateUtils qw( dt_from_string );
>+use Koha::DateUtils qw( dt_from_string format_sqldatetime );
> use Koha::Patron::Restriction::Types;
> use Koha::Plugins;
> use Koha::Database;
>@@ -265,10 +265,15 @@ if ($patron) {
>         finetotal    => $balance,
>     );
> 
>+    my $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] || undef;
>+    my $dateformatted = format_sqldatetime( $debarrment->{created} ) if $debarrment;
>+    my $debarrmentdate = substr($dateformatted, 0, 10) if $debarrment;
>+
>     if ( $patron and $patron->is_debarred ) {
>         $template->param(
>             'userdebarred'    => $patron->debarred,
>             'debarredcomment' => $patron->debarredcomment,
>+            'debarredsince' => $debarrmentdate
>         );
> 
>         if ( $patron->debarred ne "9999-12-31" ) {
>diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc
>index db9c3430fcf..a72932b62c2 100644
>--- a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc
>+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc
>@@ -58,7 +58,7 @@
> 
>         [% IF ( userdebarred ) %]
>             <li class="userdebarred blocker">
>-                <span class="circ-hlt"> Restricted:</span> Patron's account is restricted
>+                <span class="circ-hlt"> Restricted since [% debarredsince %]:</span> Patron's account is restricted
> 
>                 [% IF ( userdebarreddate ) %]
>                     until [% userdebarreddate | $KohaDates %]
>diff --git a/members/moremember.pl b/members/moremember.pl
>index 0523d02831a..13003a02ce3 100755
>--- a/members/moremember.pl
>+++ b/members/moremember.pl
>@@ -45,6 +45,7 @@ use Koha::Patrons;
> use Koha::Patron::Files;
> use Koha::Token;
> use Koha::Checkouts;
>+use Koha::DateUtils qw( format_sqldatetime );
> 
> my $input = CGI->new;
> 
>@@ -85,10 +86,14 @@ $template->param(
> );
> 
> if ( $patron->is_debarred ) {
>+    my $debarrment = @{ GetDebarments( { borrowernumber => $borrowernumber } ) }[0] || undef;
>+    my $dateformatted = format_sqldatetime( $debarrment->{created} );
>+    my $debarrmentdate = substr($dateformatted, 0, 10);
>     $template->param(
>-        'debarments'      => scalar GetDebarments({ borrowernumber => $borrowernumber }),
>+        'debarments'      => scalar $debarrment,
>         'userdebarred'    => $patron->debarred,
>         'debarredcomment' => $patron->debarredcomment,
>+        'debarredsince' => $debarrmentdate
>     );
> 
>     if ( $patron->debarred ne "9999-12-31" ) {
>-- 
>2.37.1 (Apple Git-137.1)

Actions: View | Diff | Splinter Review

Attachments on bug 32373: 144337 | 144796 | 144797 | 144807 | 144813 | 144815 | 144828 | 144931 | 144942 | 144943 | 144944 | 146693 | 147230 | 147763 | 147764