Lines 160-166
SKIP: {
Link Here
|
160 |
my $id = $input->get_attribute('id'); |
160 |
my $id = $input->get_attribute('id'); |
161 |
next unless $id =~ m|^tag_952_subfield|; |
161 |
next unless $id =~ m|^tag_952_subfield|; |
162 |
|
162 |
|
163 |
$input->send_keys('t_value_bib'.$biblionumber); |
163 |
my $v; |
|
|
164 |
|
165 |
# FIXME This is based on default values |
166 |
if ( $id =~ m|^tag_952_subfield_g| # price |
167 |
or $id =~ m|^tag_952_subfield_v| ) # replacementprice |
168 |
{ |
169 |
$v = '42'; # It's a price |
170 |
} |
171 |
elsif ( |
172 |
$id =~ m|^tag_952_subfield_f| #tag_952_subfield_g |
173 |
) { |
174 |
# It's a varchar(10) |
175 |
$v = 't_value_x'; |
176 |
} |
177 |
else { |
178 |
$v = 't_value_bib' . $biblionumber; |
179 |
} |
180 |
$input->send_keys( $v ); |
164 |
} |
181 |
} |
165 |
|
182 |
|
166 |
$driver->find_element('//input[@name="add_submit"]')->click; |
183 |
$driver->find_element('//input[@name="add_submit"]')->click; |
167 |
- |
|
|