diff options
Diffstat (limited to 'httemplate/search/rt_ticket.html')
-rw-r--r-- | httemplate/search/rt_ticket.html | 131 |
1 files changed, 0 insertions, 131 deletions
diff --git a/httemplate/search/rt_ticket.html b/httemplate/search/rt_ticket.html deleted file mode 100644 index 7ffe55fc1..000000000 --- a/httemplate/search/rt_ticket.html +++ /dev/null @@ -1,131 +0,0 @@ -<% include('elements/search.html', - 'title' => 'Time worked summary', - 'name_singular' => 'ticket', - 'query' => $query, - 'count_query' => $count_query, - 'count_addl' => [ $format_seconds_sub, $format_seconds_sub, ], - 'header' => [ 'Ticket #', - 'Ticket', - 'Time', - 'Applied', - ], - 'fields' => [ 'ticketid', - sub { encode_entities(shift->get('subject')) }, - sub { my $seconds = shift->get('transaction_time'); - &{ $format_seconds_sub }( $seconds ); - }, - sub { my $seconds = shift->get('support'); - &{ $format_seconds_sub }( $seconds ); - }, - ], - 'sort_fields' => [ 'ticketid', - 'subject', - 'transaction_time', - 'support_time', - ], - 'links' => [ - $link, - $link, - '', - '', - ], - ) -%> -<%once> - -my $format_seconds_sub = sub { - my $seconds = shift; - #(($seconds < 0) ? '-' : '') . concise(duration($seconds)); - (($seconds < 0) ? '-' : '' ). int(abs($seconds)/3600)."h".sprintf("%02d",(abs( -$seconds)%3600)/60)."m"; -}; - -</%once> -<%init> - -#all sorts of false laziness w/rt_transaction.html - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); - -#some amount of false laziness w/timeworked.html... - -my $transactiontime = " - CASE transactions.type when 'Set' - THEN (to_number(newvalue,'999999')-to_number(oldvalue, '999999')) * 60 - ELSE timetaken*60 - END -"; - -my $join = 'JOIN Users ON Transactions.Creator = Users.Id '; #. -# 'LEFT JOIN acct_rt_transaction '. -# ' ON Transactions.Id = acct_rt_transaction.transaction_id'; - -my $twhere = " - WHERE objecttype='RT::Ticket' - AND Transactions.ObjectId = Tickets.Id - AND ( ( Transactions.Type = 'Set' - AND Transactions.Field = 'TimeWorked' - AND Transactions.NewValue != Transactions.OldValue ) - OR ( ( Transactions.Type='Create' OR Transactions.Type='Comment' OR Transactions.Type='Correspond' ) - AND Transactions.TimeTaken > 0 - ) - ) -"; -#AND transaction_time != 0 -#AND $wheretimeleft - -my $support = ''; - -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -# TIMESTAMP is Pg-specific... ? -if ( $beginning > 0 ) { - $beginning = "TIMESTAMP '". time2str('%Y-%m-%d %X', $beginning). "'"; - $twhere .= " AND Transactions.Created >= $beginning "; -} -if ( $ending < 4294967295 ) { - $ending = "TIMESTAMP '". time2str('%Y-%m-%d %X', $ending). "'"; - $twhere .= " AND Transactions.Created <= $ending "; -} - -if ( $cgi->param('otaker') && $cgi->param('otaker') =~ /^([\w\.\-]+)$/ ) { - $twhere .= " AND Users.name = '$1' "; -} - -if ( $cgi->param('svcnum') =~ /^\s*(\d+)\s*$/ ) { - $twhere .= " AND EXISTS( SELECT 1 FROM acct_rt_transaction WHERE acct_rt_transaction.transaction_id = Transactions.id AND svcnum = $1 )"; - $support = "AND svcnum = $1"; -} - -my $transactions = "FROM Transactions $join $twhere"; - -my $where = "WHERE EXISTS ( SELECT 1 $transactions )"; - -my $transaction_time = "( SELECT SUM($transactiontime) $transactions )"; -my $support_time = "( SELECT SUM(support) FROM acct_rt_transaction LEFT JOIN Transactions ON ( transaction_id = Id ) $twhere $support )"; - -my $query = { - 'select' => join(', ', - 'Tickets.Id AS ticketid', - 'Tickets.Subject', - "$transaction_time AS transaction_time", - "$support_time AS support", - ), - 'table' => 'tickets', #Pg-ism - #'table' => 'Tickets', - 'addl_from' => '', #$join, - 'extra_sql' => $where, - 'order by' => 'ORDER BY Created', -}; - -my $count_query = - #"SELECT COUNT(*), SUM($transactiontime), SUM(acct_rt_transaction.support) FROM Transactions $join $where"; - #"SELECT COUNT(*), ( SUM($transactiontime) $transactions ) FROM Tickets"; # $join $where"; - "SELECT COUNT(*), - SUM( $transaction_time ), - SUM( $support_time ) - FROM Tickets $where"; # $join $where"; - -my $link = [ "${p}rt/Ticket/Display.html?id=", sub { shift->get('ticketid'); } ]; - -</%init> |