<%doc> Example: include( '/elements/select-table.html', ## # required ## 'table' => 'table_name', 'name_col' => 'name_column', #or method if you pass an order_by #strongly recommended (you want your forms to be "sticky" on errors, right?) 'curr_value' => 'current_value', #'value' => #deprecated form of 'curr_value', ## # optional ## #search params 'hashref' => {}, 'addl_from' => '', 'extra_sql' => '', 'agent_virt' => 0, #set true and make sure the result is JOINed to #something with agentnum (usually cust_main) 'agent_null' => 0, #set true to always show un-agented entries 'agent_null_right' => '', #right to see un-agented entries #or 'records' => \@records, #instead of search params 'presorted' => 0, #set true to disable sorting the records on name_col #instead of the primary key... only for special cases 'value_col' => 'columnname', #basic params controlling the resulting 'element_name' => '', #HTML element name, defaults to the name of # the primary key column 'field' => '', #synonym for element_name 'element_etc' => '', #additional attributes (i.e. "DISABLED") for the # NAME = "<% $opt{'element_name'} || $opt{'field'} || $key %>" ID = "<% $opt{'id'} || $key %>" <% $onchange %> <% $size %> <% $opt{'element_etc'} %> > % while ( @pre_options ) { % my $pre_opt = shift(@pre_options); % my $pre_label = shift(@pre_options); % my $selected = $opt{'all_selected'} % || ( ref($value) && $value->{$pre_opt} ) % || ( $value eq $pre_opt ); % } % unless ( $opt{'multiple'} || $opt{'disable_empty'} ) { % } % foreach my $record ( % # we have the order_by parameter for this % #sort { $a->$name_col() cmp $b->$name_col() % # || $a->$key() <=> $b->$key() % # } % @records % ) % { % my $recvalue = $record->$key(); % my $selected; % if ( $opt{'all_selected'} ) { % $selected = 1; % } elsif ( $opt{'compare_sub'} && !ref($value) ) { % $selected = &{ $opt{'compare_sub'} }( $value, $recvalue ); % } else { % $selected = ( ref($value) && $value->{$recvalue} ) % || ( $value && $value eq $recvalue ); #not == because of value_col % } % } % while ( @post_options ) { % my $post_opt = shift(@post_options); % my $post_label = shift(@post_options); % my $selected = ( ref($value) && $value->{$post_opt} ) % || ( $value eq $post_opt ); % } %} <%init> my( %opt ) = @_; warn "elements/select-table.html: \n". Dumper(\%opt) if exists $opt{debug} && $opt{debug}; $opt{'extra_option_attributes'} ||= []; my $onchange = ''; if ( $opt{'onchange'} ) { $onchange = $opt{'onchange'}; $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/; $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack. all onchange #callbacks should act the same $onchange = 'onChange="'. $onchange. '"'; } my $dbdef_table = dbdef->table($opt{'table'}) or die "can't find dbdef for ". $opt{'table'}. " table\n"; my $key = $opt{'value_col'} || $dbdef_table->primary_key; my $name_col = $opt{'name_col'}; my $value = exists($opt{'curr_value'}) ? $opt{'curr_value'} : $opt{'value'}; $value = [ split(/\s*,\s*/, $value) ] if $opt{'multiple'} && $value =~ /,/; #my $addl_from = $opt{'addl_from'} || ''; my $extra_sql = $opt{'extra_sql'} || ''; my $hashref = $opt{'hashref'} || {}; if ( $opt{'agent_virt'} ) { $extra_sql .= ( $extra_sql =~ /WHERE/i || scalar(keys %$hashref ) ? ' AND ' : ' WHERE ' ). $FS::CurrentUser::CurrentUser->agentnums_sql( 'null' => $opt{'agent_null'}, 'null_right' => $opt{'agent_null_right'}, ); } my @records = (); if ( $opt{'records'} ) { @records = @{ $opt{'records'} }; @records = sort { $a->get($name_col) cmp $b->get($name_col) } @records unless $opt{'presorted'}; } else { @records = qsearch( { 'select' => $opt{'select'} || '*', 'table' => $opt{'table'}, 'addl_from' => $opt{'addl_from'}, 'hashref' => $hashref, 'extra_sql' => $extra_sql, 'order_by' => ( $opt{'order_by'} || "ORDER BY $name_col" ), }); } if ( ref( $value ) eq 'ARRAY' ) { $value = { map { $_ => 1 } @$value }; } if ( (ref $value && $value) or (ref $opt{hashref} && exists $opt{hashref}->{disabled}) or $opt{also_show_option} ) { delete $opt{hashref}->{disabled}; # also_show_option: (hack for change_pkg form): # Include an absent select option, without selecting it # as the curr_value my @also_show = ref($value) ? keys %$value : ($value); push @also_show, $opt{also_show_option} if $opt{also_show_option}; foreach my $v ( @also_show ) { next if grep { $v == $_->$key() } @records; $opt{hashref}->{$key} = $v; my $record = qsearchs( { 'table' => $opt{table}, 'addl_from' => $opt{'addl_from'}, 'hashref' => $hashref, 'extra_sql' => $extra_sql, }); push @records, $record if $record; } } my @pre_options = $opt{pre_options} ? @{ $opt{pre_options} } : (); my @post_options = $opt{post_options} ? @{ $opt{post_options} } : (); my $size = $opt{'size'} ? 'SIZE=' . $opt{'size'} : '';