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

(-)a/C4/Circulation.pm (+1 lines)
Lines 83-88 BEGIN { Link Here
83
		&GetBiblioIssues
83
		&GetBiblioIssues
84
		&GetOpenIssue
84
		&GetOpenIssue
85
		&AnonymiseIssueHistory
85
		&AnonymiseIssueHistory
86
		&CheckIfIssuedToPatron
86
	);
87
	);
87
88
88
	# subs to deal with returns
89
	# subs to deal with returns
(-)a/installer/data/mysql/updatedatabase.pl (-9 / +7 lines)
Lines 5927-5933 if (C4::Context->preference("Version") < TransformToNum($DBversion)) { Link Here
5927
    SetVersion ($DBversion);
5927
    SetVersion ($DBversion);
5928
}
5928
}
5929
5929
5930
5931
$DBversion = "3.09.00.053";
5930
$DBversion = "3.09.00.053";
5932
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5931
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5933
    $dbh->do(
5932
    $dbh->do(
Lines 6112-6125 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here
6112
    print "Upgrade to $DBversion done (Bug 8782: Add field subscription.closed)\n";
6111
    print "Upgrade to $DBversion done (Bug 8782: Add field subscription.closed)\n";
6113
    SetVersion($DBversion);
6112
    SetVersion($DBversion);
6114
}
6113
}
6115
$DBversion = "XXX";
6116
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6117
    $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')"
6118
    print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6119
    SetVersion($DBversion);
6120
}
6121
6122
6123
6114
6124
$DBversion = "3.11.00.005";
6115
$DBversion = "3.11.00.005";
6125
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6116
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
Lines 6293-6298 if (CheckVersion($DBversion)) { Link Here
6293
    SetVersion ($DBversion);
6284
    SetVersion ($DBversion);
6294
}
6285
}
6295
6286
6287
$DBversion = "XXX";
6288
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6289
    $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')");
6290
    print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6291
    SetVersion($DBversion);
6292
}
6293
6296
=head1 FUNCTIONS
6294
=head1 FUNCTIONS
6297
6295
6298
=head2 TableExists($table)
6296
=head2 TableExists($table)
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref (-1 / +1 lines)
Lines 440-446 Circulation: Link Here
440
              choices:
440
              choices:
441
                  yes: Allow
441
                  yes: Allow
442
                  no: "Don't allow"
442
                  no: "Don't allow"
443
            - patrons to place holds on records that he already have any item of it in his possession.
443
            - a patron to place a hold on a record where the patron already has one or more items attached to that record checked out.
444
    Fines Policy:
444
    Fines Policy:
445
        -
445
        -
446
            - Calculate fines based on days overdue
446
            - Calculate fines based on days overdue
(-)a/reserve/request.pl (-1 / +2 lines)
Lines 247-252 foreach my $biblionumber (@biblionumbers) { Link Here
247
 		$warnings = 1;
247
 		$warnings = 1;
248
        $maxreserves = 1;
248
        $maxreserves = 1;
249
    }
249
    }
250
    
251
    my $alreadypossession;
250
    if (not C4::Context->preference('AllowHoldsOnPatronsPossessions') and CheckIfIssuedToPatron($borrowerinfo->{borrowernumber},$biblionumber)) {
252
    if (not C4::Context->preference('AllowHoldsOnPatronsPossessions') and CheckIfIssuedToPatron($borrowerinfo->{borrowernumber},$biblionumber)) {
251
        $warnings = 1;
253
        $warnings = 1;
252
        $alreadypossession = 1;
254
        $alreadypossession = 1;
253
- 

Return to bug 9206