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
|
<% include( 'elements/edit.html',
'name' => 'Phone device type',
'table' => 'part_device',
'labels' => {
'devicepart' => 'Part number',
'devicename' => 'Device name',
},
'viewall_dir' => 'browse',
'html_bottom' => $html_bottom_sub,
)
%>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
my $extra_sql =
join( ' OR ', map { "exporttype = '$_'" }
keys %{FS::part_export::export_info('part_device')}
);
$extra_sql = $extra_sql ? " WHERE ( $extra_sql ) " : " WHERE 0 = 1 ";
my $html_bottom_sub = sub {
my $part_device = shift;
'<BR>'.
'<FONT SIZE="+1">Exports</FONT><BR>'.
'<TABLE BGCOLOR="#cccccc" WIDTH=100%>'.
'<TR><TD>'.
include( '/elements/checkboxes-table.html',
'source_obj' => $part_device,
'link_table' => 'export_device',
'target_table' => 'part_export',
'extra_sql' => $extra_sql,
'name_callback' => sub { my $o = shift;
$o->exporttype. ' to '. $o->machine;
},
).
'</TD></TR></TABLE>';
};
</%init>
|