blob: 885d3460f2c0c7d0a51de033c06268d83f3bf483 (
plain)
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
|
<% encode_json( \@return ) %>\
<%init>
# default returned records must maintain consistency with /elements/select-part_pkg.html
my $select = 'part_pkg.*, setup_option.optionvalue AS _setup_fee,
recur_option.optionvalue AS _recur_fee';
my $addl_from .= FS::part_pkg->join_options_sql;
my $extra_sql = ' WHERE ' . FS::part_pkg->curuser_pkgs_sql;
# equivalent to agent_virt=1 and agent_null=1 in /elements/select-table.html
$extra_sql .= ' AND ' .
$FS::CurrentUser::CurrentUser->agentnums_sql(
'null' => 1,
);
my @records = qsearch( {
'table' => 'part_pkg',
'select' => $select,
'addl_from' => $addl_from,
'hashref' => {},
'extra_sql' => $extra_sql,
'order_by' => "ORDER BY pkg",
});
my @return = map {
{
'pkgpart' => $_->pkgpart,
'label' => $_->pkg_comment_only,
'disabled' => $_->disabled,
}
} @records;
</%init>
|
