2 <TD CLASS="background" COLSPAN=99>
4 <% itable('', 4, 1) %><TR><TD VALIGN="top">
7 %foreach my $part_svc ( @part_svc ) {
8 % my $svcpart = $part_svc->svcpart;
9 % my $pkg_svc = $pkg_svc{$svcpart}
10 % || new FS::pkg_svc ( {
11 % 'pkgpart' => $pkgpart,
12 % 'svcpart' => $svcpart,
14 % 'primary_svc' => '',
17 % if ( $cgi->param('error') ) {
18 % my $primary_svc = ( $pkg_svc->primary_svc =~ /^Y/i );
19 % my $pkg_svc_primary = scalar($cgi->param('pkg_svc_primary'));
20 % $pkg_svc->primary_svc('')
21 % if $primary_svc && $pkg_svc_primary != $svcpart;
22 % $pkg_svc->primary_svc('Y')
23 % if ! $primary_svc && $pkg_svc_primary == $svcpart;
26 % push @fixups, "pkg_svc$svcpart";
29 % if ( $cgi->param("pkg_svc$svcpart") =~ /^\s*(\d+)\s*$/ ) {
31 % } elsif ( $pkg_svc->quantity ) {
32 % $quan = $pkg_svc->quantity;
37 <INPUT TYPE="text" NAME="pkg_svc<% $svcpart %>" SIZE=7 MAXLENGTH=6 VALUE="<% $quan %>">
41 <INPUT TYPE="radio" NAME="pkg_svc_primary" VALUE="<% $svcpart %>" <% $pkg_svc->primary_svc =~ /^Y/i ? ' CHECKED' : '' %>>
45 <A HREF="part_svc.cgi?<% $part_svc->svcpart %>"><% $part_svc->svc %></A> <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %>
49 <INPUT TYPE="checkbox" NAME="hidden<% $svcpart %>" VALUE="Y"<% $pkg_svc->hidden =~ /^Y/i ? ' CHECKED' : ''%>>
52 % foreach ( 1 .. $columns-1 ) {
53 % if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) {
56 </TABLE></TD><TD VALIGN="top"><% $thead %>
63 </TR></TABLE></TD></TR></TABLE>
71 my $cgi = $opt{'cgi'};
73 my $thead = "\n\n". ntable('#cccccc', 2).
74 '<TR><TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH>'.
75 '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-2>Primary</FONT></TH>'.
76 '<TH BGCOLOR="#dcdcdc">Service</TH>'.
77 '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Hide</FONT></TH>'.
80 my $part_pkg = $opt{'object'};
81 my $pkgpart = $part_pkg->pkgpart;
83 my $where = "WHERE disabled IS NULL OR disabled = ''";
85 $where .= " OR 0 < ( SELECT quantity FROM pkg_svc
86 WHERE pkg_svc.svcpart = part_svc.svcpart
87 AND pkgpart = $pkgpart
90 my @part_svc = qsearch('part_svc', {}, '', $where);
92 #my $q_part_pkg = $clone_part_pkg || $part_pkg;
93 #my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc;
94 my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc('disable_linked'=>1);