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