5 include( '/elements/checkboxes.html',
9 #? 'name_callback' => sub { },
11 'names_list' => [ 'value',
13 [ 'complex value' => { 'label' => 'Display value',
14 'desc' => "Add'l description",
20 'element_name_prefix' => "$link_table.",
24 'checked_callback' => sub { my( $cgi, $name ) = @_; },
30 <TABLE CELLSPACING=0 CELLPADDING=0>
33 <TD COLSPAN=2 ALIGN="center"><FONT SIZE="-1">(
34 <A HREF="javascript:setAll<%$prefix%>(true)">select all</A> |
35 <A HREF="javascript:setAll<%$prefix%>(false)">unselect all</A> |
36 <A HREF="javascript:toggleAll<%$prefix%>()">toggle all</A>
41 % foreach my $item ( @{ $opt{'names_list'} } ) {
43 % my $name = ref($item) ? $item->[0] : $item;
44 % my $display = ( ref($item) && $item->[1]{label} )
47 % $display =~ s/ / /g;
48 % $display .= $item->[1]{note} if ref($item) && $item->[1]{note};
49 % my $desc = ref($item) && $item->[1]{desc} ? $item->[1]{desc} : '';
52 % ( $cgi->param('error') ? 'error_' : '' ). 'checked_callback';
53 % my $checked = &{ $opt{$callback} }( $cgi, $name ) ? 'CHECKED' : '';
57 <INPUT TYPE="checkbox" NAME="<% $opt{'element_name_prefix'}. $name %>" <% $checked %> ID="<%$prefix.$num++%>" VALUE="ON">
61 <BR><FONT SIZE="-2"><% $desc %></FONT>
70 <SCRIPT TYPE="text/javascript">
72 function setAll<%$prefix%>(setTo) {
73 % for ( 0 .. ($num-1) ) {
74 document.getElementById('<%$prefix.$_%>').checked = setTo;
78 function toggleAll<%$prefix%>(setTo) {
79 % for ( 0 .. ($num-1) ) {
80 var element = document.getElementById('<%$prefix.$_%>');
81 if ( element.checked == true ) {
82 element.checked = false;
84 element.checked = true;
95 my @pset = ( 'a'..'z', 'A'..'Z', '0'..'9' );
97 my $prefix = $opt{prefix}
98 || join('', map $pset[ int(rand $#pset) ], (0..20) );
100 $opt{checked_callback} ||= sub {};
102 $opt{'error_checked_callback'} ||= sub {
103 my( $cgi, $name ) = @_;
104 $cgi->param($opt{'element_name_prefix'}. $name );