- listref - each item is a literal column name (or method) or hashref
- or (notyet) coderef
- if not specified all columns (except for the primary key) will be editable
+ #listref - each item is a literal column name (or method) or hashref
+ # or (notyet) coderef
+ #if not specified all columns (except for the primary key) will be editable
'value' => 'Y', #for checkbox, title, fixed, fixedhidden
'disabled' => 0,
'onchange' => 'javascript_function',
'value' => 'Y', #for checkbox, title, fixed, fixedhidden
'disabled' => 0,
'onchange' => 'javascript_function',
#run when adding
'new_callback' => sub { my( $cgi, $object, $fields_listref ) = @_; },
#run when adding
'new_callback' => sub { my( $cgi, $object, $fields_listref ) = @_; },
#string or coderef of additional HTML to add before </TABLE>
'html_table_bottom' => '',
#string or coderef of additional HTML to add before </TABLE>
'html_table_bottom' => '',
# overrides default popurl(1)."process/$table.html"
'post_url' => popurl(1).'process/something',
# overrides default popurl(1)."process/$table.html"
'post_url' => popurl(1).'process/something',
<INPUT TYPE="hidden" NAME="svcdb" VALUE="<% $table %>">
<INPUT TYPE="hidden" NAME="<% $pkey %>" VALUE="<% $object->$pkey() %>">
<INPUT TYPE="hidden" NAME="svcdb" VALUE="<% $table %>">
<INPUT TYPE="hidden" NAME="<% $pkey %>" VALUE="<% $object->$pkey() %>">
#<% $object->$pkey() || "(NEW)" %>
%# <% ntable("#cccccc",0) %>
#<% $object->$pkey() || "(NEW)" %>
%# <% ntable("#cccccc",0) %>
% #& deprecated weird value hashref used only by reason.html
% 'value' => $f->{'value'},
%
% #& deprecated weird value hashref used only by reason.html
% 'value' => $f->{'value'},
%
-% $include = "input-$include" if $include =~ /^(text|money)$/;
-% $include = "tr-$include" unless $include eq 'hidden';
+% $include = "input-$include" if $include =~ /^(text|money|percentage)$/;
+% $include = "tr-$include" unless $include =~ /^(hidden|tablebreak)/;
% }
%
% my @include = &{ $include_sub }(
% 'label' => $label,
% 'fieldnum' => $fieldnum,
% 'curr_value' => $curr_value,
% }
%
% my @include = &{ $include_sub }(
% 'label' => $label,
% 'fieldnum' => $fieldnum,
% 'curr_value' => $curr_value,
% 'onchange' => $onchange,
% 'cell_style' => ( $fieldnum ? 'border-top:1px solid black' : '' ),
% );
% 'onchange' => $onchange,
% 'cell_style' => ( $fieldnum ? 'border-top:1px solid black' : '' ),
% );