httemplate/graph/cust_bill_pkg_detail.cgi

   1 <% include('elements/monthly.html',
   2                 'title'        => $title. 'Rated Call Sales Report (Gross)',
   3                 'graph_type'   => 'Mountain',
   4                 'items'        => \@items,
   5                 'params'       => \@params,
   6                 'labels'       => \@labels,
   7                 'graph_labels' => \@labels,
   8                 'colors'       => \@colors,
   9                 'remove_empty' => 1,
  10                 'bottom_total' => 1,
  11                 'agentnum'     => $agentnum,
  12              )
  13 %>
  14 <%init>
  15
  16 die "access denied"
  17   unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
  18
  19 #XXX or virtual
  20 my( $agentnum, $sel_agent ) = ('', '');
  21 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
  22   $agentnum = $1;
  23   $sel_agent = qsearchs('agent', { 'agentnum' => $agentnum } );
  24   die "agentnum $agentnum not found!" unless $sel_agent;
  25 }
  26 my $title = $sel_agent ? $sel_agent->agent.' ' : '';
  27
  28 #false lazinessish w/FS::cust_pkg::search_sql (previously search/cust_pkg.cgi)
  29 my $classnum = '';
  30 if ( $cgi->param('classnum') =~ /^(\d*)$/ ) {
  31   $classnum = $1;
  32
  33   if ( $classnum ) { #a specific class
  34
  35     my $pkg_class = ( qsearchs('pkg_class', { 'classnum' => $classnum } ) );
  36     die "classnum $classnum not found!" unless $pkg_class;
  37     $title .= $pkg_class->classname.' ';
  38
  39   } elsif ( $classnum eq '' ) { #the empty class
  40
  41     $title .= 'Empty class ';
  42     # FS::Report::Table::Monthly.pm has the converse view
  43     $classnum = 0;
  44
  45   } elsif ( $classnum eq '0' ) { #all classes
  46
  47     # FS::Report::Table::Monthly.pm has the converse view
  48     $classnum = '';
  49   }
  50 }
  51 #eslaf
  52
  53 my $use_override = 0;
  54 $use_override = 1 if ( $cgi->param('use_override') );
  55
  56 my $usageclass = 0;
  57 my @usage_class = ();
  58 if ( $cgi->param('usageclass') =~ /^(\d*)$/ ) {
  59   $usageclass = $1;
  60
  61   if ( $usageclass ) { #a specific class
  62
  63     @usage_class = ( qsearchs('usage_class', { 'classnum' => $usageclass } ) );
  64     die "usage class $usageclass not found!" unless $usage_class[0];
  65     $title .= $usage_class[0]->classname.' ';
  66
  67   } elsif ( $usageclass eq '' ) { #the empty class -- legacy
  68
  69     $title .= 'Empty usage class ';
  70     @usage_class = ( '(empty usage class)' );
  71
  72   } elsif ( $usageclass eq '0' ) { #all classes
  73
  74     @usage_class = qsearch('usage_class', {} ); # { 'disabled' => '' } );
  75     push @usage_class, '(empty usage class)';
  76
  77   }
  78 }
  79 #eslaf
  80
  81 my $hue = 0;
  82 #my $hue_increment = 170;
  83 #my $hue_increment = 145;
  84 my $hue_increment = 125;
  85
  86 my @items  = ();
  87 my @params = ();
  88 my @labels = ();
  89 my @colors = ();
  90
  91 foreach my $agent ( $sel_agent || qsearch('agent', { 'disabled' => '' } ) ) {
  92
  93   my $col_scheme = Color::Scheme->new
  94                      ->from_hue($hue) #->from_hex($agent->color)
  95                      ->scheme('analogic')
  96                    ;
  97   my @recur_colors = ();
  98   my @onetime_colors = ();
  99
 100   ### fixup the color handling for usage classes...
 101   my $n = 0;
 102
 103   foreach my $usage_class ( @usage_class ) {
 104
 105     push @items, 'cust_bill_pkg_detail';
 106
 107     push @labels,
 108       ( $sel_agent ? '' : $agent->agent.' ' ).
 109       ( $usageclass eq '0'
 110           ? ( ref($usage_class) ? $usage_class->classname : $usage_class )
 111           : ''
 112       );
 113
 114     my $row_classnum = ref($usage_class) ? $usage_class->classnum : 0;
 115     my $row_agentnum = $agent->agentnum;
 116     push @params, [ 'usageclass'   => $row_classnum,
 117                     'agentnum'     => $row_agentnum,
 118                     'use_override' => $use_override,
 119                     'classnum'     => $classnum,
 120                   ];
 121
 122     @recur_colors = ($col_scheme->colors)[0,4,8,1,5,9]
 123       unless @recur_colors;
 124     @onetime_colors = ($col_scheme->colors)[2,6,10,3,7,11]
 125       unless @onetime_colors;
 126     push @colors, shift @recur_colors;
 127
 128   }
 129
 130   $hue += $hue_increment;
 131
 132 }
 133
 134 #use Data::Dumper;
 135 #warn Dumper(\@items);
 136
 137 </%init>