blob: 1735148a4463c7e64fcaabb88ce35c6da63c019a (
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
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
|
<%args>
$part_svc
$svcdb
$clone => undef
</%args>
<%init>
my $svcpart = $clone || $part_svc->svcpart; # may be undef
# get a list of applicable part_exports
my @part_export;
my $export_info = FS::part_export::export_info($svcdb);
foreach ( keys %{ $export_info } ) {
push @part_export, qsearch('part_export', { exporttype => $_ });
}
# and a hash of which ones are already assigned to this part_svc
my %export_svc;
if ( $svcpart ) {
%export_svc = map { $_->exportnum => $_ }
qsearch('export_svc', { svcpart => $svcpart });
}
my $count = 0;
my $columns = 3;
</%init>
<script type="text/javascript">
function toggle_selectrole() {
var selectrole = document.getElementById( this.name + '_selectrole' );
if ( selectrole ) {
selectrole.style.visibility = (this.checked) ? '' : 'hidden';
}
}
<&| /elements/onload.js &>
var boxes = document.getElementsByClassName('checkbox_export');
for ( var i = 0; i < boxes.length; i++ ) {
boxes[i].onchange = toggle_selectrole;
toggle_selectrole.apply(boxes[i]);
}
</&>
</script>
<FONT CLASS="fsinnerbox-title">Exports</FONT>
<TABLE CLASS="fsinnerbox">
<TR>
% # exports
% foreach my $part_export (@part_export) {
% my $exportnum = $part_export->exportnum;
<TD>
<INPUT CLASS="checkbox_export"
TYPE="checkbox" \
NAME="exportnum<% $exportnum %>" \
VALUE=1 \
<% $export_svc{$exportnum} ? 'CHECKED' : '' %>>
<% $part_export->label_html %>
% if ( $part_export->info->{roles} ) {
% my $role_info = $part_export->info->{roles};
% my @role_names = keys %$role_info;
% my %role_labels = map { %_ => $role_info->{$_}->{label} } @role_names;
% my $curr_role = $export_svc{$exportnum} ? $export_svc{$exportnum}->role
% : '';
<SPAN CLASS="selectrole" ID="exportnum<%$exportnum%>_selectrole">
as:
<& /elements/select.html,
'field' => "exportnum${exportnum}_role",
'options' => \@role_names,
'labels' => \%role_labels,
'curr_value' => $curr_role,
'empty_label' => 'select',
&>
</SPAN>
% # XXX should lock out roles that don't apply to the selected svcdb,
% # but that's a pain in the ass
% }
</SELECT>
</SPAN>
</TD>
% $count++;
% if ( $count % $columns == 0 ) {
</TR>
<TR>
% }
% }
</TR>
</TABLE><BR>
|
