5 include( '/elements/checkboxes.html',
9 #? 'name_callback' => sub { },
11 'names_list' => [ 'value',
13 [ 'complex value' => { 'desc' => "Add'l description",
19 'element_name_prefix' => "$link_table.",
23 'checked_callback' => sub { my( $cgi, $name ) = @_; },
29 <TABLE CELLSPACING=0 CELLPADDING=0>
32 <TD COLSPAN=2 ALIGN="center"><FONT SIZE="-1">(
33 <A HREF="javascript:setAll<%$prefix%>(true)">select all</A> |
34 <A HREF="javascript:setAll<%$prefix%>(false)">unselect all</A> |
35 <A HREF="javascript:toggleAll<%$prefix%>()">toggle all</A>
40 % foreach my $item ( @{ $opt{'names_list'} } ) {
42 % my $name = ref($item) ? $item->[0] : $item;
43 % ( my $display = $name ) =~ s/ / /g;
44 % $display .= $item->[1]{note} if ref($item) && $item->[1]{note};
45 % my $desc = ref($item) && $item->[1]{desc} ? $item->[1]{desc} : '';
48 % ( $cgi->param('error') ? 'error_' : '' ). 'checked_callback';
49 % my $checked = &{ $opt{$callback} }( $cgi, $name ) ? 'CHECKED' : '';
53 <INPUT TYPE="checkbox" NAME="<% $opt{'element_name_prefix'}. $name %>" <% $checked %> ID="<%$prefix.$num++%>" VALUE="ON">
57 <BR><FONT SIZE="-2"><% $desc %></FONT>
66 <SCRIPT TYPE="text/javascript">
68 function setAll<%$prefix%>(setTo) {
69 % for ( 0 .. ($num-1) ) {
70 document.getElementById('<%$prefix.$_%>').checked = setTo;
74 function toggleAll<%$prefix%>(setTo) {
75 % for ( 0 .. ($num-1) ) {
76 var element = document.getElementById('<%$prefix.$_%>');
77 if ( element.checked == true ) {
78 element.checked = false;
80 element.checked = true;
91 my @pset = ( 'a'..'z', 'A'..'Z', '0'..'9' );
93 my $prefix = $opt{prefix}
94 || join('', map $pset[ int(rand $#pset) ], (0..20) );
96 $opt{checked_callback} ||= sub {};
98 $opt{'error_checked_callback'} ||= sub {
99 my( $cgi, $name ) = @_;
100 $cgi->param($opt{'element_name_prefix'}. $name );