Attachment #93968 for bug #23049

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




            # If it costs to borrow this book, charge it to the patron's account.
            my ( $charge, $itemtype ) = GetIssuingCharges( $item_object->itemnumber, $borrower->{'borrowernumber'} );
            if ( $charge > 0 ) {
                AddIssuingCharge( $issue, $charge, 'RENT' );
            }

            my $itemtype_object = Koha::ItemTypes->find( $item_object->effective_itemtype );
            if ( $itemtype_object ) {
                my $accumulate_charge = $fees->accumulate_rentalcharge();
                if ( $accumulate_charge > 0 ) {
                    AddIssuingCharge( $issue, $accumulate_charge, 'RENT_DAILY' ) if $accumulate_charge > 0;
                    $charge += $accumulate_charge;
                    $item_unblessed->{charge} = $charge;
                }

    # Charge a new rental fee, if applicable
    my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber );
    if ( $charge > 0 ) {
        AddIssuingCharge($issue, $charge, 'RENT_RENEW');
    }

    # Charge a new accumulate rental fee, if applicable

    if ( $itemtype_object ) {
        my $accumulate_charge = $fees->accumulate_rentalcharge();
        if ( $accumulate_charge > 0 ) {
            AddIssuingCharge( $issue, $accumulate_charge, 'RENT_DAILY_RENEW' )
        }
        $charge += $accumulate_charge;
    }




  - new_card
  - overdue
  - processing
  - RENT
  - RENT_DAILY
  - RENT_RENEW
  - RENT_DAILY_RENEW
  - RESERVE
  - manual_debit


    'RESERVE'          => 'Reserve Fee',
    'processing'       => 'Processing Fee',
    'lost_item'        => 'Lost Item',
    'RENT'             => 'Rental Fee',
    'RENT_DAILY'       => 'Rental Fee',
    'RENT_RENEW'       => 'Rental Fee',
    'RENT_DAILY_RENEW' => 'Rental Fee',
    'overdue'          => 'OVERDUE',
    'manual_debit'     => 'Manual Debit',
    'hold_expired'     => 'Hold Expired'

    'new_card'         => 'N',
    'overdue'          => 'OVERDUE',
    'processing'       => 'PF',
    'RENT'             => 'RENT',
    'RENT_DAILY'       => 'RENT_DAILY',
    'RENT_RENEW'       => 'RENT_RENEW',
    'RENT_DAILY_RENEW' => 'RENT_DAILY_RENEW',
    'RESERVE'          => 'RESERVE',
    'manual_debit'     => 'M'
};
- 

Return to bug 23049

Lines 452-461 $debit_type can be any of: Link Here

(-)a/Koha/Account.pm (-13 / +12 lines)
452	- new_card	452	- new_card
453	- overdue	453	- overdue
454	- processing	454	- processing
455	- rent	455	- RENT
456	- rent_daily	456	- RENT_DAILY
457	- rent_renew	457	- RENT_RENEW
458	- rent_daily_renew	458	- RENT_DAILY_RENEW
459	- RESERVE	459	- RESERVE
460	- manual_debit	460	- manual_debit
461		461
Lines 714-723 our $offset_type = { Link Here
714	'RESERVE' => 'Reserve Fee',	714	'RESERVE' => 'Reserve Fee',
715	'processing' => 'Processing Fee',	715	'processing' => 'Processing Fee',
716	'lost_item' => 'Lost Item',	716	'lost_item' => 'Lost Item',
717	'rent' => 'Rental Fee',	717	'RENT' => 'Rental Fee',
718	'rent_daily' => 'Rental Fee',	718	'RENT_DAILY' => 'Rental Fee',
719	'rent_renew' => 'Rental Fee',	719	'RENT_RENEW' => 'Rental Fee',
720	'rent_daily_renew' => 'Rental Fee',	720	'RENT_DAILY_RENEW' => 'Rental Fee',
721	'overdue' => 'OVERDUE',	721	'overdue' => 'OVERDUE',
722	'manual_debit' => 'Manual Debit',	722	'manual_debit' => 'Manual Debit',
723	'hold_expired' => 'Hold Expired'	723	'hold_expired' => 'Hold Expired'
Lines 748-757 our $account_type_debit = { Link Here
748	'new_card' => 'N',	748	'new_card' => 'N',
749	'overdue' => 'OVERDUE',	749	'overdue' => 'OVERDUE',
750	'processing' => 'PF',	750	'processing' => 'PF',
751	'rent' => 'RENT',	751	'RENT' => 'RENT',
752	'rent_daily' => 'RENT_DAILY',	752	'RENT_DAILY' => 'RENT_DAILY',
753	'rent_renew' => 'RENT_RENEW',	753	'RENT_RENEW' => 'RENT_RENEW',
754	'rent_daily_renew' => 'RENT_DAILY_RENEW',	754	'RENT_DAILY_RENEW' => 'RENT_DAILY_RENEW',
755	'RESERVE' => 'RESERVE',	755	'RESERVE' => 'RESERVE',
756	'manual_debit' => 'M'	756	'manual_debit' => 'M'
757	};	757	};
758	-

