Attachment #81685 for bug #21678

View | Details | Raw Unified | Return to bug 21678
Collapse All | Expand All

Lines 2878-2886 sub AddRenewal { Link Here

(-)a/C4/Circulation.pm (-3 / +6 lines)
2878	. $biblio->title	2878	. $biblio->title
2879	. " $item->{'barcode'}";	2879	. " $item->{'barcode'}";
2880		2880
2881	C4::Accounts::manualinvoice(	2881	$patron->account->add_debit({
2882	$borrowernumber, $itemnumber, $description, 'Rent', $charge	2882	amount => $charge,
2883	);	2883	description => $description,
		2884	type => 'rent',
		2885	item_id => $itemnumber,
		2886	});
2884	}	2887	}
2885		2888
2886	# Send a renewal slip according to checkout alert preferencei	2889	# Send a renewal slip according to checkout alert preferencei





    return if !$fee || $fee == 0;    # the last test is needed to include 0.00

    #FIXME - patron should be passed as param, not fetched agian
    my $patron = Koha::Patrons->find( $borrowernumber );
    return unless $patron;

    $patron->account->add_debit({
        amount => $fee,
        type => 'reserve',
        description => $title,
    });
}

=head2 GetReserveFee
- 

Return to bug 21678

Lines 570-578 sub ChargeReserveFee { Link Here

(-)a/C4/Reserves.pm (-4 / +9 lines)
570		570
571	return if !$fee \|\| $fee == 0; # the last test is needed to include 0.00	571	return if !$fee \|\| $fee == 0; # the last test is needed to include 0.00
572		572
573	C4::Accounts::manualinvoice(	573	#FIXME - patron should be passed as param, not fetched agian
574	$borrowernumber, undef, "Reserve Charge - $title", 'Res', $fee	574	my $patron = Koha::Patrons->find( $borrowernumber );
575	);	575	return unless $patron;
		576
		577	$patron->account->add_debit({
		578	amount => $fee,
		579	type => 'reserve',
		580	description => $title,
		581	});
576	}	582	}
577		583
578	=head2 GetReserveFee	584	=head2 GetReserveFee
579	-