Lines 131-136
BEGIN {
Link Here
|
131 |
&ReserveSlip |
131 |
&ReserveSlip |
132 |
&ToggleSuspend |
132 |
&ToggleSuspend |
133 |
&SuspendAll |
133 |
&SuspendAll |
|
|
134 |
|
135 |
&GetReservesControlBranch |
134 |
); |
136 |
); |
135 |
@EXPORT_OK = qw( MergeHolds ); |
137 |
@EXPORT_OK = qw( MergeHolds ); |
136 |
} |
138 |
} |
Lines 898-904
sub CheckReserves {
Link Here
|
898 |
if ( $res->{'priority'} && $res->{'priority'} < $priority ) { |
900 |
if ( $res->{'priority'} && $res->{'priority'} < $priority ) { |
899 |
my $borrowerinfo=C4::Members::GetMember(borrowernumber => $res->{'borrowernumber'}); |
901 |
my $borrowerinfo=C4::Members::GetMember(borrowernumber => $res->{'borrowernumber'}); |
900 |
my $iteminfo=C4::Items::GetItem($itemnumber); |
902 |
my $iteminfo=C4::Items::GetItem($itemnumber); |
901 |
my $branch=C4::Circulation::_GetCircControlBranch($iteminfo,$borrowerinfo); |
903 |
my $branch = GetReservesControlBranch( $iteminfo, $borrowerinfo ); |
902 |
my $branchitemrule = C4::Circulation::GetBranchItemRule($branch,$iteminfo->{'itype'}); |
904 |
my $branchitemrule = C4::Circulation::GetBranchItemRule($branch,$iteminfo->{'itype'}); |
903 |
next if ($branchitemrule->{'holdallowed'} == 0); |
905 |
next if ($branchitemrule->{'holdallowed'} == 0); |
904 |
next if (($branchitemrule->{'holdallowed'} == 1) && ($branch ne $borrowerinfo->{'branchcode'})); |
906 |
next if (($branchitemrule->{'holdallowed'} == 1) && ($branch ne $borrowerinfo->{'branchcode'})); |
Lines 2183-2188
sub ReserveSlip {
Link Here
|
2183 |
); |
2185 |
); |
2184 |
} |
2186 |
} |
2185 |
|
2187 |
|
|
|
2188 |
=head2 GetReservesControlBranch |
2189 |
|
2190 |
my $reserves_control_branch = GetReservesControlBranch($item, $borrower); |
2191 |
|
2192 |
Return the branchcode to be used to determine which reserves |
2193 |
policy applies to a transaction. |
2194 |
|
2195 |
C<$item> is a hashref for an item. Only 'homebranch' is used. |
2196 |
|
2197 |
C<$borrower> is a hashref to borrower. Only 'branchcode' is used. |
2198 |
|
2199 |
=cut |
2200 |
|
2201 |
sub GetReservesControlBranch { |
2202 |
my ( $item, $borrower ) = @_; |
2203 |
|
2204 |
my $reserves_control = C4::Context->preference('ReservesControlBranch'); |
2205 |
|
2206 |
my $branchcode = |
2207 |
( $reserves_control eq 'ItemHomeLibrary' ) ? $item->{'homebranch'} |
2208 |
: ( $reserves_control eq 'PatronLibrary' ) ? $borrower->{'branchcode'} |
2209 |
: undef; |
2210 |
|
2211 |
return $branchcode; |
2212 |
} |
2213 |
|
2186 |
=head1 AUTHOR |
2214 |
=head1 AUTHOR |
2187 |
|
2215 |
|
2188 |
Koha Development Team <http://koha-community.org/> |
2216 |
Koha Development Team <http://koha-community.org/> |