Lines 35-46
$insert_sth->execute('CAN');
Link Here
|
35 |
$insert_sth->execute('CANNOT'); |
35 |
$insert_sth->execute('CANNOT'); |
36 |
|
36 |
|
37 |
# Setup Test------------------------ |
37 |
# Setup Test------------------------ |
38 |
# Helper biblio. |
38 |
# Create a biblio instance for testing |
39 |
diag("Creating biblio instance for testing."); |
|
|
40 |
my ($bibnum, $title, $bibitemnum) = create_helper_biblio(); |
39 |
my ($bibnum, $title, $bibitemnum) = create_helper_biblio(); |
41 |
|
40 |
|
42 |
# Helper item for that biblio. |
41 |
# Create item instance for testing. |
43 |
diag("Creating item instance for testing."); |
|
|
44 |
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); |
42 |
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); |
45 |
|
43 |
|
46 |
# Create some borrowers |
44 |
# Create some borrowers |
47 |
- |
|
|