httemplate/graph/signupdate.cgi

   1 <% include('elements/report.html',
   2             'title'       => $agentname . 'Customer signups by time of day',
   3             'items'       => [ 'signupdate' ],
   4             'data'        => [ \@count ],
   5             'row_labels'  => [ 'New customers' ],
   6             'colors'      => [ '00cc00' ], #green
   7             'col_labels'  => [ map { "$_:00" } @hours ],
   8             'links'       => [ \@links ],
   9             'graph_type'  => 'Bars',
  10             'nototal'     => 0,
  11             'sprintf'     => '%u',
  12             'disable_money' => 1,
  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, $agent ) = ('', '');
  21 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
  22   $agentnum = $1;
  23   $agent = qsearchs('agent', { 'agentnum' => $agentnum } );
  24   die "agentnum $agentnum not found!" unless $agent;
  25 }
  26
  27 my $agentname = $agent ? $agent->agent.' ' : '';
  28 my $usernum = $cgi->param('usernum');
  29
  30 my @hours = (0..23);
  31 my @count = (0) x 24;
  32 my %where;
  33 $where{'agentnum'} = $agentnum if $agentnum;
  34 $where{'usernum'}   = $usernum if $usernum;
  35
  36 my $sdate = DateTime->new(
  37     year       => $cgi->param('start_year'),
  38     month      => $cgi->param('start_month'),
  39 )->epoch();
  40
  41 my $edate = DateTime->new(
  42     year       => $cgi->param('end_year'),
  43     month      => $cgi->param('end_month')
  44 )->add( months => 1 )->epoch();
  45
  46 my $where .= " AND signupdate >= $sdate ".
  47              " AND signupdate < $edate ";
  48
  49 foreach my $cust (qsearch({ table   => 'cust_main',
  50                             hashref => \%where,
  51                             extra_sql => $where } )) {
  52   next if !$cust->signupdate;
  53   my $hour = time2str('%H',$cust->signupdate);
  54   $count[$hour]++;
  55 }
  56
  57 my @links = ("${p}search/cust_main.html?" .
  58               join (';', map {$_.'='.$where{$_}} (keys(%where))) ).
  59               ";signupdate_beginning=$sdate;signupdate_ending=$edate";
  60 push @links, map { ";signuphour=$_" } @hours;
  61 </%init>