@@ -, +, @@ don't have in his possession - QA Followup --- C4/Circulation.pm | 1 + installer/data/mysql/updatedatabase.pl | 15 +++++++-------- .../prog/en/modules/admin/preferences/circulation.pref | 2 +- reserve/request.pl | 2 ++ 4 files changed, 11 insertions(+), 9 deletions(-) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -83,6 +83,7 @@ BEGIN { &GetBiblioIssues &GetOpenIssue &AnonymiseIssueHistory + &CheckIfIssuedToPatron ); # subs to deal with returns --- a/installer/data/mysql/updatedatabase.pl +++ a/installer/data/mysql/updatedatabase.pl @@ -6111,14 +6111,6 @@ if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { print "Upgrade to $DBversion done (Bug 8782: Add field subscription.closed)\n"; SetVersion($DBversion); } -$DBversion = "XXX"; -if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { - $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldsOnPatronsPossessions', '1', 'Allow holds on records that patron have items of it',NULL,'YesNo')" - print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n"; - SetVersion($DBversion); -} - - $DBversion = "3.11.00.005"; if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { @@ -6317,6 +6309,13 @@ if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { SetVersion($DBversion); } +$DBversion = "3.11.00.XXX"; +if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { + $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AllowHoldsOnPatronsPossessions', '1', 'Allow holds on records that patron have items of it',NULL,'YesNo')"); + print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n"; + SetVersion($DBversion); +} + =head1 FUNCTIONS =head2 TableExists($table) --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref @@ -446,7 +446,7 @@ Circulation: choices: yes: Allow no: "Don't allow" - - patrons to place holds on records that he already have any item of it in his possession. + - a patron to place a hold on a record where the patron already has one or more items attached to that record checked out. Fines Policy: - - Calculate fines based on days overdue --- a/reserve/request.pl +++ a/reserve/request.pl @@ -247,6 +247,8 @@ foreach my $biblionumber (@biblionumbers) { $warnings = 1; $maxreserves = 1; } + + my $alreadypossession; if (not C4::Context->preference('AllowHoldsOnPatronsPossessions') and CheckIfIssuedToPatron($borrowerinfo->{borrowernumber},$biblionumber)) { $warnings = 1; $alreadypossession = 1; --