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