<% include('/elements/header.html', 'Time worked summary report criteria' ) %>

<% include ( '/elements/tr-input-beginning_ending.html' ) %> <& /elements/tr-td-label.html, label => 'Time category:' &> <% include ( '/elements/tr-select-otaker.html' ) %>

<& /elements/select-rt-customfield.html, name => 'cfname', lookuptype => 'RT::Transaction', valuetype => 'TimeValue', empty_label => 'Worked', &>
Account:	(all) % foreach my $svc_acct (@svc_acct) { <% $svc_acct->username %> % }

<% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); my $conf = new FS::Conf; my @pkgparts = $conf->config('support_packages'); my @svc_acct = (); if ( @pkgparts ) { @svc_acct = qsearch({ 'table' => 'svc_acct', 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. ' LEFT JOIN cust_pkg USING ( pkgnum ) ', 'extra_sql' => 'WHERE pkgpart IN ('. join(',', @pkgparts). ')', 'order_by' => 'ORDER BY username', }); } # get a list of TimeValue-type custom fields my $CurrentUser = RT::CurrentUser->new(); $CurrentUser->LoadByName($FS::CurrentUser::CurrentUser->username); die "RT not configured" unless $CurrentUser->id; my $CFs = RT::CustomFields->new($CurrentUser); $CFs->Limit(FIELD => 'LookupType', OPERATOR => 'ENDSWITH', VALUE => 'RT::Transaction'); $CFs->Limit(FIELD => 'Type', VALUE => 'TimeValue'); my @time_fields = ('', 'Worked'); while (my $CF = $CFs->Next) { push @time_fields, $CF->Name, ($CF->Description || $CF->Name); }