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

(-)a/Koha/Old/Checkout.pm (-51 lines)
Lines 80-135 sub to_api_mapping { Link Here
80
    };
80
    };
81
}
81
}
82
82
83
=head3 claim_returned
84
85
my $return_claim = $checkout->claim_returned();
86
87
=cut
88
89
sub claim_returned {
90
    my ( $self, $params ) = @_;
91
92
    my $charge_lost_fee = $params->{charge_lost_fee};
93
94
    try {
95
        $self->_result->result_source->schema->txn_do(
96
            sub {
97
                my $claim = Koha::Checkouts::ReturnClaim->new(
98
                    {
99
                        issue_id       => $self->id,
100
                        itemnumber     => $self->itemnumber,
101
                        borrowernumber => $self->borrowernumber,
102
                        notes          => $params->{notes},
103
                        created_by     => $params->{created_by},
104
                        created_on     => dt_from_string,
105
                    }
106
                )->store();
107
108
                my $ClaimReturnedLostValue = C4::Context->preference('ClaimReturnedLostValue');
109
                C4::Items::ModItem( { itemlost => $ClaimReturnedLostValue }, undef, $self->itemnumber );
110
111
                my $ClaimReturnedChargeFee = C4::Context->preference('ClaimReturnedChargeFee');
112
                $charge_lost_fee =
113
                    $ClaimReturnedChargeFee eq 'charge'    ? 1
114
                : $ClaimReturnedChargeFee eq 'no_charge' ? 0
115
                :   $charge_lost_fee;    # $ClaimReturnedChargeFee eq 'ask'
116
                C4::Circulation::LostItem( $self->itemnumber, 'claim_returned' ) if $charge_lost_fee;
117
118
                return $claim;
119
            }
120
        );
121
    }
122
    catch {
123
        if ( $_->isa('Koha::Exceptions::Exception') ) {
124
            $_->rethrow();
125
        }
126
        else {
127
            # ?
128
            Koha::Exceptions::Exception->throw( "Unhandled exception" );
129
        }
130
    };
131
}
132
133
=head3 library
83
=head3 library
134
84
135
my $library = $checkout->library;
85
my $library = $checkout->library;
136
- 

Return to bug 15985