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