- <% my $n = 0;
- foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) {
- #warn $i->key unless defined($type);
- %>
- <% if ( $type eq '' ) { %>
+% my $n = 0;
+% foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) {
+% #warn $i->key unless defined($type);
+%
+% if ( $type eq '' ) {
+
no type
+% } elsif ( $type eq 'textarea' ) {
- <% } elsif ( $type eq 'textarea' ) { %>
-
+
+% } elsif ( $type eq 'checkbox' ) {
- <% } elsif ( $type eq 'checkbox' ) { %>
- exists($i->key) ? ' CHECKED' : '' %>>
+ exists($i->key) ? ' CHECKED' : '' %>>
+% } elsif ( $type eq 'text' ) {
- <% } elsif ( $type eq 'text' ) { %>
-
+
+% } elsif ( $type eq 'select' || $type eq 'selectmultiple' ) {
- <% } elsif ( $type eq 'select' || $type eq 'selectmultiple' ) { %>
- |
+% } else {
-