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