Lines 25-50
$schema->storage->txn_begin;
Link Here
|
25 |
|
25 |
|
26 |
my $builder = t::lib::TestBuilder->new; |
26 |
my $builder = t::lib::TestBuilder->new; |
27 |
|
27 |
|
28 |
my $library1 = $builder->build({ |
28 |
my $library1 = $builder->build({ source => 'Branch', }); |
29 |
source => 'Branch', |
29 |
my $library2 = $builder->build({ source => 'Branch', }); |
30 |
}); |
30 |
my $library3 = $builder->build({ source => 'Branch', }); |
31 |
my $library2 = $builder->build({ |
31 |
my $library4 = $builder->build({ source => 'Branch', }); |
32 |
source => 'Branch', |
32 |
my $itemtype = $builder->build( |
33 |
}); |
33 |
{ source => 'Itemtype', |
34 |
my $library3 = $builder->build({ |
34 |
value => { notforloan => undef, rentalcharge => 0 } |
35 |
source => 'Branch', |
35 |
} |
36 |
}); |
36 |
)->{itemtype}; |
37 |
my $library4 = $builder->build({ |
37 |
|
38 |
source => 'Branch', |
38 |
|
39 |
}); |
|
|
40 |
|
39 |
|
41 |
my $borrowers_count = 5; |
40 |
my $borrowers_count = 5; |
42 |
|
41 |
|
43 |
# Create a helper biblio |
42 |
# Create a helper biblio |
44 |
my ( $bibnum, $title, $bibitemnum ) = create_helper_biblio(); |
43 |
my ( $bibnum, $title, $bibitemnum ) = create_helper_biblio(); |
45 |
# Create a helper item for the biblio. |
44 |
# Create a helper item for the biblio. |
46 |
my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = |
45 |
my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem( |
47 |
AddItem( { homebranch => $library4->{branchcode}, holdingbranch => $library3->{branchcode} }, $bibnum ); |
46 |
{ homebranch => $library4->{branchcode}, |
|
|
47 |
holdingbranch => $library3->{branchcode}, |
48 |
itype => $itemtype |
49 |
}, |
50 |
$bibnum |
51 |
); |
52 |
|
48 |
|
53 |
|
49 |
my @branchcodes = ( $library1->{branchcode}, $library2->{branchcode}, $library3->{branchcode}, $library4->{branchcode}, $library3->{branchcode}, $library4->{branchcode} ); |
54 |
my @branchcodes = ( $library1->{branchcode}, $library2->{branchcode}, $library3->{branchcode}, $library4->{branchcode}, $library3->{branchcode}, $library4->{branchcode} ); |
50 |
|
55 |
|
51 |
- |
|
|