Attachment #94085 for bug #23049

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

Lines 124-130 sub chargelostitem { Link Here

(-)a/C4/Accounts.pm (-1 / +1 lines)
124	user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,	124	user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
125	interface => C4::Context->interface,	125	interface => C4::Context->interface,
126	library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,	126	library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
127	type => 'lost_item',	127	type => 'LOST',
128	item_id => $itemnumber,	128	item_id => $itemnumber,
129	issue_id => $issue_id,	129	issue_id => $issue_id,
130	}	130	}




  - ACCOUNT
  - ACCOUNT_RENEW
  - RESERVE_EXPIRED
  - LOST
  - sundry
  - new_card
  - overdue

    'ACCOUNT_RENEW'    => 'Account Fee',
    'RESERVE'          => 'Reserve Fee',
    'PROCESSING'       => 'Processing Fee',
    'LOST'             => 'Lost Item',
    'RENT'             => 'Rental Fee',
    'RENT_DAILY'       => 'Rental Fee',
    'RENT_RENEW'       => 'Rental Fee',

    'ACCOUNT'          => 'ACCOUNT',
    'ACCOUNT_RENEW'    => 'ACCOUNT_RENEW',
    'RESERVE_EXPIRED'  => 'RESERVE_EXPIRED',
    'LOST_ITEM'        => 'LOST',
    'sundry'           => 'M',
    'new_card'         => 'N',
    'overdue'          => 'OVERDUE',

Lines 81-87 my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item- Link Here

(-)a/t/db_dependent/Circulation/NoIssuesChargeGuarantees.t (-2 / +1 lines)
81	is( $issuingimpossible->{DEBT_GUARANTEES}, undef, "Patron can check out item" );	81	is( $issuingimpossible->{DEBT_GUARANTEES}, undef, "Patron can check out item" );
82		82
83	my $account = Koha::Account->new( { patron_id => $guarantee->id } );	83	my $account = Koha::Account->new( { patron_id => $guarantee->id } );
84	$account->add_debit({ amount => 10.00, type => 'lost_item', interface => 'test' });	84	$account->add_debit({ amount => 10.00, type => 'LOST', interface => 'test' });
85	( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );	85	( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );
86	is( $issuingimpossible->{DEBT_GUARANTEES} + 0, '10.00' + 0, "Patron cannot check out item due to debt for guarantee" );	86	is( $issuingimpossible->{DEBT_GUARANTEES} + 0, '10.00' + 0, "Patron cannot check out item due to debt for guarantee" );
87		87
88	-

Return to bug 23049

Lines 447-453 $debit_type can be any of: Link Here

(-)a/Koha/Account.pm (-3 / +3 lines)
447	- ACCOUNT	447	- ACCOUNT
448	- ACCOUNT_RENEW	448	- ACCOUNT_RENEW
449	- RESERVE_EXPIRED	449	- RESERVE_EXPIRED
450	- lost_item	450	- LOST
451	- sundry	451	- sundry
452	- new_card	452	- new_card
453	- overdue	453	- overdue
Lines 713-719 our $offset_type = { Link Here
713	'ACCOUNT_RENEW' => 'Account Fee',	713	'ACCOUNT_RENEW' => 'Account Fee',
714	'RESERVE' => 'Reserve Fee',	714	'RESERVE' => 'Reserve Fee',
715	'PROCESSING' => 'Processing Fee',	715	'PROCESSING' => 'Processing Fee',
716	'lost_item' => 'Lost Item',	716	'LOST' => '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',
Lines 743-749 our $account_type_debit = { Link Here
743	'ACCOUNT' => 'ACCOUNT',	743	'ACCOUNT' => 'ACCOUNT',
744	'ACCOUNT_RENEW' => 'ACCOUNT_RENEW',	744	'ACCOUNT_RENEW' => 'ACCOUNT_RENEW',
745	'RESERVE_EXPIRED' => 'RESERVE_EXPIRED',	745	'RESERVE_EXPIRED' => 'RESERVE_EXPIRED',
746	'lost_item' => 'LOST',	746	'LOST_ITEM' => 'LOST',
747	'sundry' => 'M',	747	'sundry' => 'M',
748	'new_card' => 'N',	748	'new_card' => 'N',
749	'overdue' => 'OVERDUE',	749	'overdue' => 'OVERDUE',