X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fcheckboxes-table-name.html;h=31652f3309a6583d44a501b1886ad9cd6b544e19;hb=63a268637b2d51a8766412617724b9436439deb6;hp=0a92e4548292c24212742c27391b4ff7e9b79260;hpb=3ce7691203a7737406bf2d4442f7fd84b81f847e;p=freeside.git
diff --git a/httemplate/elements/checkboxes-table-name.html b/httemplate/elements/checkboxes-table-name.html
index 0a92e4548..31652f330 100644
--- a/httemplate/elements/checkboxes-table-name.html
+++ b/httemplate/elements/checkboxes-table-name.html
@@ -1,85 +1,90 @@
-%
-%
-% ##
-% # required
-% ##
-% # 'link_table' => 'table_name',
-% #
-% # 'name_col' => 'name_column',
-% # #or
-% # 'name_callback' => sub { },
-% #
-% # 'names_list' => [ 'value', 'other value' ],
-% #
-% ##
-% # recommended (required?)
-% ##
-% # 'source_obj' => $obj,
-% # #or?
-% # #'source_table' => 'table_name',
-% # #'sourcenum' => '4', #current value of primary key in source_table
-% # # # (none is okay, just pass it if you have it)
-% ##
-% # optional
-% ##
-% # 'num_col' => 'col_name' #if column name is different in link_table than
-% # #source_table
-% # 'link_static' => { 'column' => 'value' },
-%
-% my( %opt ) = @_;
-%
-% my( $source_pkey, $sourcenum, $source_obj );
-% if ( $opt{'source_obj'} ) {
-%
-% $source_obj = $opt{'source_obj'};
-% #$source_table = $source_obj->dbdef_table->table;
-% $source_pkey = $source_obj->dbdef_table->primary_key;
-% $sourcenum = $source_obj->$source_pkey();
-%
-% } else {
-%
-% #$source_obj?
-% $source_pkey = $opt{'source_table'}
-% ? dbdef->table($opt{'source_table'})->primary_key
-% : '';
-% $sourcenum = $opt{'sourcenum'};
-% }
-%
-% $source_pkey = $opt{'num_col'} || $source_pkey;
-%
-% my $link_static = $opt{'link_static'} || {};
-%
-%
-% foreach my $name ( @{ $opt{'names_list'} } ) {
-%
-% my $checked;
-% if ( $cgi->param('error') ) {
-%
-% $checked = $cgi->param($opt{'link_table'}. ".$name" )
-% ? 'CHECKED'
-% : '';
-%
-% } else {
-%
-% $checked =
-% qsearchs( $opt{'link_table'}, {
-% $source_pkey => $sourcenum,
-% $opt{'name_col'} => $name,
-% %$link_static,
-% } )
-% ? 'CHECKED'
-% : ''
-%
-% }
-%
-%
-
-
- " <% $checked %> VALUE="ON">
-
- <% $name %>
-
-
-% }
+<%doc>
+Example:
+ include( '/elements/checkboxes-table-name.html',
+
+ ###
+ # required
+ ###
+ 'link_table' => 'table_name',
+
+ 'name_col' => 'name_column',
+ #or
+ 'name_callback' => sub { },
+
+ 'names_list' => [ 'value',
+ 'other value',
+ [ 'complex value' => { 'desc' => "Add'l description",
+ 'note' => ' *',
+ }
+ ],
+ ],
+
+ ###
+ # recommended (required?)
+ ###
+ 'source_obj' => $obj,
+ #or?
+ #'source_table' => 'table_name',
+ #'sourcenum' => '4', #current value of primary key in source_table
+ # # (none is okay, just pass it if you have it)
+
+ ###
+ # optional
+ ###
+ 'num_col' => 'col_name' #if column name is different in link_table than
+ #source_table
+ 'link_static' => { 'column' => 'value' },
+
+ )
+
+%doc>
+
+<% include('checkboxes.html',
+ 'names_list' => $opt{'names_list'},
+ 'checked_callback' => $checked_callback,
+ 'element_name_prefix' => $opt{'link_table'}. '.',
+ )
+%>
+
+<%init>
+
+my( %opt ) = @_;
+
+my @pset = ( 'a'..'z', 'A'..'Z', '0'..'9' );
+
+my $prefix = $opt{prefix}
+ || join('', map $pset[ int(rand $#pset) ], (0..20) );
+
+my( $source_pkey, $sourcenum, $source_obj );
+if ( $opt{'source_obj'} ) {
+
+ $source_obj = $opt{'source_obj'};
+ #$source_table = $source_obj->dbdef_table->table;
+ $source_pkey = $source_obj->dbdef_table->primary_key;
+ $sourcenum = $source_obj->$source_pkey();
+
+} else {
+
+ #$source_obj?
+ $source_pkey = $opt{'source_table'}
+ ? dbdef->table($opt{'source_table'})->primary_key
+ : '';
+ $sourcenum = $opt{'sourcenum'};
+}
+
+$source_pkey = $opt{'num_col'} || $source_pkey;
+
+my $link_static = $opt{'link_static'} || {};
+
+my $checked_callback = sub {
+ my( $cgi, $name ) = @_;
+ qsearchs( $opt{'link_table'}, {
+ $source_pkey => $sourcenum,
+ $opt{'name_col'} => $name,
+ %$link_static,
+ });
+};
+
+%init>