+
+ my $template_form = qq{
+ <form action="$self" method="get" style="display: inline;">
+ <select name="template">
+ };
+ foreach my $t (@templates) {
+ my $s = '';
+ $s = ' selected' if ($t eq $template_filename);
+ $template_form .= qq{<option$s>$t</option>};
+ }
+ $template_form .= qq{
+ </select>
+ <input type="submit" name="ch_template" value="Switch"/>
+ </form>
+ };
+