Lines 106-112
my @test_data = (
Link Here
|
106 |
{ amount => -5 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed after threshold day' , delete => 0 } |
106 |
{ amount => -5 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed after threshold day' , delete => 0 } |
107 |
); |
107 |
); |
108 |
|
108 |
|
109 |
my $borrower = Koha::Patron->new( { firstname => 'Test', surname => 'Patron', categorycode => 'PT', branchcode => 'MPL' } )->store(); |
109 |
my $borrower = Koha::Patron->new( { firstname => 'Test', surname => 'Patron', categorycode => 'PT', branchcode => $branchcode } )->store(); |
110 |
|
110 |
|
111 |
for my $data ( @test_data ) { |
111 |
for my $data ( @test_data ) { |
112 |
$sth->execute($borrower->borrowernumber, $data->{amount}, $data->{days_ago}, $data->{description}); |
112 |
$sth->execute($borrower->borrowernumber, $data->{amount}, $data->{days_ago}, $data->{description}); |
113 |
- |
|
|