Attachment #172257 for bug #28575

View | Details | Raw Unified | Return to bug 28575
Collapse All | Expand All




            my @object_messages = @{ $updated_item->object_messages };
            for my $message (@object_messages) {
                $messages->{'LostItemFeeRefunded'} = 1
                    if $message->message eq 'lost_refunded';
                $messages->{'ProcessingFeeRefunded'} = 1
                    if $message->message eq 'processing_refunded';
                $messages->{'LostItemFeeRestored'} = 1
                    if $message->message eq 'lost_restored';
                $messages->{'LostItemPaymentNotRefunded'} = 1
                    if $message->message eq 'payment_not_refunded';

                if ( $message->message eq 'lost_charge' ) {
                    $issue //= Koha::Old::Checkouts->search(

Lines 703-712 foreach my $code ( keys %$messages ) { Link Here

(-)a/circ/returns.pl (-4 / +1 lines)
703	elsif ( $code eq 'LostItemFeeRefunded' ) {	703	elsif ( $code eq 'LostItemFeeRefunded' ) {
704	$template->param( LostItemFeeRefunded => 1 );	704	$template->param( LostItemFeeRefunded => 1 );
705	}	705	}
706	elsif (	706	elsif ( $code eq 'LostItemPaymentNotRefunded' ) {
707	$code eq 'LostItemPaymentNotRefunded'
708	)
709	{
710	$template->param( LostItemPaymentNotRefunded => 1 );	707	$template->param( LostItemPaymentNotRefunded => 1 );
711	}	708	}
712	elsif ( $code eq 'LostItemFeeCharged' ) {	709	elsif ( $code eq 'LostItemFeeCharged' ) {




use Modern::Perl;
use utf8;

use Test::More tests => 76;
use Test::Exception;
use Test::MockModule;
use Test::Deep qw( cmp_deeply );

            date              => '1970-01-01 14:00:01',
            amountoutstanding => 0,
            amount            => -5,
            interface         => 'commandline',
            credit_type_code  => 'PAYMENT'
        }
    )->store();
    my $offset = Koha::Account::Offset->new(
- 

Return to bug 28575

Lines 2313-2325 sub AddReturn { Link Here

(-)a/C4/Circulation.pm (-4 / +4 lines)
2313	my @object_messages = @{ $updated_item->object_messages };	2313	my @object_messages = @{ $updated_item->object_messages };
2314	for my $message (@object_messages) {	2314	for my $message (@object_messages) {
2315	$messages->{'LostItemFeeRefunded'} = 1	2315	$messages->{'LostItemFeeRefunded'} = 1
2316	if $message->message eq 'lost_refunded';	2316	if $message->message eq 'lost_refunded';
2317	$messages->{'ProcessingFeeRefunded'} = 1	2317	$messages->{'ProcessingFeeRefunded'} = 1
2318	if $message->message eq 'processing_refunded';	2318	if $message->message eq 'processing_refunded';
2319	$messages->{'LostItemFeeRestored'} = 1	2319	$messages->{'LostItemFeeRestored'} = 1
2320	if $message->message eq 'lost_restored';	2320	if $message->message eq 'lost_restored';
2321	$messages->{'LostItemPaymentNotRefunded'} = 1	2321	$messages->{'LostItemPaymentNotRefunded'} = 1
2322	if $message->message eq 'payment_not_refunded';	2322	if $message->message eq 'payment_not_refunded';
2323		2323
2324	if ( $message->message eq 'lost_charge' ) {	2324	if ( $message->message eq 'lost_charge' ) {
2325	$issue //= Koha::Old::Checkouts->search(	2325	$issue //= Koha::Old::Checkouts->search(

Lines 18-24 Link Here

(-)a/t/db_dependent/Circulation.t (-4 / +3 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19	use utf8;	19	use utf8;
20		20
21	use Test::More tests => 75;	21	use Test::More tests => 76;
22	use Test::Exception;	22	use Test::Exception;
23	use Test::MockModule;	23	use Test::MockModule;
24	use Test::Deep qw( cmp_deeply );	24	use Test::Deep qw( cmp_deeply );
Lines 6868-6875 subtest 'NoRefundOnLostFinesPaidAge' => sub { Link Here
6868	date => '1970-01-01 14:00:01',	6868	date => '1970-01-01 14:00:01',
6869	amountoutstanding => 0,	6869	amountoutstanding => 0,
6870	amount => -5,	6870	amount => -5,
6871	interface => 'commandline',	6871	interface => 'commandline',
6872	credit_type_code => 'PAYMENT'	6872	credit_type_code => 'PAYMENT'
6873	}	6873	}
6874	)->store();	6874	)->store();
6875	my $offset = Koha::Account::Offset->new(	6875	my $offset = Koha::Account::Offset->new(
6876	-