Lines 1468-1481 sub AddIssue { Link Here

(-)a/C4/Circulation.pm (-4 / +4 lines)
1468	# If it costs to borrow this book, charge it to the patron's account.	1468	# If it costs to borrow this book, charge it to the patron's account.
1469	my ( $charge, $itemtype ) = GetIssuingCharges( $item_object->itemnumber, $borrower->{'borrowernumber'} );	1469	my ( $charge, $itemtype ) = GetIssuingCharges( $item_object->itemnumber, $borrower->{'borrowernumber'} );
1470	if ( $charge > 0 ) {	1470	if ( $charge > 0 ) {
1471	AddIssuingCharge( $issue, $charge, 'rent' );	1471	AddIssuingCharge( $issue, $charge, 'RENT' );
1472	}	1472	}
1473		1473
1474	my $itemtype_object = Koha::ItemTypes->find( $item_object->effective_itemtype );	1474	my $itemtype_object = Koha::ItemTypes->find( $item_object->effective_itemtype );
1475	if ( $itemtype_object ) {	1475	if ( $itemtype_object ) {
1476	my $accumulate_charge = $fees->accumulate_rentalcharge();	1476	my $accumulate_charge = $fees->accumulate_rentalcharge();
1477	if ( $accumulate_charge > 0 ) {	1477	if ( $accumulate_charge > 0 ) {
1478	AddIssuingCharge( $issue, $accumulate_charge, 'rent_daily' ) if $accumulate_charge > 0;	1478	AddIssuingCharge( $issue, $accumulate_charge, 'RENT_DAILY' ) if $accumulate_charge > 0;
1479	$charge += $accumulate_charge;	1479	$charge += $accumulate_charge;
1480	$item_unblessed->{charge} = $charge;	1480	$item_unblessed->{charge} = $charge;
1481	}	1481	}
Lines 2908-2914 sub AddRenewal { Link Here
2908	# Charge a new rental fee, if applicable	2908	# Charge a new rental fee, if applicable
2909	my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber );	2909	my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber );
2910	if ( $charge > 0 ) {	2910	if ( $charge > 0 ) {
2911	AddIssuingCharge($issue, $charge, 'rent_renew');	2911	AddIssuingCharge($issue, $charge, 'RENT_RENEW');
2912	}	2912	}
2913		2913
2914	# Charge a new accumulate rental fee, if applicable	2914	# Charge a new accumulate rental fee, if applicable
Lines 2916-2922 sub AddRenewal { Link Here
2916	if ( $itemtype_object ) {	2916	if ( $itemtype_object ) {
2917	my $accumulate_charge = $fees->accumulate_rentalcharge();	2917	my $accumulate_charge = $fees->accumulate_rentalcharge();
2918	if ( $accumulate_charge > 0 ) {	2918	if ( $accumulate_charge > 0 ) {
2919	AddIssuingCharge( $issue, $accumulate_charge, 'rent_daily_renew' )	2919	AddIssuingCharge( $issue, $accumulate_charge, 'RENT_DAILY_RENEW' )
2920	}	2920	}
2921	$charge += $accumulate_charge;	2921	$charge += $accumulate_charge;
2922	}	2922	}