|
Lines 2824-2830
sub AddRenewal {
Link Here
|
| 2824 |
|
2824 |
|
| 2825 |
# Update the renewal count on the item, and tell zebra to reindex |
2825 |
# Update the renewal count on the item, and tell zebra to reindex |
| 2826 |
$renews = $biblio->{'renewals'} + 1; |
2826 |
$renews = $biblio->{'renewals'} + 1; |
| 2827 |
ModItem({ renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $biblio->{'biblionumber'}, $itemnumber); |
2827 |
|
|
|
2828 |
# If item was lost, it has now been found, reverse any list item charges if neccessary. |
| 2829 |
if ( $item->{'itemlost'} ) { |
| 2830 |
if ( C4::Context->preference('RefundLostItemFeeOnReturn') ) { |
| 2831 |
_FixAccountForLostAndReturned( $item->{'itemnumber'}, undef, $item->{'barcode'} ); |
| 2832 |
} |
| 2833 |
} |
| 2834 |
|
| 2835 |
ModItem( |
| 2836 |
{ |
| 2837 |
renewals => $renews, |
| 2838 |
onloan => $datedue->strftime('%Y-%m-%d %H:%M'), |
| 2839 |
itemlost => 0, |
| 2840 |
}, |
| 2841 |
$biblio->{'biblionumber'}, |
| 2842 |
$itemnumber |
| 2843 |
); |
| 2828 |
|
2844 |
|
| 2829 |
# Charge a new rental fee, if applicable? |
2845 |
# Charge a new rental fee, if applicable? |
| 2830 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
2846 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
| 2831 |
- |
|
|