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 my $sdate = $cgi->param('start_year').
  36             '-'.
  37             $cgi->param('start_month').
  38             '-01';
  39 my $edate = ($cgi->param('end_year') +
  40                ($cgi->param('end_month')==12)).
  41             '-'.
  42             ($cgi->param('end_month') % 12 + 1).
  43             '-01'; # first day of the next month
  44
  45 my $sql = "AND signupdate >= ".str2time($sdate).
  46           " AND signupdate < ".str2time($edate);
  47
  48 foreach my $cust (qsearch({ table   => 'cust_main',
  49                             hashref => \%where,
  50                             extra_sql => $sql } )) {
  51   next if !$cust->signupdate;
  52   my $hour = time2str('%H',$cust->signupdate);
  53   $count[$hour]++;
  54 }
  55
  56 my @links = ("${p}search/cust_main.html?" .
  57               join (';', map {$_.'='.$where{$_}} (keys(%where))) ).
  58               ";signupdate_beginning=$sdate;signupdate_ending=$edate";
  59 push @links, map { ";signuphour=$_" } @hours;
  60 </%init>