Lines 59-65
$record->append_fields(
Link Here
|
59 |
MARC::Field->new('100', ' ', ' ', a => 'Donald E. Knuth.'), |
59 |
MARC::Field->new('100', ' ', ' ', a => 'Donald E. Knuth.'), |
60 |
MARC::Field->new('245', ' ', ' ', a => 'The art of computer programming'), |
60 |
MARC::Field->new('245', ' ', ' ', a => 'The art of computer programming'), |
61 |
); |
61 |
); |
62 |
my ( $biblionumber, undef, undef ) = C4::Biblio::AddBiblio($record, ''); |
62 |
my ( $biblionumber ) = C4::Biblio::AddBiblio($record, ''); |
63 |
|
63 |
|
64 |
for my $callnumber ( shuffle @callnumbers ) { |
64 |
for my $callnumber ( shuffle @callnumbers ) { |
65 |
my ( $biblionumber, undef, $itemnumber ) = C4::Items::AddItem({ |
65 |
my ( $biblionumber, undef, $itemnumber ) = C4::Items::AddItem({ |
66 |
- |
|
|