X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fcheckboxes.html;fp=httemplate%2Felements%2Fcheckboxes.html;h=12622453830d18fe87e3786ced4e4288a43af441;hb=125fb1a284ae96b46fe433c418aafa87862c4382;hp=0000000000000000000000000000000000000000;hpb=c23d6e1673dbec98fe9d778ee55962d2cbd145d5;p=freeside.git diff --git a/httemplate/elements/checkboxes.html b/httemplate/elements/checkboxes.html new file mode 100644 index 000000000..126224538 --- /dev/null +++ b/httemplate/elements/checkboxes.html @@ -0,0 +1,103 @@ +<%doc> + +Example: + + include( '/elements/checkboxes.html', + + # required + + #? 'name_callback' => sub { }, + + 'names_list' => [ 'value', + 'other value', + [ 'complex value' => { 'desc' => "Add'l description", + 'note' => ' *', + } + ], + ], + + 'element_name_prefix' => "$link_table.", + + #recommended + + 'checked_callback' => sub { my( $cgi, $name ) = @_; }, + + ) + + + + + + + + + +% my $num=0; +% foreach my $item ( @{ $opt{'names_list'} } ) { +% +% my $name = ref($item) ? $item->[0] : $item; +% ( my $display = $name ) =~ s/ / /g; +% $display .= $item->[1]{note} if ref($item) && $item->[1]{note}; +% my $desc = ref($item) && $item->[1]{desc} ? $item->[1]{desc} : ''; +% +% my $callback = +% ( $cgi->param('error') ? 'error_' : '' ). 'checked_callback'; +% my $checked = &{ $opt{$callback} }( $cgi, $name ) ? 'CHECKED' : ''; + + + + + + +% } + +
( + select all | + unselect all | + toggle all + )
+ ID="<%$prefix.$num++%>" VALUE="ON"> + <% $display %> +% if ( $desc ) { +
<% $desc %> +% } +
+ + + +<%init> + +my( %opt ) = @_; + +my @pset = ( 'a'..'z', 'A'..'Z', '0'..'9' ); + +my $prefix = $opt{prefix} + || join('', map $pset[ int(rand $#pset) ], (0..20) ); + +$opt{checked_callback} ||= sub {}; + +$opt{'error_checked_callback'} ||= sub { + my( $cgi, $name ) = @_; + $cgi->param($opt{'element_name_prefix'}. $name ); +}; + +