Lines 93-100
else {
Link Here
|
93 |
MARC::Field->new('245', '', '', a => $title), |
93 |
MARC::Field->new('245', '', '', a => $title), |
94 |
); |
94 |
); |
95 |
} |
95 |
} |
96 |
my ($bibnum, $bibitemnum); |
96 |
my ( $bibnum ) = AddBiblio($bib, $frameworkcode); |
97 |
($bibnum, $title, $bibitemnum) = AddBiblio($bib, $frameworkcode); |
|
|
98 |
|
97 |
|
99 |
# Create a helper item instance for testing |
98 |
# Create a helper item instance for testing |
100 |
my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem( |
99 |
my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem( |
Lines 235-241
$bib2->append_fields(
Link Here
|
235 |
); |
234 |
); |
236 |
|
235 |
|
237 |
# create one item belonging to FPL and one belonging to CPL |
236 |
# create one item belonging to FPL and one belonging to CPL |
238 |
my ($bibnum2, $bibitemnum2) = AddBiblio($bib, $frameworkcode); |
237 |
my ( $bibnum2 ) = AddBiblio($bib, $frameworkcode); |
239 |
my ($itemnum_cpl, $itemnum_fpl); |
238 |
my ($itemnum_cpl, $itemnum_fpl); |
240 |
( undef, undef, $itemnum_cpl ) = AddItem( |
239 |
( undef, undef, $itemnum_cpl ) = AddItem( |
241 |
{ homebranch => $branch_1, |
240 |
{ homebranch => $branch_1, |
242 |
- |
|
|