%=l('${prefix}_${Label}') % my @${Name}_options = ${structure:OptionsInPerl}; % param '${Name}' => $$${prefix}_data->{${Name}} unless param '${Name}'; %= select_field '${Name}' => @${Name}_options, class => 'input'

]]> <![CDATA[ <span class=label> %=l('${prefix}_${Label}') </span><span class=data> % param '${Name}' => $$${prefix}_data->{${Name}} unless param '${Name}'; %= text_area '${Name}', cols=>${cols | 40}, rows=>${rows | 10}, Readonly=>${Readonly | false} </span><br> ]]> %=l('${prefix}_${Label}') %=date_field '${Name}' =>$$${Name}, pattern=>${regexp | .*}
]]> %=l('${prefix}_${Label}') %=time_field '${Name}' =>$$${Name}, pattern=>${regexp | .*}
]]> %=l('${prefix}_${Label}') % param '${Name}' => $$${prefix}_data->{${Name}} unless param '${Name}'; %= text_field '${Name}', size => '${size | 50}', class => 'textinput ${Name}' , pattern=>'${regexp | ".*"}' , placeholder=>'${placeholder | Name}'

]]> %=l('${prefix}_${Label}') % param '${Name}' => $$${prefix}_data->{${Name}} unless param '${Name}'; %= text_field '${Name}', size => '${size | 50}', class => 'textinput ${Name}' , pattern=>'${regexp | ".*"}' , placeholder=>'${placeholder | Name}', Readonly=>'true'

]]> <%=l('${Value}')%>]]>

<%=l('${Value}')%>]]>

%=l('${Value}')

]]> %= submit_button l('${Value}'), class => 'action subm${type_serial}' ]]> %=l('${prefix}_${Label}') %=Search field %=search_field , class => 'searc${type_serial}' span>

]]> %=l('${Label}') %=URL_field , class => 'url${type_serial}' span>

]]> %=l('${Label}') %=tel_field, class => 'tel${type_serial}' span>

]]> %=l('${Label}') %=email_field, class => 'emai${type_serial}' span>

]]> %=l('${Label}') %=password_field, class => 'pass${type_serial}' span>

]]> %=l('${Label}') %=timedate_field, class => 'time${type_serial}' span>

]]> %=l('${Label}') %=week_field, class => 'week${type_serial}' span>

]]> %=l('${Label}') %=month_field, class => 'mont${type_serial}' span>

]]> %=l('${Label}') %=range_field, class => 'rang${type_serial}' span>

]]> %=l('${Label}') %=radio_field, class => 'radi${type_serial}' span>

]]> %=l('${Label}') %=number_field, class => 'numb${type_serial}' span>

]]> %=l('${Label}') %=file_field, class => 'file${type_serial}' span>

]]> %=l('${Label}') %=color_field, class => 'colo${type_serial}' span>

]]> %=l('${Label}') %=checkbox_field, class => 'chec${type_serial}' span>

]]> % my $control_data = $self->stash('${TableControl}'); % foreach my $row (@$control_data) { %}

<%=l('${ColHead}')%>
<%=$c->render_to_string(inline=>$row->{'${ColContent}'})%>

]]> ${Value} ]]> 'link link${type_serial}' ]]>