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 |
- |
|
|