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 %                                } );
  16 %  if ( $cgi->param('error') ) {
  17 %    my $primary_svc = ( $pkg_svc->primary_svc =~ /^Y/i );
  18 %    my $pkg_svc_primary = scalar($cgi->param('pkg_svc_primary'));
  19 %    $pkg_svc->primary_svc('')
  20 %      if $primary_svc && $pkg_svc_primary != $svcpart;
  21 %    $pkg_svc->primary_svc('Y')
  22 %      if ! $primary_svc && $pkg_svc_primary == $svcpart;
  23 %  }
  24 %
  25 %  push @fixups, "pkg_svc$svcpart";
  26 %
  27 %  my $quan = 0;
  28 %  if ( $cgi->param("pkg_svc$svcpart") =~ /^\s*(\d+)\s*$/ ) {
  29 %    $quan = $1;
  30 %  } elsif ( $pkg_svc->quantity ) {
  31 %    $quan = $pkg_svc->quantity;
  32 %  }
  33
  34   <TR>
  35     <TD>
  36       <INPUT TYPE="text" NAME="pkg_svc<% $svcpart %>" SIZE=7 MAXLENGTH=6 VALUE="<% $quan %>">
  37     </TD>
  38
  39     <TD ALIGN="center">
  40       <INPUT TYPE="radio" NAME="pkg_svc_primary" VALUE="<% $svcpart %>" <% $pkg_svc->primary_svc =~ /^Y/i ? ' CHECKED' : '' %>>
  41     </TD>
  42
  43     <TD>
  44       <A HREF="part_svc.cgi?<% $part_svc->svcpart %>"><% $part_svc->svc %></A>      <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %>
  45     </TD>
  46   </TR>
  47 % foreach ( 1 .. $columns-1 ) {
  48 %       if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) {
  49 %
  50
  51          </TABLE></TD><TD VALIGN="top"><% $thead %>
  52 %   }
  53 %     }
  54 %     $count++;
  55 %
  56 % }
  57
  58 </TR></TABLE></TD></TR></TABLE>
  59
  60   </TD>
  61 </TR>
  62
  63 <%init>
  64
  65 my %opt = @_;
  66 my $cgi = $opt{'cgi'};
  67
  68 my $thead =  "\n\n". ntable('#cccccc', 2).
  69              '<TR><TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH>'.
  70              '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-2>Primary</FONT></TH>'.
  71              '<TH BGCOLOR="#dcdcdc">Service</TH></TR>';
  72
  73 my $part_pkg = $opt{'object'};
  74 my $pkgpart = $part_pkg->pkgpart;
  75
  76 my $where =  "WHERE disabled IS NULL OR disabled = ''";
  77 if ( $pkgpart ) {
  78   $where .=  "   OR 0 < ( SELECT quantity FROM pkg_svc
  79                            WHERE pkg_svc.svcpart = part_svc.svcpart
  80                              AND pkgpart = $pkgpart
  81                         )";
  82 }
  83 my @part_svc = qsearch('part_svc', {}, '', $where);
  84
  85 #my $q_part_pkg = $clone_part_pkg || $part_pkg;
  86 #my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc;
  87 my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc;
  88
  89 my @fixups = ();
  90 my $count = 0;
  91 my $columns = 3;
  92
  93 </%init>