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

(-)a/C4/Circulation.pm (-4 / +4 lines)
Lines 1468-1481 sub AddIssue { Link Here
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
    }
(-)a/Koha/Account.pm (-13 / +12 lines)
Lines 452-461 $debit_type can be any of: Link Here
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
- 

Return to bug 23049