|
Lines 277-292
Merges parameters from $q_params into $filtered_params.
Link Here
|
| 277 |
|
277 |
|
| 278 |
my ( $c ) = @_; |
278 |
my ( $c ) = @_; |
| 279 |
|
279 |
|
| 280 |
my $override_header = $c->req->headers->header('x-koha-override'); |
280 |
my $override_header = $c->req->headers->header('x-koha-override') || q{}; |
| 281 |
|
281 |
|
| 282 |
my $overrides = {}; |
282 |
my $overrides = { map { $_ => 1 } split /\s*,\s*/, $override_header }; |
| 283 |
|
|
|
| 284 |
if ( $override_header ) { |
| 285 |
my @overrides = (); |
| 286 |
foreach my $override ( split /\s*,\s*/, $override_header ) { |
| 287 |
$overrides->{$override} = 1; |
| 288 |
} |
| 289 |
} |
| 290 |
|
283 |
|
| 291 |
$c->stash( 'koha.overrides' => $overrides ); |
284 |
$c->stash( 'koha.overrides' => $overrides ); |
| 292 |
|
285 |
|