6 % # 'target_table' => 'table_name',
7 % # 'link_table' => 'table_name',
9 % # 'name_col' => 'name_column',
11 % # 'name_callback' => sub { },
14 % # recommended (required?)
16 % # 'source_obj' => $obj,
18 % # #'source_table' => 'table_name',
19 % # #'sourcenum' => '4', #current value of primary key in source_table
20 % # # # (none is okay, just pass it if you have it)
24 % # 'disable-able' => 1,
28 % my $target_pkey = dbdef->table($opt{'target_table'})->primary_key;
30 % my( $source_pkey, $sourcenum, $source_obj );
31 % if ( $opt{'source_obj'} ) {
33 % $source_obj = $opt{'source_obj'};
34 % #$source_table = $source_obj->dbdef_table->table;
35 % $source_pkey = $source_obj->dbdef_table->primary_key;
36 % $sourcenum = $source_obj->$source_pkey();
41 % $source_pkey = $opt{'source_table'}
42 % ? dbdef->table($opt{'source_table'})->primary_key
44 % $sourcenum = $opt{'sourcenum'};
47 % my $hashref = $opt{'hashref'} || {};
51 % if ( $opt{'disable-able'} ) {
52 % $hashref->{'disabled'} = '';
54 % $extra_sql .= ( $sourcenum && $source_pkey )
55 % ? "OR $source_pkey = $sourcenum"
60 % foreach my $target_obj (
61 % qsearch({ 'table' => $opt{'target_table'},
62 % 'hashref' => $hashref,
63 % 'select' => $opt{'target_table'}. '.*',
64 % 'addl_from' => "LEFT JOIN $opt{'link_table'} USING ( $target_pkey )",
65 % 'extra_sql' => $extra_sql,
69 % my $targetnum = $target_obj->$target_pkey();
72 % if ( $cgi->param('error') ) {
74 % $checked = $cgi->param($target_pkey.$targetnum)
80 % $checked = qsearchs( $opt{'link_table'}, {
81 % $source_pkey => $sourcenum,
82 % $target_pkey => $targetnum,
92 <INPUT TYPE="checkbox" NAME="<% $target_pkey. $targetnum %>" <% $checked %> VALUE="ON">
93 % if ( $opt{'target_link'} ) {
96 <A HREF="<% $opt{'target_link'} %><% $targetnum %>">
102 % if ( $opt{'name_callback'} ) {
105 <% &{ $opt{'name_callback'} }( $target_obj ) %><% $opt{'target_link'} ? '</A>' : '' %>
107 % my $name_col = $opt{'name_col'};
111 <% $target_obj->$name_col() %><% $opt{'target_link'} ? '</A>' : '' %>
113 % if ( $opt{'disable-able'} ) {
116 <% $target_obj->disabled =~ /^Y/i ? ' (DISABLED)' : '' %>