Attachment #28295 for bug #12230

View | Details | Raw Unified | Return to bug 12230
Collapse All | Expand All




        # grace period is measured in the same units as the loan
        my $grace =
          DateTime::Duration->new( $unit => $issuingrule->{firstremind} );

        if ( $deltadays->subtract($grace)->is_positive() ) {
            my $suspension_days = $deltadays * $finedays;

            # If the max suspension days is < than the suspension days
            # the suspension days is limited to this maximum period.
            my $max_sd = $issuingrule->{maxsuspensiondays};
            if ( defined $max_sd ) {
                $max_sd = DateTime::Duration->new( days => $max_sd );
                $suspension_days = $max_sd
                  if DateTime::Duration->compare( $max_sd, $suspension_days ) < 0;
            }

            my $new_debar_dt =
              $dt_today->clone()->add_duration( $suspension_days );

            Koha::Borrower::Debarments::AddUniqueDebarment({
                borrowernumber => $borrower->{borrowernumber},




# save the values entered
elsif ($op eq 'add') {
    my $sth_search = $dbh->prepare('SELECT COUNT(*) AS total FROM issuingrules WHERE branchcode=? AND categorycode=? AND itemtype=?');
    my $sth_insert = $dbh->prepare('INSERT INTO issuingrules (branchcode, categorycode, itemtype, maxissueqty, renewalsallowed, renewalperiod, norenewalbefore, reservesallowed, issuelength, lengthunit, hardduedate, hardduedatecompare, fine, finedays, maxsuspensiondays, firstremind, chargeperiod,rentaldiscount, overduefinescap) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
    my $sth_update=$dbh->prepare("UPDATE issuingrules SET fine=?, finedays=?, maxsuspensiondays=?, firstremind=?, chargeperiod=?, maxissueqty=?, renewalsallowed=?, renewalperiod=?, norenewalbefore=?, reservesallowed=?, issuelength=?, lengthunit = ?, hardduedate=?, hardduedatecompare=?, rentaldiscount=?, overduefinescap=?  WHERE branchcode=? AND categorycode=? AND itemtype=?");
    
    my $br = $branch; # branch
    my $bor  = $input->param('categorycode'); # borrower category
    my $cat  = $input->param('itemtype');     # item type
    my $fine = $input->param('fine');
    my $finedays     = $input->param('finedays');
    my $maxsuspensiondays = $input->param('maxsuspensiondays');
    my $firstremind  = $input->param('firstremind');
    my $chargeperiod = $input->param('chargeperiod');
    my $maxissueqty  = $input->param('maxissueqty');

    $sth_search->execute($br,$bor,$cat);
    my $res = $sth_search->fetchrow_hashref();
    if ($res->{total}) {
        $sth_update->execute($fine, $finedays, $maxsuspensiondays, $firstremind, $chargeperiod, $maxissueqty, $renewalsallowed, $renewalperiod, $norenewalbefore, $reservesallowed, $issuelength,$lengthunit, $hardduedate,$hardduedatecompare,$rentaldiscount,$overduefinescap, $br,$bor,$cat);
    } else {
        $sth_insert->execute($br,$bor,$cat,$maxissueqty,$renewalsallowed, $renewalperiod, $norenewalbefore, $reservesallowed,$issuelength,$lengthunit,$hardduedate,$hardduedatecompare,$fine,$finedays, $maxsuspensiondays, $firstremind,$chargeperiod,$rentaldiscount,$overduefinescap);
    }
} 
elsif ($op eq "set-branch-defaults") {




                <th>Fine grace period (day)</th>
                <th>Overdue fines cap (amount)</th>
                <th>Suspension in days (day)</th>
                <th>Max. suspension duration (day)</th>
                <th>Renewals allowed (count)</th>
                <th>Renewal period</th>
                <th>No renewal before</th>

							<td>[% rule.firstremind %]</td>
                            <td>[% rule.overduefinescap FILTER format("%.2f") %]</td>
							<td>[% rule.finedays %]</td>
                            <td>[% rule.maxsuspensiondays %]</td>
							<td>[% rule.renewalsallowed %]</td>
                            <td>[% rule.renewalperiod %]</td>
                            <td>[% rule.norenewalbefore %]</td>

                    <td><input type="text" name="firstremind" id="firstremind" size="2" /> </td>
                    <td><input type="text" name="overduefinescap" id="overduefinescap" size="6" /> </td>
                    <td><input type="text" name="finedays" id="fined" size="3" /> </td>
                    <td><input type="text" name="maxsuspensiondays" id="maxsuspensiondays" size="3" /> </td>
                    <td><input type="text" name="renewalsallowed" id="renewalsallowed" size="2" /></td>
                    <td><input type="text" name="renewalperiod" id="renewalperiod" size="3" /></td>
                    <td><input type="text" name="norenewalbefore" id="norenewalbefore" size="3" /></td>




use Modern::Perl;
use Test::More tests => 2;

use MARC::Record;
use MARC::Field;
use Test::MockModule;
use C4::Context;

use C4::Biblio qw( AddBiblio );
use C4::Circulation qw( AddIssue AddReturn );
use C4::Items qw( AddItem );
use C4::Members qw( AddMember GetMember );
use Koha::DateUtils;
use Koha::Borrower::Debarments qw( GetDebarments DelDebarment );
my $dbh = C4::Context->dbh;
$dbh->{RaiseError} = 1;
$dbh->{AutoCommit} = 0;

my $branchcode = 'CPL';
local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
my $userenv->{branch} = $branchcode;
*C4::Context::userenv = \&Mock_userenv;

my $circulation_module = Test::MockModule->new('C4::Circulation');

# Test without maxsuspensiondays set
$circulation_module->mock('GetIssuingRule', sub {
        return {
            firstremind => 0,
            finedays => 2,
            lengthunit => 'days',
        }
});

my $borrowernumber = AddMember(
    firstname =>  'my firstname',
    surname => 'my surname',
    categorycode => 'S',
    branchcode => $branchcode,
);
my $borrower = GetMember( borrowernumber => $borrowernumber );

my $record = MARC::Record->new();
$record->append_fields(
    MARC::Field->new('100', ' ', ' ', a => 'My author'),
    MARC::Field->new('245', ' ', ' ', a => 'My title'),
);

my $barcode = 'bc_maxsuspensiondays';
my ($biblionumber, $biblioitemnumber) = AddBiblio($record, '');
my (undef, undef, $itemnumber) = AddItem({
        homebranch => $branchcode,
        holdingbranch => $branchcode,
        barcode => $barcode,
    } , $biblionumber);


my $daysago20 = dt_from_string->add_duration(DateTime::Duration->new(days => -20));
my $daysafter40 = dt_from_string->add_duration(DateTime::Duration->new(days => 40));

AddIssue( $borrower, $barcode, $daysago20 );
AddReturn( $barcode, $branchcode );
my $debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}});
is( $debarments->[0]->{expiration}, output_pref({ dt => $daysafter40, dateformat => 'iso', dateonly => 1 }));
DelDebarment( $debarments->[0]->{borrower_debarment_id} );

# Test with maxsuspensiondays = 10 days
$circulation_module->mock('GetIssuingRule', sub {
        return {
            firstremind => 0,
            finedays => 2,
            maxsuspensiondays => 10,
            lengthunit => 'days',
        }
});
my $daysafter10 = dt_from_string->add_duration(DateTime::Duration->new(days => 10));
AddIssue( $borrower, $barcode, $daysago20 );
AddReturn( $barcode, $branchcode );
$debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}});
is( $debarments->[0]->{expiration}, output_pref({ dt => $daysafter10, dateformat => 'iso', dateonly => 1 }));
DelDebarment( $debarments->[0]->{borrower_debarment_id} );


