sub index {
my $self = shift;
- if ( my $master = $self->param('MASTER') ) {
- $ENV{MASTER} = $master;
- warn "MASTER = $master\n";
+ foreach my $name ( qw( MASTER MAX_FACETS ) ) {
+ if ( my $val = $self->param($name) ) {
+ $ENV{$name} = $val;
+ warn "$name = $val\n";
+ }
}
$self->render;
<form method=post>
-<h2>Replication</h2>
<ul>
-<li>MASTER <input type=text name=MASTER value="<%= $ENV{MASTER} %>">
+
+<h2>Replication</h2>
+<li>MASTER
+<input type=text name=MASTER value="<%= $ENV{MASTER} %>">
+
+<h2>Facet display</h2>
+<li>MAX_FACETS
+<input type=text name=MAX_FACETS value="<%= $ENV{MAX_FACETS} %>">
+
</ul>
<input type=submit value="Change">