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