Tweet
$template->param(EMPLOYEE_INFO => [{name => 'Sam', id => '1'}, {name => 'Steve', id => '2'}]);
$template->param(SELECTED => "1")
print $template->output();
<TMPL_LOOP NAME=EMPLOYEE_INFO>
<option value="<TMPL_VAR NAME=ID>" <TMPL_IF SELECTED=ID>selected=selected</TMPL_IF>><TMPL_VAR NAME=NAME></option>
</TMPL_LOOP>
<table>
<TMPL_LOOP NAME=ROWS>
<tr>
<TMPL_IF NAME="__FIRST__">
<th>the first is usually a header</th>
</TMPL_IF>
<TMPL_IF NAME="__ODD__">
<td style="background: red">odd rows are red</td>
<TMPL_ELSE>
<td style="background: blue">even rows are blue</td>
</TMPL_IF>
<TMPL_IF NAME="__LAST__">
<TD>you have no chance to survive so choose</td>
</TMPL_IF>
</tr>
</TMPL_LOOP>
</table>
LoxBerry - Beyond the Limits
$template->param(EMPLOYEE_INFO => [{name => 'Sam', id => '1', , selected => '1'}, {name => 'Steve', id => '2', selected => '0'}]);
$template->param(SELECTED => "1")
print $template->output();
<TMPL_LOOP NAME=EMPLOYEE_INFO>
<option value="<TMPL_VAR NAME=ID>" <TMPL_IF SELECTED>selected=selected</TMPL_IF>><TMPL_VAR NAME=NAME></option>
</TMPL_LOOP>
LoxBerry - Beyond the Limits<%IF blah%> <%= VARIABLE%> <%/IF%>
<select name="foo"> [%html_option_loop arrayref%] <option value="[%= value%]" [%= selected%] >[%= label %]</option> [%/html_option_loop%] </select> $htc->param( arrayref => [ 'opt_2', ['opt_1', 'option 1'], # or use simple scalars if values and labals are equal ['opt_2', 'option 2'], ], );
Output: <select name="foo"> <option value="opt_1" >option 1</option> <option value="opt_2" selected="selected">option 2</option> </select>
Wir müssen aufpassen, dass wir uns nicht verrennen... Nichts desto trotz ist das für mich ja alles kein MUSS. Es kann jeder auch ein anderes Templatesystem verwenden oder sich sein eigenes bauen oder oder oder. Für mich geht es eher darum eine Empfehlung auszusprechen, wie es möglichst einfach geht.# Aus dem Formular
my $sel_ms = param("miniserverid");
# Der Aufruf gibt die Liste analog http://www.loxwiki.eu/pages/viewpage.action?pageId=13307076 zurück, plus eine letzte Zeile: selected mit 1 oder 0
my %miniservers = LoxBerry::System::get_miniservers("$sel_ms");
# Jetzt das Template bauen
$template->param(MINISERVER_INFO => \@miniservers;
print $template->output();
<TMPL_LOOP NAME=MINISERVER_INFO>
<option value="<TMPL_VAR NAME=NUMBER>" <TMPL_IF SELECTED>selected=selected</TMPL_IF>><TMPL_VAR NAME=NAME></option>
</TMPL_LOOP>
# Aus dem Formular
my $sel_ms = param("miniserverid");
# Der Aufruf gibt die Liste analog http://www.loxwiki.eu/pages/viewpage.action?pageId=13307076 zurück, plus eine letzte Zeile: selected mit 1 oder 0
my %miniservers = LoxBerry::System::get_miniservers("$sel_ms");
# Jetzt das Template bauen
foreach (@miniservers) {
# Und hier baue ich mir die options-Liste selbst zusammen. Mit if $sel_ms eq $id then "selected=selected" oder so ähnlich.
# Alles in eine Variable mit $optionslist
}
$template->param(OPTIONSLIST => $optionslist);
print $template->output();
<TMPL_VAR NAME=OPTIONSLIST>
LoxBerry - Beyond the Limits<select name="gpiolevel" id="gpiolevel"> <option value="1">High</option> <option value="2">Low</option> </select> <script> $( "#gpiolevel").val( "' . $valuestring. '" ); </script>
<select name="gpiolevel" id="gpiolevel">
<option value="1">High</option>
<option value="2">Low</option>
</select>
<script>
$( "#gpiolevel").val( "1" );
</script>
LoxBerry - Beyond the Limits
LBHOMEDIR=/opt/loxberry sed -i "/PERL5LIB SetEnv/s/.*/PERL5LIB SetEnv $LBHOMEDIR/libs/perllib/" 000-default.conf sed: -e expression #1, char 42: unknown option to `s'
Kommentar