Bugzilla – Attachment 9469 Details for
Bug 7420
Add max fines to circulation matrix
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
patch
0001-bug_7420-Added-overduefinescap-to-issuingrules.patch (text/plain), 13.11 KB, created by
Srdjan Jankovic
on 2012-05-09 03:23:09 UTC
(
hide
)
Description:
patch
Filename:
MIME Type:
Creator:
Srdjan Jankovic
Created:
2012-05-09 03:23:09 UTC
Size:
13.11 KB
patch
obsolete
>From fdad9f0af6500f578c40846c548cc79d7afa8326 Mon Sep 17 00:00:00 2001 >From: Srdjan <srdjan@catalyst.net.nz> >Date: Wed, 9 May 2012 15:20:40 +1200 >Subject: [PATCH] bug_7420: Added overduefinescap to issuingrules > >Replaced existing MaxFine syspref logic with overduefinescap. >Repurposed MaxFine to be the overall overdue limit for all items >overdue. Implemented new MaxFine logic in UpdateFine(). >--- > C4/Overdues.pm | 48 +++++++++++++++----- > admin/smart-rules.pl | 9 ++-- > installer/data/mysql/kohastructure.sql | 1 + > installer/data/mysql/sysprefs.sql | 2 +- > installer/data/mysql/updatedatabase.pl | 15 ++++++ > .../prog/en/modules/admin/preferences/patrons.pref | 3 +- > .../prog/en/modules/admin/smart-rules.tt | 3 ++ > 7 files changed, 63 insertions(+), 18 deletions(-) > >diff --git a/C4/Overdues.pm b/C4/Overdues.pm >index c7430c9..326b2a7 100644 >--- a/C4/Overdues.pm >+++ b/C4/Overdues.pm >@@ -241,8 +241,8 @@ C<$amount> is the fine owed by the patron (see above). > C<$chargename> is the chargename field from the applicable record in > the categoryitem table, whatever that is. > >-C<$daycount> is the number of days between start and end dates, Calendar adjusted (where needed), >-minus any applicable grace period. >+C<$unitcount> is the number of chargeable units (days between start and end dates, Calendar adjusted where needed, >+minus any applicable grace period, or hours) > > FIXME - What is chargename supposed to be ? > >@@ -268,10 +268,9 @@ sub CalcFine { > } else { > # a zero (or null) chargeperiod means no charge. > } >- if(C4::Context->preference('maxFine') && ( $amount > C4::Context->preference('maxFine'))) { >- $amount = C4::Context->preference('maxFine'); >- } >- return ($amount, $data->{chargename}, $units_minus_grace); >+ $amount = $data->{overduefinescap} if $data->{overduefinescap} && $amount > $data->{overduefinescap}; >+ $debug and warn sprintf("CalcFine returning (%s, %s, %s, %s)", $amount, $data->{'chargename'}, $days_minus_grace, $chargeable_units); >+ return ($amount, $data->{'chargename'}, $days_minus_grace, $chargeable_units); > # FIXME: chargename is NEVER populated anywhere. > } > >@@ -521,14 +520,39 @@ sub UpdateFine { > # "REF" is Cash Refund > my $sth = $dbh->prepare( > "SELECT * FROM accountlines >- WHERE itemnumber=? >- AND borrowernumber=? >- AND accounttype IN ('FU','O','F','M') >- AND description like ? " >+ WHERE borrowernumber=? >+ AND accounttype IN ('FU','O','F','M')" > ); >- $sth->execute( $itemnum, $borrowernumber, "%$due%" ); >+ $sth->execute( $borrowernumber ); >+ my $data; >+ my $total_amount_other = 0.00; >+ my $due_qr = qr/$due/; >+ # Cycle through the fines and >+ # - find line that relates to the requested $itemnum >+ # - accumulate fines for other items >+ # so we can update $itemnum fine taking in account fine caps >+ while (my $rec = $sth->fetchrow_hashref) { >+ if ($rec->{itemnumber} == $itemnum && $rec->{description} =~ /$due_qr/) { >+ if ($data) { >+ warn "Not a unique accountlines record for item $itemnum borrower $borrowernumber"; >+ } else { >+ $data = $rec; >+ next; >+ } >+ } >+ $total_amount_other += $rec->{'amount'}; >+ } >+ if (my $maxfine = C4::Context->preference('MaxFine')) { >+ if ($total_amount_other + $amount > $maxfine) { >+ my $new_amount = $maxfine - $total_amount_other; >+ warn "Reducing fine for item $itemnum borrower $borrowernumber from $amount to $new_amount - MaxFine reached"; >+ return if $new_amount <= 0.00; >+ >+ $amount = $new_amount; >+ } >+ } > >- if ( my $data = $sth->fetchrow_hashref ) { >+ if ( $data ) { > > # we're updating an existing fine. Only modify if amount changed > # Note that in the current implementation, you cannot pay against an accruing fine >diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl >index 8e5a2d5..03463b9 100755 >--- a/admin/smart-rules.pl >+++ b/admin/smart-rules.pl >@@ -101,8 +101,8 @@ elsif ($op eq 'delete-branch-item') { > # 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, reservesallowed, issuelength, lengthunit, hardduedate, hardduedatecompare, fine, finedays, firstremind, chargeperiod,rentaldiscount) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'); >- my $sth_update=$dbh->prepare("UPDATE issuingrules SET fine=?, finedays=?, firstremind=?, chargeperiod=?, maxissueqty=?, renewalsallowed=?, reservesallowed=?, issuelength=?, lengthunit = ?, hardduedate=?, hardduedatecompare=?, rentaldiscount=? WHERE branchcode=? AND categorycode=? AND itemtype=?"); >+ my $sth_insert = $dbh->prepare('INSERT INTO issuingrules (branchcode, categorycode, itemtype, maxissueqty, renewalsallowed, reservesallowed, issuelength, lengthunit, hardduedate, hardduedatecompare, fine, finedays, firstremind, chargeperiod,rentaldiscount, overduefinescap) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)'); >+ my $sth_update=$dbh->prepare("UPDATE issuingrules SET fine=?, finedays=?, firstremind=?, chargeperiod=?, maxissueqty=?, renewalsallowed=?, reservesallowed=?, issuelength=?, lengthunit = ?, hardduedate=?, hardduedatecompare=?, rentaldiscount=?, overduefinescap=? WHERE branchcode=? AND categorycode=? AND itemtype=?"); > > my $br = $branch; # branch > my $bor = $input->param('categorycode'); # borrower category >@@ -122,14 +122,15 @@ elsif ($op eq 'add') { > $hardduedate = format_date_in_iso($hardduedate); > my $hardduedatecompare = $input->param('hardduedatecompare'); > my $rentaldiscount = $input->param('rentaldiscount'); >+ my $overduefinescap = $input->param('overduefinescap') || undef; > $debug and warn "Adding $br, $bor, $cat, $fine, $maxissueqty"; > > $sth_search->execute($br,$bor,$cat); > my $res = $sth_search->fetchrow_hashref(); > if ($res->{total}) { >- $sth_update->execute($fine, $finedays,$firstremind, $chargeperiod, $maxissueqty, $renewalsallowed,$reservesallowed, $issuelength,$lengthunit, $hardduedate,$hardduedatecompare,$rentaldiscount, $br,$bor,$cat); >+ $sth_update->execute($fine, $finedays,$firstremind, $chargeperiod, $maxissueqty, $renewalsallowed,$reservesallowed, $issuelength,$lengthunit, $hardduedate,$hardduedatecompare,$rentaldiscount,$overduefinescap, $br,$bor,$cat); > } else { >- $sth_insert->execute($br,$bor,$cat,$maxissueqty,$renewalsallowed,$reservesallowed,$issuelength,$lengthunit,$hardduedate,$hardduedatecompare,$fine,$finedays,$firstremind,$chargeperiod,$rentaldiscount); >+ $sth_insert->execute($br,$bor,$cat,$maxissueqty,$renewalsallowed,$reservesallowed,$issuelength,$lengthunit,$hardduedate,$hardduedatecompare,$fine,$finedays,$firstremind,$chargeperiod,$rentaldiscount,$overduefinescap); > } > } > elsif ($op eq "set-branch-defaults") { >diff --git a/installer/data/mysql/kohastructure.sql b/installer/data/mysql/kohastructure.sql >index 488a4f0..51fb414 100644 >--- a/installer/data/mysql/kohastructure.sql >+++ b/installer/data/mysql/kohastructure.sql >@@ -996,6 +996,7 @@ CREATE TABLE `issuingrules` ( > `renewalsallowed` smallint(6) NOT NULL default "0", > `reservesallowed` smallint(6) NOT NULL default "0", > `branchcode` varchar(10) NOT NULL default '', >+ overduefinescap decimal default NULL, > PRIMARY KEY (`branchcode`,`categorycode`,`itemtype`), > KEY `categorycode` (`categorycode`), > KEY `itemtype` (`itemtype`) >diff --git a/installer/data/mysql/sysprefs.sql b/installer/data/mysql/sysprefs.sql >index 49debd2..58e5170 100644 >--- a/installer/data/mysql/sysprefs.sql >+++ b/installer/data/mysql/sysprefs.sql >@@ -62,7 +62,7 @@ INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES > -- this is selected by the web installer now > -- INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('marcflavour','MARC21','Define global MARC flavor (MARC21 or UNIMARC) used for character encoding','MARC21|UNIMARC','Choice'); > INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('MARCOrgCode','OSt','Define MARC Organization Code - http://www.loc.gov/marc/organizations/orgshome.html','','free'); >-INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('MaxFine',9999,'Maximum fine a patron can have for a single late return','','Integer'); >+INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('MaxFine',NULL,'Maximum fine a patron can have for all late returns at one moment. Single item caps are specified in the circulation rules matrix.','','Integer'); > INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxoutstanding',5,'maximum amount withstanding to be able make holds','','Integer'); > INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxreserves',50,'Define maximum number of holds a patron can place','','Integer'); > INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('maxItemsInSearchResults',20,'Specify the maximum number of items to display for each result on a page of results',NULL,'free'); >diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl >index 2f66e79..3b08682 100755 >--- a/installer/data/mysql/updatedatabase.pl >+++ b/installer/data/mysql/updatedatabase.pl >@@ -5219,6 +5219,21 @@ if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { > SetVersion($DBversion); > } > >+ >+ >+$DBversion = '3.07.00.XXX'; >+if (C4::Context->preference("Version") < TransformToNum($DBversion)) { >+ $dbh->do("ALTER TABLE issuingrules ADD overduefinescap decimal DEFAULT NULL"); >+ my $maxfine = C4::Context->preference('MaxFine'); >+ if ($maxfine && $maxfine < 900) { # an arbitrary value that tells us it's not "some huge value" >+ $dbh->do("UPDATE issuingrules SET overduefinescap=?",undef,$maxfine); >+ $dbh->do("UPDATE systempreferences SET value = NULL WHERE variable = 'MaxFine'"); >+ } >+ $dbh->do("UPDATE systempreferences SET explanation = 'Maximum fine a patron can have for all late returns at one moment. Single item caps are specified in the circulation rules matrix.' WHERE variable = 'MaxFine'"); >+ print "Upgrade to $DBversion done (Bug 7420 add overduefinescap to circulation matrix)\n"; >+ SetVersion ($DBversion); >+} >+ > =head1 FUNCTIONS > > =head2 TableExists($table) >diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref >index 55b4457..5600874 100644 >--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref >+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref >@@ -74,10 +74,11 @@ Patrons: > no: "Don't allow" > - "staff to access a patron's checkout history (it is stored regardless)." > - >- - The late fine for a specific checkout will only go up to >+ - The late fine for all checkouts will only go up to > - pref: MaxFine > class: currency > - '[% local_currency %].' >+ - Empty value means no limit. Single item caps are specified in the circulation rules matrix. > - > - pref: memberofinstitution > choices: >diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt >index 635051f..dd77946 100644 >--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt >+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt >@@ -78,6 +78,7 @@ for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde > <th>Fine amount</th> > <th>Fine charging interval</th> > <th>Fine grace period (day)</th> >+ <th>Overdue Fines Cap ($)</th> > <th>Suspension in days (day)</th> > <th>Renewals allowed (count)</th> > <th>Holds allowed (count)</th> >@@ -122,6 +123,7 @@ for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde > <td>[% rule.fine %]</td> > <td>[% rule.chargeperiod %]</td> > <td>[% rule.firstremind %]</td> >+ <td>[% rule.overduefinescap FILTER format("%.2f") %]</td> > <td>[% rule.finedays %]</td> > <td>[% rule.renewalsallowed %]</td> > <td>[% rule.reservesallowed %]</td> >@@ -182,6 +184,7 @@ for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde > <td><input name="fine" size="4" /></td> > <td><input name="chargeperiod" size="2" /></td> > <td><input name="firstremind" size="2" /> </td> >+ <td><input name="overduefinescap" size="6" /> </td> > <td><input name="finedays" size="3" /> </td> > <td><input name="renewalsallowed" size="2" /></td> > <td><input name="reservesallowed" size="2" /></td> >-- >1.7.9.5 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 7420
:
7106
|
7287
|
7487
|
7489
|
7491
|
7782
|
8327
|
8748
|
8749
|
9469
|
9853
|
10772
|
11083