5 include( '/elements/checkboxes-table-name.html',
10 'link_table' => 'table_name',
12 'name_col' => 'name_column',
14 'name_callback' => sub { },
16 'names_list' => [ 'value',
18 [ 'complex value' => { 'desc' => "Add'l description",
25 # recommended (required?)
29 #'source_table' => 'table_name',
30 #'sourcenum' => '4', #current value of primary key in source_table
31 # # (none is okay, just pass it if you have it)
36 'num_col' => 'col_name' #if column name is different in link_table than
38 'link_static' => { 'column' => 'value' },
44 <TABLE CELLSPACING=0 CELLPADDING=0>
47 <TD COLSPAN=2 ALIGN="center"><FONT SIZE="-1">(
48 <A HREF="javascript:setAll<%$prefix%>(true)">select all</A> |
49 <A HREF="javascript:setAll<%$prefix%>(false)">unselect all</A> |
50 <A HREF="javascript:toggleAll<%$prefix%>()">toggle all</A>
55 % foreach my $item ( @{ $opt{'names_list'} } ) {
57 % my $name = ref($item) ? $item->[0] : $item;
58 % ( my $display = $name ) =~ s/ / /g;
59 % $display .= $item->[1]{note} if ref($item) && $item->[1]{note};
60 % my $desc = ref($item) && $item->[1]{desc} ? $item->[1]{desc} : '';
63 % if ( $cgi->param('error') ) {
65 % $checked = $cgi->param($opt{'link_table'}. ".$name" )
72 % qsearchs( $opt{'link_table'}, {
73 % $source_pkey => $sourcenum,
74 % $opt{'name_col'} => $name,
84 <INPUT TYPE="checkbox" NAME="<% $opt{'link_table'}. ".$name" %>" <% $checked %> ID="<%$prefix.$num++%>" VALUE="ON">
88 <BR><FONT SIZE="-2"><% $desc %></FONT>
97 <SCRIPT TYPE="text/javascript">
99 function setAll<%$prefix%>(setTo) {
100 % for ( 0 .. ($num-1) ) {
101 document.getElementById('<%$prefix.$_%>').checked = setTo;
105 function toggleAll<%$prefix%>(setTo) {
106 % for ( 0 .. ($num-1) ) {
107 var element = document.getElementById('<%$prefix.$_%>');
108 if ( element.checked == true ) {
109 element.checked = false;
111 element.checked = true;
122 my @pset = ( 'a'..'z', 'A'..'Z', '0'..'9' );
124 my $prefix = $opt{prefix}
125 || join('', map $pset[ int(rand $#pset) ], (0..20) );
127 my( $source_pkey, $sourcenum, $source_obj );
128 if ( $opt{'source_obj'} ) {
130 $source_obj = $opt{'source_obj'};
131 #$source_table = $source_obj->dbdef_table->table;
132 $source_pkey = $source_obj->dbdef_table->primary_key;
133 $sourcenum = $source_obj->$source_pkey();
138 $source_pkey = $opt{'source_table'}
139 ? dbdef->table($opt{'source_table'})->primary_key
141 $sourcenum = $opt{'sourcenum'};
144 $source_pkey = $opt{'num_col'} || $source_pkey;
146 my $link_static = $opt{'link_static'} || {};