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