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