|
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 |
- |
|
|