Lines 762-773
sub renewal_branchcode {
Link Here
|
762 |
return $branchcode; |
762 |
return $branchcode; |
763 |
} |
763 |
} |
764 |
|
764 |
|
|
|
765 |
=head3 set_found |
766 |
|
767 |
my $lost_item_refunded; |
768 |
if ( $item->itemlost ) { |
769 |
$lost_item_refunded = $item->set_found; |
770 |
} |
771 |
|
772 |
Function to set a previously lost item to found. |
773 |
|
774 |
The action will update the item details and trigger |
775 |
any refunds that may result from the items return. |
776 |
|
777 |
Returns a boolean denoting whether the action triggered |
778 |
a refund or not. |
779 |
|
780 |
=cut |
781 |
|
765 |
sub set_found { |
782 |
sub set_found { |
766 |
my ($self, $params) = @_; |
783 |
my ($self, $params) = @_; |
767 |
|
784 |
|
768 |
my $holdingbranch = $params->{holdingbranch} || $self->holdingbranch; |
785 |
my $holdingbranch = $params->{holdingbranch} || $self->holdingbranch; |
769 |
|
786 |
|
770 |
## If item was lost, it has now been found, reverse any list item charges if necessary. |
787 |
## If item was lost, it has now been found, reverse any lost item charges if necessary. |
771 |
my $refund = 1; |
788 |
my $refund = 1; |
772 |
my $no_refund_after_days = |
789 |
my $no_refund_after_days = |
773 |
C4::Context->preference('NoRefundOnLostReturnedItemsAge'); |
790 |
C4::Context->preference('NoRefundOnLostReturnedItemsAge'); |
774 |
- |
|
|