Lines 33-42
$dbh->do('DELETE FROM itemtypes');
Link Here
|
33 |
my $insert_sth = $dbh->prepare('INSERT INTO itemtypes (itemtype) VALUES (?)'); |
33 |
my $insert_sth = $dbh->prepare('INSERT INTO itemtypes (itemtype) VALUES (?)'); |
34 |
$insert_sth->execute('CAN'); |
34 |
$insert_sth->execute('CAN'); |
35 |
$insert_sth->execute('CANNOT'); |
35 |
$insert_sth->execute('CANNOT'); |
|
|
36 |
$insert_sth->execute('DUMMY'); |
36 |
|
37 |
|
37 |
# Setup Test------------------------ |
38 |
# Setup Test------------------------ |
38 |
# Create a biblio instance for testing |
39 |
# Create a biblio instance for testing |
39 |
my ($bibnum, $title, $bibitemnum) = create_helper_biblio(); |
40 |
my ($bibnum, $title, $bibitemnum) = create_helper_biblio('DUMMY'); |
40 |
|
41 |
|
41 |
# Create item instance for testing. |
42 |
# Create item instance for testing. |
42 |
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); |
43 |
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); |
Lines 186-192
ok( $reserve->{'priority'} eq '5', "Test AlterPriority(), move to bottom" );
Link Here
|
186 |
# Note that canreservefromotherbranches has no effect if |
187 |
# Note that canreservefromotherbranches has no effect if |
187 |
# IndependentBranches is OFF. |
188 |
# IndependentBranches is OFF. |
188 |
|
189 |
|
189 |
my ($foreign_bibnum, $foreign_title, $foreign_bibitemnum) = create_helper_biblio(); |
190 |
my ($foreign_bibnum, $foreign_title, $foreign_bibitemnum) = create_helper_biblio('DUMMY'); |
190 |
my ($foreign_item_bibnum, $foreign_item_bibitemnum, $foreign_itemnumber) |
191 |
my ($foreign_item_bibnum, $foreign_item_bibitemnum, $foreign_itemnumber) |
191 |
= AddItem({ homebranch => 'MPL', holdingbranch => 'MPL' } , $foreign_bibnum); |
192 |
= AddItem({ homebranch => 'MPL', holdingbranch => 'MPL' } , $foreign_bibnum); |
192 |
$dbh->do('DELETE FROM issuingrules'); |
193 |
$dbh->do('DELETE FROM issuingrules'); |
Lines 230-236
ok(
Link Here
|
230 |
); |
231 |
); |
231 |
|
232 |
|
232 |
# Regression test for bug 11336 |
233 |
# Regression test for bug 11336 |
233 |
($bibnum, $title, $bibitemnum) = create_helper_biblio(); |
234 |
($bibnum, $title, $bibitemnum) = create_helper_biblio('DUMMY'); |
234 |
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); |
235 |
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); |
235 |
AddReserve( |
236 |
AddReserve( |
236 |
$branch, |
237 |
$branch, |
237 |
- |
|
|