Lines 240-245
subtest 'prepare_cgi_additional_field_values' => sub {
Link Here
|
240 |
} |
240 |
} |
241 |
); |
241 |
); |
242 |
$field2->store()->discard_changes(); |
242 |
$field2->store()->discard_changes(); |
|
|
243 |
my $field3 = Koha::AdditionalField->new( |
244 |
{ |
245 |
tablename => 'subscription', |
246 |
name => random_string( 'c' x 100 ) |
247 |
} |
248 |
); |
249 |
$field3->store()->discard_changes(); |
243 |
|
250 |
|
244 |
my $q = CGI->new; |
251 |
my $q = CGI->new; |
245 |
$q->param( |
252 |
$q->param( |
Lines 250-255
subtest 'prepare_cgi_additional_field_values' => sub {
Link Here
|
250 |
-name => 'additional_field_' . $field2->id, |
257 |
-name => 'additional_field_' . $field2->id, |
251 |
-value => '0', |
258 |
-value => '0', |
252 |
); |
259 |
); |
|
|
260 |
$q->param( |
261 |
-name => 'additional_field_' . $field3->id, |
262 |
-value => '', |
263 |
); |
253 |
$q->param( |
264 |
$q->param( |
254 |
-name => 'irrelevant_param', |
265 |
-name => 'irrelevant_param', |
255 |
-value => 'foo', |
266 |
-value => 'foo', |
Lines 272-282
subtest 'prepare_cgi_additional_field_values' => sub {
Link Here
|
272 |
{ |
283 |
{ |
273 |
'value' => '0', |
284 |
'value' => '0', |
274 |
'id' => $field2->id |
285 |
'id' => $field2->id |
|
|
286 |
}, |
287 |
{ |
288 |
'value' => '', |
289 |
'id' => $field3->id |
275 |
} |
290 |
} |
276 |
], |
291 |
], |
277 |
'Return of prepare_cgi_additional_field_values should be correct' |
292 |
'Return of prepare_cgi_additional_field_values should be correct' |
278 |
); |
293 |
); |
279 |
|
|
|
280 |
$schema->txn_rollback; |
294 |
$schema->txn_rollback; |
281 |
|
|
|
282 |
}; |
295 |
}; |
283 |
- |
|
|