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