Lines 1215-1235
sub ModReserveStatus {
Link Here
|
1215 |
|
1215 |
|
1216 |
=head2 ModReserveAffect |
1216 |
=head2 ModReserveAffect |
1217 |
|
1217 |
|
1218 |
&ModReserveAffect($itemnumber,$borrowernumber,$diffBranchSend); |
1218 |
&ModReserveAffect({ itemnumber => $itemnumber, borrowernumber => $borrowernumber, force_transfer => $diffBranchSend }); |
1219 |
|
1219 |
|
1220 |
This function affect an item and a status for a given reserve |
1220 |
This function affect an item and a status for a given reserve |
1221 |
The itemnumber parameter is used to find the biblionumber. |
1221 |
The itemnumber parameter is used to find the biblionumber. |
1222 |
with the biblionumber & the borrowernumber, we can affect the itemnumber |
1222 |
with the biblionumber & the borrowernumber, we can affect the itemnumber |
1223 |
to the correct reserve. |
1223 |
to the correct reserve. |
1224 |
|
1224 |
|
1225 |
if $transferToDo is not set, then the status is set to "Waiting" as well. |
1225 |
if $force_transfer is not set, then the status is set to "Waiting" as well. |
1226 |
otherwise, a transfer is on the way, and the end of the transfer will |
1226 |
otherwise, a transfer is on the way, and the end of the transfer will |
1227 |
take care of the waiting status |
1227 |
take care of the waiting status |
1228 |
|
1228 |
|
1229 |
=cut |
1229 |
=cut |
1230 |
|
1230 |
|
1231 |
sub ModReserveAffect { |
1231 |
sub ModReserveAffect { |
1232 |
my ( $itemnumber, $borrowernumber,$transferToDo ) = @_; |
1232 |
my ( $params ) = @_; |
|
|
1233 |
my $borrowernumber = $params->{borrowernumber}; |
1234 |
my $itemnumber = $params->{itemnumber}; |
1235 |
my $force_transfer = $params->{force_transfer}; |
1236 |
|
1233 |
my $dbh = C4::Context->dbh; |
1237 |
my $dbh = C4::Context->dbh; |
1234 |
|
1238 |
|
1235 |
# we want to attach $itemnumber to $borrowernumber, find the biblionumber |
1239 |
# we want to attach $itemnumber to $borrowernumber, find the biblionumber |
Lines 1250-1256
sub ModReserveAffect {
Link Here
|
1250 |
|
1254 |
|
1251 |
# If we affect a reserve that has to be transfered, don't set to Waiting |
1255 |
# If we affect a reserve that has to be transfered, don't set to Waiting |
1252 |
my $query; |
1256 |
my $query; |
1253 |
if ($transferToDo) { |
1257 |
if ( $force_transfer ) { |
1254 |
$query = " |
1258 |
$query = " |
1255 |
UPDATE reserves |
1259 |
UPDATE reserves |
1256 |
SET priority = 0, |
1260 |
SET priority = 0, |
Lines 1274-1280
sub ModReserveAffect {
Link Here
|
1274 |
} |
1278 |
} |
1275 |
$sth = $dbh->prepare($query); |
1279 |
$sth = $dbh->prepare($query); |
1276 |
$sth->execute( $itemnumber, $borrowernumber,$biblionumber); |
1280 |
$sth->execute( $itemnumber, $borrowernumber,$biblionumber); |
1277 |
_koha_notify_reserve( $itemnumber, $borrowernumber, $biblionumber ) if ( !$transferToDo && !$already_on_shelf ); |
1281 |
_koha_notify_reserve( $itemnumber, $borrowernumber, $biblionumber ) if ( !$force_transfer && !$already_on_shelf ); |
1278 |
|
1282 |
|
1279 |
if ( C4::Context->preference("ReturnToShelvingCart") ) { |
1283 |
if ( C4::Context->preference("ReturnToShelvingCart") ) { |
1280 |
CartToShelf( $itemnumber ); |
1284 |
CartToShelf( $itemnumber ); |