sub index {
my $self = shift;
- foreach my $name ( qw( MASTER MAX_FACETS ) ) {
- if ( my $val = $self->param($name) ) {
+ my @config = (qw(
+ MASTER
+ MAX_FACETS
+ PROFILE
+ ));
+
+ foreach my $name ( @config ) {
+ my $val = $self->param($name);
+ if ( defined $val ) {
$ENV{$name} = $val;
warn "$name = $val\n";
}
}
- $self->render;
+ $self->render(
+ config => \@config,
+ );
}
1;