1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
%
%
% ##
% # 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'
% : ''
%
% }
%
%
<INPUT TYPE="checkbox" NAME="<% $opt{'link_table'}. ".$name" %>" <% $checked %> VALUE="ON">
<% $name %>
<BR>
% }
|
