|
Lines 694-729
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
| 694 |
} |
694 |
} |
| 695 |
); |
695 |
); |
| 696 |
|
696 |
|
|
|
697 |
my $renewing_borrower_obj = Koha::Patrons->find( $renewing_borrowernumber ); |
| 698 |
my $item_to_auto_renew_obj = Koha::Items->find( $item_to_auto_renew->{itemnumber} ); |
| 699 |
|
| 697 |
my $ten_days_before = dt_from_string->add( days => -10 ); |
700 |
my $ten_days_before = dt_from_string->add( days => -10 ); |
| 698 |
my $ten_days_ahead = dt_from_string->add( days => 10 ); |
701 |
my $ten_days_ahead = dt_from_string->add( days => 10 ); |
| 699 |
my $issue = AddIssue( $renewing_borrower, $item_to_auto_renew->{barcode}, $ten_days_ahead, undef, $ten_days_before, undef, { auto_renew => 1 } ); |
702 |
my $issue = AddIssue( $renewing_borrower, $item_to_auto_renew_obj->barcode, $ten_days_ahead, undef, $ten_days_before, undef, { auto_renew => 1 } ); |
| 700 |
$issue->result_class('DBIx::Class::ResultClass::HashRefInflator'); |
703 |
$issue = Koha::Checkouts->find( $issue->issue_id ); |
| 701 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 7, no_auto_renewal_after = "", no_auto_renewal_after_hard_limit = NULL'); |
704 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 7, no_auto_renewal_after = "", no_auto_renewal_after_hard_limit = NULL'); |
| 702 |
my $latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower, item => $item_to_auto_renew, issue => { issuedate => $issue->issuedate }, } ); |
705 |
my $latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower_obj, item => $item_to_auto_renew_obj, checkout => $issue, } ); |
| 703 |
is( $latest_auto_renew_date, undef, 'GetLatestAutoRenewDate should return undef if no_auto_renewal_after or no_auto_renewal_after_hard_limit are not defined' ); |
706 |
is( $latest_auto_renew_date, undef, 'GetLatestAutoRenewDate should return undef if no_auto_renewal_after or no_auto_renewal_after_hard_limit are not defined' ); |
| 704 |
my $five_days_before = dt_from_string->add( days => -5 ); |
707 |
my $five_days_before = dt_from_string->add( days => -5 ); |
| 705 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = 5, no_auto_renewal_after_hard_limit = NULL'); |
708 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = 5, no_auto_renewal_after_hard_limit = NULL'); |
| 706 |
$latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower, item => $item_to_auto_renew, issue => { issuedate => $issue->issuedate }, } ); |
709 |
$latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower_obj, item => $item_to_auto_renew_obj, checkout => $issue }, ); |
| 707 |
is( $latest_auto_renew_date->truncate( to => 'minute' ), |
710 |
is( $latest_auto_renew_date->truncate( to => 'minute' ), |
| 708 |
$five_days_before->truncate( to => 'minute' ), |
711 |
$five_days_before->truncate( to => 'minute' ), |
| 709 |
'GetLatestAutoRenewDate should return -5 days if no_auto_renewal_after = 5 and date_due is 10 days before' |
712 |
'GetLatestAutoRenewDate should return -5 days if no_auto_renewal_after = 5 and date_due is 10 days before' |
| 710 |
); |
713 |
); |
| 711 |
my $five_days_ahead = dt_from_string->add( days => 5 ); |
714 |
my $five_days_ahead = dt_from_string->add( days => 5 ); |
| 712 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = 15, no_auto_renewal_after_hard_limit = NULL'); |
715 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = 15, no_auto_renewal_after_hard_limit = NULL'); |
| 713 |
$latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower, item => $item_to_auto_renew, issue => { issuedate => $issue->issuedate }, } ); |
716 |
$latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower_obj, item => $item_to_auto_renew_obj, checkout => $issue }, ); |
| 714 |
is( $latest_auto_renew_date->truncate( to => 'minute' ), |
717 |
is( $latest_auto_renew_date->truncate( to => 'minute' ), |
| 715 |
$five_days_ahead->truncate( to => 'minute' ), |
718 |
$five_days_ahead->truncate( to => 'minute' ), |
| 716 |
'GetLatestAutoRenewDate should return +5 days if no_auto_renewal_after = 15 and date_due is 10 days before' |
719 |
'GetLatestAutoRenewDate should return +5 days if no_auto_renewal_after = 15 and date_due is 10 days before' |
| 717 |
); |
720 |
); |
| 718 |
my $two_days_ahead = dt_from_string->add( days => 2 ); |
721 |
my $two_days_ahead = dt_from_string->add( days => 2 ); |
| 719 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = "", no_auto_renewal_after_hard_limit = ?', undef, dt_from_string->add( days => 2 ) ); |
722 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = "", no_auto_renewal_after_hard_limit = ?', undef, dt_from_string->add( days => 2 ) ); |
| 720 |
$latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower, item => $item_to_auto_renew, issue => { issuedate => $issue->issuedate }, } ); |
723 |
$latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower_obj, item => $item_to_auto_renew_obj, checkout => $issue }, ); |
| 721 |
is( $latest_auto_renew_date->truncate( to => 'day' ), |
724 |
is( $latest_auto_renew_date->truncate( to => 'day' ), |
| 722 |
$two_days_ahead->truncate( to => 'day' ), |
725 |
$two_days_ahead->truncate( to => 'day' ), |
| 723 |
'GetLatestAutoRenewDate should return +2 days if no_auto_renewal_after_hard_limit is defined and not no_auto_renewal_after' |
726 |
'GetLatestAutoRenewDate should return +2 days if no_auto_renewal_after_hard_limit is defined and not no_auto_renewal_after' |
| 724 |
); |
727 |
); |
| 725 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = 15, no_auto_renewal_after_hard_limit = ?', undef, dt_from_string->add( days => 2 ) ); |
728 |
$dbh->do('UPDATE issuingrules SET norenewalbefore = 10, no_auto_renewal_after = 15, no_auto_renewal_after_hard_limit = ?', undef, dt_from_string->add( days => 2 ) ); |
| 726 |
$latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower, item => $item_to_auto_renew, issue => { issuedate => $issue->issuedate }, } ); |
729 |
$latest_auto_renew_date = GetLatestAutoRenewDate( { patron => $renewing_borrower_obj, item => $item_to_auto_renew_obj, checkout => $issue }, ); |
| 727 |
is( $latest_auto_renew_date->truncate( to => 'day' ), |
730 |
is( $latest_auto_renew_date->truncate( to => 'day' ), |
| 728 |
$two_days_ahead->truncate( to => 'day' ), |
731 |
$two_days_ahead->truncate( to => 'day' ), |
| 729 |
'GetLatestAutoRenewDate should return +2 days if no_auto_renewal_after_hard_limit is < no_auto_renewal_after' |
732 |
'GetLatestAutoRenewDate should return +2 days if no_auto_renewal_after_hard_limit is < no_auto_renewal_after' |
| 730 |
- |
|
|