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