<%

#false laziness w/access_user.html
my %search = ();
my $search = '';
unless ( $cgi->param('showdisabled') ) {
  %search = ( 'disabled' => '' );
  $search = "( disabled = '' OR disabled IS NULL )";
}

my $select = '*';
my $orderby = 'pkgpart';
if ( $cgi->param('active') ) {

  $orderby = 'num_active DESC';
}
  $select = "

    *,

    ( SELECT COUNT(*) FROM cust_pkg WHERE cust_pkg.pkgpart = part_pkg.pkgpart
       AND ( cancel IS NULL OR cancel = 0 )
       AND ( susp IS NULL OR susp = 0 )
    ) AS num_active,

    ( SELECT COUNT(*) FROM cust_pkg WHERE cust_pkg.pkgpart = part_pkg.pkgpart
        AND ( cancel IS NULL OR cancel = 0 )
        AND susp IS NOT NULL AND susp != 0
    ) AS num_suspended,

    ( SELECT COUNT(*) FROM cust_pkg WHERE cust_pkg.pkgpart = part_pkg.pkgpart
        AND cancel IS NOT NULL AND cancel != 0
    ) AS num_cancelled

  ";

#}

my $conf = new FS::Conf;
my $taxclasses = $conf->exists('enable_taxclasses');

my $html_init;
#unless ( $cgi->param('active') ) {
  $html_init = qq!
    One or more service definitions are grouped together into a package 
    definition and given pricing information.  Customers purchase packages
    rather than purchase services directly.<BR><BR>
    <A HREF="${p}edit/part_pkg.cgi"><I>Add a new package definition</I></A>
    <BR><BR>
  !;
#}

my $posttotal;
if ( $cgi->param('showdisabled') ) {
  $cgi->param('showdisabled', 0);
  $posttotal = '( <a href="'. $cgi->self_url. '">hide disabled packages</a> )';
  $cgi->param('showdisabled', 1);
} else {
  $cgi->param('showdisabled', 1);
  $posttotal = '( <a href="'. $cgi->self_url. '">show disabled packages</a> )';
  $cgi->param('showdisabled', 0);
}


# ------

my $link = [ $p.'edit/part_pkg.cgi?', 'pkgpart' ];

my @header = ( '#', 'Package', 'Comment' );
my @fields = ( 'pkgpart', 'pkg', 'comment' );
my $align = 'rll';
my @links = ( $link, $link, '' );
my @style = ( '', '', '' );

#false laziness w/access_user.html
#unless ( $cgi->param('showdisabled') ) { #its been reversed already
if ( $cgi->param('showdisabled') ) { #its been reversed already
  push @header, 'Status';
  push @fields, sub { shift->disabled
                        ? '<FONT COLOR="#FF0000">DISABLED</FONT>'
                        : '<FONT COLOR="#00CC00">Active</FONT>'
                    };
  push @links, '';
  $align .= 'c';
  push @style, 'b';
}

unless ( 0 ) { #already showing only one class or something?
  push @header, 'Class';
  push @fields, sub { shift->classname || '(none)'; };
  $align .= 'l';
}

#if ( $cgi->param('active') ) {
  push @header, 'Customer<BR>packages';
  my %col = (
    'active'      => '00CC00',
    'suspended'   => 'FF9900',
    'cancelled'   => 'FF0000',
  );
  my $cust_pkg_link = $p. 'search/cust_pkg.cgi?pkgpart=';
  push @fields, sub { my $part_pkg = shift;
                      [
                        map {
                              [
                                {
                                 'data'  => '<B><FONT COLOR="#'. $col{$_}. '">'.
                                            $part_pkg->get("num_$_").
                                            '</FONT></B>',
                                 'align' => 'right',
                                },
                                {
                                 'data'  => $_,
                                 'align' => 'left',
                                 'link'  => ( $part_pkg->get("num_$_")
                                                ? $cust_pkg_link.
                                                  $part_pkg->pkgpart.
                                                  ";magic=$_"
                                                : ''
                                            ),
                                },
                              ],
                            } (qw( active suspended cancelled ))
                      ]; };
  $align .= 'r';
#}

push @header, 'Frequency';
push @fields, sub { shift->freq_pretty; };
$align .= 'l';

if ( $taxclasses ) {
  push @header, 'Taxclass';
  push @fields, sub { shift->taxclass() || '&nbsp;'; };
  $align .= 'l';
}

push @header, 'Plan',
              'Data',
              'Services';
              #'Service', 'Quan', 'Primary';

push @fields, sub { shift->plan || '(legacy)' }, 

              sub {
                    my $part_pkg = shift;
                    if ( $part_pkg->plan ) {

                      [ map { 
                              /^(\w+)=(.*)$/; #or something;
                              [
                                { 'data'  => $1,
                                  'align' => 'right',
                                },
                                { 'data'  => $2,
                                  'align' => 'left',
                                },
                              ];
                            }
                        split(/\n/, $part_pkg->plandata)
                      ];

                    } else {

                      [ map { [
                                { 'data'  => uc($_),
                                  'align' => 'right',
                                },
                                {
                                  'data'  => $part_pkg->$_(),
                                  'align' => 'left',
                                },
                              ];
                            }
                        (qw(setup recur))
                      ];

                    }

                  },

              sub {
                    my $part_pkg = shift;

                    [ map  {
                             my $pkg_svc = $_;
                             my $part_svc = $pkg_svc->part_svc;
                             my $svc = $part_svc->svc;
                             if ( $pkg_svc->primary_svc =~ /^Y/i ) {
                               $svc = "<B>$svc (PRIMARY)</B>";
                             }
                             $svc =~ s/ +/&nbsp;/g;

                             [
                               {
                                 'data'  => '<B>'. $pkg_svc->quantity. '</B>',
                                 'align' => 'right'
                               },
                               {
                                 'data'  => $svc,
                                 'align' => 'left',
                                 'link'  => $p. 'edit/part_svc.cgi?'.
                                            $part_svc->svcpart,
                               },
                             ];
                           }
                      sort {     $b->primary_svc =~ /^Y/i
                             <=> $a->primary_svc =~ /^Y/i
                           }
                           $part_pkg->pkg_svc

                    ];

                  };

$align .= 'lrl'; #rr';

# --------

my $count_query = 'SELECT COUNT(*) FROM part_pkg';
$count_query .= " WHERE $search"
  if $search;

%><%= include( 'elements/browse.html',
                 'title'          => 'Package Definitions',
                 'menubar'        => [ 'Main Menu' => $p ],
                 'html_init'      => $html_init,
                 'html_posttotal' => $posttotal,
                 'name'           => 'package definitions',
                 'query'          => { 'select'    => $select,
                                       'table'     => 'part_pkg',
                                       'hashref'   => \%search,
                                       'extra_sql' => "ORDER BY $orderby",
                                     },
                 'count_query'    => $count_query,
                 'header'         => \@header,
                 'fields'         => \@fields,
                 'links'          => \@links,
                 'align'          => $align,
                 'style'          => \@style,
             )
%>