Lines 1976-1983
sub AddReturn {
Link Here
|
1976 |
# this is always done regardless of whether the item was on loan or not |
1976 |
# this is always done regardless of whether the item was on loan or not |
1977 |
my $item_holding_branch = $item->holdingbranch; |
1977 |
my $item_holding_branch = $item->holdingbranch; |
1978 |
if ($item->holdingbranch ne $branch) { |
1978 |
if ($item->holdingbranch ne $branch) { |
1979 |
UpdateHoldingbranch($branch, $item->itemnumber); |
1979 |
$item->holdingbranch($branch)->store; |
1980 |
$item->holdingbranch($branch); # update item data holdingbranch too # FIXME I guess this is for the _debar_user_on_return call later |
|
|
1981 |
} |
1980 |
} |
1982 |
|
1981 |
|
1983 |
my $leave_item_lost = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0; |
1982 |
my $leave_item_lost = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0; |
Lines 3477-3496
sub updateWrongTransfer {
Link Here
|
3477 |
ModItemTransfer($itemNumber, $FromLibrary, $waitingAtLibrary); |
3476 |
ModItemTransfer($itemNumber, $FromLibrary, $waitingAtLibrary); |
3478 |
|
3477 |
|
3479 |
#third step changing holdingbranch of item |
3478 |
#third step changing holdingbranch of item |
3480 |
UpdateHoldingbranch($FromLibrary,$itemNumber); |
3479 |
my $item = Koha::Items->find($itemNumber)->holdingbranch($FromLibrary)->store; |
3481 |
} |
|
|
3482 |
|
3483 |
=head2 UpdateHoldingbranch |
3484 |
|
3485 |
$items = UpdateHoldingbranch($branch,$itmenumber); |
3486 |
|
3487 |
Simple methode for updating hodlingbranch in items BDD line |
3488 |
|
3489 |
=cut |
3490 |
|
3491 |
sub UpdateHoldingbranch { |
3492 |
my ( $branch,$itemnumber ) = @_; |
3493 |
ModItem({ holdingbranch => $branch }, undef, $itemnumber); |
3494 |
} |
3480 |
} |
3495 |
|
3481 |
|
3496 |
=head2 CalcDateDue |
3482 |
=head2 CalcDateDue |
3497 |
- |
|
|