|
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 |
- |
|
|