<% include( 'elements/search.html', 'title' => 'Time Worked', 'menubar' => [ 'Main menu' => $p, ], 'name' => 'time', 'html_form' => qq!

!, 'query' => $query, 'count_query' => $count_query, 'header' => [ '#', 'Ticket', 'Date', 'Time', '', # checkbox column ], 'fields' => [ sub { shift->[0] }, sub { encode_entities(shift->[1]) }, sub { shift->[2] }, sub { my $seconds = shift->[3]; (($seconds < 0) ? '-' : '') . concise(duration($seconds)); }, sub { my $row = shift; my $seconds = $row->[3]; my $id = $row->[4]; qq!!. qq!!; }, ], 'links' => [ $link, $link, '', '', '', ], 'html_foot' => sub { '
'. ''. '

'. ''; }, ) %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Time queue'); my @groupby = (); my $transactiontime = " CASE transactions.type when 'Set' THEN (to_number(newvalue,'999999')-to_number(oldvalue, '999999')) * 60 ELSE timetaken*60 END "; push @groupby, qw( transactions.type newvalue oldvalue timetaken ); my $appliedtimeclause = "coalesce (sum(acct_rt_transaction.seconds), 0)"; my $appliedtimeselect = " coalesce( ( SELECT sum(seconds) FROM acct_rt_transaction WHERE transaction_id = transactions.id ), 0 ) "; push @groupby, "transactions.id"; my $wheretimeleft = "$transactiontime != $appliedtimeselect"; push @groupby, "tickets.id"; push @groupby, "tickets.subject"; push @groupby, "transactions.created"; my $groupby = join(',', @groupby); my $where = " WHERE objecttype='RT::Ticket' AND ( ( transactions.type='Set' AND field='TimeWorked' ) OR transactions.type='Comment' OR transactions.type='Correspond' ) AND $wheretimeleft "; #AND $wheretimeleft my $query = " SELECT tickets.id, tickets.subject, to_char(transactions.created, 'Dy Mon DD HH24:MI:SS YYYY'), $transactiontime-$appliedtimeclause, transactions.id FROM transactions JOIN tickets ON transactions.objectid = tickets.id LEFT JOIN acct_rt_transaction ON transactions.id = acct_rt_transaction.transaction_id $where GROUP BY $groupby ORDER BY transactions.created "; my $count_query = "SELECT COUNT(*) FROM transactions $where"; my $link = [ "${p}rt/Ticket/Display.html?id=", sub { shift->[0]; } ];