|
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 |
- |
|
|