<%doc> Example: include( '/elements/checkboxes-table-name.html', ### # required ### 'link_table' => 'table_name', 'name_col' => 'name_column', #or #not yet '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' }, ) <% include('checkboxes.html', 'names_list' => $opt{'names_list'}, 'checked_callback' => $checked_callback, 'element_name_prefix' => $opt{'link_table'}. '.', 'disable_links' => $opt{'disable_links'}, ) %> <%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, }); };