% include( 'elements/browse.html',
'title' => 'Package Definitions',
'html_init' => $html_init,
'name' => 'package definitions',
'disableable' => 1,
'disabled_statuspos' => 3,
'agent_virt' => 1,
'agent_null_right' => 'Edit global package definitions',
'agent_pos' => 5,
'query' => { 'select' => $select,
'table' => 'part_pkg',
'hashref' => {},
'order_by' => "ORDER BY $orderby",
},
'count_query' => $count_query,
'header' => \@header,
'fields' => \@fields,
'links' => \@links,
'align' => $align,
)
%>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Edit package definitions')
|| $FS::CurrentUser::CurrentUser->access_right('Edit global package definitions');
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 $money_char = $conf->config('money_char') || '$';
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.
Add a new package definition
!;
#}
# ------
my $link = [ $p.'edit/part_pkg.cgi?', 'pkgpart' ];
my @header = ( '#', 'Package', 'Comment' );
my @fields = ( 'pkgpart', 'pkg', 'comment' );
my $align = 'rll';
my @links = ( $link, $link, '' );
unless ( 0 ) { #already showing only one class or something?
push @header, 'Class';
push @fields, sub { shift->classname || '(none)'; };
$align .= 'l';
}
tie my %plans, 'Tie::IxHash', %{ FS::part_pkg::plan_info() };
tie my %plan_labels, 'Tie::IxHash',
map { $_ => ( $plans{$_}->{'shortname'} || $plans{$_}->{'name'} ) }
keys %plans;
push @header, 'Pricing';
$align .= 'r'; #?
push @fields, sub {
my $part_pkg = shift;
(my $plan = $plan_labels{$part_pkg->plan} ) =~ s/ / /g;
my $is_recur = ( $part_pkg->freq ne '0' );
[
[
{ data =>$plan,
align=>'center',
colspan=>2,
},
],
[
{ data =>$money_char.
sprintf('%.2f', $part_pkg->option('setup_fee') ),
align=>'right'
},
{ data => ( $is_recur ? ' setup' : ' one-time' ),
align=>'left',
},
],
[
{ data=>( $is_recur
? $money_char.sprintf('%.2f ', $part_pkg->option('recur_fee') )
: $part_pkg->freq_pretty
),
align=> ( $is_recur ? 'right' : 'center' ),
colspan=> ( $is_recur ? 1 : 2 ),
},
( $is_recur
? { data => ( $is_recur ? $part_pkg->freq_pretty : '' ),
align=>'left',
}
: ()
),
],
( map {
my $dst_pkg = $_->dst_pkg;
[
{ data => 'Add-on: '.$dst_pkg->pkg_comment,
align=>'center', #?
colspan=>2,
}
]
}
$part_pkg->bill_part_pkg_link
),
];
# $plan_labels{$part_pkg->plan}.'
'.
# $money_char.sprintf('%.2f setup
', $part_pkg->option('setup_fee') ).
# ( $part_pkg->freq ne '0'
# ? $money_char.sprintf('%.2f ', $part_pkg->option('recur_fee') )
# : ''
# ).
# $part_pkg->freq_pretty; #.'
'
};
#if ( $cgi->param('active') ) {
push @header, 'Customer
packages';
my %col = (
'active' => '00CC00',
'suspended' => 'FF9900',
'cancelled' => 'FF0000',
#'one-time charge' => '000000',
'charge' => '000000',
);
my $cust_pkg_link = $p. 'search/cust_pkg.cgi?pkgpart=';
push @fields, sub { my $part_pkg = shift;
[
map {
my $magic = $_;
my $label = $_;
if ( $magic eq 'active' && $part_pkg->freq == 0 ) {
$magic = 'inactive';
#$label = 'one-time charge',
$label = 'charge',
}
[
{
'data' => ''.
$part_pkg->get("num_$_").
'',
'align' => 'right',
},
{
'data' => $label.
( $part_pkg->get("num_$_") != 1
&& $label =~ /charge$/
? 's'
: ''
),
'align' => 'left',
'link' => ( $part_pkg->get("num_$_")
? $cust_pkg_link.
$part_pkg->pkgpart.
";magic=$magic"
: ''
),
},
],
} (qw( active suspended cancelled ))
]; };
$align .= 'r';
#}
if ( $taxclasses ) {
push @header, 'Taxclass';
push @fields, sub { shift->taxclass() || ' '; };
$align .= 'l';
}
push @header, 'Plan options',
'Services';
#'Service', 'Quan', 'Primary';
push @fields,
sub {
my $part_pkg = shift;
if ( $part_pkg->plan ) {
my %options = $part_pkg->options;
[ map {
[
{ 'data' => $_,
'align' => 'right',
},
{ 'data' => $part_pkg->format($_,$options{$_}),
'align' => 'left',
},
];
}
grep { $options{$_} =~ /\S/ }
grep { $_ !~ /^(setup|recur)_fee$/ }
keys %options
];
} 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 = "$svc (PRIMARY)";
}
$svc =~ s/ +/ /g;
[
{
'data' => ''. $pkg_svc->quantity. '',
'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('disable_linked'=>1)
),
( map {
my $dst_pkg = $_->dst_pkg;
[
{ data => 'Add-on: '.$dst_pkg->pkg_comment,
align=>'center', #?
colspan=>2,
}
]
}
$part_pkg->svc_part_pkg_link
)
];
};
$align .= 'lrl'; #rr';
# --------
my $count_query = 'SELECT COUNT(*) FROM part_pkg WHERE '.
$FS::CurrentUser::CurrentUser->agentnums_sql(
'null_right' => 'Edit global package definitions',
);
%init>