Lines 38-50
sub Mock_userenv {
Link Here
|
38 |
|
38 |
|
39 |
my $borrowers_count = 3; |
39 |
my $borrowers_count = 3; |
40 |
|
40 |
|
41 |
# Setup Test------------------------ |
41 |
# Create a biblio instance |
42 |
# Helper biblio. |
|
|
43 |
diag("Creating biblio instance for testing."); |
44 |
my ( $bibnum, $title, $bibitemnum ) = create_helper_biblio(); |
42 |
my ( $bibnum, $title, $bibitemnum ) = create_helper_biblio(); |
45 |
|
43 |
|
46 |
# Helper item for that biblio. |
44 |
# Create an item |
47 |
diag("Creating item instance for testing."); |
|
|
48 |
my $item_barcode = 'my_barcode'; |
45 |
my $item_barcode = 'my_barcode'; |
49 |
my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem( |
46 |
my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem( |
50 |
{ homebranch => $library->{branchcode}, holdingbranch => $library->{branchcode}, barcode => $item_barcode }, |
47 |
{ homebranch => $library->{branchcode}, holdingbranch => $library->{branchcode}, barcode => $item_barcode }, |
51 |
- |
|
|