|
Lines 132-141
SKIP: {
Link Here
|
| 132 |
|
132 |
|
| 133 |
my $itemtype = $sample_data->{itemtype}; |
133 |
my $itemtype = $sample_data->{itemtype}; |
| 134 |
|
134 |
|
| 135 |
my $homelibrary = $sample_data->{homelibrary}; |
|
|
| 136 |
|
| 137 |
my $currentlibrary = $sample_data->{currentlibrary}; |
| 138 |
|
| 139 |
my @biblionumbers; |
135 |
my @biblionumbers; |
| 140 |
for my $i ( 1 .. $number_of_biblios_to_insert ) { |
136 |
for my $i ( 1 .. $number_of_biblios_to_insert ) { |
| 141 |
my $biblio = MARC::Record->new(); |
137 |
my $biblio = MARC::Record->new(); |
|
Lines 145-160
SKIP: {
Link Here
|
| 145 |
MARC::Field->new('200', ' ', ' ', a => 'test biblio '.$i), |
141 |
MARC::Field->new('200', ' ', ' ', a => 'test biblio '.$i), |
| 146 |
MARC::Field->new('200', ' ', ' ', f => 'test author '.$i), |
142 |
MARC::Field->new('200', ' ', ' ', f => 'test author '.$i), |
| 147 |
MARC::Field->new('200', ' ', ' ', b => $itemtype->{itemtype}), |
143 |
MARC::Field->new('200', ' ', ' ', b => $itemtype->{itemtype}), |
| 148 |
MARC::Field->new('200', ' ', ' ', c => $homelibrary->{homelibrary}), |
|
|
| 149 |
MARC::Field->new('200', ' ', ' ', d => $currentlibrary->{currentlibrary}), |
| 150 |
); |
144 |
); |
| 151 |
} else { |
145 |
} else { |
| 152 |
$biblio->append_fields( |
146 |
$biblio->append_fields( |
| 153 |
MARC::Field->new('245', ' ', ' ', a => 'test biblio '.$i), |
147 |
MARC::Field->new('245', ' ', ' ', a => 'test biblio '.$i), |
| 154 |
MARC::Field->new('100', ' ', ' ', a => 'test author '.$i), |
148 |
MARC::Field->new('100', ' ', ' ', a => 'test author '.$i), |
| 155 |
MARC::Field->new('942', ' ', ' ', c => $itemtype->{itemtype}), |
149 |
MARC::Field->new('942', ' ', ' ', c => $itemtype->{itemtype}), |
| 156 |
MARC::Field->new('942', ' ', ' ', b => $homelibrary->{homelibrary}), |
|
|
| 157 |
MARC::Field->new('942', ' ', ' ', d => $currentlibrary->{currentlibrary}), |
| 158 |
); |
150 |
); |
| 159 |
} |
151 |
} |
| 160 |
my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, ''); |
152 |
my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, ''); |
|
Lines 219-229
SKIP: {
Link Here
|
| 219 |
) { |
211 |
) { |
| 220 |
next; # auto-filled |
212 |
next; # auto-filled |
| 221 |
} |
213 |
} |
| 222 |
elsif ( |
|
|
| 223 |
$id =~ m|^tag_952_subfield_a| # homelibrary |
| 224 |
) { |
| 225 |
elsif ( =~ m|^tag_952_subfield_b| # currentlibrary |
| 226 |
) { |
| 227 |
elsif ( |
214 |
elsif ( |
| 228 |
$id =~ m|^tag_952_subfield_d| # dateaccessioned |
215 |
$id =~ m|^tag_952_subfield_d| # dateaccessioned |
| 229 |
) { |
216 |
) { |
| 230 |
- |
|
|