Lines 130-135
SKIP: {
Link Here
|
130 |
|
130 |
|
131 |
$borrowernumber = $dbh->selectcol_arrayref(q|SELECT borrowernumber FROM borrowers WHERE userid=?|, {}, $sample_data->{patron}{userid} )->[0]; |
131 |
$borrowernumber = $dbh->selectcol_arrayref(q|SELECT borrowernumber FROM borrowers WHERE userid=?|, {}, $sample_data->{patron}{userid} )->[0]; |
132 |
|
132 |
|
|
|
133 |
my $itemtype = $sample_data->{itemtype}; |
134 |
|
133 |
my @biblionumbers; |
135 |
my @biblionumbers; |
134 |
for my $i ( 1 .. $number_of_biblios_to_insert ) { |
136 |
for my $i ( 1 .. $number_of_biblios_to_insert ) { |
135 |
my $biblio = MARC::Record->new(); |
137 |
my $biblio = MARC::Record->new(); |
Lines 138-148
SKIP: {
Link Here
|
138 |
$biblio->append_fields( |
140 |
$biblio->append_fields( |
139 |
MARC::Field->new('200', ' ', ' ', a => 'test biblio '.$i), |
141 |
MARC::Field->new('200', ' ', ' ', a => 'test biblio '.$i), |
140 |
MARC::Field->new('200', ' ', ' ', f => 'test author '.$i), |
142 |
MARC::Field->new('200', ' ', ' ', f => 'test author '.$i), |
|
|
143 |
MARC::Field->new('200', ' ', ' ', b => $itemtype->{itemtype}), |
141 |
); |
144 |
); |
142 |
} else { |
145 |
} else { |
143 |
$biblio->append_fields( |
146 |
$biblio->append_fields( |
144 |
MARC::Field->new('245', ' ', ' ', a => 'test biblio '.$i), |
147 |
MARC::Field->new('245', ' ', ' ', a => 'test biblio '.$i), |
145 |
MARC::Field->new('100', ' ', ' ', a => 'test author '.$i), |
148 |
MARC::Field->new('100', ' ', ' ', a => 'test author '.$i), |
|
|
149 |
MARC::Field->new('942', ' ', ' ', c => $itemtype->{itemtype}), |
146 |
); |
150 |
); |
147 |
} |
151 |
} |
148 |
my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, ''); |
152 |
my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, ''); |
Lines 151-158
SKIP: {
Link Here
|
151 |
|
155 |
|
152 |
time_diff("add biblio"); |
156 |
time_diff("add biblio"); |
153 |
|
157 |
|
154 |
my $itemtype = $sample_data->{itemtype}; |
|
|
155 |
|
156 |
my $issuing_rules = $sample_data->{issuingrule}; |
158 |
my $issuing_rules = $sample_data->{issuingrule}; |
157 |
Koha::CirculationRules->set_rules( |
159 |
Koha::CirculationRules->set_rules( |
158 |
{ |
160 |
{ |
Lines 204-209
SKIP: {
Link Here
|
204 |
$v = strftime("%Y-%m-%d", localtime); |
206 |
$v = strftime("%Y-%m-%d", localtime); |
205 |
$effective_input = $driver->find_element('//div[@id="subfield952w"]/input[@class="input_marceditor flatpickr-input"]'); |
207 |
$effective_input = $driver->find_element('//div[@id="subfield952w"]/input[@class="input_marceditor flatpickr-input"]'); |
206 |
} |
208 |
} |
|
|
209 |
elsif ( |
210 |
$id =~ m|^tag_952_subfield_y| # itemtype |
211 |
) { |
212 |
next; # auto-filled |
213 |
} |
207 |
elsif ( |
214 |
elsif ( |
208 |
$id =~ m|^tag_952_subfield_d| # dateaccessioned |
215 |
$id =~ m|^tag_952_subfield_d| # dateaccessioned |
209 |
) { |
216 |
) { |
210 |
- |
|
|