2 <TD CLASS="background" COLSPAN=99>
5 var provision_hold_td = [];
6 var provision_hold_input = [];
9 <% itable('', 4, 1) %><TR><TD VALIGN="top">
12 %foreach my $part_svc ( @part_svc ) {
13 % my $svcpart = $part_svc->svcpart;
14 % my $pkg_svc = $pkg_svc{$svcpart}
15 % ||= qsearchs('pkg_svc', { 'pkgpart' => $pkgpart,
16 % 'svcpart' => $svcpart } )
17 % || new FS::pkg_svc ( {
18 % 'pkgpart' => $pkgpart,
19 % 'svcpart' => $svcpart,
21 % 'primary_svc' => '',
25 % if ( $cgi->param('error') ) {
26 % my $primary_svc = ( $pkg_svc->primary_svc =~ /^Y/i );
27 % my $pkg_svc_primary = scalar($cgi->param('pkg_svc_primary'));
28 % $pkg_svc->primary_svc('')
29 % if $primary_svc && $pkg_svc_primary != $svcpart;
30 % $pkg_svc->primary_svc('Y')
31 % if ! $primary_svc && $pkg_svc_primary == $svcpart;
35 % if ( $cgi->param("pkg_svc$svcpart") =~ /^\s*(\d+)\s*$/ ) {
37 % } elsif ( $pkg_svc->quantity ) {
38 % $quan = $pkg_svc->quantity;
42 % if ( grep { $_ eq "hidden_svc$svcpart" } $cgi->param ) {
43 % $hidden = $cgi->param("hidden_svc$svcpart");
45 % $hidden = $pkg_svc->hidden;
48 % if ( grep { $_ eq "no_bulk_skip$svcpart" } $cgi->param ) {
49 % $bulk_skip = $cgi->param("no_bulk_skip$svcpart") eq 'Y' ? '' : 'Y';
51 % $bulk_skip = $pkg_svc->bulk_skip;
53 % my $provision_hold = '';
54 % if ( grep { $_ eq "provision_hold$svcpart" } $cgi->param ) {
55 % $provision_hold = $cgi->param("hidden_svc$svcpart");
57 % $provision_hold = $pkg_svc->provision_hold;
60 % my @exports = $pkg_svc->part_svc->part_export;
61 % foreach my $export ( @exports ) {
62 % push @possible_exports, $export if $export->can('external_pkg_map');
67 <INPUT TYPE="text" NAME="pkg_svc<% $svcpart %>" SIZE=4 MAXLENGTH=6 VALUE="<% $quan %>">
71 <INPUT TYPE="radio" NAME="pkg_svc_primary" VALUE="<% $svcpart %>" <% $pkg_svc->primary_svc =~ /^Y/i ? ' CHECKED' : '' %>>
75 <A HREF="part_svc.cgi?<% $part_svc->svcpart %>"><% $part_svc->svc %></A> <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED)' : '' %>
79 <INPUT TYPE="checkbox" NAME="hidden<% $svcpart %>" VALUE="Y"<% $hidden =~ /^Y/i ? ' CHECKED' : ''%>>
83 <INPUT TYPE="checkbox" NAME="no_bulk_skip<% $svcpart %>" VALUE="Y"<% $bulk_skip =~ /^Y/i ? '' : ' CHECKED' %>>
86 <TD ALIGN="center" ID="td_provision_hold<% $svcpart %>">
87 <INPUT TYPE="checkbox" ID="input_provision_hold<% $svcpart %>" NAME="provision_hold<% $svcpart %>" VALUE="Y"<% $provision_hold =~ /^Y/i ? ' CHECKED' : ''%>>
90 provision_hold_td.push(document.getElementById('td_provision_hold<% $svcpart %>'));
91 provision_hold_input.push(document.getElementById('input_provision_hold<% $svcpart %>'));
95 % foreach ( 1 .. $columns-1 ) {
96 % if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) {
99 </TABLE></TD><TD VALIGN="top"><% pkg_svc_thead() %>
104 % } # foreach $part_svc
106 </TR></TABLE></TD></TR></TABLE>
109 // start_on_hold from edit/part_pkg.cgi
110 // toggles display of provision_hold checkboxes when that changes
111 function provision_hold_check () {
112 var start_on_hold = document.getElementById('start_on_hold');
114 for (i = 0; i < provision_hold_td.length; i++) {
115 provision_hold_td[i].style.display = start_on_hold.checked ? '' : 'none';
119 function provision_hold_init () {
120 var start_on_hold = document.getElementById('start_on_hold');
122 start_on_hold.onchange = provision_hold_check;
123 provision_hold_check();
126 provision_hold_init();
129 % if ( scalar(@possible_exports) > 0 || scalar(@mapped_exports) > 0 ) {
131 <TH BGCOLOR="#dcdcdc">Export</TH>
132 <TH BGCOLOR="#dcdcdc">Vendor Package Id <FONT SIZE="-2">(blank to delete)</FONT></TH>
134 % foreach my $export ( @mapped_exports ) {
136 <TD><% $export->exportname %></TD>
137 <TD><INPUT TYPE="text" NAME="export<% $export->exportnum %>"
138 SIZE="30" VALUE="<% $vendor_pkg_ids{$export->exportnum} %>">
142 % foreach my $export ( @possible_exports ) {
143 % unless ( defined $vendor_pkg_ids{$export->exportnum} ) {
145 <TD><% $export->exportname %></TD>
147 <INPUT TYPE="text" NAME="export<% $export->exportnum %>" SIZE="30">
161 my $cgi = $opt{'cgi'};
166 return "\n\n". ntable('#cccccc', 2).
168 '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH>'.
169 '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Primary</FONT></TH>'.
170 '<TH BGCOLOR="#dcdcdc">Service</TH>'.
171 '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Hide<BR>from<BR>Invoices</FONT></TH>'.
172 '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Bulk<BR>Charge</FONT></TH>'.
173 '<TH BGCOLOR="#dcdcdc" ID="th_provision_hold' . $thead_count . '"><FONT SIZE=-1>Remove Hold After Provisioning</FONT></TH>'.
175 qq!<SCRIPT>provision_hold_td.push(document.getElementById('th_provision_hold$thead_count'))</SCRIPT>!;
179 my $part_pkg = $opt{'object'};
180 my $pkgpart = $part_pkg->pkgpart;
182 my $where = "WHERE disabled IS NULL OR disabled = ''";
184 $where .= " OR 0 < ( SELECT quantity FROM pkg_svc
185 WHERE pkg_svc.svcpart = part_svc.svcpart
186 AND pkgpart = $pkgpart
189 my @part_svc = qsearch('part_svc', {}, '', $where);
191 #my $q_part_pkg = $clone_part_pkg || $part_pkg;
192 #my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc;
193 my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc('disable_linked'=>1);
198 my @possible_exports = ();
199 my @mapped_exports = ();
200 my @part_pkg_vendor = $part_pkg->part_pkg_vendor;
201 foreach my $part_pkg_vendor ( @part_pkg_vendor ) {
202 push @mapped_exports, $part_pkg_vendor->part_export;
204 my %vendor_pkg_ids = $part_pkg->vendor_pkg_ids;