Lines 291-307
subtest 'transferbook test from branch' => sub {
Link Here
|
291 |
barcode => $item->barcode, |
291 |
barcode => $item->barcode, |
292 |
trigger => "Manual" |
292 |
trigger => "Manual" |
293 |
}); |
293 |
}); |
294 |
my ($datesent,$from_branch,$to_branch) = GetTransfers($item->itemnumber); |
294 |
my $transfer = $item->get_transfer; |
295 |
is( $from_branch, $library->branchcode, 'The transfer is initiated from the specified branch, not the items home or holdingbranch'); |
295 |
is( $transfer->frombranch, $library->branchcode, 'The transfer is initiated from the specified branch, not the items home or holdingbranch'); |
296 |
is( $to_branch, $item->homebranch, 'The transfer is initiated to the specified branch'); |
296 |
is( $transfer->tobranch, $item->homebranch, 'The transfer is initiated to the specified branch'); |
297 |
C4::Circulation::transferbook({ |
297 |
C4::Circulation::transferbook({ |
298 |
from_branch => $item->homebranch, |
298 |
from_branch => $item->homebranch, |
299 |
to_branch => $library->branchcode, |
299 |
to_branch => $library->branchcode, |
300 |
barcode => $item->barcode, |
300 |
barcode => $item->barcode, |
301 |
trigger => "Manual" |
301 |
trigger => "Manual" |
302 |
}); |
302 |
}); |
303 |
($datesent,$from_branch,$to_branch) = GetTransfers($item->itemnumber); |
303 |
$transfer = $item->get_transfer; |
304 |
is( $from_branch, $item->homebranch, 'The transfer is initiated from the specified branch'); |
304 |
is( $transfer->frombranch, $item->homebranch, 'The transfer is initiated from the specified branch'); |
305 |
is( $to_branch, $library->branchcode, 'The transfer is initiated to the specified branch'); |
305 |
is( $transfer->tobranch, $library->branchcode, 'The transfer is initiated to the specified branch'); |
306 |
|
306 |
|
307 |
}; |
307 |
}; |
308 |
- |
|
|