4 <% include('/elements/auto-table.html',
10 'header' => [ '#', 'Item', 'Amount' ],
11 'fields' => [ 'id', 'name', 'amount' ],
17 'size' => [ 4, 12, 8 ],
18 'maxl' => [ 4, 12, 8 ],
19 'align' => [ 'right', 'left', 'right' ],
25 'data' => [ [ 1, 'Widget', 25 ],
26 [ 12, 'Super Widget, 7 ] ],
28 'records' => [ qsearch('item', { } ) ],
29 # or any other array of FS::Record objects
34 ], # options for second field
37 'prefix' => 'mytable_',
40 Values will be passed through as "mytable_id1", etc.
43 <TABLE ID="<% $prefix %>AutoTable" BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
50 % for ( $row = 0; $row < scalar @data; $row++ ) {
53 % for ( $col = 0; $col < scalar @fields; $col++ ) {
54 % my $id = $prefix . $fields[$col] . $row;
56 % my @o = @{ $select[$col] };
58 <SELECT NAME="<% $id %>" ID="<% $id %>">
61 <OPTION VALUE=<% $val %><%
62 $val eq $data[$row][$col] ? ' SELECTED' : ''%>><% shift @o %></OPTION>
70 SIZE = <% $size[$col] %>
71 MAXLENGTH = <% $maxl[$col] %>
72 STYLE = "text-align:<% $align[$col] %>"
73 VALUE = "<% $data[$row][$col] %>"
74 % if( $opt{'autoadd'} ) {
75 onchange = "possiblyAddRow(this);"
82 <IMG SRC = "<% "${p}images/cross.png" %>"
84 onclick = "deleteRow(this);"
90 % if( !$opt{'autoadd'} ) {
91 <INPUT TYPE="button" VALUE="Add" onclick="<% $prefix %>addRow();"><BR>
94 <SCRIPT TYPE="text/javascript">
95 var <% $prefix %>rownum = <% $row %>;
96 var <% $prefix %>table = document.getElementById('<% $prefix %>AutoTable');
97 // last row is initially blank, clone it and remove it
98 var <% $prefix %>_blank =
99 <% $prefix %>table.rows[<% $prefix %>table.rows.length-1].cloneNode(true);
100 % if( !$opt{'autoadd'} ) {
101 <% $prefix %>table.deleteRow(<% $prefix %>table.rows.length-1);
106 function rownum_of(obj) {
107 return (obj.parentNode.parentNode.sectionRowIndex);
110 function <% $prefix %>possiblyAddRow(obj) {
111 if ( <% $prefix %>rownum == rownum_of(obj) ) {
112 <% $prefix %>addRow();
116 function <% $prefix %>addRow() {
117 var row = <% $prefix %>table.insertRow(-1);
118 var cells = <% $prefix %>_blank.cells;
119 for (i=0; i<cells.length; i++) {
120 row.appendChild(cells[i].cloneNode(true));
122 <% $prefix %>rownum++;
125 function deleteRow(obj) {
126 if(<% $prefix %>rownum == rownum_of(obj)) {
127 <% $prefix %>addRow();
129 <% $prefix %>table.deleteRow(rownum_of(obj));
130 <% $prefix %>rownum--;
139 my @header = @{ $opt{'header'} };
140 my @fields = @{ $opt{'fields'} };
143 @data = @{ $opt{'data'} };
145 elsif($opt{'records'}) {
146 foreach my $rec (@{ $opt{'records'} }) {
147 push @data, [ map { $rec->getfield($_) } @fields ];
151 push @data, [ map {''} @fields ]; # make a blank row
153 my $prefix = $opt{'prefix'};
154 my @size = $opt{'size'} ? @{ $opt{'size'} } : (map {16} @fields);
155 my @maxl = $opt{'maxl'} ? @{ $opt{'maxl'} } : @size;
156 my @align = $opt{'align'} ? @{ $opt{'align'} } : (map {'right'} @fields);
157 my @select = @{ $opt{'select'} || [] };
158 foreach (0..scalar(@fields)-1) {