Attachment 118548 Details for Bug 26704 – Bug 26704: Update Koha::Item to use Koha::Object::Messages

[patch] Bug 26704: Update Koha::Item to use Koha::Object::Messages

Bug-26704-Update-KohaItem-to-use-KohaObjectMessage.patch (text/plain), 4.89 KB, created by Martin Renvoize (ashimema) on 2021-03-19 14:52:48 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Martin Renvoize (ashimema)

Created: 2021-03-19 14:52:48 UTC

Size: 4.89 KB

patch

obsolete

>From 31116120f7742f3a715728a9e72f66b61cf70f66 Mon Sep 17 00:00:00 2001
>From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
>Date: Fri, 19 Mar 2021 14:51:57 +0000
>Subject: [PATCH] Bug 26704: Update Koha::Item to use Koha::Object::Messages
>
>---
> C4/Circulation.pm | 49 ++++++++++++++++++++++++++---------------------
> Koha/Item.pm      | 23 +++++++++++++++++++---
> 2 files changed, 47 insertions(+), 25 deletions(-)
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index 03fe5c78f2..e7fcbf6fb4 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -2134,29 +2134,34 @@ sub AddReturn {
>     if ($item_was_lost) {
>         $messages->{'WasLost'} = 1;
>         unless ( C4::Context->preference("BlockReturnOfLostItems") ) {
>-            $messages->{'LostItemFeeRefunded'} = $updated_item->{_refunded};
>-            $messages->{'LostItemFeeRestored'} = $updated_item->{_restored};
>-
>-            if ( $updated_item->{_charge} ) {
>-                $issue //= Koha::Old::Checkouts->search(
>-                    { itemnumber => $item->itemnumber },
>-                    { order_by   => { '-desc' => 'returndate' }, rows => 1 } )
>-                  ->single;
>-                unless ( exists( $patron_unblessed->{branchcode} ) ) {
>-                    my $patron = $issue->patron;
>-                    $patron_unblessed = $patron->unblessed;
>-                }
>-                _CalculateAndUpdateFine(
>-                    {
>-                        issue       => $issue,
>-                        item        => $item->unblessed,
>-                        borrower    => $patron_unblessed,
>-                        return_date => $return_date
>+            my @object_messages = @{ $updated_item->messages };
>+            for my $message (@object_messages) {
>+                $messages->{'LostItemFeeRefunded'} = 1
>+                  if $message->message eq 'lost_refunded';
>+                $messages->{'LostItemFeeRestored'} = 1
>+                  if $message->message eq 'lost_restored';
>+
>+                if ( $message->message eq 'lost_charge' ) {
>+                    $issue //= Koha::Old::Checkouts->search(
>+                        { itemnumber => $item->itemnumber },
>+                        { order_by   => { '-desc' => 'returndate' }, rows => 1 }
>+                    )->single;
>+                    unless ( exists( $patron_unblessed->{branchcode} ) ) {
>+                        my $patron = $issue->patron;
>+                        $patron_unblessed = $patron->unblessed;
>                     }
>-                );
>-                _FixOverduesOnReturn( $patron_unblessed->{borrowernumber},
>-                    $item->itemnumber, undef, 'RETURNED' );
>-                $messages->{'LostItemFeeCharged'} = 1;
>+                    _CalculateAndUpdateFine(
>+                        {
>+                            issue       => $issue,
>+                            item        => $item->unblessed,
>+                            borrower    => $patron_unblessed,
>+                            return_date => $return_date
>+                        }
>+                    );
>+                    _FixOverduesOnReturn( $patron_unblessed->{borrowernumber},
>+                        $item->itemnumber, undef, 'RETURNED' );
>+                    $messages->{'LostItemFeeCharged'} = 1;
>+                }
>             }
>         }
>     }
>diff --git a/Koha/Item.pm b/Koha/Item.pm
>index c0da07c4b9..6483fc01da 100644
>--- a/Koha/Item.pm
>+++ b/Koha/Item.pm
>@@ -1007,7 +1007,13 @@ sub _set_found_trigger {
>                     );
> 
>                     $credit->apply( { debits => [$lost_charge] } );
>-                    $self->{_refunded} = 1;
>+                    $self->add_message(
>+                        {
>+                            type    => 'info',
>+                            message => 'lost_refunded',
>+                            payload => { credit_id => $credit->id }
>+                        }
>+                    );
>                 }
> 
>                 # Update the account status
>@@ -1057,7 +1063,13 @@ sub _set_found_trigger {
>                     if ( $refund ) {
>                         # Revert the forgive credit
>                         $refund->void();
>-                        $self->{_restored} = 1;
>+                        $self->add_message(
>+                            {
>+                                type    => 'info',
>+                                message => 'lost_restored',
>+                                payload => { refund_id => $refund->id }
>+                            }
>+                        );
>                     }
> 
>                     # Reconcile balances if required
>@@ -1067,7 +1079,12 @@ sub _set_found_trigger {
>                 }
>             }
>         } elsif ( $lostreturn_policy eq 'charge' ) {
>-            $self->{_charge} = 1;
>+            $self->add_message(
>+                {
>+                    type    => 'info',
>+                    message => 'lost_charge',
>+                }
>+            );
>         }
>     }
> 
>-- 
>2.20.1

Actions: View | Diff | Splinter Review

Attachments on bug 26704: 118548 | 122004 | 128070 | 128084 | 128085 | 130027 | 130028 | 130484 | 130485 | 130486 | 130657 | 130658