|
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 |
|
| 135 |
my @biblionumbers; |
137 |
my @biblionumbers; |
| 136 |
for my $i ( 1 .. $number_of_biblios_to_insert ) { |
138 |
for my $i ( 1 .. $number_of_biblios_to_insert ) { |
| 137 |
my $biblio = MARC::Record->new(); |
139 |
my $biblio = MARC::Record->new(); |
|
Lines 141-152
SKIP: {
Link Here
|
| 141 |
MARC::Field->new('200', ' ', ' ', a => 'test biblio '.$i), |
143 |
MARC::Field->new('200', ' ', ' ', a => 'test biblio '.$i), |
| 142 |
MARC::Field->new('200', ' ', ' ', f => 'test author '.$i), |
144 |
MARC::Field->new('200', ' ', ' ', f => 'test author '.$i), |
| 143 |
MARC::Field->new('200', ' ', ' ', b => $itemtype->{itemtype}), |
145 |
MARC::Field->new('200', ' ', ' ', b => $itemtype->{itemtype}), |
|
|
146 |
MARC::Field->new('200', ' ', ' ', d => $homelibrary->{homelibrary}), |
| 144 |
); |
147 |
); |
| 145 |
} else { |
148 |
} else { |
| 146 |
$biblio->append_fields( |
149 |
$biblio->append_fields( |
| 147 |
MARC::Field->new('245', ' ', ' ', a => 'test biblio '.$i), |
150 |
MARC::Field->new('245', ' ', ' ', a => 'test biblio '.$i), |
| 148 |
MARC::Field->new('100', ' ', ' ', a => 'test author '.$i), |
151 |
MARC::Field->new('100', ' ', ' ', a => 'test author '.$i), |
| 149 |
MARC::Field->new('942', ' ', ' ', c => $itemtype->{itemtype}), |
152 |
MARC::Field->new('942', ' ', ' ', c => $itemtype->{itemtype}), |
|
|
153 |
MARC::Field->new('942', ' ', ' ', b => $homelibrary->{homelibrary}), |
| 150 |
); |
154 |
); |
| 151 |
} |
155 |
} |
| 152 |
my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, ''); |
156 |
my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, ''); |
|
Lines 206-211
SKIP: {
Link Here
|
| 206 |
$v = strftime("%Y-%m-%d", localtime); |
210 |
$v = strftime("%Y-%m-%d", localtime); |
| 207 |
$effective_input = $driver->find_element('//div[@id="subfield952w"]/input[@class="input_marceditor flatpickr-input"]'); |
211 |
$effective_input = $driver->find_element('//div[@id="subfield952w"]/input[@class="input_marceditor flatpickr-input"]'); |
| 208 |
} |
212 |
} |
|
|
213 |
elsif ( |
| 214 |
$id =~ m|^tag_952_subfield_a| # homelibrary |
| 215 |
) { |
| 216 |
next; #auto-filled |
| 209 |
elsif ( |
217 |
elsif ( |
| 210 |
$id =~ m|^tag_952_subfield_y| # itemtype |
218 |
$id =~ m|^tag_952_subfield_y| # itemtype |
| 211 |
) { |
219 |
) { |
| 212 |
- |
|
|