Lines 2935-2941
sub AddRenewal {
Link Here
|
2935 |
|
2935 |
|
2936 |
# Update the renewal count on the item, and tell zebra to reindex |
2936 |
# Update the renewal count on the item, and tell zebra to reindex |
2937 |
$renews = $biblio->{'renewals'} + 1; |
2937 |
$renews = $biblio->{'renewals'} + 1; |
2938 |
ModItem({ renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $biblio->{'biblionumber'}, $itemnumber); |
2938 |
|
|
|
2939 |
# If item was lost, it has now been found, reverse any list item charges if neccessary. |
2940 |
if ( $item->{'itemlost'} ) { |
2941 |
if ( C4::Context->preference('RefundLostItemFeeOnReturn') ) { |
2942 |
_FixAccountForLostAndReturned( $item->{'itemnumber'}, undef, $item->{'barcode'} ); |
2943 |
} |
2944 |
} |
2945 |
|
2946 |
ModItem( |
2947 |
{ |
2948 |
renewals => $renews, |
2949 |
onloan => $datedue->strftime('%Y-%m-%d %H:%M'), |
2950 |
itemlost => 0, |
2951 |
}, |
2952 |
$biblio->{'biblionumber'}, |
2953 |
$itemnumber |
2954 |
); |
2939 |
|
2955 |
|
2940 |
# Charge a new rental fee, if applicable? |
2956 |
# Charge a new rental fee, if applicable? |
2941 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
2957 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
2942 |
- |
|
|