1 <% include('elements/report.html',
2 'title' => $agentname . 'Customer signups by time of day',
3 'items' => [ 'signupdate' ],
5 'row_labels' => [ 'New customers' ],
6 'colors' => [ '00cc00' ], #green
7 'col_labels' => [ map { "$_:00" } @hours ],
8 'links' => [ \@links ],
9 'graph_type' => 'Bars',
17 unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
20 my( $agentnum, $agent ) = ('', '');
21 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
23 $agent = qsearchs('agent', { 'agentnum' => $agentnum } );
24 die "agentnum $agentnum not found!" unless $agent;
27 my $agentname = $agent ? $agent->agent.' ' : '';
28 my $usernum = $cgi->param('usernum');
33 $where{'agentnum'} = $agentnum if $agentnum;
34 $where{'usernum'} = $usernum if $usernum;
36 my $sdate = DateTime->new(
37 year => $cgi->param('start_year'),
38 month => $cgi->param('start_month'),
39 time_zone => 'America/Los_Angeles',
42 my $edate = DateTime->new(
43 year => $cgi->param('end_year'),
44 month => $cgi->param('end_month'),
45 time_zone => 'America/Los_Angeles',
48 my $where .= " AND signupdate >= $sdate ".
49 " AND signupdate <= $edate ";
51 foreach my $cust (qsearch({ table => 'cust_main',
53 extra_sql => $where } )) {
54 next if !$cust->signupdate;
55 my $hour = time2str('%H',$cust->signupdate);
59 my @links = ("${p}search/cust_main.html?" .
60 join (';', map {$_.'='.$where{$_}} (keys(%where))) ).
61 ";signupdate_beginning=$sdate;signupdate_ending=$edate";
62 push @links, map { ";signuphour=$_" } @hours;