From c82d349f864e6bd9f96fd1156903bc1f7193a203 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 27 Dec 2010 00:04:45 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'. --- httemplate/elements/checkboxes.html | 107 ------------------------------------ 1 file changed, 107 deletions(-) delete mode 100644 httemplate/elements/checkboxes.html (limited to 'httemplate/elements/checkboxes.html') diff --git a/httemplate/elements/checkboxes.html b/httemplate/elements/checkboxes.html deleted file mode 100644 index b120adab7..000000000 --- a/httemplate/elements/checkboxes.html +++ /dev/null @@ -1,107 +0,0 @@ -<%doc> - -Example: - - include( '/elements/checkboxes.html', - - # required - - #? 'name_callback' => sub { }, - - 'names_list' => [ 'value', - 'other value', - [ 'complex value' => { 'label' => 'Display 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 = ( ref($item) && $item->[1]{label} ) -% ? $item->[1]{label} -% : $name; -% $display =~ 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 ); -}; - - -- cgit v1.2.1