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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
%
%
% ##
% # 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'} || $opt{'object'} ) {
%
% $source_obj = $opt{'source_obj'} || $opt{'object'};
% #$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 = $opt{'extra_sql'} || '';
%
% if ( $opt{'agent_virt'} ) {
% $extra_sql .= ' AND' . $FS::CurrentUser::CurrentUser->agentnums_sql(
% 'null_right' => $opt{'agent_null_right'}
% );
% }
%
% 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'
% : '';
%
% } elsif ( !$sourcenum ) { # newly created object, has no links yet
%
% $checked = $opt{'default'} ? 'CHECKED' : ''
%
% } else {
%
% $checked = qsearchs( $opt{'link_table'}, {
% $source_pkey => $sourcenum,
% $target_pkey => $targetnum,
% } )
% ? 'CHECKED'
% : ''
%
% }
%
%
<INPUT TYPE="checkbox" NAME="<% $target_pkey. $targetnum %>" <% $checked %> VALUE="ON">
% if ( $opt{'target_link'} ) {
<A HREF="<% $opt{'target_link'} %><% $targetnum %>">
%
%
% }
%
<% $targetnum %>:
% if ( $opt{'name_callback'} ) {
<% &{ $opt{'name_callback'} }( $target_obj ) %><% $opt{'target_link'} ? '</A>' : '' %>
% } else {
% my $name_col = $opt{'name_col'};
%
<% $target_obj->$name_col() %><% $opt{'target_link'} ? '</A>' : '' %>
% }
% if ( $opt{'disable-able'} ) {
<% $target_obj->disabled =~ /^Y/i ? ' (DISABLED)' : '' %>
% }
<BR>
% }
|
