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