<% ## # 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 %>
<% } %>