8ad00bc02f
Renew an issue for a number of days (filled in the issuing rules). Test if rules work for any i[item]types and if there is no regression. - new column issuingrules.renewalperiod - remove all occurrences of an already removed syspref (globalDueDate) - remove an unused routine (Overdues::GetIssuingRules) How it works: - On existing installations, the issuingrules.renewalperiod = issuingrules.loanlength. So the behaviour is the same before and after this patch. - when you add a rule, you can choose a renewal period (the unit value is the issuingrules.unit). So you can have a renewal period in hours or days. - The default value for the renewal period is 21 days (same as loanlength) Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Test comments on second patch. Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
48 lines
1.3 KiB
Perl
48 lines
1.3 KiB
Perl
package KohaTest::Overdues;
|
|
use base qw( KohaTest );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use C4::Overdues;
|
|
sub testing_class { 'C4::Overdues' };
|
|
|
|
|
|
sub methods : Test( 1 ) {
|
|
my $self = shift;
|
|
my @methods = qw( Getoverdues
|
|
checkoverdues
|
|
CalcFine
|
|
GetSpecialHolidays
|
|
GetRepeatableHolidays
|
|
GetWdayFromItemnumber
|
|
GetIssuesIteminfo
|
|
UpdateFine
|
|
BorType
|
|
ReplacementCost
|
|
GetFine
|
|
ReplacementCost2
|
|
GetNextIdNotify
|
|
NumberNotifyId
|
|
AmountNotify
|
|
UpdateAccountLines
|
|
GetItems
|
|
GetOverdueDelays
|
|
CheckAccountLineLevelInfo
|
|
GetOverduerules
|
|
CheckBorrowerDebarred
|
|
CheckExistantNotifyid
|
|
CheckAccountLineItemInfo
|
|
CheckItemNotify
|
|
GetOverduesForBranch
|
|
AddNotifyLine
|
|
RemoveNotifyLine
|
|
);
|
|
|
|
can_ok( $self->testing_class, @methods );
|
|
}
|
|
|
|
1;
|
|
|