<%
##
# required
##
# 'target_table' => 'table_name',
# 'link_table' => 'table_name',
#
# 'name_col' => 'name_column',
# #or
# 'name_callback' => sub { },
#
##
# 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
##
# 'disable-able' => 1,
my( %opt ) = @_;
my $target_pkey = dbdef->table($opt{'target_table'})->primary_key;
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'};
}
my $hashref = $opt{'hashref'} || {};
my $extra_sql = '';
if ( $opt{'disable-able'} ) {
$hashref->{'disabled'} = '';
$extra_sql .= ( $sourcenum && $source_pkey )
? "OR $source_pkey = $sourcenum"
: '';
}
%>
<% foreach my $target_obj (
qsearch({ 'table' => $opt{'target_table'},
'hashref' => $hashref,
'select' => $opt{'target_table'}. '.*',
'addl_from' => "LEFT JOIN $opt{'link_table'} USING ( $target_pkey )",
'extra_sql' => $extra_sql,
})
) {
my $targetnum = $target_obj->$target_pkey();
my $checked;
if ( $cgi->param('error') ) {
$checked = $cgi->param($target_pkey.$targetnum)
? 'CHECKED'
: '';
} else {
$checked = qsearchs( $opt{'link_table'}, {
$source_pkey => $sourcenum,
$target_pkey => $targetnum,
} )
? 'CHECKED'
: ''
}
%>
VALUE="ON">
<% if ( $opt{'target_link'} ) { %>
<%
}
%><%= $targetnum %>:
<% if ( $opt{'name_callback'} ) { %>
<%= &{ $opt{'name_callback'} }( $target_obj ) %><%= $opt{'target_link'} ? '' : '' %>
<% } else {
my $name_col = $opt{'name_col'};
%>
<%= $target_obj->$name_col() %><%= $opt{'target_link'} ? '' : '' %>
<% } %>
<% if ( $opt{'disable-able'} ) { %>
<%= $target_obj->disabled =~ /^Y/i ? ' (DISABLED)' : '' %>
<% } %>
<% } %>