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 (-8 / +7 lines)
Lines 6111-6124 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here
6111
    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";
6112
    SetVersion($DBversion);
6112
    SetVersion($DBversion);
6113
}
6113
}
6114
$DBversion = "XXX";
6115
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6116
    $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')"
6117
    print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6118
    SetVersion($DBversion);
6119
}
6120
6121
6122
6114
6123
$DBversion = "3.11.00.005";
6115
$DBversion = "3.11.00.005";
6124
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6116
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
Lines 6317-6322 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here
6317
    SetVersion($DBversion);
6309
    SetVersion($DBversion);
6318
}
6310
}
6319
6311
6312
$DBversion = "3.11.00.XXX";
6313
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6314
    $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')");
6315
    print "Upgrade to $DBversion done (Bug 9206: Only allow place holds in records that the patron don't have in his possession)\n";
6316
    SetVersion($DBversion);
6317
}
6318
6320
=head1 FUNCTIONS
6319
=head1 FUNCTIONS
6321
6320
6322
=head2 TableExists($table)
6321
=head2 TableExists($table)
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref (-1 / +1 lines)
Lines 446-452 Circulation: Link Here
446
              choices:
446
              choices:
447
                  yes: Allow
447
                  yes: Allow
448
                  no: "Don't allow"
448
                  no: "Don't allow"
449
            - patrons to place holds on records that he already have any item of it in his possession.
449
            - a patron to place a hold on a record where the patron already has one or more items attached to that record checked out.
450
    Fines Policy:
450
    Fines Policy:
451
        -
451
        -
452
            - Calculate fines based on days overdue
452
            - 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