die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
+my $include_waived_setup = $cgi->param('include_waived_setup') || 0;
+
my $link = "${p}search/cust_bill_pkg_discount.html?";
+$link .= "include_waived_setup=Y&" if $include_waived_setup;
my $bottom_link = $link;
#XXX or virtual
$title .= 'Discount Overview';
-my $hue = 0;
+#my $hue = 0; # Start with illegible yellow-on-white
+my $hue = 255; # Start with red-on-white
#my $hue_increment = 170;
#my $hue_increment = 145;
my $hue_increment = 125;
#foreach my $pkg_class ( @pkg_class ) {
- push @items, 'cust_bill_pkg_discount';
+ push @items,
+ $include_waived_setup
+ ? 'cust_bill_pkg_discount_or_waived'
+ : 'cust_bill_pkg_discount';
push @labels,
( $sel_agent ? '' : $agent->agent.' ' );
#'average_per_cust_pkg' => $average_per_cust_pkg,
];
- push @links, "$link?agentnum=$row_agentnum"; #;classnum=$row_classnum;";
+ push @links, $link . "agentnum=$row_agentnum;";
@_colors = ($col_scheme->colors)[0,4,8,1,5,9,2,6,10,3,7,11];
push @colors, shift @_colors;