httemplate/elements/tr-pkg_svc.html

   1 <TR>
   2   <TD CLASS="background" COLSPAN=99>
   3
   4 <% itable('', 4, 1) %><TR><TD VALIGN="top">
   5 <% $thead %>
   6
   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,
  13 %                                   'quantity'    => 0,
  14 %                                   'primary_svc' => '',
  15 %                                   'hidden'      => '',
  16 %                                } );
  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;
  24 %  }
  25 %
  26 %  push @fixups, "pkg_svc$svcpart";
  27 %
  28 %  my $quan = 0;
  29 %  if ( $cgi->param("pkg_svc$svcpart") =~ /^\s*(\d+)\s*$/ ) {
  30 %    $quan = $1;
  31 %  } elsif ( $pkg_svc->quantity ) {
  32 %    $quan = $pkg_svc->quantity;
  33 %  }
  34 %
  35 %  my @exports = $pkg_svc->part_svc->part_export;
  36 %  foreach my $export ( @exports ) {
  37 %       push @possible_exports, $export if $export->can('external_pkg_map');
  38 %  }
  39
  40   <TR>
  41     <TD>
  42       <INPUT TYPE="text" NAME="pkg_svc<% $svcpart %>" SIZE=7 MAXLENGTH=6 VALUE="<% $quan %>">
  43     </TD>
  44
  45     <TD ALIGN="center">
  46       <INPUT TYPE="radio" NAME="pkg_svc_primary" VALUE="<% $svcpart %>" <% $pkg_svc->primary_svc =~ /^Y/i ? ' CHECKED' : '' %>>
  47     </TD>
  48
  49     <TD>
  50       <A HREF="part_svc.cgi?<% $part_svc->svcpart %>"><% $part_svc->svc %></A>      <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %>
  51     </TD>
  52
  53     <TD>
  54       <INPUT TYPE="checkbox" NAME="hidden<% $svcpart %>" VALUE="Y"<% $pkg_svc->hidden =~ /^Y/i ? ' CHECKED' : ''%>>
  55     </TD>
  56   </TR>
  57 % foreach ( 1 .. $columns-1 ) {
  58 %       if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) {
  59 %
  60
  61          </TABLE></TD><TD VALIGN="top"><% $thead %>
  62 %   }
  63 %     }
  64 %     $count++;
  65 %
  66 % }
  67
  68 </TR></TABLE></TD></TR></TABLE>
  69
  70 % if ( scalar(@possible_exports) > 0 || scalar(@mapped_exports) > 0 ) {
  71    <TABLE><TR>
  72         <TH BGCOLOR="#dcdcdc">Export</TH>
  73         <TH BGCOLOR="#dcdcdc">Vendor Package Id <FONT SIZE="-2">(blank to delete)</FONT></TH>
  74         </TR>
  75 %   foreach my $export ( @mapped_exports ) {
  76         <TR>
  77             <TD><% $export->exportname %></TD>
  78             <TD><INPUT TYPE="text" NAME="export<% $export->exportnum %>"
  79                     SIZE="30" VALUE="<% $vendor_pkg_ids{$export->exportnum} %>">
  80             </TD>
  81         </TR>
  82 %   }
  83 %   foreach my $export ( @possible_exports ) {
  84 %       unless ( defined $vendor_pkg_ids{$export->exportnum} ) {
  85             <TR>
  86                 <TD><% $export->exportname %></TD>
  87                 <TD>
  88                     <INPUT TYPE="text" NAME="export<% $export->exportnum %>" SIZE="30">
  89                 </TD>
  90             </TR>
  91 %       }
  92 %   }
  93   </TABLE>
  94 % }
  95
  96   </TD>
  97 </TR>
  98
  99 <%init>
 100
 101 my %opt = @_;
 102 my $cgi = $opt{'cgi'};
 103
 104 my $thead =  "\n\n". ntable('#cccccc', 2).
 105              '<TR><TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH>'.
 106              '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-2>Primary</FONT></TH>'.
 107              '<TH BGCOLOR="#dcdcdc">Service</TH>'.
 108              '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Hide</FONT></TH>'.
 109              '</TR>';
 110
 111 my $part_pkg = $opt{'object'};
 112 my $pkgpart = $part_pkg->pkgpart;
 113
 114 my $where =  "WHERE disabled IS NULL OR disabled = ''";
 115 if ( $pkgpart ) {
 116   $where .=  "   OR 0 < ( SELECT quantity FROM pkg_svc
 117                            WHERE pkg_svc.svcpart = part_svc.svcpart
 118                              AND pkgpart = $pkgpart
 119                         )";
 120 }
 121 my @part_svc = qsearch('part_svc', {}, '', $where);
 122
 123 #my $q_part_pkg = $clone_part_pkg || $part_pkg;
 124 #my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc;
 125 my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc('disable_linked'=>1);
 126
 127 my @fixups = ();
 128 my $count = 0;
 129 my $columns = 3;
 130
 131 my @possible_exports = ();
 132 my @mapped_exports = ();
 133 my @part_pkg_vendor = $part_pkg->part_pkg_vendor;
 134 foreach my $part_pkg_vendor ( @part_pkg_vendor ) {
 135     push @mapped_exports, $part_pkg_vendor->part_export;
 136 }
 137 my %vendor_pkg_ids = $part_pkg->vendor_pkg_ids;
 138
 139 </%init>