of Z39.50 searches
--fees DAYS purge entries accountlines older than DAYS days, where
amountoutstanding is 0 or NULL.
+ In the case of --feees, DAYS must be greater than
+ or equal to 1.
WARNING: Fees and payments may not be deleted together.
This will not affect the account balance but may be
confusing to staff.
exit $_[0];
}
-my (
- $help,
- $sessions,
- $sess_days,
- $verbose,
- $zebraqueue_days,
- $mail,
- $purge_merged,
- $pImport,
- $pLogs,
- $pSearchhistory,
- $pZ3950,
- $pListShareInvites,
- $pDebarments,
- $allDebarments,
- $pExpSelfReg,
- $pUnvSelfReg,
- $fees_days
- $help, $sessions, $sess_days, $verbose, $zebraqueue_days,
- $mail, $purge_merged, $pImport, $pLogs, $pSearchhistory,
- $pZ3950, $pListShareInvites, $pDebarments, $allDebarments,
-);
+my $help;
+my $sessions;
+my $sess_days;
+my $verbose;
+my $zebraqueue_days;
+my $mail;
+my $purge_merged;
+my $pImport;
+my $pLogs;
+my $pSearchhistory;
+my $pZ3950;
+my $pListShareInvites;
+my $pDebarments;
+my $allDebarments;
+my $pExpSelfReg;
+my $pUnvSelfReg;
+my $fees_days;
GetOptions(
'h|help' => \$help,
# 1 => yesterday
# etc.
-$sth = $dbh->prepare(
+my $sth = $dbh->prepare(
"INSERT INTO accountlines (
borrowernumber,
amountoutstanding,
{ amount => 0 , days_ago => $days , description =>'purge_zero_balance_fees should not delete 0 balance fees with date on threshold day' , delete => 0 } ,
{ amount => 0 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should delete 0 balance fees with date after threshold day' , delete => 1 } ,
{ amount => undef , days_ago => $days + 1 , description =>'purge_zero_balance_fees should delete NULL balance fees with date after threshold day' , delete => 1 } ,
- { amount => 5 , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with postive amout owed before threshold day' , delete => 0 } ,
- { amount => 5 , days_ago => $days , description =>'purge_zero_balance_fees should not delete fees with postive amout owed on threshold day' , delete => 0 } ,
- { amount => 5 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with postive amout owed after threshold day' , delete => 0 } ,
+ { amount => 5 , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with positive amout owed before threshold day' , delete => 0 } ,
+ { amount => 5 , days_ago => $days , description =>'purge_zero_balance_fees should not delete fees with positive amout owed on threshold day' , delete => 0 } ,
+ { amount => 5 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with positive amout owed after threshold day' , delete => 0 } ,
{ amount => -5 , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed before threshold day' , delete => 0 } ,
{ amount => -5 , days_ago => $days , description =>'purge_zero_balance_fees should not delete fees with negative amout owed on threshold day' , delete => 0 } ,
{ amount => -5 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed after threshold day' , delete => 0 }
);
-for my $data ( @test_data ) {
+my $borrower = Koha::Borrower->new( { firstname => 'Test', surname => 'Patron', categorycode => 'PT', branchcode => 'MPL' } )->store();
+
+for my $data ( @test_data ) {
$sth->execute($borrower->borrowernumber, $data->{amount}, $data->{days_ago}, $data->{description});
}
is_delete_correct( $data->{delete}, $data->{description});
}
+$dbh->do(q|DELETE FROM accountlines|);
+
subtest "recordpayment() tests" => sub {
plan tests => 10;