# C4::Context->userenv
sub Mock_userenv {
    return $userenv;
}

Return to bug 12230

Lines 2085-2094 sub _debar_user_on_return { Link Here

(-)a/C4/Circulation.pm (-1 / +12 lines)
2085	# grace period is measured in the same units as the loan	2085	# grace period is measured in the same units as the loan
2086	my $grace =	2086	my $grace =
2087	DateTime::Duration->new( $unit => $issuingrule->{firstremind} );	2087	DateTime::Duration->new( $unit => $issuingrule->{firstremind} );
		2088
2088	if ( $deltadays->subtract($grace)->is_positive() ) {	2089	if ( $deltadays->subtract($grace)->is_positive() ) {
		2090	my $suspension_days = $deltadays * $finedays;
		2091
		2092	# If the max suspension days is < than the suspension days
		2093	# the suspension days is limited to this maximum period.
		2094	my $max_sd = $issuingrule->{maxsuspensiondays};
		2095	if ( defined $max_sd ) {
		2096	$max_sd = DateTime::Duration->new( days => $max_sd );
		2097	$suspension_days = $max_sd
		2098	if DateTime::Duration->compare( $max_sd, $suspension_days ) < 0;
		2099	}
2089		2100
2090	my $new_debar_dt =	2101	my $new_debar_dt =
2091	$dt_today->clone()->add_duration( $deltadays * $finedays );	2102	$dt_today->clone()->add_duration( $suspension_days );
2092		2103
2093	Koha::Borrower::Debarments::AddUniqueDebarment({	2104	Koha::Borrower::Debarments::AddUniqueDebarment({
2094	borrowernumber => $borrower->{borrowernumber},	2105	borrowernumber => $borrower->{borrowernumber},

Lines 101-114 elsif ($op eq 'delete-branch-item') { Link Here

(-)a/admin/smart-rules.pl (-4 / +5 lines)
101	# save the values entered	101	# save the values entered
102	elsif ($op eq 'add') {	102	elsif ($op eq 'add') {
103	my $sth_search = $dbh->prepare('SELECT COUNT(*) AS total FROM issuingrules WHERE branchcode=? AND categorycode=? AND itemtype=?');	103	my $sth_search = $dbh->prepare('SELECT COUNT(*) AS total FROM issuingrules WHERE branchcode=? AND categorycode=? AND itemtype=?');
104	my $sth_insert = $dbh->prepare('INSERT INTO issuingrules (branchcode, categorycode, itemtype, maxissueqty, renewalsallowed, renewalperiod, norenewalbefore, reservesallowed, issuelength, lengthunit, hardduedate, hardduedatecompare, fine, finedays, firstremind, chargeperiod,rentaldiscount, overduefinescap) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');	104	my $sth_insert = $dbh->prepare('INSERT INTO issuingrules (branchcode, categorycode, itemtype, maxissueqty, renewalsallowed, renewalperiod, norenewalbefore, reservesallowed, issuelength, lengthunit, hardduedate, hardduedatecompare, fine, finedays, maxsuspensiondays, firstremind, chargeperiod,rentaldiscount, overduefinescap) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
105	my $sth_update=$dbh->prepare("UPDATE issuingrules SET fine=?, finedays=?, firstremind=?, chargeperiod=?, maxissueqty=?, renewalsallowed=?, renewalperiod=?, norenewalbefore=?, reservesallowed=?, issuelength=?, lengthunit = ?, hardduedate=?, hardduedatecompare=?, rentaldiscount=?, overduefinescap=? WHERE branchcode=? AND categorycode=? AND itemtype=?");	105	my $sth_update=$dbh->prepare("UPDATE issuingrules SET fine=?, finedays=?, maxsuspensiondays=?, firstremind=?, chargeperiod=?, maxissueqty=?, renewalsallowed=?, renewalperiod=?, norenewalbefore=?, reservesallowed=?, issuelength=?, lengthunit = ?, hardduedate=?, hardduedatecompare=?, rentaldiscount=?, overduefinescap=? WHERE branchcode=? AND categorycode=? AND itemtype=?");
106		106
107	my $br = $branch; # branch	107	my $br = $branch; # branch
108	my $bor = $input->param('categorycode'); # borrower category	108	my $bor = $input->param('categorycode'); # borrower category
109	my $cat = $input->param('itemtype'); # item type	109	my $cat = $input->param('itemtype'); # item type
110	my $fine = $input->param('fine');	110	my $fine = $input->param('fine');
111	my $finedays = $input->param('finedays');	111	my $finedays = $input->param('finedays');
		112	my $maxsuspensiondays = $input->param('maxsuspensiondays');
112	my $firstremind = $input->param('firstremind');	113	my $firstremind = $input->param('firstremind');
113	my $chargeperiod = $input->param('chargeperiod');	114	my $chargeperiod = $input->param('chargeperiod');
114	my $maxissueqty = $input->param('maxissueqty');	115	my $maxissueqty = $input->param('maxissueqty');
Lines 131-139 elsif ($op eq 'add') { Link Here
131	$sth_search->execute($br,$bor,$cat);	132	$sth_search->execute($br,$bor,$cat);
132	my $res = $sth_search->fetchrow_hashref();	133	my $res = $sth_search->fetchrow_hashref();
133	if ($res->{total}) {	134	if ($res->{total}) {
134	$sth_update->execute($fine, $finedays,$firstremind, $chargeperiod, $maxissueqty, $renewalsallowed, $renewalperiod, $norenewalbefore, $reservesallowed, $issuelength,$lengthunit, $hardduedate,$hardduedatecompare,$rentaldiscount,$overduefinescap, $br,$bor,$cat);	135	$sth_update->execute($fine, $finedays, $maxsuspensiondays, $firstremind, $chargeperiod, $maxissueqty, $renewalsallowed, $renewalperiod, $norenewalbefore, $reservesallowed, $issuelength,$lengthunit, $hardduedate,$hardduedatecompare,$rentaldiscount,$overduefinescap, $br,$bor,$cat);
135	} else {	136	} else {
136	$sth_insert->execute($br,$bor,$cat,$maxissueqty,$renewalsallowed, $renewalperiod, $norenewalbefore, $reservesallowed,$issuelength,$lengthunit,$hardduedate,$hardduedatecompare,$fine,$finedays,$firstremind,$chargeperiod,$rentaldiscount,$overduefinescap);	137	$sth_insert->execute($br,$bor,$cat,$maxissueqty,$renewalsallowed, $renewalperiod, $norenewalbefore, $reservesallowed,$issuelength,$lengthunit,$hardduedate,$hardduedatecompare,$fine,$finedays, $maxsuspensiondays, $firstremind,$chargeperiod,$rentaldiscount,$overduefinescap);
137	}	138	}
138	}	139	}
139	elsif ($op eq "set-branch-defaults") {	140	elsif ($op eq "set-branch-defaults") {

Lines 148-153 for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt (+3 lines)
148	<th>Fine grace period (day)</th>	148	<th>Fine grace period (day)</th>
149	<th>Overdue fines cap (amount)</th>	149	<th>Overdue fines cap (amount)</th>
150	<th>Suspension in days (day)</th>	150	<th>Suspension in days (day)</th>
		151	<th>Max. suspension duration (day)</th>
151	<th>Renewals allowed (count)</th>	152	<th>Renewals allowed (count)</th>
152	<th>Renewal period</th>	153	<th>Renewal period</th>
153	<th>No renewal before</th>	154	<th>No renewal before</th>
Lines 206-211 for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde Link Here
206	<td>[% rule.firstremind %]</td>	207	<td>[% rule.firstremind %]</td>
207	<td>[% rule.overduefinescap FILTER format("%.2f") %]</td>	208	<td>[% rule.overduefinescap FILTER format("%.2f") %]</td>
208	<td>[% rule.finedays %]</td>	209	<td>[% rule.finedays %]</td>
		210	<td>[% rule.maxsuspensiondays %]</td>
209	<td>[% rule.renewalsallowed %]</td>	211	<td>[% rule.renewalsallowed %]</td>
210	<td>[% rule.renewalperiod %]</td>	212	<td>[% rule.renewalperiod %]</td>
211	<td>[% rule.norenewalbefore %]</td>	213	<td>[% rule.norenewalbefore %]</td>
Lines 256-261 for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde Link Here
256	<td><input type="text" name="firstremind" id="firstremind" size="2" /> </td>	258	<td><input type="text" name="firstremind" id="firstremind" size="2" /> </td>
257	<td><input type="text" name="overduefinescap" id="overduefinescap" size="6" /> </td>	259	<td><input type="text" name="overduefinescap" id="overduefinescap" size="6" /> </td>
258	<td><input type="text" name="finedays" id="fined" size="3" /> </td>	260	<td><input type="text" name="finedays" id="fined" size="3" /> </td>
		261	<td><input type="text" name="maxsuspensiondays" id="maxsuspensiondays" size="3" /> </td>
259	<td><input type="text" name="renewalsallowed" id="renewalsallowed" size="2" /></td>	262	<td><input type="text" name="renewalsallowed" id="renewalsallowed" size="2" /></td>
260	<td><input type="text" name="renewalperiod" id="renewalperiod" size="3" /></td>	263	<td><input type="text" name="renewalperiod" id="renewalperiod" size="3" /></td>
261	<td><input type="text" name="norenewalbefore" id="norenewalbefore" size="3" /></td>	264	<td><input type="text" name="norenewalbefore" id="norenewalbefore" size="3" /></td>

Line 0 Link Here

(-)a/t/db_dependent/Circulation/IssuingRules/maxsuspensiondays.t (-1 / +87 lines)
0	-	1	use Modern::Perl;
		2	use Test::More tests => 2;
		3
		4	use MARC::Record;
		5	use MARC::Field;
		6	use Test::MockModule;
		7	use C4::Context;
		8
		9	use C4::Biblio qw( AddBiblio );
		10	use C4::Circulation qw( AddIssue AddReturn );
		11	use C4::Items qw( AddItem );
		12	use C4::Members qw( AddMember GetMember );
		13	use Koha::DateUtils;
		14	use Koha::Borrower::Debarments qw( GetDebarments DelDebarment );
		15	my $dbh = C4::Context->dbh;
		16	$dbh->{RaiseError} = 1;
		17	$dbh->{AutoCommit} = 0;
		18
		19	my $branchcode = 'CPL';
		20	local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
		21	my $userenv->{branch} = $branchcode;
		22	*C4::Context::userenv = \&Mock_userenv;
		23
		24	my $circulation_module = Test::MockModule->new('C4::Circulation');
		25
		26	# Test without maxsuspensiondays set
		27	$circulation_module->mock('GetIssuingRule', sub {
		28	return {
		29	firstremind => 0,
		30	finedays => 2,
		31	lengthunit => 'days',
		32	}
		33	});
		34
		35	my $borrowernumber = AddMember(
		36	firstname => 'my firstname',
		37	surname => 'my surname',
		38	categorycode => 'S',
		39	branchcode => $branchcode,
		40	);
		41	my $borrower = GetMember( borrowernumber => $borrowernumber );
		42
		43	my $record = MARC::Record->new();
		44	$record->append_fields(
		45	MARC::Field->new('100', ' ', ' ', a => 'My author'),
		46	MARC::Field->new('245', ' ', ' ', a => 'My title'),
		47	);
		48
		49	my $barcode = 'bc_maxsuspensiondays';
		50	my ($biblionumber, $biblioitemnumber) = AddBiblio($record, '');
		51	my (undef, undef, $itemnumber) = AddItem({
		52	homebranch => $branchcode,
		53	holdingbranch => $branchcode,
		54	barcode => $barcode,
		55	} , $biblionumber);
		56
		57
		58	my $daysago20 = dt_from_string->add_duration(DateTime::Duration->new(days => -20));
		59	my $daysafter40 = dt_from_string->add_duration(DateTime::Duration->new(days => 40));
		60
		61	AddIssue( $borrower, $barcode, $daysago20 );
		62	AddReturn( $barcode, $branchcode );
		63	my $debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}});
		64	is( $debarments->[0]->{expiration}, output_pref({ dt => $daysafter40, dateformat => 'iso', dateonly => 1 }));
		65	DelDebarment( $debarments->[0]->{borrower_debarment_id} );
66
67	# Test with maxsuspensiondays = 10 days
68	$circulation_module->mock('GetIssuingRule', sub {
69	return {
70	firstremind => 0,
71	finedays => 2,
72	maxsuspensiondays => 10,
73	lengthunit => 'days',
74	}
75	});
76	my $daysafter10 = dt_from_string->add_duration(DateTime::Duration->new(days => 10));
77	AddIssue( $borrower, $barcode, $daysago20 );
78	AddReturn( $barcode, $branchcode );
79	$debarments = GetDebarments({borrowernumber => $borrower->{borrowernumber}});
80	is( $debarments->[0]->{expiration}, output_pref({ dt => $daysafter10, dateformat => 'iso', dateonly => 1 }));
81	DelDebarment( $debarments->[0]->{borrower_debarment_id} );
82
83
84	# C4::Context->userenv
85	sub Mock_userenv {
86	return $userenv;
87	}