httemplate/browse/part_pkg.cgi

   1 %
   2 %
   3 %#false laziness w/access_user.html
   4 %my %search = ();
   5 %my $search = '';
   6 %unless ( $cgi->param('showdisabled') ) {
   7 %  %search = ( 'disabled' => '' );
   8 %  $search = "( disabled = '' OR disabled IS NULL )";
   9 %}
  10 %
  11 %my $select = '*';
  12 %my $orderby = 'pkgpart';
  13 %if ( $cgi->param('active') ) {
  14 %
  15 %  $orderby = 'num_active DESC';
  16 %}
  17 %  $select = "
  18 %
  19 %    *,
  20 %
  21 %    ( SELECT COUNT(*) FROM cust_pkg WHERE cust_pkg.pkgpart = part_pkg.pkgpart
  22 %       AND ( cancel IS NULL OR cancel = 0 )
  23 %       AND ( susp IS NULL OR susp = 0 )
  24 %    ) AS num_active,
  25 %
  26 %    ( SELECT COUNT(*) FROM cust_pkg WHERE cust_pkg.pkgpart = part_pkg.pkgpart
  27 %        AND ( cancel IS NULL OR cancel = 0 )
  28 %        AND susp IS NOT NULL AND susp != 0
  29 %    ) AS num_suspended,
  30 %
  31 %    ( SELECT COUNT(*) FROM cust_pkg WHERE cust_pkg.pkgpart = part_pkg.pkgpart
  32 %        AND cancel IS NOT NULL AND cancel != 0
  33 %    ) AS num_cancelled
  34 %
  35 %  ";
  36 %
  37 %#}
  38 %
  39 %my $conf = new FS::Conf;
  40 %my $taxclasses = $conf->exists('enable_taxclasses');
  41 %
  42 %my $html_init;
  43 %#unless ( $cgi->param('active') ) {
  44 %  $html_init = qq!
  45 %    One or more service definitions are grouped together into a package
  46 %    definition and given pricing information.  Customers purchase packages
  47 %    rather than purchase services directly.<BR><BR>
  48 %    <A HREF="${p}edit/part_pkg.cgi"><I>Add a new package definition</I></A>
  49 %    <BR><BR>
  50 %  !;
  51 %#}
  52 %
  53 %my $posttotal;
  54 %if ( $cgi->param('showdisabled') ) {
  55 %  $cgi->param('showdisabled', 0);
  56 %  $posttotal = '( <a href="'. $cgi->self_url. '">hide disabled packages</a> )';
  57 %  $cgi->param('showdisabled', 1);
  58 %} else {
  59 %  $cgi->param('showdisabled', 1);
  60 %  $posttotal = '( <a href="'. $cgi->self_url. '">show disabled packages</a> )';
  61 %  $cgi->param('showdisabled', 0);
  62 %}
  63 %
  64 %
  65 %# ------
  66 %
  67 %my $link = [ $p.'edit/part_pkg.cgi?', 'pkgpart' ];
  68 %
  69 %my @header = ( '#', 'Package', 'Comment' );
  70 %my @fields = ( 'pkgpart', 'pkg', 'comment' );
  71 %my $align = 'rll';
  72 %my @links = ( $link, $link, '' );
  73 %my @style = ( '', '', '' );
  74 %
  75 %#false laziness w/access_user.html
  76 %#unless ( $cgi->param('showdisabled') ) { #its been reversed already
  77 %if ( $cgi->param('showdisabled') ) { #its been reversed already
  78 %  push @header, 'Status';
  79 %  push @fields, sub { shift->disabled
  80 %                        ? '<FONT COLOR="#FF0000">DISABLED</FONT>'
  81 %                        : '<FONT COLOR="#00CC00">Active</FONT>'
  82 %                    };
  83 %  push @links, '';
  84 %  $align .= 'c';
  85 %  push @style, 'b';
  86 %}
  87 %
  88 %unless ( 0 ) { #already showing only one class or something?
  89 %  push @header, 'Class';
  90 %  push @fields, sub { shift->classname || '(none)'; };
  91 %  $align .= 'l';
  92 %}
  93 %
  94 %#if ( $cgi->param('active') ) {
  95 %  push @header, 'Customer<BR>packages';
  96 %  my %col = (
  97 %    'active'          => '00CC00',
  98 %    'suspended'       => 'FF9900',
  99 %    'cancelled'       => 'FF0000',
 100 %    #'one-time charge' => '000000',
 101 %    'charge'          => '000000',
 102 %  );
 103 %  my $cust_pkg_link = $p. 'search/cust_pkg.cgi?pkgpart=';
 104 %  push @fields, sub { my $part_pkg = shift;
 105 %                      [
 106 %                        map {
 107 %                              my $magic = $_;
 108 %                              my $label = $_;
 109 %                              if ( $magic eq 'active' && $part_pkg->freq == 0 ) {
 110 %                                $magic = 'inactive';
 111 %                                #$label = 'one-time charge',
 112 %                                $label = 'charge',
 113 %                              }
 114 %
 115 %                              [
 116 %                                {
 117 %                                 'data'  => '<B><FONT COLOR="#'. $col{$label}. '">'.
 118 %                                            $part_pkg->get("num_$_").
 119 %                                            '</FONT></B>',
 120 %                                 'align' => 'right',
 121 %                                },
 122 %                                {
 123 %                                 'data'  => $label.
 124 %                                              ( $part_pkg->get("num_$_") != 1
 125 %                                                && $label =~ /charge$/
 126 %                                                  ? 's'
 127 %                                                  : ''
 128 %                                              ),
 129 %                                 'align' => 'left',
 130 %                                 'link'  => ( $part_pkg->get("num_$_")
 131 %                                                ? $cust_pkg_link.
 132 %                                                  $part_pkg->pkgpart.
 133 %                                                  ";magic=$magic"
 134 %                                                : ''
 135 %                                            ),
 136 %                                },
 137 %                              ],
 138 %                            } (qw( active suspended cancelled ))
 139 %                      ]; };
 140 %  $align .= 'r';
 141 %#}
 142 %
 143 %push @header, 'Frequency';
 144 %push @fields, sub { shift->freq_pretty; };
 145 %$align .= 'l';
 146 %
 147 %if ( $taxclasses ) {
 148 %  push @header, 'Taxclass';
 149 %  push @fields, sub { shift->taxclass() || '&nbsp;'; };
 150 %  $align .= 'l';
 151 %}
 152 %
 153 %push @header, 'Plan',
 154 %              'Data',
 155 %              'Services';
 156 %              #'Service', 'Quan', 'Primary';
 157 %
 158 %push @fields, sub { shift->plan || '(legacy)' },
 159 %
 160 %              sub {
 161 %                    my $part_pkg = shift;
 162 %                    if ( $part_pkg->plan ) {
 163 %
 164 %                      [ map {
 165 %                              /^(\w+)=(.*)$/; #or something;
 166 %                              [
 167 %                                { 'data'  => $1,
 168 %                                  'align' => 'right',
 169 %                                },
 170 %                                { 'data'  => $2,
 171 %                                  'align' => 'left',
 172 %                                },
 173 %                              ];
 174 %                            }
 175 %                        split(/\n/, $part_pkg->plandata)
 176 %                      ];
 177 %
 178 %                    } else {
 179 %
 180 %                      [ map { [
 181 %                                { 'data'  => uc($_),
 182 %                                  'align' => 'right',
 183 %                                },
 184 %                                {
 185 %                                  'data'  => $part_pkg->$_(),
 186 %                                  'align' => 'left',
 187 %                                },
 188 %                              ];
 189 %                            }
 190 %                        (qw(setup recur))
 191 %                      ];
 192 %
 193 %                    }
 194 %
 195 %                  },
 196 %
 197 %              sub {
 198 %                    my $part_pkg = shift;
 199 %
 200 %                    [ map  {
 201 %                             my $pkg_svc = $_;
 202 %                             my $part_svc = $pkg_svc->part_svc;
 203 %                             my $svc = $part_svc->svc;
 204 %                             if ( $pkg_svc->primary_svc =~ /^Y/i ) {
 205 %                               $svc = "<B>$svc (PRIMARY)</B>";
 206 %                             }
 207 %                             $svc =~ s/ +/&nbsp;/g;
 208 %
 209 %                             [
 210 %                               {
 211 %                                 'data'  => '<B>'. $pkg_svc->quantity. '</B>',
 212 %                                 'align' => 'right'
 213 %                               },
 214 %                               {
 215 %                                 'data'  => $svc,
 216 %                                 'align' => 'left',
 217 %                                 'link'  => $p. 'edit/part_svc.cgi?'.
 218 %                                            $part_svc->svcpart,
 219 %                               },
 220 %                             ];
 221 %                           }
 222 %                      sort {     $b->primary_svc =~ /^Y/i
 223 %                             <=> $a->primary_svc =~ /^Y/i
 224 %                           }
 225 %                           $part_pkg->pkg_svc
 226 %
 227 %                    ];
 228 %
 229 %                  };
 230 %
 231 %$align .= 'lrl'; #rr';
 232 %
 233 %# --------
 234 %
 235 %my $count_query = 'SELECT COUNT(*) FROM part_pkg';
 236 %$count_query .= " WHERE $search"
 237 %  if $search;
 238 %
 239 %
 240 <% include( 'elements/browse.html',
 241                  'title'          => 'Package Definitions',
 242                  'menubar'        => [ 'Main Menu' => $p ],
 243                  'html_init'      => $html_init,
 244                  'html_posttotal' => $posttotal,
 245                  'name'           => 'package definitions',
 246                  'query'          => { 'select'    => $select,
 247                                        'table'     => 'part_pkg',
 248                                        'hashref'   => \%search,
 249                                        'extra_sql' => "ORDER BY $orderby",
 250                                      },
 251                  'count_query'    => $count_query,
 252                  'header'         => \@header,
 253                  'fields'         => \@fields,
 254                  'links'          => \@links,
 255                  'align'          => $align,
 256                  'style'          => \@style,
 257              )
 258 %>