Lines 1975-1982
sub AddReturn {
Link Here
|
1975 |
# this is always done regardless of whether the item was on loan or not |
1975 |
# this is always done regardless of whether the item was on loan or not |
1976 |
my $item_holding_branch = $item->holdingbranch; |
1976 |
my $item_holding_branch = $item->holdingbranch; |
1977 |
if ($item->holdingbranch ne $branch) { |
1977 |
if ($item->holdingbranch ne $branch) { |
1978 |
UpdateHoldingbranch($branch, $item->itemnumber); |
1978 |
$item->holdingbranch($branch)->store; |
1979 |
$item->holdingbranch($branch); # update item data holdingbranch too # FIXME I guess this is for the _debar_user_on_return call later |
|
|
1980 |
} |
1979 |
} |
1981 |
|
1980 |
|
1982 |
my $leave_item_lost = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0; |
1981 |
my $leave_item_lost = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0; |
Lines 3491-3510
sub updateWrongTransfer {
Link Here
|
3491 |
ModItemTransfer($itemNumber, $FromLibrary, $waitingAtLibrary); |
3490 |
ModItemTransfer($itemNumber, $FromLibrary, $waitingAtLibrary); |
3492 |
|
3491 |
|
3493 |
#third step changing holdingbranch of item |
3492 |
#third step changing holdingbranch of item |
3494 |
UpdateHoldingbranch($FromLibrary,$itemNumber); |
3493 |
my $item = Koha::Items->find($itemNumber)->holdingbranch($FromLibrary)->store; |
3495 |
} |
|
|
3496 |
|
3497 |
=head2 UpdateHoldingbranch |
3498 |
|
3499 |
$items = UpdateHoldingbranch($branch,$itmenumber); |
3500 |
|
3501 |
Simple methode for updating hodlingbranch in items BDD line |
3502 |
|
3503 |
=cut |
3504 |
|
3505 |
sub UpdateHoldingbranch { |
3506 |
my ( $branch,$itemnumber ) = @_; |
3507 |
ModItem({ holdingbranch => $branch }, undef, $itemnumber); |
3508 |
} |
3494 |
} |
3509 |
|
3495 |
|
3510 |
=head2 CalcDateDue |
3496 |
=head2 CalcDateDue |
3511 |
- |
|
|