Lines 1991-1998
sub AddReturn {
Link Here
|
1991 |
# this is always done regardless of whether the item was on loan or not |
1991 |
# this is always done regardless of whether the item was on loan or not |
1992 |
my $item_holding_branch = $item->holdingbranch; |
1992 |
my $item_holding_branch = $item->holdingbranch; |
1993 |
if ($item->holdingbranch ne $branch) { |
1993 |
if ($item->holdingbranch ne $branch) { |
1994 |
UpdateHoldingbranch($branch, $item->itemnumber); |
1994 |
$item->holdingbranch($branch)->store; |
1995 |
$item->holdingbranch($branch); # update item data holdingbranch too # FIXME I guess this is for the _debar_user_on_return call later |
|
|
1996 |
} |
1995 |
} |
1997 |
|
1996 |
|
1998 |
my $leave_item_lost = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0; |
1997 |
my $leave_item_lost = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0; |
Lines 3560-3579
sub updateWrongTransfer {
Link Here
|
3560 |
ModItemTransfer($itemNumber, $FromLibrary, $waitingAtLibrary); |
3559 |
ModItemTransfer($itemNumber, $FromLibrary, $waitingAtLibrary); |
3561 |
|
3560 |
|
3562 |
#third step changing holdingbranch of item |
3561 |
#third step changing holdingbranch of item |
3563 |
UpdateHoldingbranch($FromLibrary,$itemNumber); |
3562 |
my $item = Koha::Items->find($itemNumber)->holdingbranch($FromLibrary)->store; |
3564 |
} |
|
|
3565 |
|
3566 |
=head2 UpdateHoldingbranch |
3567 |
|
3568 |
$items = UpdateHoldingbranch($branch,$itmenumber); |
3569 |
|
3570 |
Simple methode for updating hodlingbranch in items BDD line |
3571 |
|
3572 |
=cut |
3573 |
|
3574 |
sub UpdateHoldingbranch { |
3575 |
my ( $branch,$itemnumber ) = @_; |
3576 |
ModItem({ holdingbranch => $branch }, undef, $itemnumber); |
3577 |
} |
3563 |
} |
3578 |
|
3564 |
|
3579 |
=head2 CalcDateDue |
3565 |
=head2 CalcDateDue |
3580 |
- |
|
|