httemplate/elements/checkboxes.html

   1 <%doc>
   2
   3 Example:
   4
   5   include( '/elements/checkboxes.html',
   6
   7     # required
   8
   9     #? 'name_callback' => sub { },
  10
  11     'names_list' => [ 'value',
  12                       'other value',
  13                       [ 'complex value' => { 'label' => 'Display value',
  14                                              'desc'  => "Add'l description",
  15                                              'note'  => '&nbsp;*',
  16                                            }
  17                       ],
  18                     ],
  19
  20     'element_name_prefix' => "$link_table.",
  21
  22     #recommended
  23
  24     'checked_callback' => sub { my( $cgi, $name ) = @_; },
  25
  26   )
  27
  28 </%doc>
  29
  30 <TABLE CELLSPACING=0 CELLPADDING=0>
  31
  32 <TR>
  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>
  37   )</FONT></TD>
  38 </TR>
  39
  40 % my $num=0;
  41 % foreach my $item ( @{ $opt{'names_list'} } ) {
  42 %
  43 %     my $name = ref($item) ? $item->[0] : $item;
  44 %     my $display = ( ref($item) && $item->[1]{label} )
  45 %                     ? $item->[1]{label}
  46 %                     : $name;
  47 %     $display =~ s/ /&nbsp;/g;
  48 %     $display .= $item->[1]{note} if ref($item) && $item->[1]{note};
  49 %     my $desc = ref($item) && $item->[1]{desc} ? $item->[1]{desc} : '';
  50 %
  51 %     my $callback =
  52 %       ( $cgi->param('error') ? 'error_' : '' ). 'checked_callback';
  53 %     my $checked = &{ $opt{$callback} }( $cgi, $name ) ? 'CHECKED' : '';
  54
  55   <TR>
  56     <TD VALIGN="top">
  57       <INPUT TYPE="checkbox" NAME="<% $opt{'element_name_prefix'}. $name %>" <% $checked %> ID="<%$prefix.$num++%>" VALUE="ON">
  58     </TD>
  59     <TD><% $display %>
  60 %     if ( $desc ) {
  61         <BR><FONT SIZE="-2"><% $desc %></FONT>
  62 %     }
  63     </TD>
  64   </TR>
  65
  66 % }
  67
  68 </TABLE>
  69
  70 <SCRIPT TYPE="text/javascript">
  71
  72   function setAll<%$prefix%>(setTo) {
  73 %   for ( 0 .. ($num-1) ) {
  74       document.getElementById('<%$prefix.$_%>').checked = setTo;
  75 %   }
  76   }
  77
  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;
  83       } else {
  84         element.checked = true;
  85       }
  86 %   }
  87   }
  88
  89 </SCRIPT>
  90
  91 <%init>
  92
  93 my( %opt ) = @_;
  94
  95 my @pset = ( 'a'..'z', 'A'..'Z', '0'..'9' );
  96
  97 my $prefix = $opt{prefix}
  98              || join('', map $pset[ int(rand $#pset) ], (0..20) );
  99
 100 $opt{checked_callback} ||= sub {};
 101
 102 $opt{'error_checked_callback'} ||= sub {
 103   my( $cgi, $name ) = @_;
 104   $cgi->param($opt{'element_name_prefix'}. $name );
 105 };
 106
 107 </%init>